Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
26. Feb 2006
Guten Morgen Vader.
Du bist ja richtig anspruchsvoll. Pass auf die geänderte Signatur auf:
procedure SetParaColor(re: TRichEdit; const cl: TColor;
const index: Cardinal; const count: Cardinal = 1);
begin
if (index < re.Lines.Count) and (count >= 1) then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
25. Feb 2006
Hallo Vader,
gefällt dir das besser?
procedure SetLineColor(re: TRichEdit; const index: Integer; const cl: TColor);
begin
if index < re.Lines.Count then
begin
re.SelStart := re.Perform(EM_LINEINDEX, index, 0);