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

AJ:minor styles improvement; fixed drawing checks under all(?) themes

Browse Source 
git-svn-id: trunk@1927 -
This commit is contained in:
lazarus 2002-08-17 23:40:15 +00:00
parent 11724122a0
commit 625b625a5a
1 changed files with 27 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -2124,18 +2124,31 @@ var
aDC:=TDeviceContext(DC);
DCOrigin:=GetDCOffset(aDC);
Style := gtk_style_attach(GetStyle('checkbox'),aDC.Drawable);
Style := GetStyle('checkbox');
If Style = nil then
Style := GetStyle('gtk_default');
If Style <> nil then
Style := gtk_style_attach(gtk_style_ref(Style),aDC.Drawable);
Widget := GetStyleWidget('checkbox');
// Do we really need to set this?
GTK_WIDGET_SET_FLAGS (widget, GTK_REALIZED);
Widget^.Window := aDC.Drawable;
gtk_paint_check(Style,aDC.Drawable, State,
Shadow, nil, Widget, 'checkbutton',
Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y,
Rect.Right-Rect.Left, Rect.Bottom-Rect.Top);
Result := True;
If Widget = nil then
Widget := GetStyleWidget('default');
If (Widget <> nil) and (Style <> nil) then begin
Widget^.Window := aDC.Drawable;
gtk_paint_check(Style,aDC.Drawable, State,
Shadow, nil, Widget, 'checkbutton',
Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y,
Rect.Right-Rect.Left, Rect.Bottom-Rect.Top);
Result := True;
end
else begin
gtk_draw_check(Style,aDC.Drawable, State,
Shadow, Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y,
Rect.Right-Rect.Left, Rect.Bottom-Rect.Top);
Result := True;
end;
end;
var ClientWidget: PGtkWidget;
@ -7400,6 +7413,9 @@ end;
{ =============================================================================
$Log$
Revision 1.167 2002/10/21 18:21:39 lazarus
AJ:minor styles improvement; fixed drawing checks under all(?) themes
Revision 1.166 2002/10/21 14:40:53 lazarus
MG: fixes for 1.1