| |
| |
|
Erasmus.Herold | Hallöchen ...
Mit diesem Quellcode kann Yo una Bild en una darüber liegendes Ventana invitar y Mostrar.
temp& = Crear("HPIC",-1,"bild.jpg")// Orderbild con Tablet
Crear("Mapa de bits",fenster_darueber%,temp&,1270,350)
Yo möchte el Bild pero no en Originalgröße haben, pero lo verkleinern, como con el Befehl "DrawSizedPic" posible es.
Mir fehlt irgendwie el Ansatz, como yo verkleinerte Bild en el darüber liegende Ventana (fenster_darueber%) zaubere 
Sombrero alguien pequeño Code-Schnipsel para mich?
Saludo - Erasmus |
|
| |
| |
| |
|
|
H.Brill | Probier veces con Crear("hSizedPic",...).
Usted mußt natürlich auch para richtigen Ventana wechseln,
como XProfan standardmäßig en el Ventana principal schreibt.
Also :
StartPaint fenster_darueber%
DrawPic ….
EndPaint
Hier una kleines Ejemplo :
Declarar fenster_darueber%, btn1%, datei$, ende%, bmp&
datei$ = "deinjpg.jpg"
ende% = 0
bmp& = Crear("hSizedPic",-1,datei$, 50, 60, 0)
Ventana 800, 600
btn1% = Crear("Button", %HWnd, "Lade", 10, 10, 60, 25)
fenster_darueber% = Crear("Window", %HWnd, "Kleines Fenster", 500, 300, 160, 210)
Sinestar encargado ende%
WaitInput
If Clicked(btn1%)
SetActiveWindow(fenster_darueber%)
StartPaint fenster_darueber%
DrawPic bmp&, 10, 10; 0
EndPaint
EndIf
EndWhile
End
PS : Usted puede auch una ImageList uso,
si mehrere Bilder son. |
|
| |
| 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. Gracias.
Mir fehlte dieser Ansatz: StartPaint fenster_darueber%
Gracias y closed ... |
|
| |
| |
| |
|
(800)
Deutsch
English
Français
Español
Italia