paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 18:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: trial to make treeview themed

Browse Source 
git-svn-id: trunk@24842 -
This commit is contained in:
paul 2010-04-23 01:55:23 +00:00
parent 501e81fdab
commit 41021392cb
2 changed files with 43 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtkthemes.pas
View File

@ -74,7 +74,7 @@ type
protected
procedure DrawPixmap(DC: HDC; Area: PGdkRectangle; PixmapIndex: Byte); virtual;
function GetParamsCount(Details: TThemedElementDetails): Integer;
function GetParamsCount(Details: TThemedElementDetails): Integer; virtual;
function GetGtkStyleParams(DC: HDC; Details: TThemedElementDetails; AIndex: Integer): TGtkStyleParams; virtual;
function InitThemes: Boolean; override;
@ -174,8 +174,7 @@ begin
end;
end;
function TGtkThemeServices.GetParamsCount(Details: TThemedElementDetails
): Integer;
function TGtkThemeServices.GetParamsCount(Details: TThemedElementDetails): Integer;
begin
Result := 1;
if (Details.Element = teToolBar) and (Details.Part = TP_SPLITBUTTONDROPDOWN) then

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

@ -20,6 +20,7 @@ type
TGtk2ThemeServices = class(TGtkThemeServices)
protected
function GetGtkStyleParams(DC: HDC; Details: TThemedElementDetails; AIndex: Integer): TGtkStyleParams; override;
function GetParamsCount(Details: TThemedElementDetails): Integer; override;
public
function GetDetailSize(Details: TThemedElementDetails): TSize; override;
function GetStockImage(StockID: LongInt; out Image, Mask: HBitmap): Boolean; override;
@ -116,11 +117,51 @@ begin
Result.Expander := GTK_EXPANDER_EXPANDED;
Result.ExpanderSize := GetDetailSize(Details).cx;
end
else
if Details.Part = TVP_TREEITEM then
begin
Result.Widget := GetStyleWidget(lgsTreeView);
Result.Shadow := GTK_SHADOW_NONE;
if AIndex = 0 then
begin
Result.Painter := gptFlatBox;
case Details.State of
TREIS_SELECTED,
TREIS_HOTSELECTED: Result.State := GTK_STATE_SELECTED
else
Result.State := GTK_STATE_NORMAL;
end;
Result.Detail := 'cell_even';
end
else
if AIndex = 1 then
begin
Result.Detail := 'treeview';
case Details.State of
TREIS_SELECTED,
TREIS_SELECTEDNOTFOCUS:
begin
Result.Painter := gptFocus;
Result.State := GTK_STATE_PRELIGHT;
end;
else
Result.Painter := gptNone;
end;
end;
end;
end;
end;
end;
function TGtk2ThemeServices.GetParamsCount(Details: TThemedElementDetails): Integer;
begin
if (Details.Element = teTreeview) and (Details.Part = TVP_TREEITEM) then
Result := 2
else
Result := inherited GetParamsCount(Details);
end;
function TGtk2ThemeServices.GetDetailSize(Details: TThemedElementDetails): TSize;
var
AValue: TGValue;