Rich Editik ! ?

← →
FarmaZet (2002-08-22 21:32) [0]

Как сделать так, если в RichEdit вводишь английскую букву A (или другую), то она становится красного цвета, если S (например) то зеленого, если русскую A то… Ну и так далее…
Пожалуйста помогите мне, кодом, заранее благодарен!

← →
Song (2002-08-22 21:37) [1]

TRichEdit.onKeyPress+TCustomRichEdit.SelAttributes

← →
FarmaZet (2002-08-22 21:54) [2]

Example please...

← →
Song (2002-08-22 22:06) [3]

А сам-то чего-нить пробовал?

← →
FarmaZet (2002-08-22 22:34) [4]

Пробовал, но нормального ничего не получилось, по четыре строчки на каждый символ – много, и я делал так:
If key=… then Begin …

В этом случае цвет не зависит от раскладки!
Помогите пожалуйста!

← →
FarmaZet (2002-08-22 23:30) [5]

Пожалуйста!

← →
ЮЮ (2002-08-23 07:57) [6]

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
var UpKey:string[1];
begin
UpKey:=AnsiUpperCase(Key);
case Ord(UpKey[1])
of 65:RichEdit1.SelAttributes.Color:=clRed; //A
83:RichEdit1.SelAttributes.Color:=clGreen; //S
192:RichEdit1.SelAttributes.Color:=clBlue; //А
else RichEdit1.SelAttributes.Color:=clBlack;
end;

end;

← →
FarmaZet (2002-08-23 19:15) [7]

А может есть другой способ, дело в том что надо разными цветами отображать символы 9 и ( а номер клавиши у них один, нужно наверное ни клавишу проверять, а сам символ, помогите пожалуйста!

← →
FarmaZet (2002-08-23 20:29) [8]

Please!

← →
FarmaZet (2002-08-23 22:03) [9]

Please!
Please!
Please!
Please!
Please!
Please!
Please!
Please!
Please!
Please!
Please!
?

← →
ЮЮ (2002-08-24 09:11) [10]

y Ord("9")=57, Ord("(")=40

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key
of "A","a":RichEdit1.SelAttributes.Color:=clRed;
"S","s":RichEdit1.SelAttributes.Color:=clGreen;
"А","а":RichEdit1.SelAttributes.Color:=clBlue;
else RichEdit1.SelAttributes.Color:=clBlack;
end;
Memo1.Lines.Add(IntToStr(Ord(Key)));
end;

Rich Editik ! ? Найти похожие ветки