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

IDE: Color Config, fix layout / anchor-sides.

Browse Source
This commit is contained in:
Martin 2022-02-14 14:54:27 +01:00
parent 0e74ad0a1e
commit 3ba594f827
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/syncolorattribeditor.pas
View File

@ -282,20 +282,22 @@ begin
S := FrameAlphaSpin;
if Width > S.Left + S.Width + FrameStyleBox.Width + FrameEdgesBox.Width + 15 then
begin
FrameEdgesBox.AnchorSide[akTop].Control := S;
//FrameEdgesBox.AnchorSide[akTop].Control := S;
FrameEdgesBox.AnchorSide[akTop].Side := asrTop;
FrameEdgesBox.AnchorSide[akLeft].Control := S;
FrameEdgesBox.AnchorSide[akLeft].Side := asrBottom;
FrameEdgesBox.BorderSpacing.Top := 0;
FrameEdgesBox.BorderSpacing.Left := 6;
MarkupFoldColorBox.AnchorSide[akTop].Control := FrameColorBox;
end
else begin
FrameEdgesBox.AnchorSide[akTop].Control := FrameColorBox;
//FrameEdgesBox.AnchorSide[akTop].Control := FrameColorBox;
FrameEdgesBox.AnchorSide[akTop].Side := asrBottom;
FrameEdgesBox.AnchorSide[akLeft].Control := FrameColorBox;
FrameEdgesBox.AnchorSide[akLeft].Side := asrTop;
FrameEdgesBox.BorderSpacing.Top := 3;
FrameEdgesBox.BorderSpacing.Left := 0;
MarkupFoldColorBox.AnchorSide[akTop].Control := FrameEdgesBox;
end;
end;