Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Вниз

TRichEdit - ПОМОГИТЕ !!!   Найти похожие ветки 

← →
Набережных С.   (2002-02-27 17:16) [6]

procedure TForm.RichEditKeyPress(Sender: TObject; var Key: Char);
var
n:integer;
begin
if Key = "#" then
with RichEdit do
begin
n:=SelStart;
SelStart:= n - CaretPos.x;
SelLength:=Length(Lines[CaretPos.y]);
SelAttributes.Color:=clRed;
SelStart:=n;
end;
end;


---

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

Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c