mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 14:29:36 +02:00
LCL: Update "Accept" flag in TCustomAbstractGroupedEdit.EditDragOver. Optimize. Issue #36685, patch from errno.
git-svn-id: trunk@62630 -
This commit is contained in:
parent
6e73710c9e
commit
efcdcd91ab
@ -950,7 +950,9 @@ end;
|
|||||||
procedure TCustomAbstractGroupedEdit.EditDragOver(Source: TObject; X, Y: Integer;
|
procedure TCustomAbstractGroupedEdit.EditDragOver(Source: TObject; X, Y: Integer;
|
||||||
State: TDragState; var Accept: Boolean);
|
State: TDragState; var Accept: Boolean);
|
||||||
begin
|
begin
|
||||||
if Assigned(FOnEditDragOver) then FOnEditDragOver(Self, Source, X, Y, State, Accept);
|
Accept:=Assigned(FOnEditDragOver);
|
||||||
|
if Accept then
|
||||||
|
FOnEditDragOver(Self, Source, X, Y, State, Accept);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TCustomAbstractGroupedEdit.EditEditingDone;
|
procedure TCustomAbstractGroupedEdit.EditEditingDone;
|
||||||
|
@ -1749,11 +1749,9 @@ begin
|
|||||||
{$IFDEF VerboseDrag}
|
{$IFDEF VerboseDrag}
|
||||||
DebugLn('TControl.DragOver ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y));
|
DebugLn('TControl.DragOver ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y));
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
Accept := False;
|
Accept := Assigned(FOnDragOver);
|
||||||
if Assigned(FOnDragOver) then begin
|
if Accept then
|
||||||
Accept := True;
|
|
||||||
FOnDragOver(Self,Source,X,Y,State,Accept);
|
FOnDragOver(Self,Source,X,Y,State,Accept);
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{------------------------------------------------------------------------------
|
{------------------------------------------------------------------------------
|
||||||
|
Loading…
Reference in New Issue
Block a user