Lazarus: "Kommunikation" zweier Formulare

[Störtebeker]

Den Code für das "Meta" Formular habe ich ja schon im 1. Post geschrieben.

Das "Main" Formular:

Delphi-Quellcode:

unit main;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ActnList,
  Menus, SynEdit, ComCtrls, StdCtrls, SynHighlighterHTML, SynCompletion,
  pluginmanager, meta, ExtCtrls, EditBtn, ButtonPanel;

type

  { TForm1 }

  TForm1 = class(TForm)
    ActionList1: TActionList;
    ApplicationProperties1: TApplicationProperties;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem100: TMenuItem;
    MenuItem101: TMenuItem;
    MenuItem102: TMenuItem;
    MenuItem103: TMenuItem;
    MenuItem104: TMenuItem;
    MenuItem105: TMenuItem;
    MenuItem106: TMenuItem;
    MenuItem107: TMenuItem;
    MenuItem108: TMenuItem;
    MenuItem109: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem110: TMenuItem;
    MenuItem111: TMenuItem;
    MenuItem112: TMenuItem;
    MenuItem113: TMenuItem;
    MenuItem114: TMenuItem;
    MenuItem115: TMenuItem;
    MenuItem116: TMenuItem;
    MenuItem117: TMenuItem;
    MenuItem118: TMenuItem;
    MenuItem119: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem120: TMenuItem;
    MenuItem121: TMenuItem;
    MenuItem122: TMenuItem;
    MenuItem123: TMenuItem;
    MenuItem124: TMenuItem;
    MenuItem125: TMenuItem;
    MenuItem126: TMenuItem;
    MenuItem127: TMenuItem;
    MenuItem128: TMenuItem;
    MenuItem129: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem130: TMenuItem;
    MenuItem131: TMenuItem;
    MenuItem132: TMenuItem;
    MenuItem133: TMenuItem;
    MenuItem134: TMenuItem;
    MenuItem135: TMenuItem;
    MenuItem136: TMenuItem;
    MenuItem137: TMenuItem;
    MenuItem138: TMenuItem;
    MenuItem139: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem140: TMenuItem;
    MenuItem141: TMenuItem;
    MenuItem142: TMenuItem;
    MenuItem143: TMenuItem;
    MenuItem144: TMenuItem;
    MenuItem145: TMenuItem;
    MenuItem146: TMenuItem;
    MenuItem147: TMenuItem;
    MenuItem148: TMenuItem;
    MenuItem149: TMenuItem;
    MenuItem15: TMenuItem;
    MenuItem150: TMenuItem;
    MenuItem151: TMenuItem;
    MenuItem152: TMenuItem;
    MenuItem153: TMenuItem;
    MenuItem154: TMenuItem;
    MenuItem155: TMenuItem;
    MenuItem156: TMenuItem;
    MenuItem157: TMenuItem;
    MenuItem158: TMenuItem;
    MenuItem159: TMenuItem;
    MenuItem16: TMenuItem;
    MenuItem160: TMenuItem;
    MenuItem161: TMenuItem;
    MenuItem162: TMenuItem;
    MenuItem163: TMenuItem;
    MenuItem164: TMenuItem;
    MenuItem165: TMenuItem;
    MenuItem166: TMenuItem;
    MenuItem167: TMenuItem;
    MenuItem168: TMenuItem;
    MenuItem169: TMenuItem;
    MenuItem17: TMenuItem;
    MenuItem170: TMenuItem;
    MenuItem171: TMenuItem;
    MenuItem172: TMenuItem;
    MenuItem173: TMenuItem;
    MenuItem174: TMenuItem;
    MenuItem175: TMenuItem;
    MenuItem176: TMenuItem;
    MenuItem177: TMenuItem;
    MenuItem178: TMenuItem;
    MenuItem179: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem180: TMenuItem;
    MenuItem181: TMenuItem;
    MenuItem182: TMenuItem;
    MenuItem183: TMenuItem;
    MenuItem184: TMenuItem;
    MenuItem185: TMenuItem;
    MenuItem186: TMenuItem;
    MenuItem187: TMenuItem;
    MenuItem188: TMenuItem;
    MenuItem189: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem190: TMenuItem;
    MenuItem191: TMenuItem;
    MenuItem192: TMenuItem;
    MenuItem193: TMenuItem;
    MenuItem194: TMenuItem;
    MenuItem195: TMenuItem;
    MenuItem196: TMenuItem;
    MenuItem197: TMenuItem;
    MenuItem198: TMenuItem;
    MenuItem199: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem200: TMenuItem;
    MenuItem201: TMenuItem;
    MenuItem202: TMenuItem;
    MenuItem203: TMenuItem;
    MenuItem204: TMenuItem;
    MenuItem205: TMenuItem;
    MenuItem206: TMenuItem;
    MenuItem207: TMenuItem;
    MenuItem208: TMenuItem;
    MenuItem209: TMenuItem;
    MenuItem21: TMenuItem;
    MenuItem210: TMenuItem;
    MenuItem211: TMenuItem;
    MenuItem212: TMenuItem;
    MenuItem213: TMenuItem;
    MenuItem214: TMenuItem;
    MenuItem215: TMenuItem;
    MenuItem216: TMenuItem;
    MenuItem217: TMenuItem;
    MenuItem218: TMenuItem;
    MenuItem219: TMenuItem;
    MenuItem22: TMenuItem;
    MenuItem220: TMenuItem;
    MenuItem221: TMenuItem;
    MenuItem222: TMenuItem;
    MenuItem223: TMenuItem;
    MenuItem224: TMenuItem;
    MenuItem225: TMenuItem;
    MenuItem226: TMenuItem;
    MenuItem227: TMenuItem;
    MenuItem228: TMenuItem;
    MenuItem229: TMenuItem;
    MenuItem23: TMenuItem;
    MenuItem230: TMenuItem;
    MenuItem231: TMenuItem;
    MenuItem232: TMenuItem;
    MenuItem233: TMenuItem;
    MenuItem24: TMenuItem;
    MenuItem25: TMenuItem;
    MenuItem26: TMenuItem;
    MenuItem27: TMenuItem;
    MenuItem28: TMenuItem;
    MenuItem29: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem30: TMenuItem;
    MenuItem31: TMenuItem;
    MenuItem32: TMenuItem;
    MenuItem33: TMenuItem;
    MenuItem34: TMenuItem;
    MenuItem35: TMenuItem;
    MenuItem36: TMenuItem;
    MenuItem37: TMenuItem;
    MenuItem38: TMenuItem;
    MenuItem39: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem40: TMenuItem;
    MenuItem41: TMenuItem;
    MenuItem42: TMenuItem;
    MenuItem43: TMenuItem;
    MenuItem44: TMenuItem;
    MenuItem45: TMenuItem;
    MenuItem46: TMenuItem;
    MenuItem47: TMenuItem;
    MenuItem48: TMenuItem;
    MenuItem49: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem50: TMenuItem;
    MenuItem51: TMenuItem;
    MenuItem52: TMenuItem;
    MenuItem53: TMenuItem;
    MenuItem54: TMenuItem;
    MenuItem55: TMenuItem;
    MenuItem56: TMenuItem;
    MenuItem57: TMenuItem;
    MenuItem58: TMenuItem;
    MenuItem59: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem60: TMenuItem;
    MenuItem61: TMenuItem;
    MenuItem62: TMenuItem;
    MenuItem63: TMenuItem;
    MenuItem64: TMenuItem;
    MenuItem65: TMenuItem;
    MenuItem66: TMenuItem;
    MenuItem67: TMenuItem;
    MenuItem68: TMenuItem;
    MenuItem69: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem70: TMenuItem;
    MenuItem71: TMenuItem;
    MenuItem72: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    MenuItem77: TMenuItem;
    MenuItem78: TMenuItem;
    MenuItem79: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem80: TMenuItem;
    MenuItem81: TMenuItem;
    MenuItem82: TMenuItem;
    MenuItem83: TMenuItem;
    MenuItem84: TMenuItem;
    MenuItem85: TMenuItem;
    MenuItem86: TMenuItem;
    MenuItem87: TMenuItem;
    MenuItem88: TMenuItem;
    MenuItem89: TMenuItem;
    MenuItem9: TMenuItem;
    MenuItem90: TMenuItem;
    MenuItem91: TMenuItem;
    MenuItem92: TMenuItem;
    MenuItem93: TMenuItem;
    MenuItem94: TMenuItem;
    MenuItem95: TMenuItem;
    MenuItem96: TMenuItem;
    MenuItem97: TMenuItem;
    MenuItem98: TMenuItem;
    MenuItem99: TMenuItem;
    OpenDialog1: TOpenDialog;
    PageControl1: TPageControl;
    SaveDialog1: TSaveDialog;
    StatusBar1: TStatusBar;
    SynAutoComplete1: TSynAutoComplete;
    SynEdit1: TSynEdit;
    Standard: TTabSheet;
    Erweitert: TTabSheet;
    Listen: TTabSheet;
    Frames: TTabSheet;
    SynHTMLSyn1: TSynHTMLSyn;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton2: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    ToolButton25: TToolButton;
    ToolButton26: TToolButton;
    ToolButton27: TToolButton;
    ToolButton28: TToolButton;
    ToolButton29: TToolButton;
    ToolButton3: TToolButton;
    ToolButton30: TToolButton;
    ToolButton31: TToolButton;
    ToolButton32: TToolButton;
    ToolButton33: TToolButton;
    ToolButton34: TToolButton;
    ToolButton35: TToolButton;
    ToolButton37: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    TrayIcon1: TTrayIcon;
    TreeView1: TTreeView;
    procedure ComboBox2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MenuItem101Click(Sender: TObject);
    procedure MenuItem102Click(Sender: TObject);
    procedure MenuItem105Click(Sender: TObject);
    procedure MenuItem108Click(Sender: TObject);
    procedure MenuItem109Click(Sender: TObject);
    procedure MenuItem110Click(Sender: TObject);
    procedure MenuItem111Click(Sender: TObject);
    procedure MenuItem113Click(Sender: TObject);
    procedure MenuItem114Click(Sender: TObject);
    procedure MenuItem117Click(Sender: TObject);
    procedure MenuItem118Click(Sender: TObject);
    procedure MenuItem119Click(Sender: TObject);
    procedure MenuItem120Click(Sender: TObject);
    procedure MenuItem121Click(Sender: TObject);
    procedure MenuItem122Click(Sender: TObject);
    procedure MenuItem123Click(Sender: TObject);
    procedure MenuItem13Click(Sender: TObject);
    procedure MenuItem148Click(Sender: TObject);
    procedure MenuItem149Click(Sender: TObject);
    procedure MenuItem158Click(Sender: TObject);
    procedure MenuItem159Click(Sender: TObject);
    procedure MenuItem15Click(Sender: TObject);
    procedure MenuItem160Click(Sender: TObject);
    procedure MenuItem162Click(Sender: TObject);
    procedure MenuItem163Click(Sender: TObject);
    procedure MenuItem164Click(Sender: TObject);
    procedure MenuItem165Click(Sender: TObject);
    procedure MenuItem166Click(Sender: TObject);
    procedure MenuItem167Click(Sender: TObject);
    procedure MenuItem169Click(Sender: TObject);
    procedure MenuItem16Click(Sender: TObject);
    procedure MenuItem17Click(Sender: TObject);
    procedure MenuItem198Click(Sender: TObject);
    procedure MenuItem19Click(Sender: TObject);
    procedure MenuItem207Click(Sender: TObject);
    procedure MenuItem21Click(Sender: TObject);
    procedure MenuItem22Click(Sender: TObject);
    procedure MenuItem230Click(Sender: TObject);
    procedure MenuItem231Click(Sender: TObject);
    procedure MenuItem232Click(Sender: TObject);
    procedure MenuItem23Click(Sender: TObject);
    procedure MenuItem24Click(Sender: TObject);
    procedure MenuItem25Click(Sender: TObject);
    procedure MenuItem37Click(Sender: TObject);
    procedure MenuItem56Click(Sender: TObject);
    procedure MenuItem58Click(Sender: TObject);
    procedure MenuItem59Click(Sender: TObject);
    procedure MenuItem60Click(Sender: TObject);
    procedure MenuItem64Click(Sender: TObject);
    procedure MenuItem66Click(Sender: TObject);
    procedure MenuItem67Click(Sender: TObject);
    procedure MenuItem68Click(Sender: TObject);
    procedure MenuItem72Click(Sender: TObject);
    procedure MenuItem75Click(Sender: TObject);
    procedure MenuItem79Click(Sender: TObject);
    procedure MenuItem80Click(Sender: TObject);
    procedure MenuItem81Click(Sender: TObject);
    procedure MenuItem82Click(Sender: TObject);
    procedure MenuItem83Click(Sender: TObject);
    procedure MenuItem90Click(Sender: TObject);
    procedure MenuItem91Click(Sender: TObject);
    procedure MenuItem92Click(Sender: TObject);
    procedure MenuItem94Click(Sender: TObject);
    procedure MenuItem99Click(Sender: TObject);
    procedure StatusBar1DblClick(Sender: TObject);
    procedure ToolButton18Click(Sender: TObject);
    procedure ToolButton19Click(Sender: TObject);
    procedure ToolButton20Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure ToolButton22Click(Sender: TObject);
    procedure ToolButton23Click(Sender: TObject);
    procedure ToolButton25Click(Sender: TObject);
    procedure ToolButton26Click(Sender: TObject);
    procedure ToolButton27Click(Sender: TObject);
    procedure ToolButton28Click(Sender: TObject);
    procedure ToolButton30Click(Sender: TObject);
    procedure ToolButton31Click(Sender: TObject);
    procedure ToolButton32Click(Sender: TObject);
    procedure ToolButton33Click(Sender: TObject);
    procedure ToolButton35Click(Sender: TObject);
    procedure ToolButton37Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.ToolButton18Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h1> </h1>';
