paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 16:40:54 +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; destructor TCDButton.Destroy;
begin begin
FGlyph.Free;
inherited Destroy; inherited Destroy;
end; end;

6
lcl/customdrawndrawers.pas
View File

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