| |
|
|
- Página 1 - |
|
| on(Event) (Descargar)
El Unit (Sourcecode es beiliegend!), ermöglicht (sin Fastmode y Prozeduradressen!) el Abprüfen de Doppelklicks oder Rechte-Botón del ratón-Aktionen en Dialogelementen y Controls como Listboxen, Buttons... Auch el Neuzeichnen de Dialogen es nun una Kinderspiel.
Schade el Thomas seine easyVent no umbauen kann - also Yo veces intenta seine dll en minimaler Base nachzustellen con el entscheidenen Punkt el lo sin Procaddr funktioniert! Und lo funktioniert wunderbar!
Ejemplo: KompilierenMarcaSeparación {$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
|
|
|
| |
|
|
|
| |
|
- Página 1 - |
|
Jac de Lad | Welche Versión es nun el richtigeß Wenn I el Link bastante oben klicke kommt una fast 600kB-Expediente, unten en el Contribución (wo x veces gedownloaded es) kommt sólo una 9kB-Expediente...ligeramente 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 es el selbe! El una es no 600kb groß! Yo glaub Su navegador spinnt, aber wart Yo tener hier igual todavía qué besseres! |
|
|
| |
|
|
|
| So! Schau Dir veces el obigen Descargar a - y el Ejemplo! Nun ists wirklich kinderleicht y uno debería se con el Unit (source liegt esta) nichtmal mehr a DLL kümmern! KompilierenMarcaSeparación {$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 | Gracias, Yo probiers heute igual de!
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 | Gleich el erste Cuestión: Gibt lo una oder mehrere Bereiche de Usermessages, el uno no definieren debería (se Yo por ejemplo como mensaje no 1 nehmen, por qué De todos modos)?
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 ▲ |
|
|
|
| |
|
- Página 2 - |
|
|
| Sí hay! Alle Messages welche lo eh ya son solltest No como Usermessages ocupar! Welche Messages lo eh ya son? Tomar simplemente Konstantinopel y gib wm_ una, hay siehst Usted welche Bereiche a meiden son.
z.B.: KompilierenMarcaSeparación |
|
|
| |
|
|
|
Jac de Lad | Nur el wm_-Messages oder auch el lb_, lv_ usw.? (entschuldige Por favor, mi 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 a Usermessages va)
Naja! Si usted Events para una ListBox como Mensajes del usuario durchschleifen willst - entonces darfst Usted en el Falle uno Listbox no LB_s nehmen, sei porque, Usted willst el Grundfunktionalität dieser Message incluso behandeln. (wovon Yo abrate)
Richtig:
Nur el WMs no!
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!
El Unit debería a deutlich stabileren Programmen führen como si con ProcAddr gehandhabt se. |
|
|
| |
|
|
|
Rolf Koch | Apéndice de me, todos de IF aufgeführten Messages darf uno nehmen, aber entonces bist Usted para alles verantwortlich, qué esta Message a tätigen ha. Also alles qué Roland ya reingehauen ha musst Usted nachbauen u.s.w. - vergisst Usted irgendetwas oder weist no lo que el Message genau bedeutet, entonces gibts Problemas. @if En me klappt el on.dll a ahora einwandfrei, voluntad si yo Tiempo habe bisschen brutalere Tests durchführen *lol* |
|
|
| |
|
|
|
| |
|
| |
|
|