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

SynEdit: Fixes a crash, PrimarySelection would make a callback to a destroyed SynEdit

Browse Source 
git-svn-id: trunk@18848 -
This commit is contained in:
martin 2009-02-28 20:26:30 +00:00
parent a8f8934f62
commit 130c399660
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/synedit/synedit.pp
View File

@ -430,9 +430,8 @@ type
fChangeStamp: int64;
{$ENDIF}
{$IFDEF SYN_LAZARUS}
procedure AquirePrimarySelection;
{$ENDIF}
procedure SurrenderPrimarySelection;
procedure BookMarkOptionsChanged(Sender: TObject);
procedure ComputeCaret(X, Y: Integer);
procedure DoBlockIndent;
@ -1161,7 +1160,6 @@ end;
{ TCustomSynEdit }
{$IFDEF SYN_LAZARUS}
procedure TCustomSynEdit.AquirePrimarySelection;
var
FormatList: TClipboardFormat;
@ -1175,7 +1173,12 @@ begin
except
end;
end;
{$ENDIF}
procedure TCustomSynEdit.SurrenderPrimarySelection;
begin
if PrimarySelection.OnRequest=@PrimarySelectionRequest then
PrimarySelection.OnRequest:=nil;
end;
function TCustomSynEdit.PixelsToRowColumn(Pixels: TPoint): TPoint;
// converts the client area coordinate
@ -1619,6 +1622,7 @@ destructor TCustomSynEdit.Destroy;
var
i: integer;
begin
SurrenderPrimarySelection;
{$IFDEF SYN_LAZARUS}
if HandleAllocated then LCLIntf.DestroyCaret(Handle);
Beautifier:=nil;
@ -7978,10 +7982,7 @@ begin
{$IFDEF EnableDoubleBuf}
FreeAndNil(BufferBitmap);
{$ENDIF}
{$IFDEF SYN_LAZARUS}
if PrimarySelection.OnRequest=@PrimarySelectionRequest then
PrimarySelection.OnRequest:=nil;
{$ENDIF}
SurrenderPrimarySelection;
inherited DestroyWnd;
end;