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

- bug with changing PairSplitter type (non gtk)

Browse Source 
git-svn-id: trunk@11217 -
This commit is contained in:
paul 2007-05-29 14:26:48 +00:00
parent a4121beefb
commit addb527f14
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/widgetset/wspairsplitter.pp
View File

@ -117,10 +117,11 @@ begin
begin
InternalSplitter := TSplitter.Create(ASplitter);
InternalSplitter.Parent := ASplitter;
InternalSplitter.Align := ASplitter.Sides[0].Align;
end;
InternalSplitter.Align := ASplitter.Sides[0].Align;
if ASplitter.SplitterType = pstHorizontal then
InternalSplitter.Left := ASplitter.Sides[0].Width + 1 else
InternalSplitter.Left := ASplitter.Sides[0].Width + 1
else
InternalSplitter.Top := ASplitter.Sides[0].Height + 1;
ASide.Align := alClient;
end;