Delphi-Quellcode:
procedure Addbold(r: TRichEdit; s: string);
var start:integer;
begin
start := r.strings.count -1;
r.strings.add(s);
r.selstart := start;
r.sellength := r.strings.count - start;
r.selAttributes.Style := [fsbold];
r.sellength := 0;
r.selstart := r.strings.count -1;
end;
So in etwa sollte das gehen. Bin mir nicht ganz sicher, ob die properties genau so angesprochen werden, also ein bisschen transferarbeit leisten
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1