dfwmemoesu.pas

来自「dfw控件组V0.62」· PAS 代码 · 共 68 行

unit DFWMemoesU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ImgList, ComCtrls, ToolWin, StdCtrls, DFWMemoes;

type
  TForm1 = class(TForm)
    DFWMemoes: TDFWMemoes;
    Label1: TLabel;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton7: TToolButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
     if OpenDialog1.execute then begin
        DFWMemoes.Lines.loadfromfile(OpenDialog1.filename);
        Label1.caption:='File: '+OpenDialog1.FileName;
        SaveDialog1.filename:=OpenDialog1.filename;
     end;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
     DFWMemoes.Lines.clear;
     Label1.caption:='File: ';
     SaveDialog1.filename:='';
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
     Close;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
     if savedialog1.Execute then DFWMemoes.lines.savetofile(SaveDialog1.filename);
end;

end.