sakurasuite/sample_editor/Unit1.pas

   1 unit Unit1;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, heClasses, heFountain, SakuraScriptFountain, HEditor, SsParser,
   8   HTMLFountain, StdCtrls, DelphiFountain;
   9
  10 type
  11   TForm1 = class(TForm)
  12     Editor1: TEditor;
  13     SakuraScriptFountain1: TSakuraScriptFountain;
  14     SsParser1: TSsParser;
  15     HTMLFountain1: THTMLFountain;
  16     Memo1: TMemo;
  17     DelphiFountain1: TDelphiFountain;
  18     procedure Memo1Click(Sender: TObject);
  19     procedure FormResize(Sender: TObject);
  20   private
  21     { Private \90é\8c¾ }
  22   public
  23     { Public \90é\8c¾ }
  24   end;
  25
  26 var
  27   Form1: TForm1;
  28
  29 implementation
  30
  31 {$R *.dfm}
  32
  33 procedure TForm1.Memo1Click(Sender: TObject);
  34 begin
  35   Memo1.Lines.Clear;
  36 end;
  37
  38 procedure TForm1.FormResize(Sender: TObject);
  39 begin
  40   Editor1.WrapOption.WrapByte := (Editor1.Width - 30) div 6;
  41 end;
  42
  43 end.