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

improved layout a bit

Browse Source 
git-svn-id: trunk@8210 -
This commit is contained in:
vincents 2005-11-22 10:46:44 +00:00
parent 66bdc00353
commit 57c8f0abe2
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/ideoptiondefs.pas
View File

@ -847,8 +847,7 @@ end;
procedure TIDEWindowSetupLayoutComponent.LoadFrom(AnLayout: TIDEWindowLayout);
var
APlacement: TIDEWindowPlacement;
CurY1: Integer;
CurY2: LongInt;
CurY: LongInt;
Col2X: Integer;
PreviousButton: TRadioButton;
@ -889,8 +888,7 @@ var
begin
if AnLayout=nil then exit;
CurY1:=5;
CurY2:=CurY1;
CurY:=5;
Col2X:=300;
PreviousButton:= nil;
for APlacement:=Low(TIDEWindowPlacement) to High(TIDEWindowPlacement) do
@ -917,14 +915,14 @@ begin
iwpCustomPosition:
begin
// custom window position
SetLabelAndEdit(LeftLabel,LeftEdit,dlgLeftPos,Col2X,CurY2);
SetLabelAndEdit(LeftLabel,LeftEdit,dlgLeftPos,Col2X,CurY);
SetLabelAndEdit(TopLabel,TopEdit,dlgTopPos,
LeftEdit.Left+LeftEdit.Width+15,CurY2);
inc(CurY2,LeftEdit.Height+3);
SetLabelAndEdit(WidthLabel,WidthEdit,dlgWidthPos,LeftLabel.Left,CurY2);
LeftEdit.Left+LeftEdit.Width+15,CurY);
inc(CurY,LeftEdit.Height+6);
SetLabelAndEdit(WidthLabel,WidthEdit,dlgWidthPos,LeftLabel.Left,CurY);
SetLabelAndEdit(HeightLabel,HeightEdit,DlgHeightPos,
WidthEdit.Left+WidthEdit.Width+15,CurY2);
inc(CurY2,WidthEdit.Height+3);
WidthEdit.Left+WidthEdit.Width+15,CurY);
inc(CurY,WidthEdit.Height+6);
if AnLayout.CustomCoordinatesAreValid then begin
LeftEdit.Text:=IntToStr(AnLayout.Left);
TopEdit.Text:=IntToStr(AnLayout.Top);
@ -949,14 +947,13 @@ begin
end;
end;
inc(CurY1,2);
if ApplyButton=nil then
ApplyButton:=TButton.Create(Self);
with ApplyButton do
begin
Parent:=Self;
SetBounds(Col2X,CurY2,Width,Height);
SetBounds(Col2X,CurY,Width,Height);
OnClick:=@ApplyButtonClick;
Caption:=dlgButApply;
AutoSize:=true;
@ -972,7 +969,7 @@ begin
OnClick:=@GetWindowPositionButtonClick;
Caption:=dlgGetPosition;
AutoSize:=true;
AnchorToNeighbour(akLeft,5,ApplyButton);
AnchorToNeighbour(akLeft,6,ApplyButton);
AnchorParallel(akTop,0,ApplyButton);
end;
end;