paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-22 14:59:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

- fix gtk2 splitter painting (it was transparent)

Browse Source 
report 0008927 

git-svn-id: trunk@11206 -
This commit is contained in:
paul 2007-05-26 10:46:02 +00:00
parent 5bcdc4373e
commit f09a1941ca
1 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lcl/interfaces/gtk/gtkwsextctrls.pp
View File

@ -507,7 +507,9 @@ begin
Widget:=ClientWidget;
AWindow:=DevContext.Drawable;
Style:=GetStyle(lgsButton);
Style := gtk_widget_get_style(Widget);
if Style = nil then
Style:=GetStyle(lgsButton);
DCOrigin:=GetDCOffset(DevContext);
Area.X:=DCOrigin.X;
@ -525,27 +527,35 @@ begin
end;
{$IFDEF Gtk1}
if ASplitter.ResizeAnchor in [akTop,akBottom] then begin
Detail:='vpaned';
end else begin
if ASplitter.ResizeAnchor in [akTop,akBottom] then
Detail:='vpaned'
else
Detail:='hpaned';
end;
gtk_paint_box(Style, AWindow,
GTK_WIDGET_STATE(Widget),
GTK_SHADOW_NONE,
@Area, Widget, Detail,
Area.X,Area.Y,Area.Width,Area.Height);
{$ELSE}
if ASplitter.ResizeAnchor in [akTop,akBottom] then begin
Orientation:=GTK_ORIENTATION_VERTICAL;
end else begin
Orientation:=GTK_ORIENTATION_HORIZONTAL;
end;
gtk_paint_handle(Style,AWindow,
if ASplitter.ResizeAnchor in [akTop,akBottom] then
Orientation := GTK_ORIENTATION_HORIZONTAL
else
Orientation := GTK_ORIENTATION_VERTICAL;
// fill area
gtk_paint_flat_box(Style, AWindow,
GTK_WIDGET_STATE(Widget),
GTK_SHADOW_NONE,
@Area, Widget, 'paned',
Area.X,Area.Y,Area.Width,Area.Height,
Area.X, Area.Y, Area.Width, Area.Height);
// draw size grip
gtk_paint_handle(Style, AWindow,
GTK_WIDGET_STATE(Widget),
GTK_SHADOW_NONE,
@Area, Widget, 'paned',
Area.X, Area.Y, Area.Width, Area.Height,
Orientation);
{$ENDIF}
end;