home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / explorer / dirstuff.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  1.4 KB  |  64 lines
  1. unit Dirstuff;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert & Steve Teixeira}
  4. { Project Name: EXPLORER }
  5.  
  6. interface
  7.  
  8. uses
  9.   WinTypes, WinProcs, Classes, Graphics, Forms,
  10.   Controls, Buttons, StdCtrls, ExtCtrls, Dialogs;
  11.  
  12. type
  13.   TOptionsWin = class(TForm)
  14.     Panel1: TPanel;
  15.     EDelphiSource: TEdit;
  16.     Label1: TLabel;
  17.     Label4: TLabel;
  18.     EBPSource: TEdit;
  19.     BitBtn2: TBitBtn;
  20.     BitBtn1: TBitBtn;
  21.     Panel2: TPanel;
  22.     CheckBox1: TCheckBox;
  23.     Bevel1: TBevel;
  24.     Panel3: TPanel;
  25.     ETextEditor: TEdit;
  26.     Label2: TLabel;
  27.     OpenDialog1: TOpenDialog;
  28.     procedure FormCreate(Sender: TObject);
  29.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  30.     procedure ETextEditorDblClick(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   OptionsWin: TOptionsWin;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44. uses ExpIni, StrUtils;
  45.  
  46. procedure TOptionsWin.FormCreate(Sender: TObject);
  47. begin
  48.   Checkbox1.Checked := IniFile.ReadBool('SETTINGS', 'BubbleHelp', True);
  49. end;
  50.  
  51. procedure TOptionsWin.FormClose(Sender: TObject; var Action: TCloseAction);
  52. begin
  53.   EDelphiSource.Text := AddBackSlash(EDelphiSource.Text);
  54.   EBPSource.Text := AddBackSlash(EBPSource.Text);
  55. end;
  56.  
  57. procedure TOptionsWin.ETextEditorDblClick(Sender: TObject);
  58. begin
  59.   if OpenDialog1.Execute then
  60.     ETextEditor.Text := OpenDialog1.FileName;
  61. end;
  62.  
  63. end.
  64.