Hallo,
ich habe ein Problem, für mich unlösbar, vielleicht kann mir jemand helfen.Es geht um folgendes :
Ich möchte dass ein normales RichEdit feld folgende Bedingungen erfüllt.
- darf nich mehr als 5 Zeilen haben (das Eingeben einer
- Textzeile darf nicht Möglich sein.)
2.Beliebig viele einzelne Wörter können im Text des RichEdit
Felds farblich markiert, und die Markierung kann auch wieder
aufgehoben werden.
zu 1:
http://groups.google.com/groups?q=Richedit+and+Max+L…
zu 2:
procedure TForm1.Button1Click(Sender: TObject);
begin
with RichEdit1.SelAttributes do
begin
Color := clRed;
Height := Height + 5;
end;
RichEdit1.Lines.Add(‚Diese Textzeile wird rot.‘);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.DefAttributes.Color := clBlue;
RichEdit1.DefAttributes.Style := [fsBold, fsItalic];
end;
aus Hilfe zu TRichedit.SelAttributes
Gruss und viel Erfolg!
Rüdiger