paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-21 23:02:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed uninitialized style

Browse Source 
git-svn-id: trunk@2116 -
This commit is contained in:
mattias 2002-08-17 23:40:58 +00:00
parent f6b6541c42
commit a3539b698f
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2182,16 +2182,18 @@ var
end;
end;
aStyle := GetStyle('button');
If aStyle = nil then
aStyle := Widget^.theStyle
else
If State = GTK_STATE_SELECTED then
State := GTK_STATE_ACTIVE;
aDC:=TDeviceContext(DC);
DCOrigin:=GetDCOffset(aDC);
aStyle := GetStyle('button');
If aStyle = nil then
aStyle := Widget^.theStyle
else begin
If State = GTK_STATE_SELECTED then
State := GTK_STATE_ACTIVE;
aStyle := gtk_style_attach(gtk_style_ref(aStyle),aDC.Drawable);
end;
If (DFCS_FLAT and uState)<>0 then
gtk_paint_flat_box(aStyle,aDC.Drawable,
State,
@ -7759,6 +7761,9 @@ end;
{ =============================================================================
$Log$
Revision 1.210 2003/02/16 01:40:43 mattias
fixed uninitialized style
Revision 1.209 2003/02/04 14:36:19 mattias
fixed set method in OI