end;

procedure TForm1.ToolButton19Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h2> </h2>';
end;

procedure TForm1.ToolButton20Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h3> </h3>';
end;

procedure TForm1.ToolButton21Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h4> </h4>';
end;

procedure TForm1.ToolButton22Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h5> </h5>';
end;

procedure TForm1.ToolButton23Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h6> </h6>';
end;

procedure TForm1.ToolButton25Click(Sender: TObject);
begin
  SynEdit1.seltext:='<div align="left"> </div>';
end;

procedure TForm1.ToolButton26Click(Sender: TObject);
begin
  SynEdit1.seltext:='<div align="center"> </div>';
end;

procedure TForm1.ToolButton27Click(Sender: TObject);
begin
  SynEdit1.seltext:='<div align="right"> </div>';
end;

procedure TForm1.ToolButton28Click(Sender: TObject);
begin
  SynEdit1.seltext:='<div align="justify"> </div>';
end;

procedure TForm1.ToolButton30Click(Sender: TObject);
begin
  SynEdit1.seltext:='[b] [/b]';
end;

procedure TForm1.ToolButton31Click(Sender: TObject);
begin
  SynEdit1.seltext:='[i] [/i]';
end;

procedure TForm1.ToolButton32Click(Sender: TObject);
begin
  SynEdit1.seltext:='<u> </u>';
