unit1.pas

用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SynEditActions, ActnList, Menus, SynExportTeX, SynExportRTF,
  SynEditExport, SynExportHTML, SynEdit, SynMemo, SynEditor, ImgList,
  SynEditPrint, SynCompletionProposal, SynEditPlugins, SynMacroRecorder,
  ComCtrls, SynEditSource, ExtCtrls, SynEditMiscClasses, StdCtrls,
  SynEditCodeFolding, SynEditHighlighter, SynHighlighterPas, SynSpellCheck,
  SynAutoCorrect, SynUniHighlighter, SynEditTextBuffer;

type
  TForm1 = class(TForm)
    mm1: TMainMenu;
    SynEditor1: TSynEditor;
    SynExporterHTML1: TSynExporterHTML;
    SynExporterRTF1: TSynExporterRTF;
    SynExporterTeX1: TSynExporterTeX;
    N1: TMenuItem;
    x1: TMenuItem;
    actlst1: TActionList;
    aSynReadOnly1: TaSynReadOnly;
    aSynNormalSelect1: TaSynNormalSelect;
    aSynColumnSelect1: TaSynColumnSelect;
    aSynLineSelect1: TaSynLineSelect;
    aSynUndo1: TaSynUndo;
    aSynRedo1: TaSynRedo;
    aSynCut1: TaSynCut;
    aSynAppendCut1: TaSynAppendCut;
    aSynCopy1: TaSynCopy;
    aSynAppendCopy1: TaSynAppendCopy;
    aSynPaste1: TaSynPaste;
    aSynDeleteNextchar1: TaSynDeleteNextchar;
    aSynDeleteLastChar1: TaSynDeleteLastChar;
    aSynDeleteWordToEnd1: TaSynDeleteWordToEnd;
    aSynDeleteWordToStart1: TaSynDeleteWordToStart;
    aSynDeleteWord1: TaSynDeleteWord;
    aSynDeleteLineToEnd1: TaSynDeleteLineToEnd;
    aSynDeleteLineToStart1: TaSynDeleteLineToStart;
    aSynDeleteLine1: TaSynDeleteLine;
    aSynClearAll1: TaSynClearAll;
    aSynSelectAll1: TaSynSelectAll;
    aSynSelectLine1: TaSynSelectLine;
    aSynSelectNextLine1: TaSynSelectNextLine;
    aSynSelectLastLine1: TaSynSelectLastLine;
    aSynSelectWrod1: TaSynSelectWrod;
    aSynSelectNextWord1: TaSynSelectNextWord;
    aSynSelectLastWord1: TaSynSelectLastWord;
    aSynGotoBookmark1: TaSynGotoBookmark;
    aSynSetBookmark1: TaSynSetBookmark;
    aSynClearBookmark1: TaSynClearBookmark;
    aSynGotoLastChange1: TaSynGotoLastChange;
    aSynMatchBracket1: TaSynMatchBracket;
    aSynCommentBlock1: TaSynCommentBlock;
    aSynFind1: TaSynFind;
    aSynFindNext1: TaSynFindNext;
    aSynFindLast1: TaSynFindLast;
    aSynFindNextWord1: TaSynFindNextWord;
    aSynFindLastWord1: TaSynFindLastWord;
    aSynReplace1: TaSynReplace;
    aSynReplaceNext1: TaSynReplaceNext;
    aSynReplaceLast1: TaSynReplaceLast;
    aSynUpperCase1: TaSynUpperCase;
    aSynLowerCase1: TaSynLowerCase;
    aSynToggleCase1: TaSynToggleCase;
    aSynTitleCase1: TaSynTitleCase;
    aSynBlockIndent1: TaSynBlockIndent;
    aSynBlockUnindent1: TaSynBlockUnindent;
    aSynInsertLine1: TaSynInsertLine;
    aSynLineBreak1: TaSynLineBreak;
    aSynFileFormatDos1: TaSynFileFormatDos;
    aSynFileFormatMac1: TaSynFileFormatMac;
    aSynFileFormatUnix1: TaSynFileFormatUnix;
    aSynPrint1: TaSynPrint;
    aSynQuickPrint1: TaSynQuickPrint;
    aSynExporter1: TaSynExporter;
    aSynSave1: TaSynSave;
    aSynSaveAs1: TaSynSaveAs;
    aSynSaveSel1: TaSynSaveSel;
    aSynNew1: TaSynNew;
    aSynOpen1: TaSynOpen;
    aSynInsertFile1: TaSynInsertFile;
    N2: TMenuItem;
    O1: TMenuItem;
    N3: TMenuItem;
    a1: TMenuItem;
    S1: TMenuItem;
    A2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    aSynExporter2: TaSynExporter;
    aSynExporter3: TaSynExporter;
    N6: TMenuItem;
    aSynPaste11: TMenuItem;
    N7: TMenuItem;
    RTF1: TMenuItem;
    HTML1: TMenuItem;
    EX1: TMenuItem;
    U1: TMenuItem;
    R1: TMenuItem;
    N8: TMenuItem;
    X2: TMenuItem;
    C1: TMenuItem;
    N9: TMenuItem;
    D1: TMenuItem;
    A3: TMenuItem;
    aSynClearAll11: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    t1: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    P1: TMenuItem;
    N34: TMenuItem;
    F1: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    aSynReplaceNext11: TMenuItem;
    aSynReplaceLast11: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    il1: TImageList;
    aSynGotoBookmark2: TaSynGotoBookmark;
    aSynSetBookmark2: TaSynSetBookmark;
    aSynGotoBookmark3: TaSynGotoBookmark;
    aSynSetBookmark3: TaSynSetBookmark;
    aSynGotoBookmark4: TaSynGotoBookmark;
    aSynSetBookmark4: TaSynSetBookmark;
    aSynGotoBookmark5: TaSynGotoBookmark;
    aSynSetBookmark5: TaSynSetBookmark;
    aSynGotoBookmark6: TaSynGotoBookmark;
    aSynSetBookmark6: TaSynSetBookmark;
    aSynGotoBookmark7: TaSynGotoBookmark;
    aSynSetBookmark7: TaSynSetBookmark;
    aSynGotoBookmark8: TaSynGotoBookmark;
    aSynSetBookmark8: TaSynSetBookmark;
    aSynGotoBookmark9: TaSynGotoBookmark;
    aSynSetBookmark9: TaSynSetBookmark;
    aSynGotoBookmark10: TaSynGotoBookmark;
    aSynSetBookmark10: TaSynSetBookmark;
    N43: TMenuItem;
    N44: TMenuItem;
    N01: TMenuItem;
    N110: TMenuItem;
    N210: TMenuItem;
    N310: TMenuItem;
    N45: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    N71: TMenuItem;
    N81: TMenuItem;
    N91: TMenuItem;
    N02: TMenuItem;
    N111: TMenuItem;
    N211: TMenuItem;
    N311: TMenuItem;
    N46: TMenuItem;
    N52: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N82: TMenuItem;
    N92: TMenuItem;
    SynEditPrint1: TSynEditPrint;
    aSynPageSetup1: TaSynPageSetup;
    aSynPreview1: TaSynPreview;
    N47: TMenuItem;
    N48: TMenuItem;
    aSynClose1: TaSynClose;
    N49: TMenuItem;
    aSynJump1: TaSynJump;
    N50: TMenuItem;
    G1: TMenuItem;
    N03: TMenuItem;
    N53: TMenuItem;
    SynManager1: TSynManager;
    StatusBar1: TStatusBar;
    aSynOptionsSetting1: TaSynOptionsSetting;
    SynEditSource1: TSynEditSource;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    aSynToggleHighlighter1: TaSynToggleHighlighter;
    O2: TMenuItem;
    N54: TMenuItem;
    E1: TMenuItem;
    H1: TMenuItem;
    SynEditScrollBar1: TSynEditScrollBar;
    ScrollBar1: TScrollBar;
    N55: TMenuItem;
    N56: TMenuItem;
    ScrollBar2: TScrollBar;
    SynEditScrollBar2: TSynEditScrollBar;
    SynAutoCorrect1: TSynAutoCorrect;
    SynAutoComplete1: TSynAutoComplete;
    SynCompletionProposal1: TSynCompletionProposal;
    SynSpellCheck1: TSynSpellCheck;
    aSynSpellCheck1: TaSynSpellCheck;
    aSynSpellCheckOptions1: TaSynSpellCheckOptions;
    N57: TMenuItem;
    N58: TMenuItem;
    SynUniSyn1: TSynUniSyn;
    procedure SynEditor1GutterClick(Sender: TObject; Button: TMouseButton; X, Y,
      Line: Integer; Mark: TSynEditMark; Region: Boolean);
    procedure N56Click(Sender: TObject);
    function SynEditScrollBar1EnabledScrollBar(
      const sbArrows: Integer): Boolean;
    function SynEditScrollBar1GetScrollInfo(
      var ScrollInfo: tagSCROLLINFO): Boolean;
    procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    function SynEditScrollBar1SetScrollInfo(const ScrollInfo: tagSCROLLINFO;
      Redraw: Boolean): Integer;
    function SynEditScrollBar1ShowScrollBar(const sbShow: Boolean): Boolean;
    procedure CreateEditor(Sender: TObject;
      var Editor: TCustomSynEditor);
    procedure SynEditor1DblClick(Sender: TObject);
    procedure SynEditor1SpecialLineColors(Sender: TObject; Line: Integer;
      var Special: Boolean; var FG, BG: TColor);
    procedure FormCreate(Sender: TObject);
    function SynEditScrollBar2EnabledScrollBar(
      const sbArrows: Integer): Boolean;
    function SynEditScrollBar2GetScrollInfo(
      var ScrollInfo: tagSCROLLINFO): Boolean;
    function SynEditScrollBar2SetScrollInfo(const ScrollInfo: tagSCROLLINFO;
      Redraw: Boolean): Integer;
    function SynEditScrollBar2ShowScrollBar(const sbShow: Boolean): Boolean;
    procedure ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateEditor(Sender: TObject;
  var Editor: TCustomSynEditor);
