frmconvt.pas

来自「简化字与繁体字互相转换的delphi源代码.」· PAS 代码 · 共 105 行

unit frmConvt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Menus, ExtCtrls;

type
  TfrmMain = class(TForm)
    Splitter1: TSplitter;
    MainMenu1: TMainMenu;
    mnuFile: TMenuItem;
    Open1: TMenuItem;
    mnuSave: TMenuItem;
    mnuLine: TMenuItem;
    mnuExit: TMenuItem;
    mnuConvert1: TMenuItem;
    dlgOpen: TOpenDialog;
    dlgSave: TSaveDialog;
    dlgFont: TFontDialog;
    mnuOption: TMenuItem;
    mnuSetFont1: TMenuItem;
    mnuSetFont2: TMenuItem;
    mnuClear1: TMenuItem;
    mnuClear2: TMenuItem;
    ConvertToGB1: TMenuItem;
    richOpen: TMemo;
    richConvert: TMemo;
    procedure mnuExitClick(Sender: TObject);
    procedure mnuSetFont1Click(Sender: TObject);
    procedure mnuSetFont2Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure mnuSaveClick(Sender: TObject);
    procedure mnuClear1Click(Sender: TObject);
    procedure mnuClear2Click(Sender: TObject);
    procedure mnuConvert1Click(Sender: TObject);
    procedure ConvertToGB1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses CVCode;

{$R *.DFM}

procedure TfrmMain.mnuExitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmMain.mnuSetFont1Click(Sender: TObject);
begin
  if dlgFont.Execute then
    richOpen.Font := dlgFont.Font;
end;

procedure TfrmMain.mnuSetFont2Click(Sender: TObject);
begin
  if dlgFont.Execute then
    richConvert.Font := dlgFont.Font;
end;

procedure TfrmMain.Open1Click(Sender: TObject);
begin
     if dlgOpen.Execute then
        richOpen.Lines.LoadFromFile(dlgOpen.FileName);
end;

procedure TfrmMain.mnuSaveClick(Sender: TObject);
begin
     if dlgSave.Execute then
        richConvert.Lines.SaveToFile(dlgSave.FileName);
end;

procedure TfrmMain.mnuClear1Click(Sender: TObject);
begin
     richOpen.Lines.Clear;
end;

procedure TfrmMain.mnuClear2Click(Sender: TObject);
begin
     richConvert.Lines.Clear;
end;

procedure TfrmMain.mnuConvert1Click(Sender: TObject);
begin
  richConvert.Text:=GBtoBIG5(richOpen.Text);
end;

procedure TfrmMain.ConvertToGB1Click(Sender: TObject);
begin
  richConvert.Text:=BIG5toGB(richOpen.Text);
end;

end.