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

LCL: remove obsolete string array. Use WriteStr

Browse Source 
git-svn-id: trunk@33234 -
This commit is contained in:
juha 2011-11-02 23:15:32 +00:00
parent 123ceac181
commit bd2c6d9b5c
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/ldocktree.pas
View File

@ -1737,16 +1737,12 @@ var
procedure DumpZone(Zone: TDockZone);
const
DumpStr = 'Zone: Orientation = <b>%s</b>, ChildCount = <b>%d</b>, ChildControl = <b>%s</b>, %s, Splitter = <b>%s</b>';
StrOrientation: array[TDockOrientation] of String =
(
'doNoOrient',
'doHorizontal',
'doVertical',
'doPages'
);
var
S: string;
begin
WriteLn(Format(DumpStr, [StrOrientation[Zone.Orientation], Zone.ChildCount,
DbgSName(Zone.ChildControl), DbgS(Bounds(Zone.Left, Zone.Top, Zone.Width, Zone.Height)),
WriteStr(S, Zone.Orientation);
WriteLn(Format(DumpStr, [S, Zone.ChildCount, DbgSName(Zone.ChildControl),
DbgS(Bounds(Zone.Left, Zone.Top, Zone.Width, Zone.Height)),
dbgs(TLazDockZone(Zone).Splitter)]));
if TLazDockZone(Zone).Splitter <> nil then
DumpAnchors('<br>Splitter anchors: ', TLazDockZone(Zone).Splitter);