Dies ist ein einfacher Beispiel Text ohne
Formatierung. Mal sehen ob er angezeigt wird.

Jetzt kommt die Formatierung:
<fg=red>Rot</fg> <fg=blue>Blau</fg>
<fg=orange>Dieser Test ist Orange und <fg=red2>Rot2 <fg=blue>Haus <fg=chocolate>Tane Tane Tane</fg>Haus Haus Haus</fg>
Garten Garten Garten</fg>u77utt5</fg>f
Text Text Text Text

Dieser Text ist <b>fett</b> und dieser ist nicht Fett.
Dieser Text ist <i>kusif</i> und dieser ist nicht Kusif
Dieser Text ist <u>unterstriechen</u> und dieser nicht
Dieser Text ist in <fn=new century schoolbook [adobe]>new century schoolbook [adobe]</fn> test test testheute

Dies<b>ist ein <i> test von</i> heute<u>test2</u> test3</b>
<fg=blue> <bg=Red>Roter Hintergrund</bg> Test2 <bg=SlateBlue2> Test3 Test4<bg=black>Haus1Lilo</bg></bg></fg>
Hallo du bis ein Test von heute wie geht es dir so ?

<size=16>Dieser text wird in 16 angezeigt <size=30>und dieser in 30</size> 
und dieser wieder in 16</size> und dieser wirder Normal.
LinkListen:
Wie geht es dir heute so ?<link=www.google.de>www.google.de</link> dies ist ein Test von Heute
Wie ist das Wetter ?<link=www.heise.de>www.heise.de</link> Morgen ?
Der Wald ist <link=www.lazarusforum.de>www.lazarusforum.de</link>gruen oder nicht ?
Das Wasser ist<link=www.suse.de>www.suse.de</link> aber nass.
Klick bitte auf diesen <link=www.suse.de>link</link> danke !

<fg=blue3>
test test test
<bg=black>
Wie geht es dir ?
</bg>
</fg>

<liste>
 <b>TestListe1</b>
  <addlevel>
    Level 1
    Level 2
    <addlevel>
      Level 2,1
      <addlevel>
        Level 3,1
        Level 3,2
        <fg=blue>Level 3,3</fg>
        Level 3,4
      </addlevel>
      Level 2,2
      Level 2,3
    </addlevel>  
    Level 3
    Level 4
    Level 5
  </addlevel>
</liste>


<liste>
  <b>TestListe2</b>
  Root1
  <b>Root2</b>
  Root3
  Root4
</liste>

<b>CodeBeispiel01</b>
<bg=black>
<code>
procedure LoadText(const aTextFile:String; aCanvas:TCanvas; aBuffer:TBitMap;var aLinkListe:TLinkItems);
  procedure BufferSizeChange;
  var
    oldTextItem:TTextItem;
    oldY,oldH:Integer;
    oldBitMap:TBitMap;
  begin
    oldBitMap:=TBitMap.Create;
    oldBitMap.Width:=aBuffer.Width;
    oldBitMap.Height:=aBuffer.Height;
    oldBitMap.Canvas.Brush.color:=clWhite;
    oldBitMap.Canvas.FillRect(0,0,oldBitMap.Width,oldBitMap.Height);
    BitBlt(oldBitMap.Canvas.Handle,0,0,oldBitMap.Width,oldBitMap.Height,aBuffer.Canvas.Handle,0,0,SRCCOPY);

    CanvasToTextItem(oldTextItem,aCanvas);
    oldY:=aBuffer.Height;
    oldh:=aCanvas.ClipRect.Bottom;
    aBuffer.Height:=aBuffer.Height+aCanvas.ClipRect.Bottom;

    aCanvas.Brush.color:=clWhite;

    aCanvas.FillRect(0,oldY,aBuffer.Width,oldy+oldh);
    TextItemToCanvas(oldTextItem,aCanvas);
    BitBlt(aBuffer.Canvas.Handle,0,0,oldBitMap.Width,oldBitMap.Height,oldBitMap.Canvas.Handle,0,0,SRCCOPY);
    oldBitMap.Free;
  end;
</code>
</bg>

Die ist wieder ein Normaler Text ein Test von heute wie
geht es dir so ? Gut dann komme mich doch mal besuchen.
