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

LCL: Separate coolbar and other dockmanagers (another patch by Andrey Zubarev), Issue #32027

Browse Source 
git-svn-id: trunk@55438 -
This commit is contained in:
wp 2017-07-04 12:19:04 +00:00
parent 5305e255e4
commit 9139481f92
3 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/anchordocking/anchordocking.pas
View File

@ -379,6 +379,7 @@ type
procedure RestoreSite(SplitterPos: integer);
procedure StoreConstraints;
function GetSitePreferredClientSize: TPoint;
function IsEnabledControl(Control: TControl):Boolean; override;
property Site: TWinControl read FSite; // the associated TControl (a TAnchorDockHostSite or a custom dock site)
property DockSite: TAnchorDockHostSite read FDockSite; // if Site is a TAnchorDockHostSite, this is it
@ -6037,6 +6038,11 @@ begin
Result:=(Left<>0) or (Top<>0) or (Right<>0) or (Bottom<>0);
end;
function TAnchorDockManager.IsEnabledControl(Control: TControl):Boolean;
begin
Result := (DockMaster <> nil) and DockMaster.IsSite(Control);
end;
{ TAnchorDockSplitter }
procedure TAnchorDockSplitter.SetResizeAnchor(const AValue: TAnchorKind);

10
lcl/controls.pp
View File

@ -578,6 +578,7 @@ type
procedure SaveToStream(Stream: TStream); virtual; abstract;
procedure SetReplacingControl(Control: TControl); virtual;
function AutoFreeByControl: Boolean; virtual;
function IsEnabledControl(Control: TControl):Boolean; virtual;
end;
TDockManagerClass = class of TDockManager;
@ -4506,6 +4507,15 @@ begin
end;
function TDockManager.IsEnabledControl(Control: TControl):Boolean;
begin
Result := true;
if Control is TWinControl then
if (Control as TWinControl).DockManager <> nil then
Result := (Control as TWinControl).DockManager = self;
end;
initialization
//DebugLn('controls.pp - initialization');
RegisterPropertyToSkip(TControl, 'AlignWithMargins', 'VCL compatibility property', '');

3
lcl/include/wincontrol.inc
View File

@ -5517,6 +5517,9 @@ begin
InfluenceRect.Right := InfluenceRect.Right+ADockMargin;
InfluenceRect.Bottom := InfluenceRect.Bottom+ADockMargin;
if UseDockManager then
CanDock:=DockManager.IsEnabledControl(Client);
if Assigned(FOnGetSiteInfo) then
FOnGetSiteInfo(Self, Client, InfluenceRect, MousePos, CanDock);
end;