paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-12 08:40:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: default implementation of themed headers

Browse Source 
git-svn-id: trunk@11185 -
This commit is contained in:
jesus 2007-05-23 18:47:59 +00:00
parent 759a269ca6
commit 28a2530ec6
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2themes.pas
View File

@ -162,7 +162,7 @@ begin
Result.IsHot := False; Result.IsHot := False;
case Details.Element of case Details.Element of
teButton: teButton, teHeader:
begin begin
case Details.Part of case Details.Part of
BP_PUSHBUTTON: BP_PUSHBUTTON:

6
lcl/themes.pas
View File

@ -1765,7 +1765,7 @@ var
begin begin
// default painting // default painting
ARect := R; // in order to pass by reference ARect := R; // in order to pass by reference
if Details.Element in [teButton, teToolBar] then if Details.Element in [teButton, teToolBar, teHeader] then
begin begin
ADrawFlags := DFCS_BUTTONPUSH; ADrawFlags := DFCS_BUTTONPUSH;
@ -1838,14 +1838,14 @@ end;
function TThemeServices.IsPushed(Details: TThemedElementDetails): Boolean; function TThemeServices.IsPushed(Details: TThemedElementDetails): Boolean;
begin begin
Result := False; Result := False;
if (Details.Element in [teButton, teToolBar]) then if (Details.Element in [teButton, teToolBar, teHeader]) then
Result := Details.State in [3, 5, 6]; Result := Details.State in [3, 5, 6];
end; end;
function TThemeServices.IsHot(Details: TThemedElementDetails): Boolean; function TThemeServices.IsHot(Details: TThemedElementDetails): Boolean;
begin begin
Result := False; Result := False;
if (Details.Element in [teButton, teToolBar]) then if (Details.Element in [teButton, teToolBar, teHeader]) then
Result := Details.State in [2, 6]; Result := Details.State in [2, 6];
end; end;