mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-13 15:59:38 +02:00
MG: added form resizes
git-svn-id: trunk@1613 -
This commit is contained in:
lazarus
parent
dd37880074
commit
be0b610692
@ -61,6 +61,7 @@ type
|
||||
BuildExamplesRadioGroup: TRadioGroup;
|
||||
OkButton: TButton;
|
||||
CancelButton: TButton;
|
||||
procedure ConfigureBuildLazarusDlgResize(Sender: TObject);
|
||||
procedure OkButtonClick(Sender: TObject);
|
||||
procedure CancelButtonClick(Sender: TObject);
|
||||
private
|
||||
@ -199,8 +200,11 @@ var MakeMode: TMakeMode;
|
||||
begin
|
||||
inherited Create(AnOwner);
|
||||
if LazarusResources.Find(Classname)=nil then begin
|
||||
SetBounds((Screen.Width-350) div 2,(Screen.Height-320) div 2,350,320);
|
||||
Width:=350;
|
||||
Height:=320;
|
||||
Position:=poScreenCenter;
|
||||
Caption:='Configure "Build Lazarus"';
|
||||
OnResize:=@ConfigureBuildLazarusDlgResize;
|
||||
|
||||
CleanAllCheckBox:=TCheckBox.Create(Self);
|
||||
with CleanAllCheckBox do begin
|
||||
@ -297,6 +301,31 @@ begin
|
||||
end;
|
||||
|
||||
end;
|
||||
ConfigureBuildLazarusDlgResize(nil);
|
||||
end;
|
||||
|
||||
procedure TConfigureBuildLazarusDlg.ConfigureBuildLazarusDlgResize(
|
||||
Sender: TObject);
|
||||
begin
|
||||
CleanAllCheckBox.SetBounds(10,10,Self.ClientWidth-24,20);
|
||||
BuildLCLRadioGroup.SetBounds(10,
|
||||
CleanAllCheckBox.Top+CleanAllCheckBox.Height+5,
|
||||
CleanAllCheckBox.Width,40);
|
||||
BuildSynEditRadioGroup.SetBounds(10,
|
||||
BuildLCLRadioGroup.Top+BuildLCLRadioGroup.Height+5,
|
||||
BuildLCLRadioGroup.Width,BuildLCLRadioGroup.Height);
|
||||
BuildCodeToolsRadioGroup.SetBounds(10,
|
||||
BuildSynEditRadioGroup.Top+BuildSynEditRadioGroup.Height+5,
|
||||
BuildLCLRadioGroup.Width,BuildLCLRadioGroup.Height);
|
||||
BuildIDERadioGroup.SetBounds(10,
|
||||
BuildCodeToolsRadioGroup.Top+BuildCodeToolsRadioGroup.Height+5,
|
||||
BuildLCLRadioGroup.Width,BuildLCLRadioGroup.Height);
|
||||
BuildExamplesRadioGroup.SetBounds(10,
|
||||
BuildIDERadioGroup.Top+BuildIDERadioGroup.Height+5,
|
||||
BuildLCLRadioGroup.Width,BuildLCLRadioGroup.Height);
|
||||
OkButton.SetBounds(Self.ClientWidth-180,Self.ClientHeight-38,80,25);
|
||||
CancelButton.SetBounds(Self.ClientWidth-90,OkButton.Top,
|
||||
OkButton.Width,OkButton.Height);
|
||||
end;
|
||||
|
||||
procedure TConfigureBuildLazarusDlg.OkButtonClick(Sender: TObject);
|
||||
|
||||
@ -25,6 +25,7 @@ type
|
||||
CommentEdit:TEdit;
|
||||
OkButton:TButton;
|
||||
CancelButton:TButton;
|
||||
procedure CodeTemplateEditFormResize(Sender: TObject);
|
||||
procedure OkButtonClick(Sender:TObject);
|
||||
public
|
||||
constructor Create(AOwner:TComponent); override;
|
||||
@ -100,6 +101,7 @@ begin
|
||||
Width:=300;
|
||||
Height:=150;
|
||||
Position:=poScreenCenter;
|
||||
OnResize:=@CodeTemplateEditFormResize;
|
||||
|
||||
TokenLabel:=TLabel.Create(Self);
|
||||
with TokenLabel do begin
|
||||
@ -169,6 +171,46 @@ begin
|
||||
Show;
|
||||
end;
|
||||
end;
|
||||
CodeTemplateEditFormResize(nil);
|
||||
end;
|
||||
|
||||
procedure TCodeTemplateEditForm.CodeTemplateEditFormResize(Sender: TObject);
|
||||
begin
|
||||
with TokenLabel do begin
|
||||
Left:=12;
|
||||
Top:=6;
|
||||
Width:=Self.ClientWidth-Left-Left;
|
||||
end;
|
||||
|
||||
with TokenEdit do begin
|
||||
Left:=10;
|
||||
Top:=TokenLabel.Top+TokenLabel.Height+2;
|
||||
Width:=Self.ClientWidth-Left-Left-4;
|
||||
end;
|
||||
|
||||
with CommentLabel do begin
|
||||
Left:=12;
|
||||
Top:=TokenEdit.Top+TokenEdit.Height+10;
|
||||
Width:=Self.ClientWidth-Left-Left;
|
||||
end;
|
||||
|
||||
with CommentEdit do begin
|
||||
Left:=10;
|
||||
Top:=CommentLabel.Top+CommentLabel.Height+2;
|
||||
Width:=Self.ClientWidth-Left-Left-4;
|
||||
end;
|
||||
|
||||
with OkButton do begin
|
||||
Left:=50;
|
||||
Top:=Self.ClientHeight-Height-12;
|
||||
Width:=80;
|
||||
end;
|
||||
|
||||
with CancelButton do begin
|
||||
Width:=80;
|
||||
Left:=Self.ClientWidth-50-Width;
|
||||
Top:=Self.ClientHeight-Height-12;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCodeTemplateEditForm.OkButtonClick(Sender:TObject);
|
||||
|
||||
@ -160,8 +160,8 @@ type
|
||||
// buttons at bottom
|
||||
OkButton: TButton;
|
||||
CancelButton: TButton;
|
||||
|
||||
procedure FormResize(Sender: TObject);
|
||||
|
||||
procedure CodeToolsOptsDlgResize(Sender: TObject);
|
||||
procedure OkButtonClick(Sender: TObject);
|
||||
procedure CancelButtonClick(Sender: TObject);
|
||||
procedure UpdateExamples(Sender: TObject);
|
||||
@ -172,6 +172,10 @@ type
|
||||
procedure SetupCodeCreationPage;
|
||||
procedure SetupLineSplittingPage;
|
||||
procedure SetupSpacePage;
|
||||
procedure ResizeGeneralPage;
|
||||
procedure ResizeCodeCreationPage;
|
||||
procedure ResizeLineSplittingPage;
|
||||
procedure ResizeSpacePage;
|
||||
procedure CreateAtomCheckBoxes(ParentGroupBox: TGroupBox;
|
||||
AtomTypes: TAtomTypes; Columns: integer);
|
||||
procedure SetAtomCheckBoxes(AtomTypes: TAtomTypes;
|
||||
@ -566,8 +570,11 @@ constructor TCodeToolsOptsDlg.Create(AnOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AnOwner);
|
||||
if LazarusResources.Find(ClassName)=nil then begin
|
||||
SetBounds((Screen.Width-480) div 2,(Screen.Height-430) div 2, 485, 435);
|
||||
Width:=485;
|
||||
Height:=435;
|
||||
Position:=poScreenCenter;
|
||||
Caption:='CodeTools Options';
|
||||
OnResize:=@CodeToolsOptsDlgResize;
|
||||
|
||||
NoteBook:=TNoteBook.Create(Self);
|
||||
with NoteBook do begin
|
||||
@ -614,6 +621,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
BeautifyCodeOptions:=TBeautifyCodeOptions.Create;
|
||||
CodeToolsOptsDlgResize(nil);
|
||||
UpdateExamples(Self);
|
||||
end;
|
||||
|
||||
@ -1004,9 +1012,220 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCodeToolsOptsDlg.FormResize(Sender: TObject);
|
||||
procedure TCodeToolsOptsDlg.ResizeGeneralPage;
|
||||
begin
|
||||
// ToDo
|
||||
with SrcPathGroupBox do begin
|
||||
SetBounds(8,7,Self.ClientWidth-20,51);
|
||||
end;
|
||||
|
||||
with SrcPathEdit do begin
|
||||
SetBounds(5,6,Parent.ClientWidth-14,Height);
|
||||
end;
|
||||
|
||||
with JumpingGroupBox do begin
|
||||
SetBounds(8,SrcPathGroupBox.Top+SrcPathGroupBox.Height+7,
|
||||
SrcPathGroupBox.Width,95);
|
||||
end;
|
||||
|
||||
with AdjustTopLineDueToCommentCheckBox do begin
|
||||
SetBounds(5,6,Parent.ClientWidth-10,Height);
|
||||
end;
|
||||
|
||||
with JumpCenteredCheckBox do begin
|
||||
SetBounds(AdjustTopLineDueToCommentCheckBox.Left,
|
||||
AdjustTopLineDueToCommentCheckBox.Top+2
|
||||
+AdjustTopLineDueToCommentCheckBox.Height,
|
||||
AdjustTopLineDueToCommentCheckBox.Width,Height);
|
||||
end;
|
||||
|
||||
with CursorBeyondEOLCheckBox do begin
|
||||
SetBounds(JumpCenteredCheckBox.Left,
|
||||
JumpCenteredCheckBox.Top+JumpCenteredCheckBox.Height+2,
|
||||
JumpCenteredCheckBox.Width,Height);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCodeToolsOptsDlg.ResizeCodeCreationPage;
|
||||
begin
|
||||
with ClassPartInsertPolicyRadioGroup do begin
|
||||
SetBounds(8,6,
|
||||
(Self.ClientWidth div 2)-12,80);
|
||||
end;
|
||||
|
||||
with MethodInsertPolicyRadioGroup do begin
|
||||
SetBounds(ClassPartInsertPolicyRadioGroup.Left
|
||||
+ClassPartInsertPolicyRadioGroup.Width+8,
|
||||
ClassPartInsertPolicyRadioGroup.Top,
|
||||
ClassPartInsertPolicyRadioGroup.Width,
|
||||
ClassPartInsertPolicyRadioGroup.Height);
|
||||
end;
|
||||
|
||||
with KeyWordPolicyRadioGroup do begin
|
||||
SetBounds(ClassPartInsertPolicyRadioGroup.Left,
|
||||
ClassPartInsertPolicyRadioGroup.Top
|
||||
+ClassPartInsertPolicyRadioGroup.Height+7,
|
||||
(Self.ClientWidth div 2)-12,100);
|
||||
end;
|
||||
|
||||
with IdentifierPolicyRadioGroup do begin
|
||||
SetBounds(KeyWordPolicyRadioGroup.Left+KeyWordPolicyRadioGroup.Width+8,
|
||||
KeyWordPolicyRadioGroup.Top,
|
||||
KeyWordPolicyRadioGroup.Width,KeyWordPolicyRadioGroup.Height);
|
||||
end;
|
||||
|
||||
with PropertyCompletionGroupBox do begin
|
||||
SetBounds(KeyWordPolicyRadioGroup.Left,
|
||||
KeyWordPolicyRadioGroup.Top+KeyWordPolicyRadioGroup.Height+7,
|
||||
Self.ClientWidth-20,125);
|
||||
end;
|
||||
|
||||
with PropertyCompletionCheckBox do begin
|
||||
SetBounds(6,5,200,Height);
|
||||
end;
|
||||
|
||||
with PropertyReadIdentPrefixLabel do begin
|
||||
SetBounds(PropertyCompletionCheckBox.Left,
|
||||
PropertyCompletionCheckBox.Top+PropertyCompletionCheckBox.Height+5,
|
||||
100,Height);
|
||||
end;
|
||||
|
||||
with PropertyReadIdentPrefixEdit do begin
|
||||
SetBounds(110,PropertyReadIdentPrefixLabel.Top,80,Height);
|
||||
end;
|
||||
|
||||
with PropertyWriteIdentPrefixLabel do begin
|
||||
SetBounds(6,PropertyReadIdentPrefixLabel.Top
|
||||
+PropertyReadIdentPrefixLabel.Height+5,
|
||||
PropertyReadIdentPrefixLabel.Width,Height);
|
||||
end;
|
||||
|
||||
with PropertyWriteIdentPrefixEdit do begin
|
||||
SetBounds(PropertyReadIdentPrefixEdit.Left,
|
||||
PropertyWriteIdentPrefixLabel.Top,80,Height);
|
||||
end;
|
||||
|
||||
with PropertyStoredIdentPostfixLabel do begin
|
||||
SetBounds(6,PropertyWriteIdentPrefixLabel.Top
|
||||
+PropertyWriteIdentPrefixLabel.Height+5,
|
||||
PropertyReadIdentPrefixLabel.Width,Height);
|
||||
end;
|
||||
|
||||
with PropertyStoredIdentPostfixEdit do begin
|
||||
SetBounds(PropertyReadIdentPrefixEdit.Left,
|
||||
PropertyStoredIdentPostfixLabel.Top,80,Height);
|
||||
end;
|
||||
|
||||
with PrivatVariablePrefixLabel do begin
|
||||
SetBounds((PropertyCompletionGroupBox.ClientWidth-20) div 2,
|
||||
PropertyReadIdentPrefixLabel.Top,120,Height);
|
||||
end;
|
||||
|
||||
with PrivatVariablePrefixEdit do begin
|
||||
SetBounds(PrivatVariablePrefixLabel.Left+150,PrivatVariablePrefixLabel.Top,
|
||||
80,Height);
|
||||
end;
|
||||
|
||||
with SetPropertyVariablenameLabel do begin
|
||||
SetBounds(PrivatVariablePrefixLabel.Left,
|
||||
PrivatVariablePrefixLabel.Top+PrivatVariablePrefixLabel.Height+5,
|
||||
120,Height);
|
||||
end;
|
||||
|
||||
with SetPropertyVariablenameEdit do begin
|
||||
SetBounds(PrivatVariablePrefixEdit.Left,
|
||||
PrivatVariablePrefixLabel.Top+PrivatVariablePrefixLabel.Height+5,
|
||||
80,Height);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCodeToolsOptsDlg.ResizeLineSplittingPage;
|
||||
begin
|
||||
with LineLengthLabel do begin
|
||||
SetBounds(8,7,Canvas.TextWidth('Max line length: '),Height);
|
||||
end;
|
||||
|
||||
with LineLengthEdit do begin
|
||||
Left:=LineLengthLabel.Left+LineLengthLabel.Width+5;
|
||||
Top:=LineLengthLabel.Top-2;
|
||||
Width:=50;
|
||||
end;
|
||||
|
||||
with DoNotSplitLineInFrontGroupBox do begin
|
||||
SetBounds(6,LineLengthLabel.Top+LineLengthLabel.Height+7,
|
||||
(Self.ClientWidth-24) div 2,150);
|
||||
end;
|
||||
|
||||
with DoNotSplitLineAfterGroupBox do begin
|
||||
SetBounds(DoNotSplitLineInFrontGroupBox.Left,
|
||||
DoNotSplitLineInFrontGroupBox.Top+DoNotSplitLineInFrontGroupBox.Height+7,
|
||||
DoNotSplitLineInFrontGroupBox.Width,
|
||||
DoNotSplitLineInFrontGroupBox.Height);
|
||||
end;
|
||||
|
||||
with SplitPreviewGroupBox do begin
|
||||
Left:=DoNotSplitLineInFrontGroupBox.Left
|
||||
+DoNotSplitLineInFrontGroupBox.Width+8;
|
||||
Top:=LineLengthLabel.Top;
|
||||
Width:=Self.ClientWidth-10-Left;
|
||||
Height:=Self.ClientHeight-92-Top;
|
||||
end;
|
||||
|
||||
with SplitPreviewSynEdit do begin
|
||||
SetBounds(2,2,Parent.ClientWidth-8,Parent.ClientHeight-25);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCodeToolsOptsDlg.ResizeSpacePage;
|
||||
begin
|
||||
with DoInsertSpaceInFrontGroupBox do begin
|
||||
SetBounds(6,6,
|
||||
(Self.ClientWidth-24) div 2,150);
|
||||
end;
|
||||
|
||||
with DoInsertSpaceAfterGroupBox do begin
|
||||
SetBounds(DoInsertSpaceInFrontGroupBox.Left
|
||||
+DoInsertSpaceInFrontGroupBox.Width+8,
|
||||
DoInsertSpaceInFrontGroupBox.Top,
|
||||
DoInsertSpaceInFrontGroupBox.Width,
|
||||
DoInsertSpaceInFrontGroupBox.Height);
|
||||
end;
|
||||
|
||||
with SpacePreviewGroupBox do begin
|
||||
Left:=DoInsertSpaceInFrontGroupBox.Left;
|
||||
Top:=DoInsertSpaceInFrontGroupBox.Top+DoInsertSpaceInFrontGroupBox.Height+7;
|
||||
Width:=Self.ClientWidth-10-Left;
|
||||
Height:=Self.ClientHeight-92-Top;
|
||||
end;
|
||||
|
||||
with SpacePreviewSynEdit do begin
|
||||
SetBounds(2,2,Parent.ClientWidth-8,Parent.ClientHeight-25);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCodeToolsOptsDlg.CodeToolsOptsDlgResize(Sender: TObject);
|
||||
begin
|
||||
with NoteBook do begin
|
||||
SetBounds(0,0,Self.ClientWidth,Self.ClientHeight-50);
|
||||
end;
|
||||
|
||||
ResizeGeneralPage;
|
||||
ResizeCodeCreationPage;
|
||||
ResizeLineSplittingPage;
|
||||
ResizeSpacePage;
|
||||
|
||||
with CancelButton do begin
|
||||
Width:=70;
|
||||
Height:=23;
|
||||
Left:=Self.ClientWidth-Width-15;
|
||||
Top:=Self.ClientHeight-Height-15;
|
||||
end;
|
||||
|
||||
with OkButton do begin
|
||||
Width:=CancelButton.Width;
|
||||
Height:=CancelButton.Height;
|
||||
Left:=CancelButton.Left-15-Width;
|
||||
Top:=CancelButton.Top;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCodeToolsOptsDlg.CreateAtomCheckBoxes(ParentGroupBox: TGroupBox;
|
||||
|
||||
@ -90,6 +90,7 @@ type
|
||||
MoveDownButton: TButton;
|
||||
OkButton: TButton;
|
||||
CancelButton: TButton;
|
||||
procedure ExternalToolDialogResize(Sender: TObject);
|
||||
procedure OkButtonClick(Sender: TObject);
|
||||
procedure CancelButtonClick(Sender: TObject);
|
||||
procedure AddButtonClick(Sender: TObject);
|
||||
@ -394,10 +395,12 @@ constructor TExternalToolDialog.Create(AnOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AnOwner);
|
||||
if LazarusResources.Find(ClassName)=nil then begin
|
||||
|
||||
Width:=400;
|
||||
Height:=400;
|
||||
Position:=poScreenCenter;
|
||||
Caption:='External Tools';
|
||||
SetBounds((Screen.Width-400) div 2,(Screen.Height-400) div 2,400,400);
|
||||
|
||||
OnResize:=@ExternalToolDialogResize;
|
||||
|
||||
Listbox:=TListbox.Create(Self);
|
||||
with Listbox do begin
|
||||
Name:='Listbox';
|
||||
@ -481,6 +484,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
fExtToolList:=TExternalToolList.Create;
|
||||
ExternalToolDialogResize(nil);
|
||||
end;
|
||||
|
||||
destructor TExternalToolDialog.Destroy;
|
||||
@ -489,6 +493,44 @@ begin
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TExternalToolDialog.ExternalToolDialogResize(Sender: TObject);
|
||||
begin
|
||||
with Listbox do begin
|
||||
SetBounds(5,5,Self.ClientWidth-120,Self.Clientheight-60);
|
||||
end;
|
||||
|
||||
with AddButton do begin
|
||||
SetBounds(Self.ClientWidth-100,5,80,25);
|
||||
end;
|
||||
|
||||
with RemoveButton do begin
|
||||
SetBounds(Self.ClientWidth-100,AddButton.Top+AddButton.Height+10,80,25);
|
||||
end;
|
||||
|
||||
with EditButton do begin
|
||||
SetBounds(Self.ClientWidth-100,RemoveButton.Top+RemoveButton.Height+10,
|
||||
80,25);
|
||||
end;
|
||||
|
||||
with MoveUpButton do begin
|
||||
SetBounds(Self.ClientWidth-100,EditButton.Top+EditButton.Height+50,
|
||||
80,25);
|
||||
end;
|
||||
|
||||
with MoveDownButton do begin
|
||||
SetBounds(Self.ClientWidth-100,MoveUpButton.Top+MoveUpButton.Height+10,
|
||||
80,25);
|
||||
end;
|
||||
|
||||
with OkButton do begin
|
||||
SetBounds(Self.ClientWidth-200, Self.ClientHeight-40,80,25);
|
||||
end;
|
||||
|
||||
with CancelButton do begin
|
||||
SetBounds(Self.ClientWidth-100, Self.ClientHeight-40,80,25);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TExternalToolDialog.OkButtonClick(Sender: TObject);
|
||||
begin
|
||||
ModalResult:=mrOk;
|
||||
|
||||
@ -105,6 +105,7 @@ type
|
||||
OkButton: TButton;
|
||||
CancelButton: TButton;
|
||||
procedure CancelButtonClick(Sender: TObject);
|
||||
procedure ExternalToolOptionDlgResize(Sender: TObject);
|
||||
procedure OkButtonClick(Sender: TObject);
|
||||
procedure FormKeyUp(Sender: TObject; var Key: Word; Shift:TShiftState);
|
||||
procedure KeyGrabButtonClick(Sender: TObject);
|
||||
@ -251,9 +252,11 @@ begin
|
||||
inherited Create(AnOwner);
|
||||
GrabbingKey:=0;
|
||||
if LazarusResources.Find(ClassName)=nil then begin
|
||||
|
||||
Width:=560;
|
||||
Height:=450;
|
||||
Caption:='Edit Tool';
|
||||
SetBounds((Screen.Width-560) div 2,(Screen.Height-450) div 2,560,450);
|
||||
Position:=poScreenCenter;
|
||||
OnResize:=@ExternalToolOptionDlgResize;
|
||||
OnKeyUp:=@FormKeyUp;
|
||||
|
||||
TitleLabel:=TLabel.Create(Self);
|
||||
@ -499,6 +502,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
fOptions:=TExternalToolOptions.Create;
|
||||
ExternalToolOptionDlgResize(nil);
|
||||
end;
|
||||
|
||||
destructor TExternalToolOptionDlg.Destroy;
|
||||
@ -559,6 +563,132 @@ begin
|
||||
ModalResult:=mrCancel;
|
||||
end;
|
||||
|
||||
procedure TExternalToolOptionDlg.ExternalToolOptionDlgResize(Sender: TObject);
|
||||
begin
|
||||
with TitleLabel do begin
|
||||
SetBounds(5,5,110,22);
|
||||
end;
|
||||
|
||||
with TitleEdit do begin
|
||||
Left:=TitleLabel.Left+TitleLabel.Width+5;
|
||||
Top:=TitleLabel.Top+2;
|
||||
Width:=Self.ClientWidth-Left-10;
|
||||
Height:=25;
|
||||
end;
|
||||
|
||||
with FilenameLabel do begin
|
||||
SetBounds(TitleLabel.Left,TitleLabel.Top+TitleLabel.Height+10,
|
||||
TitleLabel.Width,TitleLabel.Height);
|
||||
end;
|
||||
|
||||
with FilenameEdit do begin
|
||||
SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width,
|
||||
TitleEdit.Height);
|
||||
end;
|
||||
|
||||
with ParametersLabel do begin
|
||||
SetBounds(FilenameLabel.Left,FilenameLabel.Top+FilenameLabel.Height+10,
|
||||
FilenameLabel.Width,FilenameLabel.Height);
|
||||
end;
|
||||
|
||||
with ParametersEdit do begin
|
||||
SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,FilenameEdit.Width,
|
||||
FilenameEdit.Height);
|
||||
end;
|
||||
|
||||
with WorkingDirLabel do begin
|
||||
SetBounds(ParametersLabel.Left,
|
||||
ParametersLabel.Top+ParametersLabel.Height+10,ParametersLabel.Width,
|
||||
ParametersLabel.Height);
|
||||
end;
|
||||
|
||||
with WorkingDirEdit do begin
|
||||
SetBounds(ParametersEdit.Left,WorkingDirLabel.Top+2,ParametersEdit.Width,
|
||||
ParametersEdit.Height);
|
||||
end;
|
||||
|
||||
with OptionsGroupBox do begin
|
||||
Left:=5;
|
||||
Top:=WorkingDirLabel.Top+WorkingDirLabel.Height+12;
|
||||
Width:=Self.ClientWidth-Left-Left;
|
||||
Height:=66;
|
||||
end;
|
||||
|
||||
with OptionScanOutputForFPCMessagesCheckBox do begin
|
||||
SetBounds(5,2,400,20);
|
||||
end;
|
||||
|
||||
with OptionScanOutputForMakeMessagesCheckBox do begin
|
||||
SetBounds(5,OptionScanOutputForFPCMessagesCheckBox.Top
|
||||
+OptionScanOutputForFPCMessagesCheckBox.Height+4,400,20);
|
||||
end;
|
||||
|
||||
with KeyGroupBox do begin
|
||||
Left:=5;
|
||||
Top:=OptionsGroupBox.Top+OptionsGroupBox.Height+12;
|
||||
Width:=Self.ClientWidth-Left-Left;
|
||||
Height:=50;
|
||||
end;
|
||||
|
||||
with KeyCtrlCheckBox do begin
|
||||
Left:=5;
|
||||
Top:=2;
|
||||
Width:=45;
|
||||
Height:=20;
|
||||
end;
|
||||
|
||||
with KeyAltCheckBox do begin
|
||||
Left:=KeyCtrlCheckBox.Left+KeyCtrlCheckBox.Width+5;
|
||||
Top:=KeyCtrlCheckBox.Top;
|
||||
Height:=20;
|
||||
Width:=KeyCtrlCheckBox.Width;
|
||||
end;
|
||||
|
||||
with KeyShiftCheckBox do begin
|
||||
Left:=KeyAltCheckBox.Left+KeyAltCheckBox.Width+5;
|
||||
Top:=KeyCtrlCheckBox.Top;
|
||||
Height:=20;
|
||||
Width:=KeyCtrlCheckBox.Width;
|
||||
end;
|
||||
|
||||
with KeyComboBox do begin
|
||||
Left:=KeyShiftCheckBox.Left+KeyShiftCheckBox.Width+5;
|
||||
Top:=KeyCtrlCheckBox.Top;
|
||||
Width:=190;
|
||||
end;
|
||||
|
||||
with KeyGrabButton do begin
|
||||
Left:=KeyComboBox.Left+KeyComboBox.Width+5;
|
||||
Top:=KeyCtrlCheckBox.Top;
|
||||
Width:=100;
|
||||
Height:=25;
|
||||
end;
|
||||
|
||||
with MacrosGroupbox do begin
|
||||
Left:=KeyGroupBox.Left;
|
||||
Top:=KeyGroupBox.Top+KeyGroupBox.Height+10;
|
||||
Width:=KeyGroupBox.Width;
|
||||
Height:=Self.ClientHeight-50-Top;
|
||||
end;
|
||||
|
||||
with MacrosListbox do begin
|
||||
SetBounds(5,5,MacrosGroupbox.ClientWidth-120,
|
||||
MacrosGroupbox.ClientHeight-30);
|
||||
end;
|
||||
|
||||
with MacrosInsertButton do begin
|
||||
SetBounds(MacrosGroupbox.ClientWidth-90,5,70,25);
|
||||
end;
|
||||
|
||||
with OkButton do begin
|
||||
SetBounds(270,Self.ClientHeight-40,100,25);
|
||||
end;
|
||||
|
||||
with CancelButton do begin
|
||||
SetBounds(390,OkButton.Top,100,25);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TExternalToolOptionDlg.KeyGrabButtonClick(Sender: TObject);
|
||||
begin
|
||||
ActivateGrabbing(1);
|
||||
|
||||
@ -12,16 +12,6 @@
|
||||
|
||||
Abstract:
|
||||
Find in files dialog form.
|
||||
Usage:
|
||||
Add to program
|
||||
"Application.CreateForm(TLazFindInFilesDialog, FindInFilesDlg);"
|
||||
Set the FindInFilesDlg.Options poperty
|
||||
then do MResult:=FindInFilesDlg.ShowModal
|
||||
ShowModal can have three possible results:
|
||||
- mrOk for Find in files.
|
||||
- mrCancel for Cancel
|
||||
|
||||
ToDo:
|
||||
|
||||
}
|
||||
unit FindInFilesDlg;
|
||||
@ -36,8 +26,6 @@ uses
|
||||
|
||||
type
|
||||
TLazFindInFilesDialog = class(TForm)
|
||||
private
|
||||
published
|
||||
TextToFindLabel: TLabel;
|
||||
TextToFindEdit: TEdit;
|
||||
OptionsGroupBox: TGroupBox;
|
||||
@ -54,6 +42,7 @@ type
|
||||
IncludeSubDirsCheckBox: TCheckBox;
|
||||
OkButton: TButton;
|
||||
CancelButton: TButton;
|
||||
procedure LazFindInFilesDialogResize(Sender: TObject);
|
||||
procedure OkButtonClick(Sender: TObject);
|
||||
procedure CancelButtonClick(Sender: TObject);
|
||||
public
|
||||
@ -73,8 +62,11 @@ begin
|
||||
inherited Create(AOwner);
|
||||
if LazarusResources.Find(ClassName)=nil then begin
|
||||
Caption:='Find in files';
|
||||
SetBounds((Screen.Width-320) div 2,(Screen.Height-430) div 2,320,430);
|
||||
|
||||
Width:=320;
|
||||
Height:=430;
|
||||
Position:=poScreenCenter;
|
||||
OnResize:=@LazFindInFilesDialogResize;
|
||||
|
||||
TextToFindLabel:=TLabel.Create(Self);
|
||||
with TextToFindLabel do begin
|
||||
Name:='TextToFindLabel';
|
||||
@ -239,6 +231,89 @@ begin
|
||||
Visible:=true;
|
||||
end;
|
||||
end;
|
||||
LazFindInFilesDialogResize(nil);
|
||||
end;
|
||||
|
||||
procedure TLazFindInFilesDialog.LazFindInFilesDialogResize(Sender: TObject);
|
||||
begin
|
||||
with TextToFindLabel do begin
|
||||
SetBounds(8,8,80,Height);
|
||||
end;
|
||||
|
||||
with TextToFindEdit do begin
|
||||
SetBounds(TextToFindLabel.Left+TextToFindLabel.Width+5,
|
||||
TextToFindLabel.Top-2,
|
||||
Self.ClientWidth-TextToFindLabel.Left-TextToFindLabel.Width-13,
|
||||
Height);
|
||||
end;
|
||||
|
||||
with OptionsGroupBox do begin
|
||||
SetBounds(8,TextToFindLabel.Top+TextToFindLabel.Height+10,
|
||||
Self.ClientWidth-20,95);
|
||||
end;
|
||||
|
||||
with CaseSensitiveCheckBox do begin
|
||||
SetBounds(8,2,OptionsGroupBox.ClientWidth-20,20);
|
||||
end;
|
||||
|
||||
with WholeWordsOnlyCheckBox do begin
|
||||
SetBounds(CaseSensitiveCheckBox.Left,
|
||||
CaseSensitiveCheckBox.Top+CaseSensitiveCheckBox.Height+5,
|
||||
CaseSensitiveCheckBox.Width,20);
|
||||
end;
|
||||
|
||||
with RegularExpressionsCheckBox do begin
|
||||
SetBounds(CaseSensitiveCheckBox.Left,
|
||||
WholeWordsOnlyCheckBox.Top+WholeWordsOnlyCheckBox.Height+5,
|
||||
CaseSensitiveCheckBox.Width,20);
|
||||
end;
|
||||
|
||||
with WhereRadioGroup do begin
|
||||
SetBounds(8,OptionsGroupBox.Top+OptionsGroupBox.Height+10,
|
||||
Self.ClientWidth-20,90);
|
||||
end;
|
||||
|
||||
with DirectoryOptionsGroupBox do begin
|
||||
SetBounds(8,WhereRadioGroup.Top+WhereRadioGroup.Height+10,
|
||||
Self.ClientWidth-20,135);
|
||||
end;
|
||||
|
||||
with DirectoryLabel do begin
|
||||
SetBounds(8,5,80,Height);
|
||||
end;
|
||||
|
||||
with DirectoryComboBox do begin
|
||||
Left:=DirectoryLabel.Left+DirectoryLabel.Width+5;
|
||||
Top:=DirectoryLabel.Top-2;
|
||||
Width:=Parent.ClientWidth-Left-8-25-5;
|
||||
end;
|
||||
|
||||
with DirectoryBrowse do begin
|
||||
SetBounds(DirectoryComboBox.Left+DirectoryComboBox.Width+5,
|
||||
DirectoryComboBox.Top,25,25);
|
||||
end;
|
||||
|
||||
with FileMaskLabel do begin
|
||||
SetBounds(8,DirectoryComboBox.Top+DirectoryComboBox.Height+5,200,Height);
|
||||
end;
|
||||
|
||||
with FileMaskComboBox do begin
|
||||
SetBounds(FileMaskLabel.Left, FileMaskLabel.Top+FileMaskLabel.Height+3,
|
||||
Self.ClientWidth-20-5-25,Height);
|
||||
end;
|
||||
|
||||
with IncludeSubDirsCheckBox do begin
|
||||
SetBounds(8,FileMaskComboBox.Top+FileMaskComboBox.Height+10,
|
||||
150,Height);
|
||||
end;
|
||||
|
||||
with OkButton do begin
|
||||
SetBounds(Self.ClientWidth-200,Self.ClientHeight-40,80,Height);
|
||||
end;
|
||||
|
||||
with CancelButton do begin
|
||||
SetBounds(Self.ClientWidth-100,Self.ClientHeight-40,80,Height);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TLazFindInFilesDialog.OkButtonClick(Sender: TObject);
|
||||
|
||||
@ -37,6 +37,7 @@ type
|
||||
DataEdit: TEdit;
|
||||
OkButton: TButton;
|
||||
CancelButton: TButton;
|
||||
procedure MacroPrompDialogResize(Sender: TObject);
|
||||
procedure OkButtonClick(Sender: TObject);
|
||||
procedure CancelButtonClick(Sender: TObject);
|
||||
procedure DataEditKeyDown(Sender: TObject; var Key:Word; Shift:TShiftState);
|
||||
@ -72,10 +73,12 @@ constructor TMacroPrompDialog.Create(AnOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AnOwner);
|
||||
if LazarusResources.Find(ClassName)=nil then begin
|
||||
|
||||
Width:=300;
|
||||
Height:=150;
|
||||
Position:=poScreenCenter;
|
||||
Caption:='Enter data';
|
||||
SetBounds((Screen.Width-300) div 2,(Screen.Height-150) div 2,300,150);
|
||||
|
||||
OnResize:=@MacroPrompDialogResize;
|
||||
|
||||
NoteLabel:=TLabel.Create(Self);
|
||||
with NoteLabel do begin
|
||||
Name:='NoteLabel';
|
||||
@ -115,9 +118,29 @@ begin
|
||||
end;
|
||||
|
||||
end;
|
||||
MacroPrompDialogResize(nil);
|
||||
DataEdit.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TMacroPrompDialog.MacroPrompDialogResize(Sender: TObject);
|
||||
begin
|
||||
with NoteLabel do begin
|
||||
SetBounds(8,8,200,25);
|
||||
end;
|
||||
|
||||
with DataEdit do begin
|
||||
SetBounds(8,NoteLabel.Top+NoteLabel.Height+5,Self.ClientWidth-20,25);
|
||||
end;
|
||||
|
||||
with OkButton do begin
|
||||
SetBounds(Self.ClientWidth-200,Self.ClientHeight-40,80,25);
|
||||
end;
|
||||
|
||||
with CancelButton do begin
|
||||
SetBounds(Self.ClientWidth-100,Self.ClientHeight-40,80,25);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMacroPrompDialog.OkButtonClick(Sender: TObject);
|
||||
begin
|
||||
ModalResult:=mrOk;
|
||||
|
||||
@ -25,6 +25,7 @@ type
|
||||
procedure CancelButtonClick(Sender:TObject);
|
||||
procedure ListBoxMouseUp(Sender:TObject;
|
||||
Button:TMouseButton; Shift:TShiftState; X,Y:integer);
|
||||
procedure NewProjectDialogResize(Sender: TObject);
|
||||
private
|
||||
procedure FillHelpLabel;
|
||||
public
|
||||
@ -64,8 +65,11 @@ var pt:TProjectType;
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
if LazarusResources.Find(ClassName)=nil then begin
|
||||
SetBounds((Screen.Width-300) div 2,(Screen.Height-250) div 2,390,240);
|
||||
Width:=390;
|
||||
Height:=240;
|
||||
Position:=poScreenCenter;
|
||||
Caption:='Create a new project';
|
||||
OnResize:=@NewProjectDialogResize;
|
||||
MaxX:=386;
|
||||
MaxY:=238;
|
||||
|
||||
@ -128,6 +132,7 @@ begin
|
||||
end;
|
||||
|
||||
end;
|
||||
NewProjectDialogResize(nil);
|
||||
FillHelpLabel;
|
||||
end;
|
||||
|
||||
@ -161,4 +166,40 @@ begin
|
||||
FillHelpLabel;
|
||||
end;
|
||||
|
||||
procedure TNewProjectDialog.NewProjectDialogResize(Sender: TObject);
|
||||
var
|
||||
MaxX, MaxY:integer;
|
||||
begin
|
||||
MaxX:=ClientWidth;
|
||||
MaxY:=ClientHeight;
|
||||
|
||||
with ListBox do begin
|
||||
Left:=5;
|
||||
Top:=5;
|
||||
Width:=MaxX-200;
|
||||
Height:=MaxY-50;
|
||||
end;
|
||||
|
||||
with HelpLabel do begin
|
||||
Left:=ListBox.Left+ListBox.Width+10;
|
||||
Top:=ListBox.Top+2;
|
||||
Width:=MaxX-5-Left;
|
||||
Height:=ListBox.Height-2;
|
||||
end;
|
||||
|
||||
with CreateButton do begin
|
||||
Width:=80;
|
||||
Height:=23;
|
||||
Left:=Self.ClientWidth-Width*2-2*15;
|
||||
Top:=Self.ClientHeight-40;
|
||||
end;
|
||||
|
||||
with CancelButton do begin
|
||||
Width:=80;
|
||||
Height:=23;
|
||||
Left:=Self.ClientWidth-Width-15;
|
||||
Top:=CreateButton.Top;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -67,12 +67,16 @@ type
|
||||
procedure FormsRemoveFromAutoCreatedFormsBtnClick(Sender: TObject);
|
||||
procedure FormsMoveAutoCreatedFormUpBtnClick(Sender: TObject);
|
||||
procedure FormsMoveAutoCreatedFormDownBtnClick(Sender: TObject);
|
||||
procedure ProjectOptionsDialogResize(Sender: TObject);
|
||||
private
|
||||
FProject: TProject;
|
||||
procedure SetProject(AProject: TProject);
|
||||
procedure SetupApplicationPage;
|
||||
procedure SetupFormsPage;
|
||||
procedure SetupInfoPage;
|
||||
procedure ResizeApplicationPage;
|
||||
procedure ResizeFormsPage;
|
||||
procedure ResizeInfoPage;
|
||||
procedure FillAutoCreateFormsListbox;
|
||||
procedure FillAvailFormsListBox;
|
||||
function IndexOfAutoCreateForm(FormName: string): integer;
|
||||
@ -113,7 +117,10 @@ constructor TProjectOptionsDialog.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
if LazarusResources.Find(ClassName)=nil then begin
|
||||
SetBounds((Screen.Width-440) div 2,(Screen.Height-385) div 2,430,375);
|
||||
Width:=430;
|
||||
Height:=375;
|
||||
Position:=poScreenCenter;
|
||||
OnResize:=@ProjectOptionsDialogResize;
|
||||
Caption:='Project Options';
|
||||
|
||||
NoteBook:=TNoteBook.Create(Self);
|
||||
@ -157,6 +164,7 @@ begin
|
||||
Show;
|
||||
end;
|
||||
end;
|
||||
ProjectOptionsDialogResize(nil);
|
||||
end;
|
||||
|
||||
procedure TProjectOptionsDialog.SetupApplicationPage;
|
||||
@ -380,6 +388,140 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TProjectOptionsDialog.ResizeApplicationPage;
|
||||
var MaxX:integer;
|
||||
begin
|
||||
MaxX:=ClientWidth-5;
|
||||
|
||||
with AppSettingsGroupBox do begin
|
||||
Left:=5;
|
||||
Top:=5;
|
||||
Width:=MaxX-2*Left;
|
||||
Height:=60;
|
||||
end;
|
||||
|
||||
with TitleLabel do begin
|
||||
Left:=5;
|
||||
Top:=1;
|
||||
Width:=50;
|
||||
Height:=23;
|
||||
end;
|
||||
|
||||
with TitleEdit do begin
|
||||
Left:=TitleLabel.Left+TitleLabel.Width+2;
|
||||
Top:=TitleLabel.Top+4;
|
||||
Width:=AppSettingsGroupBox.ClientWidth-Left-10;
|
||||
end;
|
||||
|
||||
with OutputSettingsGroupBox do begin
|
||||
Left:=AppSettingsGroupBox.Left;
|
||||
Top:=AppSettingsGroupBox.Top+AppSettingsGroupBox.Height+5;
|
||||
Width:=AppSettingsGroupBox.Width;
|
||||
Height:=60;
|
||||
end;
|
||||
|
||||
with TargetFileLabel do begin
|
||||
Left:=5;
|
||||
Top:=1;
|
||||
Width:=100;
|
||||
Height:=23;
|
||||
end;
|
||||
|
||||
with TargetFileEdit do begin
|
||||
Left:=TargetFileLabel.Left+TargetFileLabel.Width+5;
|
||||
Top:=TargetFileLabel.Top+4;
|
||||
Width:=OutputSettingsGroupBox.Width-Left-10;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TProjectOptionsDialog.ResizeFormsPage;
|
||||
var MaxX, MaxY, ListBoxWidth, ListBoxHeight: integer;
|
||||
begin
|
||||
MaxX:=ClientWidth-8;
|
||||
MaxY:=ClientHeight-75;
|
||||
ListBoxWidth:=(MaxX-95) div 2;
|
||||
ListBoxHeight:=MaxY-70;
|
||||
|
||||
with FormsAutoCreatedLabel do begin
|
||||
Left:=40;
|
||||
Top:=1;
|
||||
Width:=190;
|
||||
end;
|
||||
|
||||
with FormsAutoCreatedListBox do begin
|
||||
Left:=FormsAutoCreatedLabel.Left;
|
||||
Top:=FormsAutoCreatedLabel.Top+FormsAutoCreatedLabel.Height+3;
|
||||
Width:=ListBoxWidth;
|
||||
Height:=ListBoxHeight;
|
||||
end;
|
||||
|
||||
with FormsAvailFormsLabel do begin
|
||||
Left:=FormsAutoCreatedListBox.Left+FormsAutoCreatedListBox.Width+45;
|
||||
Top:=FormsAutoCreatedLabel.Top;
|
||||
Width:=FormsAutoCreatedLabel.Width;
|
||||
Height:=FormsAutoCreatedLabel.Height;
|
||||
end;
|
||||
|
||||
with FormsAvailFormsListBox do begin
|
||||
Left:=FormsAvailFormsLabel.Left;
|
||||
Top:=FormsAutoCreatedListBox.Top;
|
||||
Width:=FormsAutoCreatedListBox.Width;
|
||||
Height:=FormsAutoCreatedListBox.Height;
|
||||
end;
|
||||
|
||||
with FormsAddToAutoCreatedFormsBtn do begin
|
||||
Left:=FormsAutoCreatedListBox.Left+FormsAutoCreatedListBox.Width+10;
|
||||
Top:=FormsAutoCreatedListBox.Top+80;
|
||||
Width:=25;
|
||||
Height:=25;
|
||||
end;
|
||||
|
||||
with FormsRemoveFromAutoCreatedFormsBtn do begin
|
||||
Left:=FormsAddToAutoCreatedFormsBtn.Left;
|
||||
Top:=FormsAddToAutoCreatedFormsBtn.Top
|
||||
+FormsAddToAutoCreatedFormsBtn.Height+10;
|
||||
Width:=25;
|
||||
Height:=25;
|
||||
end;
|
||||
|
||||
with FormsMoveAutoCreatedFormUpBtn do begin
|
||||
Left:=FormsAutoCreatedListBox.Left-35;
|
||||
Top:=FormsAutoCreatedListBox.Top+80;
|
||||
Width:=25;
|
||||
Height:=25;
|
||||
end;
|
||||
|
||||
with FormsMoveAutoCreatedFormDownBtn do begin
|
||||
Left:=FormsMoveAutoCreatedFormUpBtn.Left;
|
||||
Top:=FormsMoveAutoCreatedFormUpBtn.Top
|
||||
+FormsMoveAutoCreatedFormUpBtn.Height+10;
|
||||
Width:=25;
|
||||
Height:=25;
|
||||
end;
|
||||
|
||||
with FormsAutoCreateNewFormsCheckBox do begin
|
||||
Left:=FormsMoveAutoCreatedFormUpBtn.Left;
|
||||
Top:=FormsAutoCreatedListBox.Top+FormsAutoCreatedListBox.Height+5;
|
||||
Width:=200;
|
||||
Height:=25;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TProjectOptionsDialog.ResizeInfoPage;
|
||||
begin
|
||||
with SaveClosedUnitInfoCheckBox do begin
|
||||
Left:=10;
|
||||
Top:=10;
|
||||
Width:=250;
|
||||
end;
|
||||
|
||||
with SaveOnlyProjectUnitInfoCheckBox do begin
|
||||
Left:=SaveClosedUnitInfoCheckBox.Left;
|
||||
Top:=SaveClosedUnitInfoCheckBox.Top+SaveClosedUnitInfoCheckBox.Height+10;
|
||||
Width:=SaveClosedUnitInfoCheckBox.Width;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TProjectOptionsDialog.SetProject(AProject: TProject);
|
||||
begin
|
||||
FProject:=AProject;
|
||||
@ -600,6 +742,31 @@ begin
|
||||
SelectOnlyThisAutoCreateForm(i+1);
|
||||
end;
|
||||
|
||||
procedure TProjectOptionsDialog.ProjectOptionsDialogResize(Sender: TObject);
|
||||
begin
|
||||
with NoteBook do begin
|
||||
SetBounds(0,0,Self.ClientWidth,Self.ClientHeight-50);
|
||||
end;
|
||||
|
||||
ResizeFormsPage;
|
||||
ResizeApplicationPage;
|
||||
ResizeInfoPage;
|
||||
|
||||
with CancelButton do begin
|
||||
Width:=70;
|
||||
Height:=23;
|
||||
Left:=Self.ClientWidth-Width-15;
|
||||
Top:=Self.ClientHeight-Height-15;
|
||||
end;
|
||||
|
||||
with OkButton do begin
|
||||
Width:=CancelButton.Width;
|
||||
Height:=CancelButton.Height;
|
||||
Left:=CancelButton.Left-15-Width;
|
||||
Top:=CancelButton.Top;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TProjectOptionsDialog.SelectOnlyThisAutoCreateForm(
|
||||
Index: integer);
|
||||
var i: integer;
|
||||
|
||||
@ -120,6 +120,7 @@ type
|
||||
procedure OkButtonClick(Sender: TObject);
|
||||
procedure CancelButtonClick(Sender: TObject);
|
||||
procedure HostApplicationBrowseBtnClick(Sender: TObject);
|
||||
procedure RunParamsOptsDlgResize(Sender: TObject);
|
||||
procedure WorkingDirectoryBtnClick(Sender: TObject);
|
||||
procedure UserOverridesAddButtonClick(Sender: TObject);
|
||||
procedure UserOverridesEditButtonClick(Sender: TObject);
|
||||
@ -129,6 +130,9 @@ type
|
||||
procedure SetupNotebook;
|
||||
procedure SetupLocalPage;
|
||||
procedure SetupEnvironmentPage;
|
||||
procedure ResizeNotebook;
|
||||
procedure ResizeLocalPage;
|
||||
procedure ResizeEnvironmentPage;
|
||||
procedure SetOptions(NewOptions: TRunParamsOptions);
|
||||
procedure FillSystemVariablesListView;
|
||||
procedure FillUserOverridesListView;
|
||||
@ -293,10 +297,12 @@ constructor TRunParamsOptsDlg.Create(AnOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AnOwner);
|
||||
if LazarusResources.Find(ClassName)=nil then begin
|
||||
|
||||
Width:=500;
|
||||
Height:=450;
|
||||
Position:=poScreenCenter;
|
||||
Caption:='Run parameters';
|
||||
SetBounds((Screen.Width-500) div 2,(Screen.Height-450) div 2,500,450);
|
||||
|
||||
OnResize:=@RunParamsOptsDlgResize;
|
||||
|
||||
SetupNotebook;
|
||||
|
||||
OkButton:=TButton.Create(Self);
|
||||
@ -319,6 +325,7 @@ begin
|
||||
Visible:=true;
|
||||
end;
|
||||
end;
|
||||
RunParamsOptsDlgResize(nil);
|
||||
end;
|
||||
|
||||
procedure TRunParamsOptsDlg.SetupNotebook;
|
||||
@ -582,6 +589,132 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRunParamsOptsDlg.ResizeNotebook;
|
||||
begin
|
||||
with Notebook do begin
|
||||
SetBounds(0,0,Self.ClientWidth,Self.ClientHeight-50);
|
||||
end;
|
||||
|
||||
ResizeLocalPage;
|
||||
ResizeEnvironmentPage;
|
||||
end;
|
||||
|
||||
procedure TRunParamsOptsDlg.ResizeLocalPage;
|
||||
var w: integer;
|
||||
begin
|
||||
w:=Self.ClientWidth-15;
|
||||
|
||||
with HostApplicationGroupBox do begin
|
||||
SetBounds(5,5,w,60);
|
||||
end;
|
||||
|
||||
with HostApplicationEdit do begin
|
||||
SetBounds(5,5,w-10-35,25);
|
||||
end;
|
||||
|
||||
with HostApplicationBrowseBtn do begin
|
||||
SetBounds(HostApplicationEdit.Left+HostApplicationEdit.Width+2,5,25,25);
|
||||
end;
|
||||
|
||||
with CmdLineParametersGroupBox do begin
|
||||
SetBounds(5,HostApplicationGroupBox.Top+HostApplicationGroupBox.Height+5,
|
||||
w,60);
|
||||
end;
|
||||
|
||||
with CmdLineParametersEdit do begin
|
||||
SetBounds(5,5,w-15,25);
|
||||
end;
|
||||
|
||||
with UseLaunchingApplicationBevel do begin
|
||||
SetBounds(
|
||||
5,CmdLineParametersGroupBox.Top+CmdLineParametersGroupBox.Height+10,w,60);
|
||||
end;
|
||||
|
||||
with UseLaunchingApplicationCheckBox do begin
|
||||
SetBounds(15,
|
||||
CmdLineParametersGroupBox.Top+CmdLineParametersGroupBox.Height+10,250,25);
|
||||
end;
|
||||
|
||||
with UseLaunchingApplicationEdit do begin
|
||||
SetBounds(UseLaunchingApplicationCheckBox.Left,
|
||||
UseLaunchingApplicationCheckBox.Top
|
||||
+UseLaunchingApplicationCheckBox.Height+2,w-15,25);
|
||||
end;
|
||||
|
||||
with WorkingDirectoryGroupBox do begin
|
||||
SetBounds(5,UseLaunchingApplicationEdit.Top
|
||||
+UseLaunchingApplicationEdit.Height+15,w,60);
|
||||
end;
|
||||
|
||||
with WorkingDirectoryEdit do begin
|
||||
SetBounds(5,5,w-10-35,25);
|
||||
end;
|
||||
|
||||
with WorkingDirectoryBtn do begin
|
||||
SetBounds(WorkingDirectoryEdit.Left+WorkingDirectoryEdit.Width+2,5,25,25);
|
||||
end;
|
||||
|
||||
with DisplayGroupBox do begin
|
||||
SetBounds(5,WorkingDirectoryGroupBox.Top+WorkingDirectoryGroupBox.Height+10,
|
||||
w,60);
|
||||
end;
|
||||
|
||||
with DisplayEdit do begin
|
||||
SetBounds(5,5,w-15,25);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRunParamsOptsDlg.ResizeEnvironmentPage;
|
||||
var w: integer;
|
||||
begin
|
||||
w:=Self.ClientWidth-15;
|
||||
|
||||
with SystemVariablesGroupBox do begin
|
||||
SetBounds(5,5,w,150);
|
||||
end;
|
||||
|
||||
with SystemVariablesListView do begin
|
||||
Left:=5;
|
||||
Top:=5;
|
||||
Width:=Parent.ClientWidth-17;
|
||||
Height:=Parent.ClientHeight-28;
|
||||
end;
|
||||
|
||||
with UserOverridesGroupBox do begin
|
||||
SetBounds(5,SystemVariablesGroupBox.Top+SystemVariablesGroupBox.Height+10,
|
||||
w,150);
|
||||
end;
|
||||
|
||||
with UserOverridesListView do begin
|
||||
Left:=5;
|
||||
Top:=5;
|
||||
Width:=Parent.ClientWidth-17;
|
||||
Height:=Parent.ClientHeight-68;
|
||||
end;
|
||||
|
||||
with UserOverridesAddButton do begin
|
||||
Left:=5;
|
||||
Top:=Parent.ClientHeight-Height-28;
|
||||
Width:=100;
|
||||
end;
|
||||
|
||||
with UserOverridesEditButton do begin
|
||||
Left:=UserOverridesAddButton.Left+UserOverridesAddButton.Width+10;
|
||||
Top:=UserOverridesAddButton.Top;
|
||||
Width:=100;
|
||||
end;
|
||||
|
||||
with UserOverridesDeleteButton do begin
|
||||
Left:=UserOverridesEditButton.Left+UserOverridesEditButton.Width+10;
|
||||
Top:=UserOverridesEditButton.Top;
|
||||
Width:=100;
|
||||
end;
|
||||
|
||||
with IncludeSystemVariablesCheckBox do begin
|
||||
SetBounds(5,UserOverridesGroupBox.Top+UserOverridesGroupBox.Height+10,w,25);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRunParamsOptsDlg.OkButtonClick(Sender: TObject);
|
||||
begin
|
||||
SaveToOptions;
|
||||
@ -613,6 +746,19 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRunParamsOptsDlg.RunParamsOptsDlgResize(Sender: TObject);
|
||||
begin
|
||||
ResizeNotebook;
|
||||
|
||||
with OkButton do begin
|
||||
SetBounds(270,Self.ClientHeight-40,100,25);
|
||||
end;
|
||||
|
||||
with CancelButton do begin
|
||||
SetBounds(390,OkButton.Top,100,25);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRunParamsOptsDlg.WorkingDirectoryBtnClick(Sender: TObject);
|
||||
var OpenDialog: TOpenDialog;
|
||||
begin
|
||||
|
||||
@ -39,6 +39,7 @@ type
|
||||
CancelButton: TButton;
|
||||
procedure OkButtonClick(Sender: TObject);
|
||||
procedure CancelButtonClick(Sender: TObject);
|
||||
procedure SysVarUserOverrideDialogResize(Sender: TObject);
|
||||
private
|
||||
public
|
||||
constructor Create(TheOwner: TComponent); override;
|
||||
@ -86,6 +87,37 @@ begin
|
||||
ModalResult:=mrCancel;
|
||||
end;
|
||||
|
||||
procedure TSysVarUserOverrideDialog.SysVarUserOverrideDialogResize(
|
||||
Sender: TObject);
|
||||
begin
|
||||
with VariableLabel do begin
|
||||
SetBounds(10,10,150,Height);
|
||||
end;
|
||||
|
||||
with VariableEdit do begin
|
||||
SetBounds(VariableLabel.Left,VariableLabel.Top+VariableLabel.Height+2,
|
||||
Self.ClientWidth-2*VariableLabel.Left,Height);
|
||||
end;
|
||||
|
||||
with ValueLabel do begin
|
||||
SetBounds(VariableEdit.Left,VariableEdit.Top+VariableEdit.Height+10,
|
||||
150,Height);
|
||||
end;
|
||||
|
||||
with ValueEdit do begin
|
||||
SetBounds(ValueLabel.Left,ValueLabel.Top+ValueLabel.Height+2,
|
||||
Self.ClientWidth-2*ValueLabel.Left,Height);
|
||||
end;
|
||||
|
||||
with OkButton do begin
|
||||
SetBounds(Self.ClientWidth-220,Self.ClientHeight-40,100,25);
|
||||
end;
|
||||
|
||||
with CancelButton do begin
|
||||
SetBounds(OkButton.Left+OkButton.Width+10,OkButton.Top,100,25);
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TSysVarUserOverrideDialog.Create(TheOwner: TComponent);
|
||||
begin
|
||||
inherited Create(TheOwner);
|
||||
@ -95,6 +127,7 @@ begin
|
||||
Width:=400;
|
||||
Height:=170;
|
||||
Position:=poScreenCenter;
|
||||
OnResize:=@SysVarUserOverrideDialogResize;
|
||||
|
||||
VariableLabel:=TLabel.Create(Self);
|
||||
with VariableLabel do begin
|
||||
@ -153,6 +186,7 @@ begin
|
||||
Visible:=true;
|
||||
end;
|
||||
end;
|
||||
SysVarUserOverrideDialogResize(nil);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -15,8 +15,6 @@ uses
|
||||
|
||||
type
|
||||
TUnitInfoDlg = class(TFORM)
|
||||
private
|
||||
published
|
||||
OkButton:TButton;
|
||||
uname: TLabel;
|
||||
utype: TLabel;
|
||||
@ -30,7 +28,9 @@ type
|
||||
outsize: TLabel;
|
||||
outlines: TLabel;
|
||||
outpath: TLabel;
|
||||
procedure UnitInfoDlgResize(Sender: TObject);
|
||||
procedure OkButtonClick(Sender:TObject);
|
||||
private
|
||||
procedure setShortName(const str:string);
|
||||
procedure setType(const str:string);
|
||||
procedure setInProject(const str:string);
|
||||
@ -48,6 +48,7 @@ function ShowUnitInfoDlg(const AnUnitName, AType: string;
|
||||
|
||||
implementation
|
||||
|
||||
uses LResources;
|
||||
|
||||
function ShowUnitInfoDlg(const AnUnitName, AType: string;
|
||||
IsPartOfProject: boolean; SizeInBytes, LineCount: integer;
|
||||
@ -78,12 +79,14 @@ end;
|
||||
|
||||
constructor TUnitInfoDlg.Create(AOwner:TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
inherited Create(AOwner);
|
||||
if LazarusResources.Find(ClassName)=nil then begin
|
||||
|
||||
Caption:='Unit Info for unit ???';
|
||||
Width:=400;
|
||||
Height:=164;
|
||||
position:=poScreenCenter;
|
||||
OnResize:=@UnitInfoDlgResize;
|
||||
|
||||
OkButton:=TButton.Create(Self);
|
||||
with OkButton do begin
|
||||
@ -225,6 +228,8 @@ begin
|
||||
autosize:=true;
|
||||
Show;
|
||||
end;
|
||||
end;
|
||||
UnitInfoDlgResize(nil);
|
||||
end;
|
||||
|
||||
procedure TUnitInfoDlg.setShortName(const str:string);
|
||||
@ -257,6 +262,82 @@ begin
|
||||
outpath.caption:=str;
|
||||
end;
|
||||
|
||||
procedure TUnitInfoDlg.UnitInfoDlgResize(Sender: TObject);
|
||||
begin
|
||||
with OkButton do begin
|
||||
Top:=132;
|
||||
Width:=75;
|
||||
Height:=25;
|
||||
Left:=(Self.ClientWidth-Width) div 2;
|
||||
end;
|
||||
|
||||
with uname do begin
|
||||
Left:=4;
|
||||
Top:=4;
|
||||
end;
|
||||
|
||||
with utype do begin
|
||||
Left:=4;
|
||||
Top:=24;
|
||||
end;
|
||||
|
||||
with uinproject do begin
|
||||
Left:=4;
|
||||
Top:=44;
|
||||
end;
|
||||
|
||||
with usize do begin
|
||||
Left:=4;
|
||||
top:=64;
|
||||
end;
|
||||
|
||||
with ulines do begin
|
||||
Left:=4;
|
||||
top:=84;
|
||||
end;
|
||||
|
||||
with upath do begin
|
||||
Left:=4;
|
||||
top:=104;
|
||||
end;
|
||||
|
||||
with outname do begin
|
||||
Left:=68;
|
||||
top:=4;
|
||||
Width:=Self.ClientWidth-Left-5;
|
||||
end;
|
||||
|
||||
with outtype do begin
|
||||
Left:=68;
|
||||
top:=24;
|
||||
Width:=Self.ClientWidth-Left-5;
|
||||
end;
|
||||
|
||||
with outinproject do begin
|
||||
Left:=68;
|
||||
top:=44;
|
||||
Width:=Self.ClientWidth-Left-5;
|
||||
end;
|
||||
|
||||
with outsize do begin
|
||||
Left:=68;
|
||||
top:=64;
|
||||
Width:=Self.ClientWidth-Left-5;
|
||||
end;
|
||||
|
||||
with outlines do begin
|
||||
Left:=68;
|
||||
top:=84;
|
||||
Width:=Self.ClientWidth-Left-5;
|
||||
end;
|
||||
|
||||
with outpath do begin
|
||||
Left:=68;
|
||||
top:=104;
|
||||
Width:=Self.ClientWidth-Left-5;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TUnitInfoDlg.OkButtonClick(Sender:TObject);
|
||||
begin
|
||||
ModalResult:=mrOk;
|
||||
|
||||
@ -4,10 +4,13 @@ object ViewUnits1: TVIEWUNITS1
|
||||
CLIENTHEIGHT = 200
|
||||
CLIENTWIDTH = 325
|
||||
POSITION = poscreencenter
|
||||
LEFT = 477
|
||||
HEIGHT = 200
|
||||
TOP = 412
|
||||
WIDTH = 325
|
||||
object btnOK: TBUTTON
|
||||
CAPTION = 'OK'
|
||||
FONT.COLOR = -2147483640
|
||||
ONCLICK = BTNOKCLICK
|
||||
LEFT = 235
|
||||
HEIGHT = 25
|
||||
@ -16,6 +19,7 @@ object ViewUnits1: TVIEWUNITS1
|
||||
end
|
||||
object btnCancel: TBUTTON
|
||||
CAPTION = 'Cancel'
|
||||
FONT.COLOR = -2147483640
|
||||
ONCLICK = BTNCANCELCLICK
|
||||
LEFT = 235
|
||||
HEIGHT = 25
|
||||
@ -30,6 +34,7 @@ object ViewUnits1: TVIEWUNITS1
|
||||
WIDTH = 215
|
||||
end
|
||||
object Listbox1: TLISTBOX
|
||||
BORDERSTYLE = bssingle
|
||||
ONCLICK = LISTBOX1CLICK
|
||||
LEFT = 10
|
||||
HEIGHT = 145
|
||||
|
||||
@ -35,7 +35,7 @@ type
|
||||
Name: string;
|
||||
ID: integer;
|
||||
Selected: boolean;
|
||||
constructor Create(AName: string; AnID: integer; ASelected: boolean);
|
||||
constructor Create(const AName: string; AnID: integer; ASelected: boolean);
|
||||
end;
|
||||
|
||||
TViewUnits = class(TForm)
|
||||
@ -43,6 +43,7 @@ type
|
||||
btnOK : TButton;
|
||||
btnCancel : TButton;
|
||||
MultiselectCheckBox: TCheckBox;
|
||||
procedure ViewUnitsResize(Sender: TObject);
|
||||
Procedure btnOKClick(Sender :TObject);
|
||||
Procedure btnCancelClick(Sender :TObject);
|
||||
procedure MultiselectCheckBoxClick(Sender :TObject);
|
||||
@ -92,7 +93,7 @@ end;
|
||||
|
||||
{ TViewUnitsEntry }
|
||||
|
||||
constructor TViewUnitsEntry.Create(AName: string; AnID: integer;
|
||||
constructor TViewUnitsEntry.Create(const AName: string; AnID: integer;
|
||||
ASelected: boolean);
|
||||
begin
|
||||
inherited Create;
|
||||
@ -110,9 +111,11 @@ begin
|
||||
|
||||
if LazarusResources.Find(Classname)=nil then begin
|
||||
Caption := 'View Project Units';
|
||||
SetBounds((Screen.Width-345) div 2, (Screen.Height-220) div 2, 325, 200);
|
||||
Width:=325;
|
||||
Height:=200;
|
||||
Position:=poScreenCenter;
|
||||
Pad := 10;
|
||||
Position := poScreenCenter;
|
||||
OnResize:=@ViewUnitsResize;
|
||||
|
||||
btnOK := TButton.Create(Self);
|
||||
with btnOk do begin
|
||||
@ -166,8 +169,42 @@ begin
|
||||
Visible:=true;
|
||||
end;
|
||||
end;
|
||||
ViewUnitsResize(nil);
|
||||
end;
|
||||
|
||||
procedure TViewUnits.ViewUnitsResize(Sender: TObject);
|
||||
var Pad: integer;
|
||||
begin
|
||||
Pad:=10;
|
||||
|
||||
with btnOk do begin
|
||||
Left := Self.Width - 90;
|
||||
Top := pad;
|
||||
Width := 75;
|
||||
Height := 25;
|
||||
end;
|
||||
|
||||
with btnCancel do begin
|
||||
Left := Self.Width - 90;
|
||||
Top := btnOK.Top + btnOK.Height + pad;
|
||||
Width := 75;
|
||||
Height := 25;
|
||||
end;
|
||||
|
||||
with Listbox do begin
|
||||
Top:= Pad;
|
||||
Left:= Pad;
|
||||
Width:= Self.Width - (Self.Width - btnOK.Left) - (2*pad);
|
||||
Height:= Self.Height - Top - Pad;
|
||||
end;
|
||||
|
||||
with MultiselectCheckBox do begin
|
||||
Left:=btnOK.Left;
|
||||
Top:=btnCancel.Top+btnCancel.Height+2*pad;
|
||||
Width:=btnOk.Width;
|
||||
Height:=25;
|
||||
end;
|
||||
end;
|
||||
|
||||
Procedure TViewUnits.btnOKClick(Sender : TOBject);
|
||||
Begin
|
||||
@ -193,6 +230,9 @@ initialization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.10 2002/04/16 15:22:50 lazarus
|
||||
MG: added form resizes
|
||||
|
||||
Revision 1.9 2002/02/17 19:34:45 lazarus
|
||||
MG: fixed view units/forms
|
||||
|
||||
|
||||
@ -12,6 +12,7 @@ type
|
||||
TWatchAddedEvent = procedure (sender : TObject; Expression : String) of Object;
|
||||
TWatchesdlg = class(TForm)
|
||||
Listbox1: TLISTBOX;
|
||||
procedure WatchesdlgResize(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
FOnWatchAddedEvent : TWatchAddedEvent;
|
||||
@ -55,26 +56,27 @@ implementation
|
||||
constructor TWatchesdlg.Create(AOwner : TComponent);
|
||||
Begin
|
||||
inherited;
|
||||
if LazarusResources.Find(Classname)=nil then
|
||||
begin
|
||||
Listbox1 := TListbox.Create(self);
|
||||
with Listbox1 do
|
||||
Begin
|
||||
Parent := self;
|
||||
Align := alClient;
|
||||
Visible := True;
|
||||
Name := 'ListBox1';
|
||||
OnKeyDown := @Listbox1KeyDown;
|
||||
|
||||
end;
|
||||
Caption := 'Watches';
|
||||
Name := 'WatchesDlg';
|
||||
Width := 250;
|
||||
Height := 100;
|
||||
if LazarusResources.Find(Classname)=nil then begin
|
||||
Caption := 'Watches';
|
||||
Name := 'WatchesDlg';
|
||||
Width := 250;
|
||||
Height := 100;
|
||||
|
||||
//TListBox currently does NOT fire keypress, keyDown, KeyUp events. This is a fix for now.
|
||||
OnKeyDown := @ListBox1KeyDown;
|
||||
Position := poScreenCenter;
|
||||
//TListBox currently does NOT fire keypress, keyDown, KeyUp events. This is a fix for now.
|
||||
OnKeyDown := @ListBox1KeyDown;
|
||||
Position := poScreenCenter;
|
||||
OnResize:=@WatchesdlgResize;
|
||||
|
||||
Listbox1 := TListbox.Create(self);
|
||||
with Listbox1 do
|
||||
Begin
|
||||
Parent := self;
|
||||
Align := alClient;
|
||||
Visible := True;
|
||||
Name := 'ListBox1';
|
||||
OnKeyDown := @Listbox1KeyDown;
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
//unitl events are saved in the lfm
|
||||
@ -82,6 +84,7 @@ Begin
|
||||
//until the listbox events actually fire...
|
||||
OnKeyDown := @ListBox1KeyDown;
|
||||
|
||||
WatchesdlgResize(nil);
|
||||
InsertWatch := TInsertWatch.Create(nil);
|
||||
End;
|
||||
|
||||
@ -91,6 +94,10 @@ Begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TWatchesdlg.WatchesdlgResize(Sender: TObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
Procedure TWatchesDlg.Listbox1KeyDown(Sender : TObject; var Key : Word; Shift : TShiftState);
|
||||
var
|
||||
|
||||
Loading…
Reference in New Issue
Block a user