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

LCL: AnchorDocking: Cleanup: less hints

Browse Source 
git-svn-id: trunk@59810 -
This commit is contained in:
michl 2018-12-12 21:33:42 +00:00
parent 1d60ab91f1
commit 1f8096d5b5
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/anchordocking/anchordocking.pas
View File

@ -192,7 +192,7 @@ type
Y: Integer); override; Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X,Y: Integer); override; procedure MouseMove(Shift: TShiftState; X,Y: Integer); override;
procedure MouseLeave; override; procedure MouseLeave; override;
procedure StartMouseNoMoveTimer(X, Y: Integer); procedure StartMouseNoMoveTimer;
procedure StopMouseNoMoveTimer; procedure StopMouseNoMoveTimer;
procedure DoMouseNoMoveTimer(Sender: TObject); procedure DoMouseNoMoveTimer(Sender: TObject);
procedure UpdateHeaderControls; procedure UpdateHeaderControls;
@ -382,7 +382,7 @@ type
function CloseQuery: boolean; override; function CloseQuery: boolean; override;
function CloseSite: boolean; virtual; function CloseSite: boolean; virtual;
procedure MinimizeSite; virtual; procedure MinimizeSite; virtual;
procedure AsyncMinimizeSite(Data: PtrInt); procedure AsyncMinimizeSite({%H-}Data: PtrInt);
procedure ShowMinimizedControl; procedure ShowMinimizedControl;
procedure HideMinimizedControl; procedure HideMinimizedControl;
procedure RemoveControl(AControl: TControl); override; procedure RemoveControl(AControl: TControl); override;
@ -2627,6 +2627,7 @@ begin
if FOverlappingForm=nil then if FOverlappingForm=nil then
IdleConnected:=false IdleConnected:=false
else begin else begin
MousePos:=Point(0, 0);
GetCursorPos(MousePos); GetCursorPos(MousePos);
Bounds.TopLeft:=FOverlappingForm.ClientToScreen(point(0,0)); Bounds.TopLeft:=FOverlappingForm.ClientToScreen(point(0,0));
Bounds.BottomRight:=FOverlappingForm.ClientToScreen(point(FOverlappingForm.Width,FOverlappingForm.Height)); Bounds.BottomRight:=FOverlappingForm.ClientToScreen(point(FOverlappingForm.Width,FOverlappingForm.Height));
@ -6281,7 +6282,7 @@ begin
if (parent as TAnchorDockHostSite).Minimized then if (parent as TAnchorDockHostSite).Minimized then
if DockMaster.FOverlappingForm=nil then if DockMaster.FOverlappingForm=nil then
if FMouseTimeStartX=EmptyMouseTimeStartX then if FMouseTimeStartX=EmptyMouseTimeStartX then
StartMouseNoMoveTimer(X, Y) StartMouseNoMoveTimer
else begin else begin
if (abs(FMouseTimeStartX-X)>MouseNoMoveDelta) or (abs(FMouseTimeStartY-Y)>MouseNoMoveDelta)then if (abs(FMouseTimeStartX-X)>MouseNoMoveDelta) or (abs(FMouseTimeStartY-Y)>MouseNoMoveDelta)then
StopMouseNoMoveTimer; StopMouseNoMoveTimer;
@ -6296,7 +6297,7 @@ begin
StopMouseNoMoveTimer; StopMouseNoMoveTimer;
end; end;
procedure TAnchorDockHeader.StartMouseNoMoveTimer(X, Y: Integer); procedure TAnchorDockHeader.StartMouseNoMoveTimer;
begin begin
if fUseTimer then begin if fUseTimer then begin
if DockTimer.Enabled then DockTimer.Enabled:=false; if DockTimer.Enabled then DockTimer.Enabled:=false;