Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c