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

small aesthetic change

Browse Source 
git-svn-id: trunk@5189 -
This commit is contained in:
mattias 2004-02-10 01:01:06 +00:00
parent 61e525b79d
commit f52b2cbb54
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/environmentopts.pp
View File

@ -2445,7 +2445,7 @@ procedure TEnvironmentOptionsDialog.SetupFormEditorPage(Page: integer);
with GrabberColorButton do begin with GrabberColorButton do begin
Name:='GrabberColorButton'; Name:='GrabberColorButton';
Parent:=FormEditMiscGroupBox; Parent:=FormEditMiscGroupBox;
Left:=250; Left:=280;
Top:=0; Top:=0;
Width:=50; Width:=50;
Height:=25; Height:=25;
@ -3225,9 +3225,11 @@ begin
end; end;
procedure TEnvironmentOptionsDialog.GridGroupBoxResize(Sender: TObject); procedure TEnvironmentOptionsDialog.GridGroupBoxResize(Sender: TObject);
var
x: Integer;
begin begin
with ShowGridCheckBox do begin with ShowGridCheckBox do begin
SetBounds(6,2,200,Height); SetBounds(6,2,Parent.ClientWidth-7,Height);
end; end;
with GridColorButton do begin with GridColorButton do begin
@ -3237,8 +3239,8 @@ begin
end; end;
with GridColorLabel do begin with GridColorLabel do begin
SetBounds(GridColorButton.Left+GridColorButton.Width+5, x:=GridColorButton.Left+GridColorButton.Width+5;
GridColorButton.Top+2,80,Height); SetBounds(x,GridColorButton.Top+2,Parent.ClientWidth-x-2,Height);
end; end;
with SnapToGridCheckBox do begin with SnapToGridCheckBox do begin
@ -3254,8 +3256,8 @@ begin
end; end;
with GridSizeXLabel do begin with GridSizeXLabel do begin
SetBounds(GridSizeXComboBox.Left+GridSizeXComboBox.Width+5, X:=GridSizeXComboBox.Left+GridSizeXComboBox.Width+5;
GridSizeXComboBox.Top+2,150,Height); SetBounds(X,GridSizeXComboBox.Top+2,Parent.ClientWidth-X-2,Height);
end; end;
with GridSizeYComboBox do begin with GridSizeYComboBox do begin