paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 19:47:30 +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;
case Details.Element of
teButton:
teButton, teHeader:
begin
case Details.Part of
BP_PUSHBUTTON:

6
lcl/themes.pas
View File

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