rm_editorstrings.pas

这是一个功能强大

{*******************************************************}
{                                                       }
{       Extension Library                               }
{       Strin List Editor dialog Unit                   }
{                                                       }
{       (c) 2002, Balabuyev Yevgeny                     }
{       E-mail: [e-mail]                      }
{                                                       }
{*******************************************************}

unit RM_EditorStrings;

{$I RM.INC}

interface

uses
  Windows, Messages, SysUtils , Classes,
  Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls
{$IFDEF COMPILER6_UP} , Variants {$ENDIF};

var
  SELStringsEditorDlgCaption: string              = 'String List Editor';
  SELStringsEditorDlgOkBtnCaption: string         = '&Ok';
  SELStringsEditorDlgCancelBtnCaption: string     = 'Cancel';
  SELStringsEditorDlgLinesCountTemplate: string   = '%d lines';

type
  TELStringsEditorDlg = class(TForm)
    btnOk: TButton;
    btnCancel: TButton;
    lbLineCount: TLabel;
    bvlMain: TBevel;
    memMain: TRichEdit;
    procedure memMainChange(Sender: TObject);
  private
    function GetLines: TStrings;
    procedure SetLines(const Value: TStrings);
  public
    function Execute: Boolean;
    property Lines: TStrings read GetLines write SetLines;
  end;

implementation

{$R *.dfm}

{ TELStringsEditorDlg }

function TELStringsEditorDlg.Execute: Boolean;
begin
  Caption := SELStringsEditorDlgCaption;
  btnOk.Caption := SELStringsEditorDlgOkBtnCaption;
  btnCancel.Caption := SELStringsEditorDlgCancelBtnCaption;
  lbLineCount.Caption := Format(SELStringsEditorDlgLinesCountTemplate,
    [memMain.Lines.Count]);

  Result := (ShowModal = mrOk);
end;

function TELStringsEditorDlg.GetLines: TStrings;
begin
  Result := memMain.Lines;
end;

procedure TELStringsEditorDlg.SetLines(const Value: TStrings);
begin
  memMain.Lines := Value;
end;

procedure TELStringsEditorDlg.memMainChange(Sender: TObject);
begin
  lbLineCount.Caption := Format(SELStringsEditorDlgLinesCountTemplate,
    [memMain.Lines.Count]);
end;

end.