begin
  editor := SynEditor1;
end;

procedure TForm1.SynEditor1DblClick(Sender: TObject);
begin
  with TSynEditor(Sender) do
  begin
    if amBackground in ExpandLines.Attributes[CaretY-1].aMask then
      SetLineColorToDefault(CaretY-1)
    else
      SetLineColor(CaretY-1, clWhite, clGreen);
  end;
end;

procedure TForm1.SynEditor1GutterClick(Sender: TObject; Button: TMouseButton; X,
  Y, Line: Integer; Mark: TSynEditMark; Region: Boolean);
begin
if Region then
 If Mark = nil Then
  SynEditor1.SetBookMark(SynEditor1.GetFirstFreeBookMark, SynEditor1.CaretX, SynEditor1.CaretY)
 else
  SynEditor1.ClearBookMark(Mark.BookmarkNumber);
end;

procedure TForm1.SynEditor1SpecialLineColors(Sender: TObject;
  Line: Integer; var Special: Boolean; var FG, BG: TColor);
begin
  if Line = 3 then
  begin
    Special := true;
    FG := clWhite;
    BG := clRed;
  end;
end;

function TForm1.SynEditScrollBar1ShowScrollBar(const sbShow: Boolean): Boolean;
begin
  Result := True;
  ScrollBar1.Visible := sbShow;
