← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/lazarus/gutsy

« back to all changes in this revision

Viewing changes to ide/exttooleditdlg.pas

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-05-06 13:46:10 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20070506134610-lf4rbsb7p0mx31x1
Tags: 0.9.22-1
http://bugs.debian.org/421850
http://bugs.debian.org/408512
* Add homepage to debian/control.
* New upstream release. (Closes: #421850, #408512)
* Remove old patch and add new symlink /usr/bin/startlazarus.
* Add myself to Uploaders.
* Add XS-X-Vcs-Svn header to debian/control.

Show diffs side-by-side

added added

removed removed

Lines of Context:
ide/exttooleditdlg.pas
69
69
    TitleLabel: TLabel;
70
70
    TitleEdit: TEdit;
71
71
    FilenameLabel: TLabel;
 
72
    OpenDialog: TOpenDialog;
 
73
    OpenButton:TButton;
72
74
    FilenameEdit: TEdit;
73
75
    ParametersLabel: TLabel;
74
76
    ParametersEdit: TEdit;
96
98
    procedure KeyGrabButtonClick(Sender: TObject);
97
99
    procedure MacrosInsertButtonClick(Sender: TObject);
98
100
    procedure MacrosListboxClick(Sender: TObject);
 
101
    procedure OpenButtonClick(sender : TOBject);
99
102
  private
100
103
    fOptions: TExternalToolOptions;
101
104
    fTransferMacros: TTransferMacroList;
191
194
    with FilenameEdit do begin
192
195
      Name:='FilenameEdit';
193
196
      Parent:=Self;
194
 
      SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width,
 
197
      SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width-TitleEdit.Height-5,
195
198
        TitleEdit.Height);
196
199
    end;
197
200
    
 
201
    OpenButton:=TButton.Create(Self);
 
202
    with OpenButton do
 
203
         begin
 
204
           Name     := 'OpenButton';
 
205
           Caption  := '...';
 
206
           ShowHint := True;
 
207
           Hint     := 'Click here to browse the file';
 
208
           Parent   := Self;
 
209
           SetBounds(FilenameEdit.Left+FilenameEdit.Width+5,
 
210
                     FilenameLabel.Top+2,TitleEdit.Height,
 
211
                     TitleEdit.Height);
 
212
           OnClick := @OpenButtonClick;
 
213
         end;
 
214
    
 
215
    OpenDialog:=TOpenDialog.Create(Self);
 
216
    with OpenDialog do
 
217
         begin
 
218
           Title   := 'Select the file';
 
219
           Filter  := 'Programs (*.exe)|*.exe|All Files (*.*)|*.*';
 
220
           Options := [ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail];
 
221
         End;
 
222
    
198
223
    ParametersLabel:=TLabel.Create(Self);
199
224
    with ParametersLabel do begin
200
225
      Name:='ParametersLabel';
208
233
    with ParametersEdit do begin
209
234
      Name:='ParametersEdit';
210
235
      Parent:=Self;
211
 
      SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,FilenameEdit.Width,
 
236
      SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,TitleEdit.Width,
212
237
        FilenameEdit.Height);
213
238
    end;
214
239
    
397
422
  inherited Destroy;
398
423
end;
399
424
 
 
425
procedure TExternalToolOptionDlg.OpenButtonClick(sender : TOBject);
 
426
begin
 
427
  OpenDialog.FileName := FilenameEdit.Text;
 
428
  If OpenDialog.Execute Then FilenameEdit.Text := OpenDialog.FileName;
 
429
End;
 
430
 
400
431
procedure TExternalToolOptionDlg.SaveToOptions;
401
432
begin
402
433
  fOptions.Title:=TitleEdit.Text;
468
499
  end;
469
500
 
470
501
  with FilenameEdit do begin
471
 
    SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width,
472
 
      TitleEdit.Height);
 
502
    SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width-TitleEdit.Height-5,
 
503
              TitleEdit.Height);
473
504
  end;
474
505
 
475
506
  with ParametersLabel do begin
478
509
  end;
479
510
 
480
511
  with ParametersEdit do begin
481
 
    SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,FilenameEdit.Width,
 
512
    SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,TitleEdit.Width,
482
513
      FilenameEdit.Height);
483
514
  end;
484
515