paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-30 16:36:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: add more menu parts to ThemeServices

Browse Source 
git-svn-id: trunk@20596 -
This commit is contained in:
paul 2009-06-12 14:06:14 +00:00
parent 4add4186ce
commit 8f48f1eb62
1 changed files with 85 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
lcl/themes.pas
View File

@ -165,7 +165,21 @@ type
tmMenuBarItem,
tmMenuBarDropDown,
tmChevron,
tmSeparator
tmSeparator,
tmBarBackgroundActive, tmBarBackgroundInactive,
tmBarItemNormal, tmBarItemHot, tmBarItemPushed, tmBarItemDisabled, tmBarItemDisabledHot, tmBarItemDisabledPushed,
tmPopupBackground,
tmPopupBorders,
tmPopupCheckMarkNormal, tmPopupCheckMarkDisabled, tmPopupBulletNormal, tmPopupBulletDisabled,
tmPopupCheckBackgroundDisabled, tmPopupCheckBackgroundNormal, tmPopupCheckBackgroundBitmap,
tmPopupGutter,
tmPopupItemNormal, tmPopupItemHot, tmPopupItemDisabled, tmPopupItemDisabledHot,
tmPopupSeparator,
tmPopupSubmenuNormal, tmPopupSubmenuDisabled,
tmSystemCloseNormal, tmSystemCloseDisabled,
tmSystemMaximizeNormal, tmSystemMaximizeDisabled,
tmSystemMinimizeNormal, tmSystemMinimizeDisabled,
tmSystemRestoreNormal, tmSystemRestoreDisabled
);
// 'Page' theme data
@ -880,6 +894,76 @@ begin
Part := MENU_SEPARATOR_TMSCHEMA;
Base := Ord(tmSeparator);
end;
tmBarBackgroundActive..tmBarBackgroundInactive:
begin
Part := MENU_BARBACKGROUND;
Base := Ord(tmBarBackgroundActive);
end;
tmBarItemNormal..tmBarItemDisabledPushed:
begin
Part := MENU_BARITEM;
Base := Ord(tmBarItemNormal);
end;
tmPopupBackground:
begin
Part := MENU_POPUPBACKGROUND;
Base := Ord(tmPopupBackground);
end;
tmPopupBorders:
begin
Part := MENU_POPUPBORDERS;
Base := Ord(tmPopupBorders);
end;
tmPopupCheckMarkNormal..tmPopupBulletDisabled:
begin
Part := MENU_POPUPCHECK;
Base := Ord(tmPopupCheckMarkNormal);
end;
tmPopupCheckBackgroundDisabled..tmPopupCheckBackgroundBitmap:
begin
Part := MENU_POPUPCHECKBACKGROUND;
Base := Ord(tmPopupCheckBackgroundDisabled);
end;
tmPopupGutter:
begin
Part := MENU_POPUPGUTTER;
Base := Ord(tmPopupGutter);
end;
tmPopupItemNormal..tmPopupItemDisabledHot:
begin
Part := MENU_POPUPITEM;
Base := Ord(tmPopupItemNormal);
end;
tmPopupSeparator:
begin
Part := MENU_POPUPSEPARATOR;
Base := Ord(tmPopupSeparator);
end;
tmPopupSubmenuNormal..tmPopupSubmenuDisabled:
begin
Part := MENU_POPUPSUBMENU;
Base := Ord(tmPopupSubmenuNormal);
end;
tmSystemCloseNormal..tmSystemCloseDisabled:
begin
Part := MENU_SYSTEMCLOSE;
Base := Ord(tmSystemCloseNormal);
end;
tmSystemMaximizeNormal..tmSystemMaximizeDisabled:
begin
Part := MENU_SYSTEMMAXIMIZE;
Base := Ord(tmSystemMaximizeNormal);
end;
tmSystemMinimizeNormal..tmSystemMinimizeDisabled:
begin
Part := MENU_SYSTEMMINIMIZE;
Base := Ord(tmSystemMinimizeNormal);
end;
tmSystemRestoreNormal..tmSystemRestoreDisabled:
begin
Part := MENU_SYSTEMRESTORE;
Base := Ord(tmSystemRestoreNormal);
end;
else
Part := 0;
Base := 0;