| |
|
|
Erasmus.Herold | Hallöchen ...
avec diesem Quellcode peux je un Bild dans un par-dessus liegendes la fenêtre magasin et Montrer.
temp& = Créer(«PCSI»,-1,"bild.jpg")// Orderbild avec Tablet
Créer("Bitmap",fenster_darueber%,temp&,1270,350)
je voudrais cela Bild mais pas dans Originalgröße avons, mais es verkleinern, comme avec dem Befehl "DrawSizedPic" possible ist.
Mir fehlt irgendwie qui Ansatz, comment je cela verkleinerte Bild ins par-dessus liegende la fenêtre (fenster_darueber%) zaubere
Hat quelqu'un une kleinen Code-Schnipsel pour mich?
Salut - Erasmus |
|
|
| |
|
|
|
H.Brill | Probier la fois avec Créer("hSizedPic",...). tu dois naturellement aussi zum richtigen la fenêtre échanger, là XProfan standardmäßig ins Hauptfenster écrit. alors : Début de peinture fenster_darueber% DrawPic …. EndPaint
ici un kleines Beispiel :
Déclarer fenster_darueber%, btn1%, fichier$, ende%, bmp&
datei$ = "deinjpg.jpg"
ende% = 0
bmp& = Créer("hSizedPic",-1,fichier$, 50, 60, 0)
Fenêtre 800, 600
btn1% = Créer("Button", %HWnd, "Lade", 10, 10, 60, 25)
fenster_darueber% = Créer("Window", %HWnd, "Kleines Fenster", 500, 300, 160, 210)
WhileNot ende%
WaitInput
Si Clicked(btn1%)
SetActiveWindow(fenster_darueber%)
Début de peinture fenster_darueber%
DrawPic bmp&, 10, 10; 0
EndPaint
EndIf
Endwhile
Fin
PS : tu peux aussi une ImageList verwenden, si es plusieurs Bilder sommes. |
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 13.07.2019 ▲ |
|
|
|
|
Erasmus.Herold | Funktioniert parfait. merci.
Mir fehlte cette Ansatz: Début de peinture fenster_darueber%
merci et closed ... |
|
|
| |
|
|