| |
| |
|
| - Seite 1 - |
|
Erasmus.Herold | Hallöchen ...
Ich benutze: XProfan X3
Folgendes Profan Problem stellt sich mir:
1. Ich öffne über meinem Standard-Hintergrund ein Fenster.
fenster_darueber% = Create("Dialog",%hWnd,"neues Fenster",28,120,1870,940)
2. Ich möchte in dieses Fenster ein JPG malen.
DrawPic "logo.jpg", 1400, 50; 0
Problem: Dieses Bild wird auf den Hintergrund gemalt, nicht in mein neues Fenster.
Benötige Unterstützung, wie ich das Bild an das passende "Handle" übergebe. Gemäß XProfan Hilfe und Internet finde ich nicht den richtigen Ansatz.
Lieben Dank |
|
| |
| |
| |
|
 |
« Dieser Beitrag wurde als Lösung gekennzeichnet. » |
|
Jörg
Sellmeyer | Da kann ich wiederum die Forumssuche empfehlen  [...] 
Du musst die Controls dann nur nicht auf %hwnd erstellen, sondern auf fenster_darueber%.
Hier dann mal in ganz schlicht:
Cls
ChDir $WinPath
Print FindFirst$("*.bmp"),
If %Ioresult
Print "Keine Bilder vorhanden"
WaitInput
End
Else
print FindNext$(),FindNext$(),FindNext$()
EndIf
Var hbmp& = Create("hPic",-1,"Angler.bmp")
Var dlg& = Create("Dialog", %hwnd,"Bild",%winleft + 200,%wintop + 120,%bmpx + 4,%bmpy + 30)
Var Anzeige1& = Create("Bitmap",%hwnd,hbmp&,10,100)
Var Anzeige2& = Create("Bitmap",dlg&,hbmp&,0,0)
Print "ESC zum Beenden"
While 1
WaitInput
Case %key = 27:Break
Wend
DeleteObject hbmp&' wichtig!
Das geht natürlich auch mit jpg u.s.w. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 25.06.2018 ▲ |
|
| |
|
|
|
Jörg
Sellmeyer | Schau mal unter StartPaint nach.
Schau dir aber auch mal die Themen zu Create("Bitmap",....) an. Dann musst du dich nicht mehr um das Neuzeichnen kümmern. Das müsstest du nämlich, wenn du mit StartPait ein Bild auf dem Dialog erstellst. |
|
| |
| |
| |
|
|
Erasmus.Herold | @Jörg Sellmeyer - danke für deine Hinweise.
Insbesondere den Ansatz mit Create("Bitmap" hatte ich auch gesehen.
Ich glaube, was mir fehlt, ist ein Stück Quellcode.
Denn all meine Versuche brachten kein Ergebnis.
Gruß und Dank |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Da kann ich wiederum die Forumssuche empfehlen [...]
Du musst die Controls dann nur nicht auf %hwnd erstellen, sondern auf fenster_darueber%.
Hier dann mal in ganz schlicht:
Cls
ChDir $WinPath
Print FindFirst$("*.bmp"),
If %Ioresult
Print "Keine Bilder vorhanden"
WaitInput
End
Else
print FindNext$(),FindNext$(),FindNext$()
EndIf
Var hbmp& = Create("hPic",-1,"Angler.bmp")
Var dlg& = Create("Dialog", %hwnd,"Bild",%winleft + 200,%wintop + 120,%bmpx + 4,%bmpy + 30)
Var Anzeige1& = Create("Bitmap",%hwnd,hbmp&,10,100)
Var Anzeige2& = Create("Bitmap",dlg&,hbmp&,0,0)
Print "ESC zum Beenden"
While 1
WaitInput
Case %key = 27:Break
Wend
DeleteObject hbmp&' wichtig!
Das geht natürlich auch mit jpg u.s.w. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 25.06.2018 ▲ |
|
| |
|
|
Erasmus.Herold | Dankeschön. Hat funktioniert.
Ich hatte zwar das Handle "Fenster_drüber" gewählt, aber irgendwie create("Bitmap" und auch DrawPic ganz falsch genutzt / gefüllt.
Prima - mein Bild ist da. |
|
| |
| |
| |
|
(894)
Deutsch
English
Français
Español
Italia