home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / visedit / iniedit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-05-12  |  1.5 KB  |  69 lines
  1. unit IniEdit;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Buttons, ToolWin, ComCtrls, ExtCtrls, StdCtrls, VIniFile;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     CoolBar1: TCoolBar;
  12.     Panel1: TPanel;
  13.     SpeedButton1: TSpeedButton;
  14.     SpeedButton2: TSpeedButton;
  15.     SpeedButton3: TSpeedButton;
  16.     Ed: TEdit;
  17.     Vi: TVIniFile;
  18.     ODialog: TOpenDialog;
  19.     procedure SpeedButton2Click(Sender: TObject);
  20.     procedure SpeedButton1Click(Sender: TObject);
  21.     procedure SpeedButton3Click(Sender: TObject);
  22.     procedure ViChanging(Sender: TObject; Node: TTreeNode;
  23.       var AllowChange: Boolean);
  24.     procedure ViChange(Sender: TObject; Node: TTreeNode);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TForm1.SpeedButton2Click(Sender: TObject);
  39. begin
  40. with ODialog do
  41.  if Execute then Vi.FileName:=FileName;
  42. Caption:='INI File Editor :'+Odialog.FileName;
  43. end;
  44.  
  45. procedure TForm1.SpeedButton1Click(Sender: TObject);
  46. begin
  47. with ODialog do
  48.  if Execute then Vi.NewIniFile(FileName);
  49. Caption:='INI File Editor :'+Odialog.FileName;
  50. end;
  51.  
  52. procedure TForm1.SpeedButton3Click(Sender: TObject);
  53. begin
  54. Close;
  55. end;
  56.  
  57. procedure TForm1.ViChanging(Sender: TObject; Node: TTreeNode;
  58.   var AllowChange: Boolean);
  59. begin
  60. Vi.Value:=Ed.Text;
  61. end;
  62.  
  63. procedure TForm1.ViChange(Sender: TObject; Node: TTreeNode);
  64. begin
  65. Ed.Text:=Vi.Value;
  66. end;
  67.  
  68. end.
  69.