rm_ledit.pas

report machine 2.3 功能强大

{******************************************}
{                                          }
{  Report Machine v2.0 - Dialog designer   }
{           String list editor             }
{                                          }
{******************************************}

unit RM_ledit;

interface

{$I RM.inc}

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

type
  TRMLinesEditorForm = class(TForm)
    MemoPanel: TPanel;
    Bevel2: TBevel;
    M1: TMemo;
    Panel2: TPanel;
    Panel1: TPanel;
    Bevel1: TBevel;
    btnCut: TSpeedButton;
    btnCopy: TSpeedButton;
    btnPaste: TSpeedButton;
    btnOK: TSpeedButton;
    btnCancel: TSpeedButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure M1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnCutClick(Sender: TObject);
    procedure btnCopyClick(Sender: TObject);
    procedure btnPasteClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Localize;
  public
    { Public declarations }
  end;

implementation

uses RM_Class, RM_Const, RM_Utils;

{$R *.DFM}

procedure TRMLinesEditorForm.Localize;
begin
	Font.Name := RMLoadStr(SRMDefaultFontName);
  Font.Size := StrToInt(RMLoadStr(SRMDefaultFontSize));
  Font.Charset := StrToInt(RMLoadStr(SCharset));

  Caption := RMLoadStr(rmRes + 4000);
  btnCut.Hint := RMLoadStr(rmRes + 091);
  btnCopy.Hint := RMLoadStr(rmRes + 092);
  btnPaste.Hint := RMLoadStr(rmRes + 093);
  btnOk.Hint := RMLoadStr(SOk);
  btnCancel.Hint := RMLoadStr(SCancel);
end;

procedure TRMLinesEditorForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = vk_Return) and (ssCtrl in Shift) then
  begin
    ModalResult := mrOk;
    Key := 0;
  end;
end;

procedure TRMLinesEditorForm.M1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Escape then ModalResult := mrCancel;
end;

procedure TRMLinesEditorForm.btnCutClick(Sender: TObject);
begin
  M1.CutToClipboard;
end;

procedure TRMLinesEditorForm.btnCopyClick(Sender: TObject);
begin
  M1.CopyToClipboard;
end;

procedure TRMLinesEditorForm.btnPasteClick(Sender: TObject);
begin
  M1.PasteFromClipboard;
end;

procedure TRMLinesEditorForm.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TRMLinesEditorForm.btnOKClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TRMLinesEditorForm.FormCreate(Sender: TObject);
begin
	Localize;
end;

end.