paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 14:49:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed uninitialized logbrush

Browse Source 
git-svn-id: trunk@1961 -
This commit is contained in:
mattias 2002-08-17 23:40:24 +00:00
parent 062ae305eb
commit c1da001b0f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkobject.inc
View File

@ -854,6 +854,7 @@ var
LogBrush: TLogBrush; LogBrush: TLogBrush;
logPen : TLogPen; logPen : TLogPen;
begin begin
FillChar(LogBrush,SizeOf(TLogBrush),0);
LogBrush.lbStyle := BS_NULL; LogBrush.lbStyle := BS_NULL;
FStockNullBrush := CreateBrushIndirect(LogBrush); FStockNullBrush := CreateBrushIndirect(LogBrush);
LogBrush.lbStyle := BS_SOLID; LogBrush.lbStyle := BS_SOLID;
@ -6754,6 +6755,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.308 2002/12/27 09:05:50 mattias
fixed uninitialized logbrush
Revision 1.307 2002/12/27 08:46:32 mattias Revision 1.307 2002/12/27 08:46:32 mattias
changes for fpc 1.1 changes for fpc 1.1