end;

procedure TForm1.ToolButton33Click(Sender: TObject);
begin
  SynEdit1.seltext:='<s> </s>';
end;

procedure TForm1.ToolButton35Click(Sender: TObject);
begin
  SynEdit1.seltext:='<sub> </sub>';
end;

procedure TForm1.ToolButton37Click(Sender: TObject);
begin
  SynEdit1.seltext:='<sup> </sup>';
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
  if OpenDialog1. Execute then
  SynEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  StatusBar1.Panels[8].Text:='Datei: '+OpenDialog1.FileName;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SynEdit1.Font.Name:='Courier New';
  combobox1.Items:=Screen.Fonts;
begin
  combobox2.items.add(IntToStr(8));
  combobox2.items.add(IntToStr(9));
  combobox2.items.add(IntToStr(10));
  combobox2.items.add(IntToStr(11));
  combobox2.items.add(IntToStr(12));
  combobox2.items.add(IntToStr(14));
  combobox2.items.add(IntToStr(16));
  combobox2.items.add(IntToStr(18));
  combobox2.items.add(IntToStr(20));
  combobox2.items.add(IntToStr(22));
  combobox2.items.add(IntToStr(24));
  combobox2.items.add(IntToStr(26));
  combobox2.items.add(IntToStr(28));
  combobox2.items.add(IntToStr(36));
  combobox2.items.add(IntToStr(48));
  combobox2.items.add(IntToStr(72));
