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

docking: split mouse down and mouse handling: mouse up - for buttons, mouse down - for header

Browse Source 
git-svn-id: trunk@14063 -
This commit is contained in:
paul 2008-02-10 09:14:11 +00:00
parent 4f7164b77c
commit 3ab568e9ad
1 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lcl/ldocktree.pas
View File

@ -299,6 +299,7 @@ type
class function FindPart(AHeaderRect: TRect; APoint: TPoint; AOrientation: TDockOrientation): TLazDockHeaderPart;
class procedure Draw(ACanvas: TCanvas; ACaption: String; AOrientation: TDockOrientation; const ARect: TRect; const MousePos: TPoint);
class procedure PerformMouseUp(AControl: TControl; APart: TLazDockHeaderPart);
class procedure PerformMouseDown(AControl: TControl; APart: TLazDockHeaderPart);
end;
class function TDockHeader.GetRectOfPart(AHeaderRect: TRect; AOrientation: TDockOrientation;
@ -451,11 +452,7 @@ end;
class procedure TDockHeader.PerformMouseUp(AControl: TControl;
APart: TLazDockHeaderPart);
begin
// user left clicked on header
case APart of
ldhpAll, ldhpCaption:
// mouse down on not buttons => start drag
AControl.BeginDrag(True);
ldhpRestoreButton:
AControl.ManualDock(nil, nil, alNone);
ldhpCloseButton:
@ -467,6 +464,16 @@ begin
end;
end;
class procedure TDockHeader.PerformMouseDown(AControl: TControl;
APart: TLazDockHeaderPart);
begin
case APart of
ldhpAll, ldhpCaption:
// mouse down on not buttons => start drag
AControl.BeginDrag(True);
end;
end;
function GetLazDockSplitter(Control: TControl; Side: TAnchorKind; out
Splitter: TLazDockSplitter): boolean;
@ -1455,7 +1462,11 @@ begin
CheckNeedRedraw(DockSite.Controls[i], ARect, Part);
TDockHeader.PerformMouseUp(DockSite.Controls[i], Part);
end;
LM_LBUTTONDOWN,
LM_LBUTTONDOWN:
begin
CheckNeedRedraw(DockSite.Controls[i], ARect, Part);
TDockHeader.PerformMouseDown(DockSite.Controls[i], Part);
end;
LM_MOUSEMOVE:
CheckNeedRedraw(DockSite.Controls[i], ARect, Part);
end;
@ -2765,9 +2776,18 @@ end;
procedure TLazDockForm.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
var
Part: TLazDockHeaderPart;
Control: TControl;
begin
inherited MouseDown(Button, Shift, X, Y);
TrackMouse(X, Y);
if Button = mbLeft then
begin
Control := FindHeader(X, Y, Part);
if (Control <> nil) then
TDockHeader.PerformMouseDown(Control, Part);
end;
end;
procedure TLazDockForm.MouseMove(Shift: TShiftState; X, Y: Integer);