Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
29. Aug 2007
Hallo Andreas,
du machst nichts falsch, aber du machst etwas ganz anderes als ich. Das Verhalten bei Lines.Add() ist etwas schwer zu verstehen. Darüber hinaus verhalten sich TRichEdit und TJvRichEdit nicht gleich, weshalb ich SelText verwende. Das kannst du auch:
function FooterText(recipients: TStrings): string;
var
i: Integer;
begin
with TStringList.Create do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
29. Aug 2007
Hallo Andreas,
ich würde das so machen:
begin
with RichEdit do
begin
SelStart := MaxInt;
SelAttributes.Assign(DefAttributes);