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

LCL: anchordocking: fixed spelling mistakes

Browse Source 
git-svn-id: trunk@14033 -
This commit is contained in:
mattias 2008-02-08 15:33:42 +00:00
parent 1ca8d4b353
commit a29108f322
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/ldockctrl.pas
View File

@ -778,6 +778,8 @@ end;
function TCustomLazControlDocker.CreateFormAndDockWithSplitter(
Layout: TLazDockConfigNode; Side: TAnchorKind): boolean;
{ Add a splitter to Side and dock to it. For example:
Side=akLeft
--------+ -------------+
---+| ---+#+------+|
A || A |#| ||
@ -846,7 +848,7 @@ function TCustomLazControlDocker.CreateFormAndDockWithSplitter(
if Node=nil then exit;
if CompareText(Node.Sides[OppositeAnchor[Side]],SplitterNode.Name)<>0 then
exit;
// success: NewNeighbour is a neigbour on the current form and in the Layout
// success: NewNeighbour is a neighbour on the current form and in the Layout
if Append then begin
Neighbours.Add(Splitter);
Neighbours.Add(NewNeighbour);
@ -975,7 +977,7 @@ begin
Neighbours.Add(NeighbourControl);
while FindNextNeighbour(SplitterNode,Neighbours,false) do ;
while FindNextNeighbour(SplitterNode,Neighbours,true) do ;
// Neighbours now contains all controls, that needs to be reanchored
// Neighbours now contains all controls, that need to be reanchored
// to the new Splitter
if Side in [akLeft,akRight] then