Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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]

на мыло кидай [email protected]


 
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]

Лови. Все отправил с [email protected] (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 [email protected]
2 [email protected]
(Желательно на два, на всякий случай).

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



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

Текущий архив: 2006.07.23;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.033 c
2-1151991076
Kinda
2006-07-04 09:31
2006.07.23
работа с DBGrid ом


15-1150965662
NailMan
2006-06-22 12:41
2006.07.23
Нужен плагин к миранде...


2-1151747491
mfender
2006-07-01 13:51
2006.07.23
Access Violations в TTreeView


2-1151158424
C@N
2006-06-24 18:13
2006.07.23
Русские программы на американском компе!!!


15-1150952995
Ega23
2006-06-22 09:09
2006.07.23
С Днём рождения! 22 июня