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

LCL: TDockManager.BeginUpdate does not need to be implemented

Browse Source 
git-svn-id: trunk@26009 -
This commit is contained in:
mattias 2010-06-09 21:49:37 +00:00
parent 37a7255199
commit d35da02263
2 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/anchordocking/anchordocking.pas
View File

@ -282,8 +282,6 @@ type
FDockSite: TAnchorDockHostSite;
public
constructor Create(ADockSite: TWinControl); override;
procedure BeginUpdate; override;
procedure EndUpdate; override;
procedure GetControlBounds(Control: TControl; out AControlBounds: TRect);
override;
procedure InsertControl(Control: TControl; InsertAt: TAlign;
@ -3114,16 +3112,6 @@ begin
FDockSite:=TAnchorDockHostSite(ADockSite);
end;
procedure TAnchorDockManager.BeginUpdate;
begin
end;
procedure TAnchorDockManager.EndUpdate;
begin
end;
procedure TAnchorDockManager.GetControlBounds(Control: TControl; out
AControlBounds: TRect);
begin

14
lcl/controls.pp
View File

@ -500,8 +500,8 @@ type
TDockManager = class(TPersistent)
public
constructor Create(ADockSite: TWinControl); virtual;
procedure BeginUpdate; virtual; abstract;
procedure EndUpdate; virtual; abstract;
procedure BeginUpdate; virtual;
procedure EndUpdate; virtual;
procedure GetControlBounds(Control: TControl;
out AControlBounds: TRect); virtual; abstract;
function GetDockEdge(ADockObject: TDragDockObject): boolean; virtual;
@ -3777,6 +3777,16 @@ begin
inherited Create;
end;
procedure TDockManager.BeginUpdate;
begin
end;
procedure TDockManager.EndUpdate;
begin
end;
function TDockManager.GetDockEdge(ADockObject: TDragDockObject): boolean;
begin
{ Determine the DropAlign.