XProfan

English

Jac
de
Lad

I have the following trouble:

The under listed code lead moreover, that a TOolbar prepares becomes. so far, so well, Gibts but a problem: usually becomes one Control (z.B. one Button) the The Coordinates 0,0,100,24 has under The Toolbar gezeichnet; with my latest Program must I but the wide the Toolbar dazuaddieren, because the Button otherwise under the Toolbar lying...find I somehow strange. I have yet rausgefunden, Why the so is, but Perhaps has Yes someone ne idea...
Compile Mark Separation

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

10/28/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Nico
Madysa

The Toolbar is of my Wissens after a normales Control, therefore is it normal, that one there dy% moreover add must, or?

P.s.: bunny shining itself To increase...

Nico Madysa

10/30/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

Well, the understand I Yes, but since understand I do not, Why the otherwise always without works (quasi The Clientarea shrink, How if I one Menu through CreateMenu create).

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

10/30/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote