| |
| |
|
| - Page 1 - |
|
Erasmus.Herold | Hallöchen ...
I use: XProfan X3
The following Profan trouble position itself me:
1. I open over my standard-background one Window.
fenster_darueber% = Create("Dialog",%hWnd,"neues Fenster",28,120,1870,940)
2. i want in this Window one JPG malen.
DrawPic "logo.jpg", 1400, 50; 0
trouble: this Image on the background painted, not my new Window.
Do Support, How I the image on the suitable "Handle" commit. according XProfan Help and internet find I do not whom right Ansatz.
loves Thanks |
|
| |
| |
| |
|
 |
« this Posting watts as Solution marked. » |
|
Jörg
Sellmeyer | there can I against The Forumssuche recommend  [...] 
You must The Controls then only not %hwnd create, separate on fenster_darueber%.
here then time in integrally crept:
Cls
ChDir $WinPath
Print FindFirst$("*.bmp"),
If %Ioresult
Print "Keine Images 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 display1& = Create("Bitmap",%hwnd,hbmp&,10,100)
Var display2& = Create("Bitmap",dlg&,hbmp&,0,0)
Print "ESC to that Beenden"
While 1
WaitInput
Case %key = 27:Break
Wend
DeleteObject hbmp&' important!
the goes naturally too with jpg u.s.w. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 06/25/18 ▲ |
|
| |
|
|
|
Jörg
Sellmeyer | look times under StartPaint to.
look you but too times the Topics To Create("Bitmap",....) on. then must You you not any more around the Repaint concern. the müsstest You namely, if You with StartPait one Image to the dialog erstellst. |
|
| |
| |
| |
|
|
Erasmus.Herold | @Jörg Sellmeyer - thanks for your Notes.
particularly whom Ansatz with Create("Bitmap" I had too seen.
I faith, what me missing, is a Piece Source.
because all my try brought no Result.
Greeting and Thanks |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | there can I against The Forumssuche recommend [...]
You must The Controls then only not %hwnd create, separate on fenster_darueber%.
here then time in integrally crept:
Cls
ChDir $WinPath
Print FindFirst$("*.bmp"),
If %Ioresult
Print "Keine Images 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 display1& = Create("Bitmap",%hwnd,hbmp&,10,100)
Var display2& = Create("Bitmap",dlg&,hbmp&,0,0)
Print "ESC to that Beenden"
While 1
WaitInput
Case %key = 27:Break
Wend
DeleteObject hbmp&' important!
the goes naturally too with jpg u.s.w. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 06/25/18 ▲ |
|
| |
|
|
Erasmus.Herold | Thank you. has functions.
I had of course the lever "Fenster_drüber" chosen, but somehow create("Bitmap" and DrawPic integrally wrong used / filled.
lovely - my Image is there. |
|
| |
| |
| |
|
(850)
Deutsch
English
Français
Español
Italia