paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 11:10:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix AV if second DragStop being called. (Second DragStop freed performer and returned execution to first DragStop which was inside that freed performer)

Browse Source 
git-svn-id: trunk@13577 -
This commit is contained in:
paul 2008-01-02 09:17:52 +00:00
parent 28f8ce52b5
commit 2db37e8ee3
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/include/dragmanager.inc
View File

@ -80,6 +80,7 @@ type
FStartPosition: TPoint;//mouse position at start of drag or dock
FThresholdValue: Integer;//treshold before the drag becomes activated
FWaitForTreshold: boolean;//are we waiting on the treshold activation
FInDragStop: Boolean; // semaphore to prevent second execution of dragStop
protected
//Support input capture
procedure KeyUp(var Key: Word; Shift : TShiftState); override;
@ -89,6 +90,7 @@ type
procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
public
constructor Create; override;
destructor Destroy; override;
//Support methods
@ -579,11 +581,15 @@ end;
procedure TDragManagerDefault.DragStop(ADropped : Boolean);
//End the drag operation
begin
if FPerformer <> nil then try
FPerformer.DragStop(ADropped);
finally
FPerformer.Free;
FPerformer:=nil;
if (FPerformer <> nil) and not FInDragStop then
begin
FInDragStop := True;
try
FPerformer.DragStop(ADropped);
finally
FreeAndNil(FPerformer);
FInDragStop := False;
end;
end;
end;
@ -620,6 +626,12 @@ begin
//DragStop(true);
end;
constructor TDragManagerDefault.Create;
begin
inherited Create;
FInDragStop := False;
end;
procedure TDragManagerDefault.MouseMove(Shift: TShiftState; X, Y: Integer);
var P: TPoint;
begin