synedit: forget to destroy markup info

git-svn-id: trunk@18047 -
This commit is contained in:
paul 2009-01-02 13:29:10 +00:00
parent 28544c79b9
commit 0cc812fc62

View File

@ -19,6 +19,7 @@ type
FMarkupInfoCodeFoldingTree: TSynSelectedColor; FMarkupInfoCodeFoldingTree: TSynSelectedColor;
public public
constructor Create(AOwner : TSynEditBase; AFoldView : TSynEditFoldedView); constructor Create(AOwner : TSynEditBase; AFoldView : TSynEditFoldedView);
destructor Destroy; override;
procedure Paint(Canvas: TCanvas; AClip: TRect; FirstLine, LastLine: integer); procedure Paint(Canvas: TCanvas; AClip: TRect; FirstLine, LastLine: integer);
override; override;
@ -50,6 +51,12 @@ begin
Width := 14; Width := 14;
end; end;
destructor TSynGutterCodeFolding.Destroy;
begin
FMarkupInfoCodeFoldingTree.Free;
inherited Destroy;
end;
function TSynGutterCodeFolding.RealGutterWidth(CharWidth : integer) : integer; function TSynGutterCodeFolding.RealGutterWidth(CharWidth : integer) : integer;
begin begin
If Visible then If Visible then