frmeapubricheditorunt.pas

EAComps手工画报表 对写报表编辑器有一定的参考价值

unit frmEAPubRichEditorUnt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormMainUnt, ComCtrls, ToolWin, ImgList, Menus, ActnList,
  StdCtrls;

type
  TfrmEAPubRichEditor = class(TFormMain)
    MainMenu1: TMainMenu;
    ActList: TActionList;
    N1: TMenuItem;
    imgList: TImageList;
    cbTools: TCoolBar;
    tbTools: TToolBar;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ActFile_New: TAction;
    ActFile_Open: TAction;
    ActFile_Save: TAction;
    ToolButton5: TToolButton;
    ActFile_Print: TAction;
    ActFile_Preview: TAction;
    ActFile_Exit: TAction;
    ActFile_PrintSetup: TAction;
    ActFile_Close: TAction;
    ActFile_SaveAs: TAction;
    C1: TMenuItem;
    X1: TMenuItem;
    N2: TMenuItem;
    O1: TMenuItem;
    V1: TMenuItem;
    P1: TMenuItem;
    U1: TMenuItem;
    S1: TMenuItem;
    A1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    cboFonts: TComboBox;
    ComboBox2: TComboBox;
    ToolButton4: TToolButton;
    ToolButton3: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ActFmt_FontColor: TAction;
    ActFmt_FontBkColor: TAction;
    ActFmt_Italic: TAction;
    ActFmt_Bold: TAction;
    ActFmt_Underline: TAction;
    ActFmt_LeftAlign: TAction;
    ActFmt_CenterAlign: TAction;
    ActFmt_RightAlign: TAction;
    ActFmt_ItemSign: TAction;
    ActFmt_Font: TAction;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    N7: TMenuItem;
    F1: TMenuItem;
    ActEdit_Cut: TAction;
    ActEdit_Copy: TAction;
    ActEdit_Paste: TAction;
    ActEdit_Undo: TAction;
    ActEdit_Find: TAction;
    ActEdit_FindNext: TAction;
    ActEdit_Replace: TAction;
    ActEdit_Clear: TAction;
    ActEdit_SelectAll: TAction;
    N8: TMenuItem;
    L2: TMenuItem;
    C2: TMenuItem;
    X2: TMenuItem;
    F2: TMenuItem;
    N9: TMenuItem;
    P2: TMenuItem;
    R1: TMenuItem;
    A2: TMenuItem;
    U2: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    ToolButton25: TToolButton;
    ToolButton26: TToolButton;
    ToolButton27: TToolButton;
    reEditor: TRichEdit;
    N6: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    procedure InitData;
  public
    { Public declarations }
  end;

var
  frmEAPubRichEditor: TfrmEAPubRichEditor;

implementation

{$R *.dfm}

{ TfrmEAPubRichEditor }

procedure TfrmEAPubRichEditor.InitData;
begin
  cboFonts.Items.Assign(Screen.Fonts);
end;

procedure TfrmEAPubRichEditor.FormCreate(Sender: TObject);
begin
  InitData;
end;

end.