end;

function TForm1.SynEditScrollBar2EnabledScrollBar(
  const sbArrows: Integer): Boolean;
begin
  Result := true;
  ScrollBar2.Enabled := sbArrows <> ESB_DISABLE_BOTH;
end;

function TForm1.SynEditScrollBar2GetScrollInfo(
  var ScrollInfo: tagSCROLLINFO): Boolean;
begin
  Result := True;
  ScrollInfo.nMax := ScrollBar2.Max;
  ScrollInfo.nMin := ScrollBar2.Min;
  ScrollInfo.nPage := ScrollBar2.PageSize;
  ScrollInfo.nPos := ScrollBar2.Position;
end;

function TForm1.SynEditScrollBar2SetScrollInfo(const ScrollInfo: tagSCROLLINFO;
  Redraw: Boolean): Integer;
begin
  with ScrollInfo do
  begin
//    ShowMessage(IntToStr(nMax)+'|'+IntToStr(nMin)+'|'+inttostr(nPage));
    ScrollBar2.Enabled := (ScrollInfo.nPage < ScrollInfo.nMax) and
      (ScrollInfo.nMin < ScrollInfo.nMax);
    if ScrollBar2.Enabled then
    begin
      ScrollBar2.PageSize := ScrollInfo.nPage;
      ScrollBar2.LargeChange := SynEditor1.CharsInWindow shr Ord(eoScrollByOneLess in SynEditor1.Options);
      ScrollBar2.SetParams(ScrollInfo.nPos, ScrollInfo.nMin, ScrollInfo.nMax);
    end;
  end;
