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