Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by taaktaak,
1. Mai 2009
Hmm, dann versuche es vielleicht mal hiermit:
procedure TreBase.InitCF2(var CF2:TCharFormat2;Mask:DWord);
begin
FillChar(CF2,SizeOf(CF2),0);
CF2.cbSize:=SizeOf(CF2);
CF2.dwMask:=Mask
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by taaktaak,
1. Mai 2009
Hmmm, seltsam, bei mir funktioniert mein Code zufriedenstellend. Auf welche Art und Weise setzt du denn die Zeichenfarbe?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by taaktaak,
1. Mai 2009
Das sollte helfen:
uses Windows,ComCtrls,Messages
var FUpdatingCounter : Integer;
FOldEventMask : LongInt;
procedure BeginUpdate(RE:TRichedit);
begin