paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 17:29:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk: fix drop down button drawing

Browse Source 
git-svn-id: trunk@20395 -
This commit is contained in:
paul 2009-06-04 07:35:35 +00:00
parent c3eb6e2b30
commit 6b4d24ec67
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -56,6 +56,7 @@ type
GapSide : TGtkPositionType;//
GapX : gint;
GapWidth : gint;
MaxWidth : gint; // max area width
{$ifdef gtk2}
Expander : TGtkExpanderStyle; // treeview expander
ExpanderSize: Integer;
@ -199,7 +200,7 @@ var
DevCtx: TGtkDeviceContext absolute DC;
ClientWidget: PGtkWidget;
begin
FillByte(Result,SizeOf(Result),0);
FillByte(Result, SizeOf(Result), 0);
Result.Style := nil;
if not GTKWidgetSet.IsValidDC(DC) then Exit;
@ -223,6 +224,7 @@ begin
Result.GapSide := GTK_POS_LEFT;
Result.GapWidth := 0;
Result.GapX := 0;
Result.MaxWidth := 0;
case Details.Element of
teButton:
@ -296,6 +298,7 @@ begin
Result.ArrowType := GTK_ARROW_DOWN;
Result.Fill := True;
Result.Painter := gptArrow;
Result.MaxWidth := 10;
end
else
begin
@ -485,6 +488,14 @@ begin
dec(Area.height);
end;
{$endif}
if (MaxWidth <> 0) then
begin
if Area.width > MaxWidth then
begin
inc(Area.x, (Area.width - MaxWidth) div 2);
Area.width := MaxWidth;
end;
end;
case Painter of
gptDefault: inherited DrawElement(DC, Details, R, ClipRect);
gptBox: