paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 14:35:56 +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 else
Cursor := crVSplit; Cursor := crVSplit;
if not (csLoading in ComponentState) then if not (csLoading in ComponentState) then
begin
Align := alNone; Align := alNone;
Invalidate; Invalidate;
end;
end; end;
procedure TCustomSplitter.SetResizeControl(const AValue: TControl); procedure TCustomSplitter.SetResizeControl(const AValue: TControl);
@ -959,8 +961,10 @@ var
OldWidth: LongInt; OldWidth: LongInt;
OldHeight: LongInt; OldHeight: LongInt;
begin begin
OldWidth := Self.Width; DisableAutoSizing;
OldHeight := Self.Height; try
OldWidth := Width;
OldHeight := Height;
OldResizeAnchor := FResizeAnchor; OldResizeAnchor := FResizeAnchor;
Align := alNone; Align := alNone;
FResizeAnchor := Kind; FResizeAnchor := Kind;
@ -988,6 +992,9 @@ begin
else else
Height := OldWidth; Height := OldWidth;
end; end;
finally
EnableAutoSizing;
end;
end; end;
// included by extctrls.pp // included by extctrls.pp