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

LCL: Update "Accept" flag in TCustomAbstractGroupedEdit.EditDragOver. Optimize. Issue #36685, patch from errno.

Browse Source 
git-svn-id: trunk@62630 -
This commit is contained in:
juha 2020-02-14 09:36:14 +00:00
parent 6e73710c9e
commit efcdcd91ab
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/groupededit.pp
View File

@ -950,7 +950,9 @@ end;
procedure TCustomAbstractGroupedEdit.EditDragOver(Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
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;
procedure TCustomAbstractGroupedEdit.EditEditingDone;

6
lcl/include/control.inc
View File

@ -1749,11 +1749,9 @@ begin
{$IFDEF VerboseDrag}
DebugLn('TControl.DragOver ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y));
{$ENDIF}
Accept := False;
if Assigned(FOnDragOver) then begin
Accept := True;
Accept := Assigned(FOnDragOver);
if Accept then
FOnDragOver(Self,Source,X,Y,State,Accept);
end;
end;
{------------------------------------------------------------------------------