Français
Forum

Erste Erfahrungen...

 
- 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

 
13.09.2006  
 



 
- 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!
 
14.09.2006  
 



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

 
14.09.2006  
 




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
# WM_ACTIVATE = { $6 | 6 }
# WM_ACTIVATEAPP = { $1C | 28 }
# WM_APP = { $8000 | 32768 }
# WM_ASKCBFORMATNAME = { $30C | 780 }
# WM_CANCELJOURNAL = { $4B | 75 }
# WM_CANCELMODE = { $1F | 31 }
# WM_CAPTURECHANGED = { $215 | 533 }
# WM_CHANGECBCHAIN = { $30D | 781 }
# WM_CHAR = { $102 | 258 }
# WM_CHARTOITEM = { $2F | 47 }
# WM_CHILDACTIVATE = { $22 | 34 }
# WM_CLEAR = { $303 | 771 }
# WM_CLOSE = { $10 | 16 }
# WM_COALESCE_FIRST = { $390 | 912 }
# WM_COALESCE_LAST = { $39F | 927 }
# WM_COMMAND = { $111 | 273 }
# WM_COMMNOTIFY = { $44 | 68 }
# WM_COMPACTING = { $41 | 65 }
# WM_COMPAREITEM = { $39 | 57 }
# WM_CONTEXTMENU = { $7B | 123 }
# WM_CONTEXTMENU = { $7B | 123 }
# WM_COPY = { $301 | 769 }
# WM_COPYDATA = { $4A | 74 }
# WM_CREATE = { $1 | 1 }
# WM_CTLCOLOR = { $19 | 25 }
# WM_CTLCOLORBTN = { $135 | 309 }
# WM_CTLCOLORDLG = { $136 | 310 }
# WM_CTLCOLOREDIT = { $133 | 307 }
# WM_CTLCOLORLISTBOX = { $134 | 308 }
# WM_CTLCOLORMSGBOX = { $132 | 306 }
# WM_CTLCOLORSCROLLBAR = { $137 | 311 }
# WM_CTLCOLORSTATIC = { $138 | 312 }
# WM_CUT = { $300 | 768 }
# WM_DDE_ACK = WM_DDE_FIRST + { $4 | 4 }
# WM_DDE_ACK = WM_DDE_FIRST + { $4 | 4 }
# WM_DDE_ADVISE = WM_DDE_FIRST + { $2 | 2 }
# WM_DDE_ADVISE = WM_DDE_FIRST + { $2 | 2 }
# WM_DDE_DATA = WM_DDE_FIRST + { $5 | 5 }
# WM_DDE_DATA = WM_DDE_FIRST + { $5 | 5 }
# WM_DDE_EXECUTE = WM_DDE_FIRST + { $8 | 8 }
# WM_DDE_EXECUTE = WM_DDE_FIRST + { $8 | 8 }
# WM_DDE_FIRST = { $3E0 | 992 }
# WM_DDE_FIRST = { $3E0 | 992 }
# WM_DDE_INITIATE = WM_DDE_FIRST
# WM_DDE_INITIATE = WM_DDE_FIRST + { $0 | 0 }
# WM_DDE_LAST = WM_DDE_FIRST + { $8 | 8 }
# WM_DDE_LAST = WM_DDE_FIRST + { $8 | 8 }
# WM_DDE_POKE = WM_DDE_FIRST + { $7 | 7 }
# WM_DDE_POKE = WM_DDE_FIRST + { $7 | 7 }
# WM_DDE_REQUEST = WM_DDE_FIRST + { $6 | 6 }
# WM_DDE_REQUEST = WM_DDE_FIRST + { $6 | 6 }
# WM_DDE_TERMINATE = WM_DDE_FIRST + { $1 | 1 }
# WM_DDE_TERMINATE = WM_DDE_FIRST + { $1 | 1 }
# WM_DDE_UNADVISE = WM_DDE_FIRST + { $3 | 3 }
# WM_DDE_UNADVISE = WM_DDE_FIRST + { $3 | 3 }
# WM_DEADCHAR = { $103 | 259 }
# WM_DELETEITEM = { $2D | 45 }
# WM_DESTROY = { $2 | 2 }
# WM_DESTROYCLIPBOARD = { $307 | 775 }
# WM_DEVICECHANGE = { $219 | 537 }
# WM_DEVMODECHANGE = { $1B | 27 }
# WM_DISPLAYCHANGE = { $7E | 126 }
# WM_DRAWCLIPBOARD = { $308 | 776 }
# WM_DRAWITEM = { $2B | 43 }
# WM_DROPFILES = { $233 | 563 }
# WM_ENABLE = { $A | 10 }
# WM_ENDSESSION = { $16 | 22 }
# WM_ENTERIDLE = { $121 | 289 }
# WM_ENTERMENULOOP = { $211 | 529 }
# WM_ENTERSIZEMOVE = { $231 | 561 }
# WM_ERASEBKGND = { $14 | 20 }
# WM_EXITMENULOOP = { $212 | 530 }
# WM_EXITSIZEMOVE = { $232 | 562 }
# WM_FONTCHANGE = { $1D | 29 }
# WM_GETDLGCODE = { $87 | 135 }
# WM_GETFONT = { $31 | 49 }
# WM_GETHOTKEY = { $33 | 51 }
# WM_GETICON = { $7F | 127 }
# WM_GETMINMAXINFO = { $24 | 36 }
# WM_GETTEXT = { $D | 13 }
# WM_GETTEXTLENGTH = { $E | 14 }
# WM_HANDHELDFIRST = { $358 | 856 }
# WM_HANDHELDLAST = { $35F | 863 }
# WM_HELP = { $53 | 83 }
# WM_HOTKEY = { $312 | 786 }
# WM_HSCROLL = { $114 | 276 }
# WM_HSCROLLCLIPBOARD = { $30E | 782 }
# WM_ICONERASEBKGND = { $27 | 39 }
# WM_IME_CHAR = { $286 | 646 }
# WM_IME_COMPOSITION = { $10E | 270 }
# WM_IME_COMPOSITIONFULL = { $284 | 644 }
# WM_IME_CONTROL = { $283 | 643 }
# WM_IME_ENDCOMPOSITION = { $10D | 269 }
# WM_IME_KEYDOWN = { $290 | 656 }
# WM_IME_KEYLAST = { $10F | 271 }
# WM_IME_KEYUP = { $291 | 657 }
# WM_IME_NOTIFY = { $282 | 642 }
# WM_IME_SELECT = { $285 | 645 }
# WM_IME_SETCONTEXT = { $281 | 641 }
# WM_IME_STARTCOMPOSITION = { $10C | 268 }
# WM_INITDIALOG = { $110 | 272 }
# WM_INITMENU = { $116 | 278 }
# WM_INITMENUPOPUP = { $117 | 279 }
# WM_INPUTLANGCHANGE = { $51 | 81 }
# WM_INPUTLANGCHANGEREQUEST = { $50 | 80 }
# WM_KEYDOWN = { $100 | 256 }
# WM_KEYFIRST = { $100 | 256 }
# WM_KEYLAST = { $108 | 264 }
# WM_KEYUP = { $101 | 257 }
# WM_KILLFOCUS = { $8 | 8 }
# WM_LBUTTONDBLCLK = { $203 | 515 }
# WM_LBUTTONDOWN = { $201 | 513 }
# WM_LBUTTONUP = { $202 | 514 }
# WM_MBUTTONDBLCLK = { $209 | 521 }
# WM_MBUTTONDOWN = { $207 | 519 }
# WM_MBUTTONUP = { $208 | 520 }
# WM_MDIACTIVATE = { $222 | 546 }
# WM_MDICASCADE = { $227 | 551 }
# WM_MDICREATE = { $220 | 544 }
# WM_MDIDESTROY = { $221 | 545 }
# WM_MDIGETACTIVE = { $229 | 553 }
# WM_MDIICONARRANGE = { $228 | 552 }
# WM_MDIMAXIMIZE = { $225 | 549 }
# WM_MDINEXT = { $224 | 548 }
# WM_MDIREFRESHMENU = { $234 | 564 }
# WM_MDIRESTORE = { $223 | 547 }
# WM_MDISETMENU = { $230 | 560 }
# WM_MDITILE = { $226 | 550 }
# WM_MEASUREITEM = { $2C | 44 }
# WM_MENUCHAR = { $120 | 288 }
# WM_MENUSELECT = { $11F | 287 }
# WM_MOUSEACTIVATE = { $21 | 33 }
# WM_MOUSEFIRST = { $200 | 512 }
# WM_MOUSEHOVER = { $2A1 | 673 }
# WM_MOUSELAST = { $209 | 521 }
# WM_MOUSELEAVE = { $2A3 | 675 }
# WM_MOUSEMOVE = { $200 | 512 }
# WM_MOVE = { $3 | 3 }
# WM_MOVING = { $216 | 534 }
# WM_NCACTIVATE = { $86 | 134 }
# WM_NCCALCSIZE = { $83 | 131 }
# WM_NCCREATE = { $81 | 129 }
# WM_NCDESTROY = { $82 | 130 }
# WM_NCHITTEST = { $84 | 132 }
# WM_NCLBUTTONDBLCLK = { $A3 | 163 }
# WM_NCLBUTTONDOWN = { $A1 | 161 }
# WM_NCLBUTTONUP = { $A2 | 162 }
# WM_NCMBUTTONDBLCLK = { $A9 | 169 }
# WM_NCMBUTTONDOWN = { $A7 | 167 }
# WM_NCMBUTTONUP = { $A8 | 168 }
# WM_NCMOUSEMOVE = { $A0 | 160 }
# WM_NCPAINT = { $85 | 133 }
# WM_NCRBUTTONDBLCLK = { $A6 | 166 }
# WM_NCRBUTTONDOWN = { $A4 | 164 }
# WM_NCRBUTTONUP = { $A5 | 165 }
# WM_NEXTDLGCTL = { $28 | 40 }
# WM_NEXTMENU = { $213 | 531 }
# WM_NOTIFY = { $4E | 78 }
# WM_NOTIFYFORMAT = { $55 | 85 }
# WM_NULL = { $0 | 0 }
# WM_PAINT = { $F | 15 }
# WM_PAINTCLIPBOARD = { $309 | 777 }
# WM_PAINTICON = { $26 | 38 }
# WM_PALETTECHANGED = { $311 | 785 }
# WM_PALETTEISCHANGING = { $310 | 784 }
# WM_PARENTNOTIFY = { $210 | 528 }
# WM_PASTE = { $302 | 770 }
# WM_PENWINFIRST = { $380 | 896 }
# WM_PENWINLAST = { $38F | 911 }
# WM_POWER = { $48 | 72 }
# WM_POWERBROADCAST = { $218 | 536 }
# WM_PRINT = { $317 | 791 }
# WM_PRINTCLIENT = { $318 | 792 }
# WM_PRINTCLIENT = { $318 | 792 }
# WM_QUERYDRAGICON = { $37 | 55 }
# WM_QUERYENDSESSION = { $11 | 17 }
# WM_QUERYNEWPALETTE = { $30F | 783 }
# WM_QUERYOPEN = { $13 | 19 }
# WM_QUEUESYNC = { $23 | 35 }
# WM_QUIT = { $12 | 18 }
# WM_RBUTTONDBLCLK = { $206 | 518 }
# WM_RBUTTONDOWN = { $204 | 516 }
# WM_RBUTTONUP = { $205 | 517 }
# WM_RENDERALLFORMATS = { $306 | 774 }
# WM_RENDERFORMAT = { $305 | 773 }
# WM_SETCURSOR = { $20 | 32 }
# WM_SETFOCUS = { $7 | 7 }
# WM_SETFONT = { $30 | 48 }
# WM_SETHOTKEY = { $32 | 50 }
# WM_SETICON = { $80 | 128 }
# WM_SETREDRAW = { $B | 11 }
# WM_SETTEXT = { $C | 12 }
# WM_SETTINGCHANGE = WM_WININICHANGE
# WM_SHOWWINDOW = { $18 | 24 }
# WM_SIZE = { $5 | 5 }
# WM_SIZECLIPBOARD = { $30B | 779 }
# WM_SIZING = { $214 | 532 }
# WM_SPOOLERSTATUS = { $2A | 42 }
# WM_STYLECHANGED = { $7D | 125 }
# WM_STYLECHANGING = { $7C | 124 }
# WM_SYSCHAR = { $106 | 262 }
# WM_SYSCOLORCHANGE = { $15 | 21 }
# WM_SYSCOMMAND = { $112 | 274 }
# WM_SYSDEADCHAR = { $107 | 263 }
# WM_SYSKEYDOWN = { $104 | 260 }
# WM_SYSKEYUP = { $105 | 261 }
# WM_SYSTEMERROR = { $17 | 23 }
# WM_SYSTIMER = { $118 | 280 }
# WM_TCARD = { $52 | 82 }
# WM_TIMECHANGE = { $1E | 30 }
# WM_TIMER = { $113 | 275 }
# WM_UNDO = { $304 | 772 }
# WM_USER = { $400 | 1024 }
# wm_user = { $400 | 1024 }
# WM_USERCHANGED = { $54 | 84 }
# WM_VKEYTOITEM = { $2E | 46 }
# WM_VSCROLL = { $115 | 277 }
# WM_VSCROLLCLIPBOARD = { $30A | 778 }
# WM_WINDOWPOSCHANGED = { $47 | 71 }
# WM_WINDOWPOSCHANGING = { $46 | 70 }
# WM_WININICHANGEn class=s2>= { $1A | 26 }
 
14.09.2006  
 




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 
 
14.09.2006  
 




Jac
de
Lad
merci!
 
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.
 
14.09.2006  
 




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*
 
14.09.2006  
 



merci Rolf!
 
14.09.2006  
 




répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

4.368 Views

Untitledvor 0 min.
Peter Max Müller13.05.2015
Ernst17.05.2014
H.Brill09.04.2014
Ingobingo10103.05.2012
plus...

Themeninformationen

cet Thema hat 3 participant:

iF (12x)
Jac de Lad (6x)
Rolf Koch (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie