| |
| |
|
| - page 1 - |
|
Erasmus.Herold | Hallöchen ...
je benutze: XProfan X3
Folgendes Profan Problem stellt sich mir:
1. j'ouvre sur meinem Standard-Hintergrund un la fenêtre.
fenster_darueber% = Créer("Dialog",%hWnd,"neues Fenster",28,120,1870,940)
2. je voudrais dans cet la fenêtre un JPG malen.
DrawPic "logo.jpg", 1400, 50; 0
Problem: cet Bild wird sur den Hintergrund gemalt, pas dans mon nouveau la fenêtre.
Faire Unterstützung, comment je cela Bild à cela passende "Handle" übergebe. Gemäß XProfan Aider et Internet finde je pas den richtigen Ansatz.
Lieben Dank |
|
| |
| |
| |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
Jörg
Sellmeyer | là peux je wiederum qui Forumssuche empfehlen  [...] 
Du musst qui Controls ensuite seulement pas sur %hwnd erstellen, mais sur fenster_darueber%.
ici ensuite la fois dans entier schlicht:
Cls
ChDir $WinPath
Imprimer $ FindFirst("*.bmp"),
Si %Ioresult
Imprimer "Keine Bilder vorhanden"
WaitInput
Fin
D'autre
imprimer FindNext$(),FindNext$(),FindNext$()
EndIf
Var hbmp& = Créer(«PCSI»,-1,"Angler.bmp")
Var dlg& = Créer("Dialog", %hwnd,"Bild",%winleft + 200,%wintop + 120,%bmpx + 4,%bmpy + 30)
Var Anzeige1& = Créer("Bitmap",%hwnd,hbmp&,10,100)
Var Anzeige2& = Créer("Bitmap",dlg&,hbmp&,0,0)
Imprimer "ESC zum Beenden"
Tandis que 1
WaitInput
Cas %clé = 27:Pause
Wend
DeleteObject hbmp&' important!
cela allez naturellement aussi avec jpg u.s.w. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 25.06.2018 ▲ |
|
| |
|
|
|
Jörg
Sellmeyer | exposition la fois sous Début de peinture pour.
exposition dir mais aussi fois le Sujets trop Créer("Bitmap",....) à. ensuite musst du toi pas plus um cela Neuzeichnen kümmern. cela müsstest du nämlich, si du avec StartPait un Bild sur dem Dialog erstellst. |
|
| |
| |
| |
|
|
Erasmus.Herold | @Jörg Sellmeyer - merci pour deine Hinweise.
Insbesondere den Ansatz avec Créer("Bitmap" J'ai eu aussi gesehen.
je crois, quoi mir fehlt, est un Stück Quellcode.
car espace mon Versuche brachten ne...aucune Ergebnis.
Salut et Dank |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | là peux je wiederum qui Forumssuche empfehlen [...]
Du musst qui Controls ensuite seulement pas sur %hwnd erstellen, mais sur fenster_darueber%.
ici ensuite la fois dans entier schlicht:
Cls
ChDir $WinPath
Imprimer $ FindFirst("*.bmp"),
Si %Ioresult
Imprimer "Keine Bilder vorhanden"
WaitInput
Fin
D'autre
imprimer FindNext$(),FindNext$(),FindNext$()
EndIf
Var hbmp& = Créer(«PCSI»,-1,"Angler.bmp")
Var dlg& = Créer("Dialog", %hwnd,"Bild",%winleft + 200,%wintop + 120,%bmpx + 4,%bmpy + 30)
Var Anzeige1& = Créer("Bitmap",%hwnd,hbmp&,10,100)
Var Anzeige2& = Créer("Bitmap",dlg&,hbmp&,0,0)
Imprimer "ESC zum Beenden"
Tandis que 1
WaitInput
Cas %clé = 27:Pause
Wend
DeleteObject hbmp&' important!
cela allez naturellement aussi avec 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.
je hatte zwar cela Handle "Fenster_drüber" gewählt, mais irgendwie create("Bitmap" et DrawPic entier faux genutzt / pleine.
Prima - mon Bild ist là. |
|
| |
| |
| |
|
(803)
Deutsch
English
Français
Español
Italia