| |
| |
|
Jac
de
Lad | j'ai folgendes Problem:
qui unten aufgeführte Code führt en supplément, dass une TOolbar erstellt wird. Soweit, si bien, gibts mais un Problem: normalement wird un Contrôle (z.B. un Button) qui qui Koordinaten 0,0,100,24 hat sous qui Toolbar gezeichnet; chez meinem neuesten Programme muss je mais qui Breite qui Toolbar dazuaddieren, weil qui Button sonst sous qui Toolbar liegt...finde je irgendwie merkwürdig. j'ai encore rausgefunden, pourquoi cela so ist, mais peut-être hat oui quelqu'un ne concept...
KompilierenMarqueSéparationDef 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 | qui Toolbar ist meines Wissens pour un normales Contrôle, daher ist es normal, dass on là dy% en supplément addieren muss, ou bien?
P.S.: lièvre scheint sich trop vermehren...  |
|
| |
| |
| |
|
|
Jac
de
Lad | | bof, cela verstehe je oui, mais là verstehe je pas, pourquoi cela sonst toujours sans klappt (quasi qui Clientarea schrumpft, comment si je un menu 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 seulement cela menu et Scrollbars qui Clientarea. |
|
| |
| |
| |
|
(1.093)
Deutsch
English
Français
Español
Italia