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

Sparta docked form editor: Increase limited width to 5K. Issue #31086, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@53702 -
This commit is contained in:
juha 2016-12-16 14:12:07 +00:00
parent 20f18a338c
commit 4f75913e96
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/sparta/mdi/source/sparta_basicfakecustom.pas
View File

@ -151,14 +151,17 @@ begin
end;
procedure TFormImpl.SetPublishedBounds(AIndex: Integer; AValue: Integer);
const
cMinWidth = 135;
cMaxWidth = 5*1024; // huge Mac monitors have 5K pixels width
begin
if AIndex = 2 then
if AValue < 135 then
AValue := 135;
if AValue < cMinWidth then
AValue := cMinWidth;
if AIndex in [2, 3] then
if AValue > 4096 then
AValue := 4096;
if AValue > cMaxWidth then
AValue := cMaxWidth;
case AIndex of
0: FHackLeft := AValue;