| |
| |
|
Jac
de
Lad | Ich habe folgendes Problem:
Der unten aufgeführte Code führt dazu, dass eine TOolbar erstellt wird. Soweit, so gut, gibts aber ein Problem: Normalerweise wird ein Control (z.B. ein Button) der die Koordinaten 0,0,100,24 hat unter die Toolbar gezeichnet; bei meinem neuesten Programm muss ich aber die Breite der Toolbar dazuaddieren, weil der Button sonst unter der Toolbar liegt...finde ich irgendwie merkwürdig. Ich habe noch rausgefunden, warum das so ist, aber vielleicht hat ja jemand ne Idee...
KompilierenMarkierenSeparierenDef 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 | Die Toolbar ist meines Wissens nach ein normales Control, daher ist es normal, dass man da dy% dazu addieren muss, oder?
P.S.: Hase scheint sich zu vermehren...  |
|
| |
| |
| |
|
|
Jac
de
Lad | | Naja, das verstehe ich ja, aber da verstehe ich nicht, warum das sonst immer ohne klappt (quasi die Clientarea schrumpft, wie wenn ich ein 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 nur das Menü und Scrollbars die Clientarea. |
|
| |
| |
| |
|
(527)
Deutsch
English
Français
Español
Italia