end;
end;

procedure TForm1.MenuItem101Click(Sender: TObject);
begin
  SynEdit1.Seltext:='<embed src="" />';
end;

procedure TForm1.MenuItem102Click(Sender: TObject);
begin
  SynEdit1.seltext:='<noembed></noembed>';
end;

procedure TForm1.MenuItem105Click(Sender: TObject);
begin
  SynEdit1.seltext:='<> </>';
end;

procedure TForm1.MenuItem108Click(Sender: TObject);
begin
  SynEdit1.seltext:='[b] [/b]';
end;

procedure TForm1.MenuItem109Click(Sender: TObject);
begin
  SynEdit1.seltext:='[i] [/i]';
end;

procedure TForm1.MenuItem110Click(Sender: TObject);
begin
  SynEdit1.seltext:='<u> </u>';
end;

procedure TForm1.MenuItem111Click(Sender: TObject);
begin
  SynEdit1.seltext:='<s> </s>';
end;

procedure TForm1.MenuItem113Click(Sender: TObject);
begin
  SynEdit1.seltext:='<sub> </sub>';
end;

procedure TForm1.MenuItem114Click(Sender: TObject);
begin
  SynEdit1.seltext:='<sup> </sup>';
end;

procedure TForm1.MenuItem117Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h1> </h1>';
end;

