Einzelnen Beitrag anzeigen

Benutzerbild von paule32.jk
paule32.jk

Registriert seit: 24. Sep 2022
Ort: Planet Erde
218 Beiträge
 
Delphi 11 Alexandria
 
#1

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

  Alt 12. Dez 2023, 08:01
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
Miniaturansicht angehängter Grafiken
sc1.png  
Frag doch einfach
Alles was nicht programmiert werden kann, wird gelötet
  Mit Zitat antworten Zitat