Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Rich Editik ! ? [D6]

FarmaZet © (2002-08-22 21:32:00)
Как сделать так, если в RichEdit вводишь английскую букву A (или другую), то она становится красного цвета, если S (например) то зеленого, если русскую A то… Ну и так далее…
Пожалуйста помогите мне, кодом, заранее благодарен!

ЮЮ (2002-08-24 09:11:00) [1]
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;

FarmaZet (2002-08-23 22:03:00) [2]
Please!
Please!
Please!
Please!
Please!
Please!
Please!
Please!
Please!
Please!
Please!
?

FarmaZet (2002-08-23 20:29:00) [3]
Please!

FarmaZet (2002-08-23 19:15:00) [4]
А может есть другой способ, дело в том что надо разными цветами отображать символы 9 и ( а номер клавиши у них один, нужно наверное ни клавишу проверять, а сам символ, помогите пожалуйста!

ЮЮ (2002-08-23 07:57:00) [5]
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-22 23:30:00) [6]
Пожалуйста!

FarmaZet (2002-08-22 22:34:00) [7]
Пробовал, но нормального ничего не получилось, по четыре строчки на каждый символ – много, и я делал так:
If key=… then Begin …

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

Song (2002-08-22 22:06:00) [8]
А сам-то чего-нить пробовал?

FarmaZet (2002-08-22 21:54:00) [9]
Example please...

Song (2002-08-22 21:37:00) [10]
TRichEdit.onKeyPress+TCustomRichEdit.SelAttributes

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »