| |
|
|
- page 1 - |
|
| on(Event) (Télécharger)
qui Unit (Sourcecode ist beiliegend!), permet (sans Fastmode et Prozeduradressen!) cela Abprüfen de Doppelklicks ou bien Rechte-Bouton de la souris-Aktionen sur Dialogelementen et Controls comment Listboxen, Buttons... aussi cela Neuzeichnen de Dialogen ist eh bien un Kinderspiel.
tant pis cela Thomas sa easyVent pas umbauen peux - alors habe je la fois versucht sa dll sur minimaler la base nachzustellen avec dem entscheidenen Punkt cela es sans Procaddr funktioniert! et es funktioniert wunderbar!
Beispiel: KompilierenMarqueSéparation {$cleq}
$U on.pcu = on.
Def GetSysColor(1) !"User32","GetSysColor"
declare lb&,dlg&
//unsichtbares Hauptfenster damit lecker messages angekommen
windowstyle 80 | 1024
window 0,0 - 0,0
showwindow(%hwnd,0)
//
windowstyle 512+8
dlg&:=createdialog(0,"MyDlg",100,100,640,480)
lb&:=createbutton(dlg&,"",10,30,100,100)
on.event "paint" ,dlg& ,12343
on.event "close" ,dlg& ,12344
on.event "ldklick" ,lb& ,12345
on.event "rklick" ,lb& ,12346
on.event "mouseover" ,lb& ,12347
on.event "mouseleave" ,lb& ,12348
PaintDlg 0
while 1
waitinput
case %umessage==12343 : paintDlg 0
case %umessage==12344 : break
case %umessage==12345 : settext dlg&,"dblklick "+str$(&gettickcount)
case %umessage==12346 : settext dlg&,"rklick "+str$(&gettickcount)
case %umessage==12347 : settext lb&,"Hau ab!"
case %umessage==12348 : settext lb&,""
wend
on.delevent "paint" ,dlg& ,12343
on.delevent "close" ,dlg& ,12344
on.delevent "ldklick" ,lb& ,12345
on.delevent "rklick" ,lb& ,12346
on.delevent "mouseover" ,lb& ,12347
on.delevent "mouseleave",lb& ,12348
on.close
end
Proc PaintDlg
parameters u&
startpaint dlg&
usefont "MS Sans Serif",10,0,0,0,u&
textcolor $00FF0000,-1
drawtext 10,300,"https://ich.hab-doch-garkeine-homepage.de"
endpaint
=s4 href='./../../funktionsreferenzen/XProfan/endproc/'>endproc
|
|
|
| |
|
|
|
| |
|
- page 1 - |
|
Jac de Lad | quelle Version ist eh bien qui richtigeß si je sur den Link entier dessus klicke venez une presque 600kB-Dossier, unten im Beitrag (wohin x la fois gedownloaded steht) venez seulement une 9kB-Dossier...léger verwirrend. |
|
|
| 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 | 14.09.2006 ▲ |
|
|
|
|
| Beides ist cela selbe! qui une ist pas 600kb grand! je glaub Dein Browser spinnt, mais étiez je hab ici juste encore quoi besseres! |
|
|
| |
|
|
|
| So! exposition Dir la fois den obigen Télécharger à - et cela Beispiel! eh bien ists wirklich kinderleicht et on devrait sich avec qui Unit (source liegt dabei) nichtmal plus à DLL kümmern! KompilierenMarqueSéparation {$cleq}
$U on.pcu = on.
Def GetSysColor(1) !"User32","GetSysColor"
declare lb&,dlg&
//unsichtbares Hauptfenster damit lecker messages angekommen
windowstyle 80 | 1024
window 0,0 - 0,0
showwindow(%hwnd,0)
//
windowstyle 512+8
dlg&:=createdialog(0,"MyDlg",100,100,640,480)
lb&:=createbutton(dlg&,"",10,30,100,100)
on.event "paint" ,dlg& ,12343
on.event "close" ,dlg& ,12344
on.event "ldklick" ,lb& ,12345
on.event "rklick" ,lb& ,12346
on.event "mouseover" ,lb& ,12347
on.event "mouseleave" ,lb& ,12348
PaintDlg 0
while 1
waitinput
case %umessage==12343 : paintDlg 0
case %umessage==12344 : break
case %umessage==12345 : settext dlg&,"dblklick "+str$(&gettickcount)
case %umessage==12346 : settext dlg&,"rklick "+str$(&gettickcount)
case %umessage==12347 : settext lb&,"Hau ab!"
case %umessage==12348 : settext lb&,""
wend
on.delevent "paint" ,dlg& ,12343
on.delevent "close" ,dlg& ,12344
on.delevent "ldklick" ,lb& ,12345
on.delevent "rklick" ,lb& ,12346
on.delevent "mouseover" ,lb& ,12347
on.delevent "mouseleave",lb& ,12348
on.close
end
Proc PaintDlg
parameters u&
startpaint dlg&
usefont "MS Sans Serif",10,0,0,0,u&
textcolor $00FF0000,-1
drawtext 10,300,"https://ich.hab-doch-garkeine-homepage.de"
endpaint
=s4 href='./../../funktionsreferenzen/XProfan/endproc/'>endproc
|
|
|
| |
|
|
|
Jac de Lad | merci, je probiers aujourd'hui juste aus!
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 | 14.09.2006 ▲ |
|
|
|
|
Jac de Lad | juste la première Frage: Gibt es une ou bien plusieurs Bereiche de Usermessages, qui on pas définir sollte (soll je beispielsweise comme message pas 1 prendre, pourquoi De toute façon)?
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 | 14.09.2006 ▲ |
|
|
|
| |
|
- page 2 - |
|
|
| oui gibt es! Alle Messages quelle es eh déjà gibt devrait Du pas comme Usermessages belegen! quelle Messages es eh déjà gibt? prends simple Konstantinopel et gib wm_ un, là vois Du quelle Bereiche trop éviter sommes.
z.B.: KompilierenMarqueSéparation |
|
|
| |
|
|
|
Jac de Lad | seulement qui wm_-Messages ou bien aussi qui lb_, lv_ usw.? (entschuldige s'il te plaît mon blöden Fragen!) |
|
|
| 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 | 14.09.2006 ▲ |
|
|
|
|
| Quatsch: (weils à Usermessages allez)
bof! si Du Events pour une ListBox comme Utilisateur Messages durchschleifen veux - ensuite darfst Du im piège einer Listbox aucun LB_s prendre, sei car, tu veux qui Grundfunktionalität cette Message selbst behandeln. (de quoi je abrate)
Richtig:
seulement qui WMs pas!
usermessages |
|
|
| |
|
|
|
Jac de Lad | |
|
| 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 | 14.09.2006 ▲ |
|
|
|
|
| Gern!
qui Unit sollte trop deutlich stabileren Programmen mener comme si avec ProcAddr gehandhabt wird. |
|
|
| |
|
|
|
Rolf Koch | Nachtrag de mir, alle de iF aufgeführten Messages darf on prendre, mais ensuite es Du pour alles responsable, quoi cet Message trop tätigen hat. alors alles quoi Roland bereits reingehauen hat musst Du nachbauen u.s.w. - vergisst Du irgendetwas ou bien weist pas quoi qui Message oui c'est ca bedeutet, ensuite gibts Probleme. @si chez mir klappt qui on.dll jusqu'à maintenant einwandfrei, werde si je Zeit habe bisschen brutalere Tests durchführen *lol* |
|
|
| |
|
|
|
| |
|
| |
|
|