mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 01:19:16 +02:00
synedit: forget to destroy markup info
git-svn-id: trunk@18047 -
This commit is contained in:
parent
28544c79b9
commit
0cc812fc62
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user