unit1te.pas

richviewaction 1.58 需要richview 1.9.46

{*******************************************************}
{                                                       }
{       RichViewActions (ThemeEngine version)           }
{       Demo project.                                   }
{       You can use it as a basis for your              }
{       applications.                                   }
{                                                       }
{       Copyright (c) Sergey Tkachenko                  }
{       [e-mail]                               }
{       http://www.trichview.com                        }
{                                                       }
{       ThemeEngine (c) KSDev http://www.ksdev.com      }
{                                                       }
{*******************************************************}


unit Unit1TE;

interface

{
  Remove dots from the defines below to enable support for Gif and Png.

  GifImage (by Anders Melander)
    http://www.torry.net/vcl/graphics/gif/gifimage.exe (original)
    http://www.trichview.com/resources/thirdparty/gifimage.zip (update)
  Note: for Delphi 2007, use the built-in TGifImage instead    
  PngObject (by Gustavo Huffenbacher Daud)
    http://pngdelphi.sourceforge.net/
}

{.$DEFINE USE_GIFIMAGE}
{.$DEFINE USE_PNGOBJECT}


uses
  Windows, Messages, SysUtils,
  Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls,
  ActnList, StdActns, ImgList,
  Menus, ShellApi, Printers, ToolWin, RVUni,

  {$IFDEF USE_GIFIMAGE}
  GifImage, // Change to GifImg for Delphi 2007+
  {$ENDIF}
  {$IFDEF USE_PNGOBJECT}
  PngImage,
  {$ENDIF}

  RVScroll, RichView, RVEdit,
  RVStyle, PtblRV, CRVFData, RVTable, RVItem, CRVData, RVFuncs,

  RichViewActions, RVFontCombos, RVALocalize, te_engine,
  te_controls, te_switcher, te_forms, te_extctrls, te_scrolladapt;

{$I RV_Defs.inc}


type
  TForm1 = class(TForm)
    RVStyle1: TRVStyle;
    StatusBar1: TTeStatusBar;
    RVAControlPanel1: TRVAControlPanel;
    RVPrint1: TRVPrint;
    ColorDialog1: TColorDialog;
    TeThemeEngine1: TTeThemeEngine;
    TeForm1: TTeForm;
    RVAPopupMenu11: TRVAPopupMenu;
    TeControlBar1: TTeControlBar;
    ToolBar1: TTeToolBar;
    ToolButton11: TTeSpeedButton;
    ToolButton1: TTeSpeedButton;
    ToolButton2: TTeSpeedButton;
    ToolButton13: TTeSpeedButton;
    ToolButton22: TTeSpeedButton;
    ToolButton32: TTeSpeedButton;
    ToolButton33: TTeSpeedButton;
    ToolButton17: TTeSpeedButton;
    ToolButton18: TTeSpeedButton;
    ToolButton19: TTeSpeedButton;
    ToolButton20: TTeSpeedButton;
    ToolButton21: TTeSpeedButton;
    ToolButton46: TTeSpeedButton;
    ToolButton12: TTeSpeedButton;
    ToolButton47: TTeSpeedButton;
    ToolBar2: TTeToolBar;
    ToolButton41: TTeSpeedButton;
    ToolButton42: TTeSpeedButton;
    ToolButton43: TTeSpeedButton;
    ToolButton44: TTeSpeedButton;
    ToolButton29: TTeSpeedButton;
    ToolButton30: TTeSpeedButton;
    ToolButton31: TTeSpeedButton;
    ToolButton36: TTeSpeedButton;
    ToolButton38: TTeSpeedButton;
    ToolButton49: TTeSpeedButton;
    ToolButton50: TTeSpeedButton;
    ToolButton51: TTeSpeedButton;
    ToolButton8: TTeSpeedButton;
    ToolButton57: TTeSpeedButton;
    ToolButton61: TTeSpeedButton;
    ToolButton53: TTeSpeedButton;
    ToolButton54: TTeSpeedButton;
    ToolButton39: TTeSpeedButton;
    ToolBar3: TTeToolBar;
    ToolButton9: TTeSpeedButton;
    ToolButton14: TTeSpeedButton;
    ToolButton15: TTeSpeedButton;
    ToolButton16: TTeSpeedButton;
    ToolButton23: TTeSpeedButton;
    ToolButton24: TTeSpeedButton;
    ToolButton45: TTeSpeedButton;
    ToolButton25: TTeSpeedButton;
    ToolButton26: TTeSpeedButton;
    ToolBar4: TTeToolBar;
    ToolButton48: TTeSpeedButton;
    ToolButton52: TTeSpeedButton;
    ToolButton55: TTeSpeedButton;
    ToolButton56: TTeSpeedButton;
    ToolButton58: TTeSpeedButton;
    ToolButton59: TTeSpeedButton;
    ToolBar5: TTeToolBar;
    cmbFont: TTeComboBox;
    cmbFontSize: TTeSpinEdit;
    TeSpeedDivider1: TTeSpeedDivider;
    Button1: TTeButton;
    TeMenuBar1: TTeMenuBar;
    mitFile: TTeItem;
    New1: TTeItem;
    Load1: TTeItem;
    Save1: TTeItem;
    SaveAs1: TTeItem;
    Export1: TTeItem;
    N1: TTeItem;
    PageSetup1: TTeItem;
    PrintPreview1: TTeItem;
    Print1: TTeItem;
    N3: TTeItem;
    mitExit: TTeItem;
    mitEdit: TTeItem;
    Undo1: TTeItem;
    Redo1: TTeItem;
    N4: TTeItem;
    Cut1: TTeItem;
    Copy1: TTeItem;
    n2: TTeItem;
    PasteSpecial1: TTeItem;
    N5: TTeItem;
    Find1: TTeItem;
    FindNext1: TTeItem;
    Replace1: TTeItem;
    N26: TTeItem;
    CharacterCase1: TTeItem;
    N20: TTeItem;
    InsertPageBreak1: TTeItem;
    RemovePageBreak1: TTeItem;
    N15: TTeItem;
    SelectAll1: TTeItem;
    mitFont: TTeItem;
    Changefont1: TTeItem;
    Font1: TTeItem;
    N7: TTeItem;
    mitFontStyle: TTeItem;
    Bold1: TTeItem;
    Italic1: TTeItem;
    Underline1: TTeItem;
    Strikeout1: TTeItem;
    N14: TTeItem;
    AllCapitals1: TTeItem;
    Overline1: TTeItem;
    mitFontSize: TTeItem;
    ShrinkFont1: TTeItem;
    GrowFont1: TTeItem;
    N13: TTeItem;
    ShrinkFontByOnePoint1: TTeItem;
    GrowFontByOnePoint1: TTeItem;
    extColor1: TTeItem;
    extBackgroundColor1: TTeItem;
    mitPara: TTeItem;
    rvActionParagraph11: TTeItem;
    ParagraphBorders1: TTeItem;
    N18: TTeItem;
    AlignLeft1: TTeItem;
    AlignCenter1: TTeItem;
    AlignRight1: TTeItem;
    Justify1: TTeItem;
    N25: TTeItem;
    BulletsandNumbering1: TTeItem;
    Bullets1: TTeItem;
    Numbering1: TTeItem;
    N16: TTeItem;
    Leftjustify1: TTeItem;
    N6: TTeItem;
    DecreaseIndent1: TTeItem;
    IncreaseIndent1: TTeItem;
    N17: TTeItem;
    SingleLineSpacing1: TTeItem;
    N15LineSpacing1: TTeItem;
    DoubleLineSpacing1: TTeItem;
    N19: TTeItem;
    ParagraphBackgroundColor1: TTeItem;
    mitFormat: TTeItem;
    Background1: TTeItem;
    BackgroundColor1: TTeItem;
    N22: TTeItem;
    FillColor1: TTeItem;
    Properties1: TTeItem;
    mitInsert: TTeItem;
    File1: TTeItem;
    Picture1: TTeItem;
    HorizontalLine1: TTeItem;
    HypertextLink1: TTeItem;
    InsertSymbol1: TTeItem;
    mitTable: TTeItem;
    InsertTable1: TTeItem;
    N9: TTeItem;
    InsertColumnLeft1: TTeItem;
    InsertColumnRight1: TTeItem;
    N8: TTeItem;
    InsertRowAbove1: TTeItem;
    InsertRowBelow1: TTeItem;
    N10: TTeItem;
    DeleteRows1: TTeItem;
    rvActionTableDeleteCols11: TTeItem;
    DeleteTable1: TTeItem;
    N12: TTeItem;
    mitTableSelect: TTeItem;
    SelectTable1: TTeItem;
    SelectColumns1: TTeItem;
    SelectRows1: TTeItem;
    SelectCell1: TTeItem;
    N21: TTeItem;
    mitTableAlignCellContents: TTeItem;
    AlignCellToTheTop1: TTeItem;
    AlignCellToTheMiddle1: TTeItem;
    AlignCellToTheBottom1: TTeItem;
    DefaultCellVerticalAlignment1: TTeItem;
    mitTableCellBorders: TTeItem;
    LeftBorder1: TTeItem;
    rvActionTableCellTopBorder11: TTeItem;
    rvActionTableCellRightBorder11: TTeItem;
    rvActionTableCellBottomBorder11: TTeItem;
    rvActionTableCellAllBorders11: TTeItem;
    rvActionTableCellNoBorders11: TTeItem;
    N11: TTeItem;
    SplitCells1: TTeItem;
    MergeCells1: TTeItem;
    N24: TTeItem;
    ShowGridLines1: TTeItem;
    N23: TTeItem;
    ableProperties1: TTeItem;
    TeSpeedDivider2: TTeSpeedDivider;
    TeSpeedDivider3: TTeSpeedDivider;
    TeSpeedDivider4: TTeSpeedDivider;
    TeSpeedDivider5: TTeSpeedDivider;
    TeSpeedDivider6: TTeSpeedDivider;
    TeSpeedDivider7: TTeSpeedDivider;
    TeSpeedDivider8: TTeSpeedDivider;
    TeSpeedDivider9: TTeSpeedDivider;
    TeSpeedDivider10: TTeSpeedDivider;
    TeSpeedDivider11: TTeSpeedDivider;
    TeSpeedDivider12: TTeSpeedDivider;
    TeSpeedDivider13: TTeSpeedDivider;
    TeSpeedDivider14: TTeSpeedDivider;
    TeSpeedDivider15: TTeSpeedDivider;
    TeThemeSwitcher1: TTeThemeSwitcher;
    TeThemeList1: TTeThemeList;
    TeSpeedButton1: TTeSpeedButton;
    TeSpeedDivider16: TTeSpeedDivider;
    RichViewEdit1: TRichViewEdit;
    TeaScrollAdapter1: TTeaScrollAdapter;
    TeSpeedButton2: TTeSpeedButton;
    TeSpeedDivider17: TTeSpeedDivider;
    TeSpeedButton3: TTeSpeedButton;
    CustomItem1: TTeItem;
    CustomItem2: TTeItem;
    CustomItem3: TTeItem;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure mitExit_oldClick(Sender: TObject);
    procedure RichViewEdit1Jump(Sender: TObject; id: Integer);
    procedure RichViewEdit1ReadHyperlink(Sender: TCustomRichView;
      const Target, Extras: String; DocFormat: TRVLoadFormat; var StyleNo,
      ItemTag: Integer; var ItemName: String);
    procedure cmbFont1Click(Sender: TObject);
    procedure cmbKeyPress(Sender: TObject; var Key: Char);
    procedure RichViewEdit1CurTextStyleChanged(Sender: TObject);
    procedure cmbFontSize1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RVAControlPanel1CreateTeForm(Sender: TForm; teForm: TTeForm);
    procedure RichViewEdit1WriteHyperlink(Sender: TCustomRichView;
      id: Integer; RVData: TCustomRVData; ItemNo: Integer;
      SaveFormat: TRVSaveFormat; var Target, Extras: String);
    procedure RichViewEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ToolButton12ChevronClick(Sender: TObject);
    procedure RVAControlPanel1Download(Sender: TrvAction;
      const Source: String);
  private
    { Private declarations }
    UpdatingCombos: Boolean;
    procedure DoApplicationHint(Sender: TObject);
    procedure ColorPickerShow(Sender: TObject);
    procedure ColorPickerHide(Sender: TObject);
    procedure rvActionSave1DocumentFileChange(Sender: TObject;
      Editor: TCustomRichViewEdit; const FileName: String;
      FileFormat: TrvFileSaveFilter; IsNew: Boolean);
    procedure Localize;
  public
    { Public declarations }
  end;

var