| |
| |
|
Erasmus.Herold | Hallöchen ...
Mit diesem Quellcode kann ich ein Bild in ein darüber liegendes Fenster laden und anzeigen.
temp& = Create("hPic",-1,"bild.jpg")// Orderbild mit Tablet
Create("Bitmap",fenster_darueber%,temp&,1270,350)
Ich möchte das Bild aber nicht in Originalgröße haben, sondern es verkleinern, wie es mit dem Befehl "DrawSizedPic" möglich ist.
Mir fehlt irgendwie der Ansatz, wie ich das verkleinerte Bild ins darüber liegende Fenster (fenster_darueber%) zaubere 
Hat jemand einen kleinen Code-Schnipsel für mich?
Gruß - Erasmus |
|
| |
| |
| |
|
|
H.Brill | Probier mal mit Create("hSizedPic",...).
Du mußt natürlich auch zum richtigen Fenster wechseln,
da XProfan standardmäßig ins Hauptfenster schreibt.
Also :
StartPaint fenster_darueber%
DrawPic ….
EndPaint
Hier ein kleines Beispiel :
Declare fenster_darueber%, btn1%, datei$, ende%, bmp&
datei$ = "deinjpg.jpg"
ende% = 0
bmp& = Create("hSizedPic",-1,datei$, 50, 60, 0)
Window 800, 600
btn1% = Create("Button", %HWnd, "Lade", 10, 10, 60, 25)
fenster_darueber% = Create("Window", %HWnd, "Kleines Fenster", 500, 300, 160, 210)
WhileNot ende%
WaitInput
If Clicked(btn1%)
SetActiveWindow(fenster_darueber%)
StartPaint fenster_darueber%
DrawPic bmp&, 10, 10; 0
EndPaint
EndIf
EndWhile
End
PS : Du kannst auch eine ImageList verwenden,
wenn es mehrere Bilder sind. |
|
| |
| 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 perfekt. Danke.
Mir fehlte dieser Ansatz: StartPaint fenster_darueber%
Danke und closed ... |
|
| |
| |
| |
|
(891)
Deutsch
English
Français
Español
Italia