end;

function TForm1.SynEditScrollBar2ShowScrollBar(const sbShow: Boolean): Boolean;
begin
  Result := True;
  ScrollBar2.Visible := sbShow;
end;

function TForm1.SynEditScrollBar1SetScrollInfo(const ScrollInfo: tagSCROLLINFO;
  Redraw: Boolean): Integer;
begin
//  result := SetScrollInfo(ScrollBar1.Handle, SB_CTL, ScrollInfo, Redraw);
  with ScrollInfo do
  begin
//    ShowMessage(IntToStr(nMax)+'|'+IntToStr(nMin)+'|'+inttostr(nPage));
    ScrollBar1.Enabled := (ScrollInfo.nPage < ScrollInfo.nMax) and
      (ScrollInfo.nMin < ScrollInfo.nMax);
    if ScrollBar1.Enabled then
    begin
      ScrollBar1.PageSize := ScrollInfo.nPage;
      ScrollBar1.LargeChange := SynEditor1.LinesInWindow shr Ord(eoHalfPageScroll in SynEditor1.Options);
      ScrollBar1.SetParams(ScrollInfo.nPos, ScrollInfo.nMin, ScrollInfo.nMax);
    end;
  end;
end;

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  SynEditor1.SetVerticalScrollBarPos(ScrollCode, ScrollPos);
end;

procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  SynEditor1.SetHorizontalScrollBarPos(ScrollCode, ScrollPos);
end;

function TForm1.SynEditScrollBar1GetScrollInfo(
  var ScrollInfo: tagSCROLLINFO): Boolean;
begin
  Result := True;
  ScrollInfo.nMax := ScrollBar1.Max;
  ScrollInfo.nMin := ScrollBar1.Min;
  ScrollInfo.nPage := ScrollBar1.PageSize;
  ScrollInfo.nPos := ScrollBar1.Position;
end;

function TForm1.SynEditScrollBar1EnabledScrollBar(
  const sbArrows: Integer): Boolean;
begin
  Result := true;
  ScrollBar1.Enabled := sbArrows <> ESB_DISABLE_BOTH;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Manager.AddEditor(SynEditor1);
  SynEditor1.UnicodeFontName := '新宋体';
end;

procedure TForm1.N56Click(Sender: TObject);
begin
  syneditor1.InitCodeFolding;
  syneditor1.Repaint;
end;

end.