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

LCL: hide DebuLn() from docking by using VerboseDocking define.

Browse Source 
git-svn-id: trunk@38843 -
This commit is contained in:
zeljko 2012-09-26 10:23:40 +00:00
parent dc82e7be1e
commit fe7467988d
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/wincontrol.inc
View File

@ -5373,7 +5373,9 @@ end;
procedure TWinControl.DoRemoveDockClient(Client: TControl); procedure TWinControl.DoRemoveDockClient(Client: TControl);
begin begin
// empty (this method exists for descendent overrides) // empty (this method exists for descendent overrides)
{$IFDEF VerboseDocking}
DebugLn(['TWinControl.DoRemoveDockClient ',DbgSName(Self),' ',DbgSName(Client)]); DebugLn(['TWinControl.DoRemoveDockClient ',DbgSName(Self),' ',DbgSName(Client)]);
{$ENDIF}
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -5385,7 +5387,9 @@ function TWinControl.DoUnDock(NewTarget: TWinControl; Client: TControl;
var var
NewBounds: TRect; NewBounds: TRect;
begin begin
{$IFDEF VerboseDocking}
DebugLn('TWinControl.DoUnDock ',Name,' NewTarget=',DbgSName(NewTarget),' Client=',DbgSName(Client)); DebugLn('TWinControl.DoUnDock ',Name,' NewTarget=',DbgSName(NewTarget),' Client=',DbgSName(Client));
{$ENDIF}
Result := True; Result := True;
if Assigned(FOnUnDock) then if Assigned(FOnUnDock) then
begin begin
@ -7816,7 +7820,9 @@ begin
DestRect := DockRect; DestRect := DockRect;
DisableAlign; DisableAlign;
try try
debugln(['TWinControl.DoDockClientMsg ',DbgSName(Self),' Control=',DbgSName(DragDockObject.Control),' DestRect=',dbgs(DestRect)]); {$IFDEF VerboseDocking}
Debugln(['TWinControl.DoDockClientMsg ',DbgSName(Self),' Control=',DbgSName(DragDockObject.Control),' DestRect=',dbgs(DestRect)]);
{$ENDIF}
DragDockObject.Control.Dock(Self, DestRect); DragDockObject.Control.Dock(Self, DestRect);
if FUseDockManager and (DockManager <> nil) then if FUseDockManager and (DockManager <> nil) then
DockManager.InsertControl(DragDockObject); DockManager.InsertControl(DragDockObject);
@ -7832,7 +7838,9 @@ end;
function TWinControl.DoUnDockClientMsg(NewTarget, Client: TControl): boolean; function TWinControl.DoUnDockClientMsg(NewTarget, Client: TControl): boolean;
begin begin
Result := True; Result := True;
{$IFDEF VerboseDocking}
DebugLn(['TWinControl.DoUnDockClientMsg ',DbgSName(Self),' Client=',DbgSName(Client),' Client.Parent=',DbgSName(Client.Parent)]); DebugLn(['TWinControl.DoUnDockClientMsg ',DbgSName(Self),' Client=',DbgSName(Client),' Client.Parent=',DbgSName(Client.Parent)]);
{$ENDIF}
if FUseDockManager and (DockManager <> nil) then if FUseDockManager and (DockManager <> nil) then
DockManager.RemoveControl(Client); DockManager.RemoveControl(Client);
end; end;