mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 23:59:10 +02:00
IDE: fixed compilation on fpc 2.6.4
git-svn-id: trunk@53065 -
This commit is contained in:
parent
641d73f10a
commit
81e059a3aa
@ -76,7 +76,6 @@ constructor TMultiPasteDialog.Create(AOwner: TComponent);
|
|||||||
begin
|
begin
|
||||||
inherited Create(AOwner);
|
inherited Create(AOwner);
|
||||||
FContent := TStringList.Create;
|
FContent := TStringList.Create;
|
||||||
FContent.SkipLastLineBreak := True;
|
|
||||||
OnShow := @DoWatch;
|
OnShow := @DoWatch;
|
||||||
OnActivate := @DoWatch;
|
OnActivate := @DoWatch;
|
||||||
TxtBeforeLinesEdit.OnChange := @DoWatch;
|
TxtBeforeLinesEdit.OnChange := @DoWatch;
|
||||||
@ -89,7 +88,7 @@ end;
|
|||||||
|
|
||||||
destructor TMultiPasteDialog.Destroy;
|
destructor TMultiPasteDialog.Destroy;
|
||||||
begin
|
begin
|
||||||
FContent.Free;
|
FreeAndNil(FContent);
|
||||||
inherited Destroy;
|
inherited Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user