Lazarus: "Kommunikation" zweier Formulare

[Störtebeker]

Boa, Lazarus scheint doch etwas komplizierter zu sein, als Delphi.

Folgener Quelltext (Lazarus):

Delphi-Quellcode:

unit meta;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  ComCtrls, StdCtrls;

type

  { TForm3 }

  TForm3 = class(TForm)
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    PageControl1: TPageControl;
    Panel1: TPanel;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form3: TForm3;

implementation

{ TForm3 }

procedure TForm3.Button1Click(Sender: TObject);
begin
  Form3.close;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  Form1.SynEdit1.seltext:='META name="Generator" content="'+Form3.Edit1.Text+'">'+#13#10+'';
end;

initialization
  {$I meta.lrs}

end.

Zitat:

meta.pas(50,7) Error: Identifier not found "main"
meta.pas(58) Fatal: There were 1 errors compiling module, stopping

Es soll auf Buttonklick der Text in dem Editfeld von Form3 in das SynEdit von Form1 geschrieben werden. Im Quelltext von Form1 (main.pas) ist die Form3 (meta.pas) bereits in den "Uses" mit drin, welshalb ich die Fehlermeldung:

Zitat:

meta.pas(9,27) Fatal: Circular unit reference between meta and main

kriege, wenn ich die main.pas in die meta unit unter "Uses" mit eintrage. Unter Delphi hatte ich damit keine Probleme.

Ich hoffe, dass mir einer von euch mit dem Problem helfen kann.

MfG
Störtebeker

[omata]

Zitat:

Zitat von Störtebeker

Zitat:

meta.pas(9,27) Fatal: Circular unit reference between meta and main

kriege, wenn ich die main.pas in die meta unit unter "Uses" mit eintrage. Unter Delphi hatte ich damit keine Probleme.

Das ist ja wunderbar, damit wird mir Lazarus ja noch sympathischer. Da wird der Programmierer endlich dazu gezwungen ordentlich zu programmieren. Das ist super :thumb:

[BullsEye]

Ich hab gerade mal Lazarus gestartet und bei mir gehts wenn ich die eine Unit jeweils in die andere einbinde. und Später auf das andere Formular zugreife. Alles einwandfrei.

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);
begin
  Form1.SynEdit1.seltext:='META name="Generator" content="'+Form3.Edit1.Text+'">'+#13#10+''; // entferne hier mal das Form3.
  // Das die Zeile wie folgt aussieht:
  Form1.SynEdit1.seltext := 'META name="Generator" content="' + Edit1.Text + '">'+#13#10+'';
end;

und in der Uses Main entfernst du immer das "Form1." insofern das vorhanden ist. Ich weiß nicht sicher, aber damals hatte ich auch mal ein Lazarusprojekt, da lag das daran, keine Ahung warum das so ist.

[Störtebeker]

Nein, daran lag es leider nicht. --> Selber Fehler.

[STS301]

welches Lazarus benützt du?

[Störtebeker]

Das neue Lazarus -> Version 0.9.24 BETA

[STS301]

komisch, das sollte eigentlich funktionieren, ist sonst noch anderer Code dabei

0.9.24 ist nicht mehr neu, es sollte nächste Woche 0.9.26 rauskommen ;)

[Störtebeker]

Was meinst du mit anderer Code? Nicht für das "Meta" Formular.


P.S.:
Gibt es schon Informationen, was in der Version 0.9.26 neu ist?

[BullsEye]

Zitat:

Zitat von Störtebeker

Was meinst du mit anderer Code? Nicht für das "Meta" Formular.

Sonst was an Code halt. Es kann sein das der Fehler im Code liegt, der anscheinend gar nichts mit dem Fehler zu tun hat.

[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.