Текущий архив: 2006.07.23;
Скачать: CL | DM;
Вниз
Синтаксис Найти похожие ветки
← →
Ivolg © (2006-07-02 13:39) [0]Как можно в TRxRichEdit сделать подсветку синтаксиса, например ftp:\\,
http:\\... ?
← →
PSPF2003 © (2006-07-02 14:01) [1]Можно. У меня есть пример программы могу скинуть. В ней автор из TRichEdit автор сделал HTML редактор с подсветкой.
← →
Ivolg © (2006-07-02 14:04) [2]>PSPF2003
Давай, буду благодарен... :)
← →
Ivolg © (2006-07-02 14:04) [3]на мыло кидай Vano_nono@mail.ru
← →
PSPF2003 © (2006-07-02 14:05) [4]Ок
← →
PSPF2003 © (2006-07-02 14:09) [5]Сейчас у меня проблемка.
← →
Ivolg © (2006-07-02 14:16) [6]>PSPF2003
Жаль :(
← →
sniknik © (2006-07-02 14:31) [7]> Как можно в TRxRichEdit сделать подсветку синтаксиса, например ftp:\\, http:\\... ?
не знаю как с TRxRichEdit (чего там изменено), а в стандартном довольно просто
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;
← →
PSPF2003 © (2006-07-02 14:34) [8]Лови. Все отправил с foks2003_82@mail.ru (270 407 байт)
Я обычно на народе файлы выкладывал, а тут почему-то не смог войти. :)
← →
Ivolg © (2006-07-02 14:57) [9]>PSPF2003
Спасибо...
>sniknik
А как сделать, чтобы при нажатии на ссылку она переходила по этому адрессу ?
← →
PSPF2003 © (2006-07-02 15:00) [10]ShellExecute
← →
Ivolg © (2006-07-02 15:20) [11]>PSPF2003
Мне просто нужно этот самый веделенный текст записать в переменную...
← →
sniknik © (2006-07-02 17:58) [12]выполнить отлавливая событие 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 23:45) [13]>sniknik
Большое спасибо !!!!
← →
Phoroon~ © (2006-07-03 00:11) [14]PSPF2003
> В ней автор из TRichEdit автор сделал HTML редактор с подсветкой
Если не трудно, можешь кинуть.
1 SPhoroon@yandex.ru
2 Phoroon_Time@Mail15.com
(Желательно на два, на всякий случай).
Зарание благодарен!!!
Страницы: 1 вся ветка
Текущий архив: 2006.07.23;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.027 c