procedure TForm1.MenuItem118Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h2> </h2>';
end;

procedure TForm1.MenuItem119Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h4> </h4>';
end;

procedure TForm1.MenuItem120Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h3> </h3>';
end;

procedure TForm1.MenuItem121Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h5> </h5>';
end;

procedure TForm1.MenuItem122Click(Sender: TObject);
begin
  SynEdit1.seltext:='<h6> </h6>';
end;

procedure TForm1.MenuItem148Click(Sender: TObject);
begin
  SynEdit1.SelText:='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/loose.dtd">';
end;

procedure TForm1.MenuItem149Click(Sender: TObject);
begin
  SynEdit1.SelText:='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/frameset.dtd">';
end;

procedure TForm1.MenuItem158Click(Sender: TObject);
begin
   SynEdit1.seltext:='<title>'+#13#10+''+#13#10+'</title>';
end;

procedure TForm1.MenuItem159Click(Sender: TObject);
begin
     SynEdit1.seltext:='<head>'+#13#10+''+#13#10+'</head>';
end;

procedure TForm1.MenuItem15Click(Sender: TObject);
begin
  with synedit1.lines do
begin
  add('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">');
  add('<html>');
  add(' <head>');
  add('  <title></title>');
  add(' </head>');
  add('  <body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000">');
  add('');
  add('  </body>');
  add('</html>');
end;
end;

procedure TForm1.MenuItem160Click(Sender: TObject);
begin
  SynEdit1.seltext:='<body>'+#13#10+''+#13#10+'</body>';
end;

procedure TForm1.MenuItem162Click(Sender: TObject);
begin
  with synedit1.lines do
begin
  add('<html>');
  add('<head>');
  add('<title></title>');
  add('</head>');
  add('<body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000">');
  add('');
  add('</body>');
  add('</html>');
end;
end;

procedure TForm1.MenuItem163Click(Sender: TObject);
begin
  SynEdit1.seltext:='&Ouml;';
end;

procedure TForm1.MenuItem164Click(Sender: TObject);
begin
  SynEdit1.seltext:='&Uuml;';
end;

procedure TForm1.MenuItem165Click(Sender: TObject);
begin
  SynEdit1.seltext:='&auml;';
end;

procedure TForm1.MenuItem166Click(Sender: TObject);
begin
  SynEdit1.seltext:='&ouml;';
end;

procedure TForm1.MenuItem167Click(Sender: TObject);
begin
  SynEdit1.seltext:='&uuml;';
end;

procedure TForm1.MenuItem169Click(Sender: TObject);
begin
  SynEdit1.seltext:='&szlig;';
end;

procedure TForm1.MenuItem16Click(Sender: TObject);
begin
  with synedit1.lines do
begin
  add('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">');
  add('<html>');
  add(' <head>');
  add('  <title></title>');
  add(' </head>');
  add('  <body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000">');
  add('');
  add('  </body>');
  add('</html>');
end;
end;

procedure TForm1.MenuItem17Click(Sender: TObject);
begin
  with synedit1.lines do
begin
  add('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">');
  add('<html>');
  add(' <head>');
  add('  <title></title>');
  add(' </head>');
  add('  <body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000">');
  add('');
  add('  </body>');
  add('</html>');
end;
end;

procedure TForm1.MenuItem198Click(Sender: TObject);
begin
  SynEdit1.seltext:='<script language="JavaScript">'+#13#10+''+#13#10+'</script>'+#13#10+'<noscript></noscript>';
end;

procedure TForm1.MenuItem19Click(Sender: TObject);
begin
  with synedit1.lines do
begin
  add('<?php');
  add('/**');
  add('*');
  add('*@author < >');
  add('*@version');
  add('*@package');
  add('*/');
  add('class');
  add('{');
  add('');
  add('}');
  add('?>');
end;
end;

procedure TForm1.MenuItem207Click(Sender: TObject);
begin
  SynEdit1.seltext:='<script language="VBScript" type="text/vbscript">'+#13#10+''+#13#10+'</script>'+#13#10+'<noscript></noscript>';
end;

procedure TForm1.MenuItem21Click(Sender: TObject);
begin
  with form1.synedit1.lines do
