paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 14:59:30 +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

41
ide/exttooleditdlg.pas
View File

@ -69,6 +69,8 @@ type
TitleLabel: TLabel;
TitleEdit: TEdit;
FilenameLabel: TLabel;
OpenDialog: TOpenDialog;
OpenButton:TButton;
FilenameEdit: TEdit;
ParametersLabel: TLabel;
ParametersEdit: TEdit;
@ -96,6 +98,7 @@ type
procedure KeyGrabButtonClick(Sender: TObject);
procedure MacrosInsertButtonClick(Sender: TObject);
procedure MacrosListboxClick(Sender: TObject);
procedure OpenButtonClick(sender : TOBject);
private
fOptions: TExternalToolOptions;
fTransferMacros: TTransferMacroList;
@ -191,10 +194,32 @@ begin
with FilenameEdit do begin
Name:='FilenameEdit';
Parent:=Self;
SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width,
SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width-TitleEdit.Height-5,
TitleEdit.Height);
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);
with ParametersLabel do begin
Name:='ParametersLabel';
@ -208,7 +233,7 @@ begin
with ParametersEdit do begin
Name:='ParametersEdit';
Parent:=Self;
SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,FilenameEdit.Width,
SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,TitleEdit.Width,
FilenameEdit.Height);
end;
@ -397,6 +422,12 @@ begin
inherited Destroy;
end;
procedure TExternalToolOptionDlg.OpenButtonClick(sender : TOBject);
begin
OpenDialog.FileName := FilenameEdit.Text;
If OpenDialog.Execute Then FilenameEdit.Text := OpenDialog.FileName;
End;
procedure TExternalToolOptionDlg.SaveToOptions;
begin
fOptions.Title:=TitleEdit.Text;
@ -468,8 +499,8 @@ begin
end;
with FilenameEdit do begin
SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width,
TitleEdit.Height);
SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width-TitleEdit.Height-5,
TitleEdit.Height);
end;
with ParametersLabel do begin
@ -478,7 +509,7 @@ begin
end;
with ParametersEdit do begin
SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,FilenameEdit.Width,
SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,TitleEdit.Width,
FilenameEdit.Height);
end;