XProfan

Italia

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...
Kompilieren Markieren Separieren

Def 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 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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...

Nico Madysa

30.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione