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

improved autosizing for OI options

Browse Source 
git-svn-id: trunk@7348 -
This commit is contained in:
mattias 2005-07-14 17:10:56 +00:00
parent 35f0f32591
commit e3bf68d83f
1 changed files with 25 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ide/environmentopts.pp
View File

@ -576,7 +576,8 @@ type
FOldFPCSourceDir: string;
FOldMakeFilename: string;
FOldTestDir: string;
function CreateColorItem(ATop:Integer; AParent:TWinControl;ACaption:String):TColorButton;
function CreateColorItem(ATop: Integer; AParent: TWinControl;
const ACaption: String): TColorButton;
procedure SetCategoryPage(const AValue: TEnvOptsDialogPage);
procedure SetupFilesPage(Page: integer);
@ -2920,20 +2921,18 @@ procedure TEnvironmentOptionsDialog.ResizeObjectInspectorPage;
var
HalfWidth:integer;
begin
HalfWidth:=ClientWidth div 2;
HalfWidth:=ObjectInspectorColorsGroupBox.Parent.ClientWidth div 2;
// object inspector
with ObjectInspectorColorsGroupBox do begin
Left:=5;
Top:=2;
Width:=HalfWidth-15;
Height:=200;
end;
with OIMiscGroupBox do begin
Left:=HalfWidth+5;
Top:=ObjectInspectorColorsGroupBox.Top;
Width:=HalfWidth-15;
Height:=77;
end;
end;
@ -3856,7 +3855,7 @@ begin
end;
function TEnvironmentOptionsDialog.CreateColorItem(
ATop:Integer; AParent:TWinControl;ACaption:String):TColorButton;
ATop: Integer; AParent: TWinControl; const ACaption: String): TColorButton;
var
ColorButton:TColorButton;
ColorLabel:TLabel;
@ -3876,10 +3875,11 @@ begin
Name:='ColorLabel'+IntToStr(ATop);
Left:=ColorButton.Left+ColorButton.Width+5;
Top:=ColorButton.Top+2;
Width:=AParent.ClientWidth-Left-5;
Height:=23;
Caption:=ACaption;
Left:=ColorButton.Left+ColorButton.Width+5;
AutoSize:=true;
Parent:=AParent;
Caption:=ACaption;//dlgBackColor;
AnchorVerticalCenterTo(ColorButton);
end;
Result:=ColorButton;
end;
@ -3916,9 +3916,9 @@ begin
Left:=HalfWidth+5;
Top:=ObjectInspectorColorsGroupBox.Top;
Width:=HalfWidth-15;
Height:=77;
Parent:=NoteBook.Page[Page];
Height:=120;
Caption:=dlgOIMiscellaneous;
Parent:=NoteBook.Page[Page];
end;
OIDefaultItemHeightSpinEdit:=TSpinEdit.Create(Self);
@ -3927,20 +3927,10 @@ begin
Left:=6;
Top:=4;
Width:=50;
Height:=25;
Parent:=OIMiscGroupBox;
Decimal_Places:=0;
MinValue:=0;
MaxValue:=100;
end;
OIShowHintCheckBox:=TCheckBox.Create(Self);
with OIShowHintCheckBox do begin
Name := 'OIShowHintCheckBox';
Parent:=OIMiscGroupBox;
Left := 6;
Top := 33;
Caption := lisShowHintsInObjectInspector;
end;
OIDefaultItemHeightLabel:=TLabel.Create(Self);
@ -3948,9 +3938,20 @@ begin
Name:='OIDefaultItemHeightLabel';
Left:=OIDefaultItemHeightSpinEdit.Left+OIDefaultItemHeightSpinEdit.Width+5;
Top:=OIDefaultItemHeightSpinEdit.Top+2;
Width:=OIMiscGroupBox.ClientWidth-Left-5;
Parent:=OIMiscGroupBox;
Caption:=dlgOIItemHeight;
AutoSize:=true;
Parent:=OIMiscGroupBox;
AnchorVerticalCenterTo(OIDefaultItemHeightSpinEdit);
end;
OIShowHintCheckBox:=TCheckBox.Create(Self);
with OIShowHintCheckBox do begin
Name := 'OIShowHintCheckBox';
Left := 6;
Top := 33;
Caption := lisShowHintsInObjectInspector;
Parent := OIMiscGroupBox;
AnchorToNeighbour(akTop,8,OIDefaultItemHeightSpinEdit);
end;
end;