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

IDE: added file browse button in edit tool dialog (bug #8353) from David Guadagnini

Browse Source 
git-svn-id: trunk@10739 -
This commit is contained in:
vincents 2007-03-12 09:41:01 +00:00
parent 73e08712ae
commit 20ee06c269
1 changed files with 36 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
ide/exttooleditdlg.pas
View File

@ -69,6 +69,8 @@ type
TitleLabel: TLabel; TitleLabel: TLabel;
TitleEdit: TEdit; TitleEdit: TEdit;
FilenameLabel: TLabel; FilenameLabel: TLabel;
OpenDialog: TOpenDialog;
OpenButton:TButton;
FilenameEdit: TEdit; FilenameEdit: TEdit;
ParametersLabel: TLabel; ParametersLabel: TLabel;
ParametersEdit: TEdit; ParametersEdit: TEdit;
@ -96,6 +98,7 @@ type
procedure KeyGrabButtonClick(Sender: TObject); procedure KeyGrabButtonClick(Sender: TObject);
procedure MacrosInsertButtonClick(Sender: TObject); procedure MacrosInsertButtonClick(Sender: TObject);
procedure MacrosListboxClick(Sender: TObject); procedure MacrosListboxClick(Sender: TObject);
procedure OpenButtonClick(sender : TOBject);
private private
fOptions: TExternalToolOptions; fOptions: TExternalToolOptions;
fTransferMacros: TTransferMacroList; fTransferMacros: TTransferMacroList;
@ -191,10 +194,32 @@ begin
with FilenameEdit do begin with FilenameEdit do begin
Name:='FilenameEdit'; Name:='FilenameEdit';
Parent:=Self; Parent:=Self;
SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width, SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width-TitleEdit.Height-5,
TitleEdit.Height); TitleEdit.Height);
end; end;
OpenButton:=TButton.Create(Self);
with OpenButton do
begin
Name := 'OpenButton';
Caption := '...';
ShowHint := True;
Hint := 'Click here to browse the file';
Parent := Self;
SetBounds(FilenameEdit.Left+FilenameEdit.Width+5,
FilenameLabel.Top+2,TitleEdit.Height,
TitleEdit.Height);
OnClick := @OpenButtonClick;
end;
OpenDialog:=TOpenDialog.Create(Self);
with OpenDialog do
begin
Title := 'Select the file';
Filter := 'Programs (*.exe)|*.exe|All Files (*.*)|*.*';
Options := [ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail];
End;
ParametersLabel:=TLabel.Create(Self); ParametersLabel:=TLabel.Create(Self);
with ParametersLabel do begin with ParametersLabel do begin
Name:='ParametersLabel'; Name:='ParametersLabel';
@ -208,7 +233,7 @@ begin
with ParametersEdit do begin with ParametersEdit do begin
Name:='ParametersEdit'; Name:='ParametersEdit';
Parent:=Self; Parent:=Self;
SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,FilenameEdit.Width, SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,TitleEdit.Width,
FilenameEdit.Height); FilenameEdit.Height);
end; end;
@ -397,6 +422,12 @@ begin
inherited Destroy; inherited Destroy;
end; end;
procedure TExternalToolOptionDlg.OpenButtonClick(sender : TOBject);
begin
OpenDialog.FileName := FilenameEdit.Text;
If OpenDialog.Execute Then FilenameEdit.Text := OpenDialog.FileName;
End;
procedure TExternalToolOptionDlg.SaveToOptions; procedure TExternalToolOptionDlg.SaveToOptions;
begin begin
fOptions.Title:=TitleEdit.Text; fOptions.Title:=TitleEdit.Text;
@ -468,7 +499,7 @@ begin
end; end;
with FilenameEdit do begin with FilenameEdit do begin
SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width, SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width-TitleEdit.Height-5,
TitleEdit.Height); TitleEdit.Height);
end; end;
@ -478,7 +509,7 @@ begin
end; end;
with ParametersEdit do begin with ParametersEdit do begin
SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,FilenameEdit.Width, SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,TitleEdit.Width,
FilenameEdit.Height); FilenameEdit.Height);
end; end;