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

Customdrawn: Patch from lainz to fix mem leak and adds dsWindow7 style

Browse Source 
git-svn-id: trunk@34481 -
This commit is contained in:
sekelsenmat 2011-12-28 23:20:04 +00:00
parent a67a78e898
commit 142d0b4667
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/customdrawncontrols.pas
View File

@ -1665,6 +1665,7 @@ end;
destructor TCDButton.Destroy;
begin
FGlyph.Free;
inherited Destroy;
end;

6
lcl/customdrawndrawers.pas
View File

@ -74,8 +74,8 @@ type
// drawers base on
dsCommon,
// Operating system styles
dsWinCE, dsWin2000, dsWinXP,
dsKDE, dsGNOME, dsMacOSX,
dsWinCE, dsWin2000, dsWinXP, dsWindows7,
dsKDEPlastique, dsGNOME, dsMacOSX,
dsAndroid,
// Other special styles for the user
dsExtra1, dsExtra2, dsExtra3, dsExtra4, dsExtra5,
@ -376,7 +376,7 @@ implementation
var
RegisteredDrawers: array[TCDDrawStyle] of TCDDrawer
= (nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);
= (nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);
procedure RegisterDrawer(ADrawer: TCDDrawer; AStyle: TCDDrawStyle);
begin