RTF und Tabellen - wie kann man die aktuelle Tabelle am Caret finden ?

[paule32.jk]

Hallo,

mit Bezugname auf diesen Link, habe ich für mich ein kleines Tool geschrieben, das mir bei der Dokumentation meiner Delphi Projekte behilflich sein soll.

Im Bild im Anhang kann man in der Mitte einen schwarzen, dicken Rahmen sehen, der eine Tabelle darstellen soll bzw. als Tabelle dient.

Frage 1:
- wie kann man den Rahmen ändern (Farbe, Rundung, Stil (gestrichelt z.B.)) ?

Frage 2:
- wie kommt man während der Laufzeit auf dieses Objekt bzw. wie kann ich während der Laufzeit den relevanten RTF-Text, der dieses Objekt beschreibt ändern ?

Ich habe folgenden RTF-Code verwendet, um das derzeitige Bild zu genieren:

Code:

procedure TForm2.Button2Click(Sender: TObject);
var
  s: String;
begin
  s := ''
  + '{\rtf1\ansi'

  + '\deff2{'                  // default font: 2
  + '\fonttbl{'                // font table:
  + '\f0 Arial;'               // font 0: Arial
  + '\f1 Consolas;'            // font 1: Consolas
  + '\f2 Times New Roman;'     // font 2: Times New Roman
  + '}}'

  + '{\colortbl '              // color table
  + ';\red255\green0\blue0;'   // color: full red
  + '}'

  // simple text block
  + '{\fs42'                   // font size: 24
  + '\cf1 '                    // set font color: 1 (red)
  + 'Halllo Welt !!!}'

  + '{\trowd'                  // table row definition
  + '\clbrdrl\brdrs\brdrw200'  // border: left, simgle line, width: 200
  + '\clbrdrt\brdrs\brdrw200'  //       : top
  + '\clbrdrb\brdrs\brdrw200'  //       : bottom
  + '\clbrdrr\brdrs\brdrw200'  //       : right

  + '\cellx4000'               // cell x(width) limit
  + 'cell 1\intbl\cell'
  + 'cell 2\intbl\cell'
  + 'cell 3\intbl\cell'
  + '\row'
  + '}}';

  try
    FEditorFrame.RichEdit1.PlainText := false;
    FEditorFrame.RichEdit1.Lines.Clear;
    FEditorFrame.RichEdit1.Lines.Add(s);
  except
    on E: Exception do
    begin
      if E.ClassName = 'EOutOfResources' then
      begin
      end;
    end;
  end;
end;

Für sachdienliche Hinweise bin ich dankbar.
Jens