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

LCL: TCustomSplitter.AnchorSplitter: disable autosizing

Browse Source 
git-svn-id: trunk@36866 -
This commit is contained in:
mattias 2012-04-17 08:03:17 +00:00
parent 925be78561
commit 73fef58a27
1 changed files with 34 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/customsplitter.inc
View File

@ -525,8 +525,10 @@ begin
else
Cursor := crVSplit;
if not (csLoading in ComponentState) then
begin
Align := alNone;
Invalidate;
end;
end;
procedure TCustomSplitter.SetResizeControl(const AValue: TControl);
@ -959,8 +961,10 @@ var
OldWidth: LongInt;
OldHeight: LongInt;
begin
OldWidth := Self.Width;
OldHeight := Self.Height;
DisableAutoSizing;
try
OldWidth := Width;
OldHeight := Height;
OldResizeAnchor := FResizeAnchor;
Align := alNone;
FResizeAnchor := Kind;
@ -988,6 +992,9 @@ begin
else
Height := OldWidth;
end;
finally
EnableAutoSizing;
end;
end;
// included by extctrls.pp