| |
| |
|
Jac
de
Lad | Hello Frank!
look you time ask the View source on. Why disappears the image, after the window of a others overlay watts? Can what against it do?
CompileMarkSeparationdeclare pdlg&,clo&,dll&,pic&,w&,h&,f$
DEF LoadExtImage(1) !"ProSpeed","LoadExtImage"
DEF FreeExtBmp(1) !"ProSpeed","FreeExtBmp"
DEF GetBmpWidth(1) !"ProSpeed","GetBmpWidth"
DEF GetBmpHeight(1) !"ProSpeed","GetBmpHeight"
DEF CopyExtBmp(9) !"ProSpeed","CopyExtBmp"
cls
dll&=UseDLL("Prospeed.dll")
f$="d:\neue dateien\halo.jpg"anpassen!
pic&=LoadExtImage(Addr(f$))
w&=GetBmpWidth(pic&)
h&=GetBmpHeight(pic&)
pdlg&=Create("Dialog",%HWnd,f$,(%MaxX-w&)/2,(%MaxY-h&-32-%CyCaption)/2,w&,h&+32+%CyCaption)
clo&=Create("Button",pdlg&,"Schließen",w&-84,h&,80,24)
StartPaint pdlg&
CopyExtBmp(%HDC,0,0,w&,h&,pic&,0,0,0)
CopyExtBmp(%HDC2,0,0,w&,h&,pic&,0,0,0)
EndPaint
FreeExtBmp(pic&)
whilenot Or(Clicked(clo&),Equ(%Key,2))
waitinput
wend
FreeDLL dll&
end
Jac  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 08/26/06 ▲ |
|
| |
|
|
Frank
Abbing | Hi Jac,
this is even so, if You one Image to one Dialog-Window lay. Profan supported The Bilderneuerung only on the Mainwindow.
remedy can you create, if You WM_PAINT query and yourself new draw, or one Staticcontrol using, with the one Image occupied is. for either modes find You into Profanforen suitable Threads. |
|
| |
| |
| |
|
|
Jac
de
Lad | thanks. (So I Have the now so understood: If I the image on one Static lay Gibts no Problems More?! I probiers from)
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 08/27/06 ▲ |
|
| |
|
|
 | |
| |
| |
| |
|
|
Jac
de
Lad | thanks, I probiers from...I machs now with Timer; sees really not so bad from!
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 08/27/06 ▲ |
|
| |
|
|
Frank
Abbing | [quote:172d9ex7f4]thanks. (So I Have the now so understood: If I the image on one Static lay Gibts no Problems More?! I probiers from)
No this is so neither integrally correctly.
You should one PictureStatic take [...] [/quote:172d9ex7f4]
naturally must the Static one Image show can, no Texts. Something like beget You on simplest point so:
CompileMarkSeparationstatic&=Control("STATIC", "", $54000301, 0,0, 640, 480, dialogfenster&, 2000, %hInstance, $00020000)>
whom last Parameter can you on zero settle, if the part none welt having should.
CompileMarkSeparationtext$="Bildname.jpg"
bild&=LoadExtImage(addr(text$))
staticbild&=CreateExtBmp(%hdc,640,480) Grösse des Statics
SizeExtBmp(staticbild&,0,0,640,480,bild&,0,0,GetBmpWidth(bild&),GetBmpHeight(bild&),0)
newbitmap&=~CreateCompatibleBitmap(staticbild&,640,480)
oldbitmap&=~SelectObject(staticbild&,newbitmap&)
Sendmessage(static&,$0172,0,oldbitmap&)<
with End of program:
CompileMarkSeparation
under WindowsXP are Bitmap-Statics plainer To manage. there is a further Grössen-Flag hinzugekommen.
this code functions so but ex windows95.
[quote:172d9ex7f4]thanks, I probiers from...I machs now with Timer; sees really not so bad from! [/quote:172d9ex7f4]
Äh, uses but Unmengen Systempower. Machs over Static. is ne secure thing. |
|
| |
| |
| |
|
|
Jac
de
Lad | | Ui, thanks Frank, I probiers from! |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 08/28/06 ▲ |
|
| |
|
|
Frank
Abbing | | blow not... |
|
| |
| |
| |
|
|
Jac
de
Lad | the functions nevertheless not. my Timer-Solution has too maximum a Auslastung of 19% and the too only, if I the window with high speed over the Desktop zerre. means stay I with of my Timer-Variante!
Jac  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 08/28/06 ▲ |
|
| |
|
(767)
Deutsch
English
Français
Español
Italia