Sven's CA-Visual Objects - Seite

23.11.2012

eMail

eMail

Übersicht | Vorheriger | Nächster

XP Visual Styles Toolbar

1.) Toolbar with Bands. (the default)Befor you assign the menu to the window, you must set the style with

oMenu := EmptyShellMenu{SELF}
oMenu:ToolBar:SetStyle(TBSTYLE_TRANSPARENT)
SELF:Menu := oMenu

2.) Toolbar without Bands.If you set the style TBSTYLE_TRANSPARENT the background of the toolbar becomes white, because the default windows class color of this windows is white. If you do not like this you must change this color.

DEFINE GCLP_HBRBACKGROUND := -10l
SetClassLong(SELF:Handle(), GCLP_HBRBACKGROUND, (COLOR_BTNFACE+1))
oMenu := EmptyShellMenu{SELF}
oMenu:ToolBar:SetStyle(TBSTYLE_TRANSPARENT)
oMenu:ToolBar:EnableBands(FALSE)

SELF:Menu := oMenu

 

Home | Kontakt | Impressum | ©2012 Ingenieur-Büro Dipl. Ing. Sven Ebert