TRichEdit Standard-Formatierung restaurieren

[Andreas H.]

Hallo,

ich habe ein TjvRichEdit, in dem der Benutzer Änderungen vornimmt und dabei natürlich auch die Formatierungen ändern kann. Bevor der Inhalt in eine Datenbank gespeichert wird, soll am Ende automatisch ein Text (mit Lines.Add) in der Standard-Formatierung (so wie designed) angefügt werden.

Gibt es da einen Trick, die Standard-Einstellungen für Font etc. zu restauriern oder muss ich mir jede Einstellung z.B. im onCreate merken?

Gruß Andreas

[s-off]

Hallo,

dieses Thema wurde kürzlich hierbehandelt.

[defede]

Ein kleiner trick wäre
einfach den ParentFont neu zuweisen?

[s-off]

Zitat von defede:

Ein kleiner trick wäre
einfach den ParentFont neu zuweisen?

Und wenn ParentFont := False ?

[defede]

Zitat von s-off:

Zitat von defede:

Ein kleiner trick wäre
einfach den ParentFont neu zuweisen?

Und wenn ParentFont := False ?

Ein bissl Kreativ musst auch sein. Mach doch einfach
ein Panel drunter, das RichEdit auf alClient und
weise dem Panel die Font zu die du als Standard haben
möchtest. Noch die Border/Bevels weg und das sit der
Faulste weg der mir eingefallen ist *g*

Amsonsten TFont beim onCreate merken und neu zuweisen.
Aber ich möchte dir ja nicht den ganzen Spass an der Arbeit
und am Denken nehmen

[s-off]

Zitat von defede:

Ein bissl Kreativ musst auch sein. Mach doch einfach
ein Panel drunter, das RichEdit auf alClient und
weise dem Panel die Font zu die du als Standard haben
möchtest. Noch die Border/Bevels weg und das sit der
Faulste weg der mir eingefallen ist *g*

Ich möchte Dir ja nicht zu nahe treten, aber das hat nichts mit Kreativität zu tun; das ist gefrickel

Zitat von defede:

Amsonsten TFont beim onCreate merken und neu zuweisen.

Das hat der Threadersteller auch schon vorgeschlagen

Zitat von defede:

Aber ich möchte dir ja nicht den ganzen Spass an der Arbeit
und am Denken nehmen

Nicht ich habe das Problem, sondern der Threadersteller

[Andreas H.]

Hallo,

WordAttributes habe ich mal gerettet, und wieder zugewiese, hat aber nicht gefunzt.
Das mit dem Font probier ich mal.

Auf die harte Tour krieg ich das wohl schon hin. Aber vielleicht gibts ja nen Trick oder so.

Ach ja, vielleicht das noch zur Info: Das RichEdit wird zum Editieren per SaveToStream/Load FromStream an einen Editor übergeben und nach dem Ändern zurückgeholt. Die Lines, die ich zufüge haben immer die Formatierung des letzten Zeichens.

Gruß Andreas

[defede]

uppps Sorry s-off

hab nicht genau auf den Namen geschielt.

Und ja es ist gefrickel da mir die Frage eigentlich schon
etwas > < vorkommt, aber egal wir haben alle mal
mit was angefangen. Drum wollte ich es gleich so erklären das
es jeder versteht. Oki?

[s-off]

Zitat von defede:

uppps Sorry s-off

kein Problem

Zitat von defede:

Drum wollte ich es gleich so erklären das
es jeder versteht. Oki?

auch kein Problem

[marabu]

Hallo Andreas,

ich würde das so machen:

Delphi-Quellcode:

begin
  with RichEdit do
  begin
    SelStart := MaxInt;
    SelAttributes.Assign(DefAttributes);
    Lines.Add('One last line on DefAttributes!');
  end;
end;

Oder habe ich etwas falsch verstanden?

Grüße vom marabu