paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 00:39:26 +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

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

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