PHP DM Gate v0.9 » syslink control, ссылки на label

snjax_ (15.11.13 04:57) [0]

Поддерживает ли KOL syslinks внутри label?

Что-то похожее на http://www.news2news.com/vfp/images/syslink_ctrl_001.png .

Если не поддерживает по умолчанию, есть ли где-нибудь патчи?

<Цитата>
RusSun © (15.11.13 18:51) [1]

procedure Label4Click(Dummy:pointer;Sender:PControl; var mouse:TMouseEventData);
begin
ShellExecute(About.Handle , nil,'http://www.ya.ru', '','', SW_SHOW);
end;
procedure Label4Leave(Dummy:pointer;Sender:PControl; var mouse:TMouseEventData);
begin
Label4.Font.Color :=TColor($D67763);
Label4.Font.FontStyle := [];
About.Cursor:= LoadCursor(0,IDC_ARROW);
end;
procedure Label4Move(Dummy:pointer;Sender:PControl; var mouse:TMouseEventData);
begin
Label4.Font.Color := TColor(clBlue);
Label4.Font.FontStyle := [fsUnderline ];
About.Cursor:= LoadCursor(0,IDC_HAND);
end;

<Цитата>
snjax_ (17.11.13 07:36) [2]

Не, это не syslinks. Syslinks позволяют писать прям внутри соответствующего лейбла ссылки с тегами <a></a>.

Уже решили проблему, реализуем syslinks на базе winapi.

<Цитата>
RusSun © (20.11.13 17:16) [3]

А Примерчик есть?

<Цитата>
Валигози © (25.11.13 00:11) [4]

> RusSun © (20.11.13 17:16) [3]
> А Примерчик есть?

Примерчик есть здесь: http://www.delphimaster.net/view/2-1236069135/1

<Цитата>