| |
| |
|
Jac
de
Lad | Yo habe folgendes Problema:
Der unten aufgeführte Code führt dazu, dass una TOolbar erstellt se. Soweit, tan bueno, gibts aber una Problema: Normalerweise se una Control (z.B. una Button) el el Koordinaten 0,0,100,24 ha bajo el Toolbar gezeichnet; en mi neuesten Programa muss Yo aber el Breite el Toolbar dazuaddieren, porque el Button sonst bajo el Toolbar liegt...finde Yo irgendwie merkwürdig. Yo habe todavía rausgefunden, por qué el así es, aber tal vez ha sí alguien ne Concepto...
KompilierenMarcaSeparaciónDef GET_TOOLTIP(1) sendmessage(&(1),1059,0,0)
proc TBButton
Parameters Index%,id%,icon$,tt$
declare s#,text#,hricon&
Dim s#,40
Dim text#,500
String text#,0=tt$
Long s#,0=40
Long s#,4=$0
Long s#,8=tb&
Long s#,12=id%
Long s#,36=text#
Sendmessage(GET_TOOLTIP(tb&),$404,0,s#)
SetStyle GET_TOOLTIP(tb&),$D000041
Dispose s#
Dispose Text#
hricon&=LoadIcon(%hInstance,Addr(icon$))
ImageList_AddIcon(ti&,hricon&)
Dim s#,20
Long s#,0=index%
Long s#,4=If(index%=-1,-1,id%)
Byte s#,8=If(index%=-1,0,4)
Byte s#,9=If(index%=-1,1,4)
Long s#,16=0
sendmessage(tb&,1045,id%,s#)
Dispose s#
endproc
proc TBSeparator
TBButton -1,-1,1,0,0,"",""
endproc
declare ti&,tb&,tt&
cls
ti&=ImageList_Create(32,32,$121,128,128)
tb&=CREATEWINDOWEX($020000,"ToolbarWindow32","",$50000000,0,0,0,0,%HWnd,3000,%Hinstance,0)
SendMessage(tb&,$430,0,ti&)
Sendmessage(tb&,1054,20,0)
tt&=CREATEWINDOWEX(0,"tooltips_class32","",$D0000000,0,0,0,0,tb&,0,%Hinstance,0)
Sendmessage(tb&,$424,tt&,0)
sendmessage(tb&,$438,0,$50000B41)
waitinput
|
|
| |
| 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 | 28.10.2006 ▲ |
|
| |
|
|
Nico
Madysa | El Toolbar es meines Wissens después de una normales Control, por lo tanto es normal, dass uno como dy% dazu addieren muss, oder?
P.S.: Hase scheint se a vermehren...  |
|
| |
| |
| |
|
|
Jac
de
Lad | | Naja, el verstehe Yo sí, aber como verstehe Yo no, por qué el sonst siempre sin klappt (quasi el Clientarea schrumpft, como si yo una Menü mittels CreateMenu erstelle). |
|
| |
| 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 | 30.10.2006 ▲ |
|
| |
|
|
 | | Meines Wissens schrumpfen sólo el Menü y Scrollbars el Clientarea. |
|
| |
| |
| |
|
(523)
Deutsch
English
Français
Español
Italia