| |
| |
|
| - Página 1 - |
|
Erasmus.Herold | Hallöchen ...
Yo benutze: XProfan X3
Folgendes Profano Problema stellt se me:
1. Yo öffne encima mi Standard-Hintergrund una Ventana.
fenster_darueber% = Crear("Dialog",%hWnd,"neues Fenster",28,120,1870,940)
2. Yo möchte en dieses Ventana una JPG malen.
DrawPic "logo.jpg", 1400, 50; 0
Problema: Dieses Bild se en el Hintergrund gemalt, no en mein neues Ventana.
Hacer Unterstützung, como yo Bild a el passende "Handle" übergebe. Gemäß XProfan Ayuda y Internet finde Yo no el richtigen Ansatz.
Lieben Dank |
|
| |
| |
| |
|
 |
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
Jörg
Sellmeyer | Como kann Yo wiederum el Forumssuche empfehlen  [...] 
Usted musst el Controls entonces sólo no en %hwnd redactar, pero en fenster_darueber%.
Hier entonces veces en bastante schlicht:
Cls
ChDir $WinPath
Imprimir FindFirst$("*.bmp"),
If %Ioresult
Imprimir "Keine Bilder vorhanden"
WaitInput
End
Más
imprimir FindNext$(),FindNext$(),FindNext$()
EndIf
Var hbmp& = Crear("HPIC",-1,"Angler.bmp")
Var dlg& = Crear("Dialog", %hwnd,"Bild",%winleft + 200,%wintop + 120,%bmpx + 4,%bmpy + 30)
Var Anzeige1& = Crear("Mapa de bits",%hwnd,hbmp&,10,100)
Var Anzeige2& = Crear("Mapa de bits",dlg&,hbmp&,0,0)
Imprimir "ESC para Beenden"
Mientras que 1
WaitInput
Case %key = 27:Romper
Wend
DeleteObject hbmp&' wichtig!
Es natürlich auch con jpg u.s.w. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 25.06.2018 ▲ |
|
| |
|
|
|
Jörg
Sellmeyer | Schau a veces StartPaint después de.
Schau dir aber auch veces el Temas a Crear("Mapa de bits",....) a. Dann musst du dich no mehr en el Neuzeichnen kümmern. Das müsstest du nämlich, si du con StartPait una Bild en el Diálogo erstellst. |
|
| |
| |
| |
|
|
Erasmus.Herold | @Jörg Sellmeyer - danke para deine Hinweise.
Insbesondere el Ansatz con Crear("Mapa de bits" Tuve auch gesehen.
Yo glaube, qué me fehlt, es una Stück Quellcode.
Denn all mi Versuche brachten kein Ergebnis.
Saludo y Dank |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Como kann Yo wiederum el Forumssuche empfehlen [...]
Usted musst el Controls entonces sólo no en %hwnd redactar, pero en fenster_darueber%.
Hier entonces veces en bastante schlicht:
Cls
ChDir $WinPath
Imprimir FindFirst$("*.bmp"),
If %Ioresult
Imprimir "Keine Bilder vorhanden"
WaitInput
End
Más
imprimir FindNext$(),FindNext$(),FindNext$()
EndIf
Var hbmp& = Crear("HPIC",-1,"Angler.bmp")
Var dlg& = Crear("Dialog", %hwnd,"Bild",%winleft + 200,%wintop + 120,%bmpx + 4,%bmpy + 30)
Var Anzeige1& = Crear("Mapa de bits",%hwnd,hbmp&,10,100)
Var Anzeige2& = Crear("Mapa de bits",dlg&,hbmp&,0,0)
Imprimir "ESC para Beenden"
Mientras que 1
WaitInput
Case %key = 27:Romper
Wend
DeleteObject hbmp&' wichtig!
Es natürlich auch con jpg u.s.w. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 25.06.2018 ▲ |
|
| |
|
|
Erasmus.Herold | Dankeschön. Sombrero funktioniert.
Tuve zwar el Handle "Fenster_drüber" gewählt, aber irgendwie create("Mapa de bits" y DrawPic bastante falso genutzt / gefüllt.
Prima - mein Bild es como. |
|
| |
| |
| |
|
(777)
Deutsch
English
Français
Español
Italia