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

using autosizing for project opts

Browse Source 
git-svn-id: trunk@6683 -
This commit is contained in:
mattias 2005-01-25 01:40:10 +00:00
parent 09c5be2da2
commit e58ab4dad1
1 changed files with 6 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/projectopts.pp
View File

@ -171,7 +171,6 @@ begin
end; end;
IDEDialogLayoutList.ApplyLayout(Self, 430, 375); IDEDialogLayoutList.ApplyLayout(Self, 430, 375);
end; end;
procedure TProjectOptionsDialog.SetupApplicationPage; procedure TProjectOptionsDialog.SetupApplicationPage;
@ -244,25 +243,18 @@ end;
procedure TProjectOptionsDialog.SetupFormsPage; procedure TProjectOptionsDialog.SetupFormsPage;
begin begin
NoteBook.Page[1].OnResize:=@OnFormsPageResize;
FormsAutoCreatedLabel:=TLabel.Create(Self); FormsAutoCreatedLabel:=TLabel.Create(Self);
with FormsAutoCreatedLabel do begin with FormsAutoCreatedLabel do begin
Parent:=NoteBook.Page[1]; Parent:=NoteBook.Page[1];
Left:=40; SetBounds(40,4,Width,Height);
Top:=4;
Width:=150;
Height:=23;
Caption:=dlgAutoCreateForms; Caption:=dlgAutoCreateForms;
AutoSize:=true;
end; end;
FormsAutoCreatedListBox:=TListBox.Create(Self); FormsAutoCreatedListBox:=TListBox.Create(Self);
with FormsAutoCreatedListBox do begin with FormsAutoCreatedListBox do begin
Parent:=NoteBook.Page[1]; Parent:=NoteBook.Page[1];
Left:=40; SetBounds(40,28,Width,Height);
Top:=28;
Width:=165;
Height:=228;
MultiSelect:=true; MultiSelect:=true;
end; end;
@ -271,9 +263,8 @@ begin
Parent:=NoteBook.Page[1]; Parent:=NoteBook.Page[1];
Left:=FormsAutoCreatedListBox.Left+FormsAutoCreatedListBox.Width+45; Left:=FormsAutoCreatedListBox.Left+FormsAutoCreatedListBox.Width+45;
Top:=FormsAutoCreatedLabel.Top; Top:=FormsAutoCreatedLabel.Top;
Width:=FormsAutoCreatedLabel.Width;
Height:=FormsAutoCreatedLabel.Height;
Caption:=dlgAvailableForms; Caption:=dlgAvailableForms;
AutoSize:=true;
end; end;
FormsAvailFormsListBox:=TListBox.Create(Self); FormsAvailFormsListBox:=TListBox.Create(Self);
@ -337,10 +328,10 @@ begin
Parent:=NoteBook.Page[1]; Parent:=NoteBook.Page[1];
Left:=FormsAutoCreatedListBox.Left+5; Left:=FormsAutoCreatedListBox.Left+5;
Top:=FormsAutoCreatedListBox.Top+FormsAutoCreatedListBox.Height+5; Top:=FormsAutoCreatedListBox.Top+FormsAutoCreatedListBox.Height+5;
Width:=400;
Height:=25;
Caption:=dlgAutoCreateNewForms; Caption:=dlgAutoCreateNewForms;
end; end;
NoteBook.Page[1].OnResize:=@OnFormsPageResize;
end; end;
procedure TProjectOptionsDialog.SetupMiscPage; procedure TProjectOptionsDialog.SetupMiscPage;