Dachte, ich könnte es selbst hinbekommen, aber mitnichten. Die Button bleiben es nach Hover nicht transparent. Wie geht es besser?
Code
$H Windows.ph
$H messages.ph
$H commctrl.ph
CLS ~GetSysColor(~Color_BTNFACE)
WindowTitle "Neues Projekt"
MCls 800,42,rgb(0,0,0)
Var bmp&=Create("hPic",0,"&MEMBMP")
Var HG&=Create("Bitmap", %hwnd , bmp& ,0, 0)
var IcoList&=create("ImageList",32,32)
ImageList("AddIcon",IcoList&,~LoadIcon(0,32512))
ImageList("AddIcon",IcoList&,~LoadIcon(0,32513))
ImageList("AddIcon",IcoList&,~LoadIcon(0,32514))
ImageList("AddIcon",IcoList&,~LoadIcon(0,32515))
Var Tb&=Create("TOOLBAR", HG&, IcoList&, 0, 32, 2000, 1)
var Old& = ~GetWindowLong(Tb&, ~GWL_STYLE)
~SetWindowLong(Tb&, ~GWL_STYLE , Old& | ~TBSTYLE_TRANSPARENT | ~TBSTYLE_FLAT)
Toolbar("AddButton",Tb&,0,2001,"")
Toolbar("Separator",Tb&)
Toolbar("AddButton",Tb&,1,2002,"")
Toolbar("Separator",Tb&)
Toolbar("AddButton",Tb&,2,2003,"")
Toolbar("Separator",Tb&)
Toolbar("AddButton",Tb&,3,2004,"")
Toolbar("Separator",Tb&)
While 1
Waitinput '500
SetWindowPos Tb& = 0,0-0,0;0
EndWhile
Deleteobject IcoList&
Deleteobject bmp&
EndGruß Thomas