begin
  add('<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">');
  add('<html>');
  add(' <head>');
  add('  <title></title>');
  add(' </head>');
  add('  <body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000">');
  add('');
  add('  </body>');
  add('</html>');
end;
end;

procedure TForm1.MenuItem22Click(Sender: TObject);
begin
  with form1.synedit1.lines do
begin
  add('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">');
  add('<html>');
  add(' <head>');
  add('  <title></title>');
  add(' </head>');
  add('  <body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000">');
  add('');
  add('  </body>');
  add('</html>');
end;
end;

procedure TForm1.MenuItem230Click(Sender: TObject);
begin
  (sender as TMenuItem).Checked :=not ((sender as TMenuItem).Checked);
  toolbar1.visible:=(sender as TMenuItem).Checked;
end;

procedure TForm1.MenuItem231Click(Sender: TObject);
begin
  (sender as TMenuItem).Checked :=not ((sender as TMenuItem).Checked);
  StatusBar1.visible:=(sender as TMenuItem).Checked;
end;

procedure TForm1.MenuItem232Click(Sender: TObject);
begin
  SynEdit1.seltext:='<div align="justify"> </div>';
end;

procedure TForm1.MenuItem23Click(Sender: TObject);
begin
  with form1.synedit1.lines do
begin
  add('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">');
  add('<html>');
  add(' <head>');
  add('  <title></title>');
  add(' </head>');
  add('  <body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000">');
  add('');
  add('  </body>');
  add('</html>');
end;
end;

procedure TForm1.MenuItem24Click(Sender: TObject);
begin
  with form1.synedit1.lines do
begin
  add('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN""http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">');
  add('<html>');
  add(' <head>');
  add('  <title></title>');
  add(' </head>');
  add('  <body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000">');
  add('');
  add('  </body>');
  add('</html>');
end;
end;

procedure TForm1.MenuItem37Click(Sender: TObject);
begin
  Form2.showmodal;
end;

procedure TForm1.MenuItem58Click(Sender: TObject);
begin
  SynEdit1.seltext:='

 </p>';
end;

procedure TForm1.MenuItem59Click(Sender: TObject);
begin
  SynEdit1.seltext:='
';
end;

procedure TForm1.MenuItem60Click(Sender: TObject);
begin
  SynEdit1.seltext:='<nobr> </nobr> ';
end;

procedure TForm1.MenuItem66Click(Sender: TObject);
begin
  SynEdit1.seltext:='<div align="left"> </div>';
end;

procedure TForm1.MenuItem67Click(Sender: TObject);
begin
  SynEdit1.seltext:='<div align="center"> </div>';
end;

procedure TForm1.MenuItem68Click(Sender: TObject);
begin
  SynEdit1.seltext:='<div align="right"> </div>';
end;

procedure TForm1.MenuItem72Click(Sender: TObject);
begin
  SynEdit1.SelText:='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">';
end;

procedure TForm1.MenuItem75Click(Sender: TObject);
begin
  Form3.showmodal;
end;

procedure TForm1.MenuItem79Click(Sender: TObject);
begin
  SynEdit1.seltext:='&Auml;';
end;

procedure TForm1.MenuItem81Click(Sender: TObject);
begin
   SynEdit1.seltext:='<html>'+#13#10+''+#13#10+'</html>';
end;

procedure TForm1.MenuItem82Click(Sender: TObject);
begin
  (sender as TMenuItem).Checked :=not ((sender as TMenuItem).Checked);
  treeview1.visible:=(sender as TMenuItem).Checked;
end;

procedure TForm1.MenuItem83Click(Sender: TObject);
begin
  SynEdit1.seltext:='<a name=""> </a>';
end;

procedure TForm1.MenuItem90Click(Sender: TObject);
begin
  SynEdit1.seltext:='[email=""] [/email]';
end;

procedure TForm1.MenuItem91Click(Sender: TObject);
begin
  SynEdit1.seltext:='[email="undefined"] [/email]';
end;

procedure TForm1.MenuItem92Click(Sender: TObject);
begin
  SynEdit1.seltext:='[url="http://undefined"] [/url]';
end;

procedure TForm1.MenuItem94Click(Sender: TObject);
begin
  SynEdit1.seltext:='';
end;

procedure TForm1.MenuItem99Click(Sender: TObject);
begin
  SynEdit1.SelText:='<object "classid=clsid:" data="" codebase="" id=""></object>';
end;

initialization
  {$I main.lrs}

end.