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

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

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

Синтаксис

Ivolg © (2006-07-02 13:39:00)
Как можно в TRxRichEdit сделать подсветку синтаксиса, например ftp:\\,
http:\\... ?

Phoroon~ (2006-07-03 00:11:00) [1]
PSPF2003

> В ней автор из TRichEdit автор сделал HTML редактор с подсветкой

Если не трудно, можешь кинуть.
1 SPhoroon@yandex.ru
2 Phoroon_Time@Mail15.com
(Желательно на два, на всякий случай).

Зарание благодарен!!!

Ivolg (2006-07-02 23:45:00) [2]
>sniknik

Большое спасибо !!!!

sniknik (2006-07-02 17:58:00) [3]
выполнить отлавливая событие WM_NOTIFY

TForm1 = class(TForm) ... private procedure RunLink(var Msg: TMessage); message WM_NOTIFY; ... end; procedure TForm1.RunLink(var Msg: TMessage); var p: TENLink; strURL: string; begin if (PNMHDR(Msg.lParam).code = EN_LINK) then begin p:= TENLink(Pointer(TWMNotify(Msg).NMHdr)^); if (p.Msg = WM_LBUTTONDOWN) then begin SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, Longint(@(p.chrg))); strURL:= RichEdit1.SelText; ShellExecute(Handle, 'open', PChar(strURL), nil, nil, SW_SHOWNORMAL); end end end;

Ivolg (2006-07-02 15:20:00) [4]
>PSPF2003

Мне просто нужно этот самый веделенный текст записать в переменную...

PSPF2003 (2006-07-02 15:00:00) [5]
ShellExecute

Ivolg (2006-07-02 14:57:00) [6]
>PSPF2003

Спасибо...

>sniknik

А как сделать, чтобы при нажатии на ссылку она переходила по этому адрессу ?

PSPF2003 (2006-07-02 14:34:00) [7]
Лови. Все отправил с foks2003_82@mail.ru (270 407 байт)
Я обычно на народе файлы выкладывал, а тут почему-то не смог войти. :)

sniknik (2006-07-02 14:31:00) [8]
> Как можно в TRxRichEdit сделать подсветку синтаксиса, например ftp:\\, http:\\... ?

не знаю как с T RxRichEdit (чего там изменено), а в стандартном довольно просто
uses ... RichEdit;

procedure TForm1.FormCreate(Sender: TObject); begin with RichEdit1 do begin SendMessage(Handle, EM_SETEVENTMASK, 0, SendMessage(Handle, EM_GETEVENTMASK, 0, 0) or ENM_LINK); SendMessage(Handle, EM_AUTOURLDETECT, Integer(True), 0); end; end;

Ivolg (2006-07-02 14:16:00) [9]
>PSPF2003

Жаль :(

PSPF2003 (2006-07-02 14:09:00) [10]
Сейчас у меня проблемка.

PSPF2003 (2006-07-02 14:05:00) [11]
Ок

Ivolg (2006-07-02 14:04:00) [12]
>PSPF2003

Давай, буду благодарен... :)

Ivolg (2006-07-02 14:04:00) [13]
на мыло кидай Vano_nono@mail.ru

PSPF2003 (2006-07-02 14:01:00) [14]
Можно. У меня есть пример программы могу скинуть. В ней автор из TRichEdit автор сделал HTML редактор с подсветкой.

Наверх

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