Как сделать кликабельными ссылки в ListView?

[FleXik]

[Fatal Error] Unit1.pas(11): File not found: 'ShLwApi.dcu'

Закинул .dll-ку эту в папку с программой, в uses прописал и получаю эту ошибку

[Аватар]

В XP она есть, на 7-ке тоже должна быть

в uses прописал и получаю эту ошибку

Нужно еще прописать в проге загрузку dll и функции её

[FleXik]

Сообщение от Аватар

В XP она есть, на 7-ке тоже должна быть

Нужно еще прописать в проге загрузку dll и функции её

и как это сделать?

[FleXik]

up, проблема не решена

[Stilet]

ППЦ... До сих пор не смог прикрутить функцию из библы или заменить ее?
Напиши хотя бы заменитель:

function PathIsURL(url:String):Boolean;
begin
 Result:=(LowerCase(copy(s,1,4))='http') or (LowerCase(copy(s,1,3))='www');
end;

И используй ее в том примере без всяких ДЛЛ.

[FleXik]

Stilet, понимаешь, у меня 2 колонки со ссылками и эти колонки SubItems

и нужно чтобы ссылки визуально были голубые в ListView (как это выглядит в RichView) + нужно отслеживать какая колонка нажата, т.е я так понимаю указывать границы где X - это начало кликабельной зоны, а Y - это конец кликабельной зоны и так для двух колонок

[Stilet]

Понимаю. Я все понимаю, кроме того, почему володька сбрил усы.
Признайся что просто не хочешь делать.
Почему бы не описать событие OnAdvancedCustomDrawSubItem:

procedure TForm1.ListView1AdvancedCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  Stage: TCustomDrawStage; var DefaultDraw: Boolean);
var r:TRect; s:string;
begin
 s:=item.SubItems[SubItem-1];
 if (LowerCase(copy(s,1,4))<>'http') and (LowerCase(copy(s,1,3))<>'www') then exit;
 r:=Item.DisplayRectSubItem(SubItem,drBounds);
 with Sender.Canvas do begin
  FillRect(r);
  Font.Color:=clBlue;
  Font.Style:=[fsUnderline];
  TextRect(r,r.Left,r.Top,s);
 end;
 DefaultDraw:=false;
end;

Если конечно у тебя такое есть

[FleXik]

Stilet, на DisplayRectSubItem ругается, в списке есть только DisplayRect но ругается даже если его выбрать. Delphi 7

если бы я знал как делать я бы сюда не писал =(

[Stilet]

Тогда можно так: http://www.programmersforum.ru/showthread.php?p=996706
См. пример Аватара.

[XerSon]

Сообщение от FleXik

Stilet, на DisplayRectSubItem ругается, в списке есть только DisplayRect но ругается даже если его выбрать. Delphi 7

если бы я знал как делать я бы сюда не писал =(

var
  r: TRect;
  S: string;
begin
  S := Item.SubItems[SubItem - 1];
  if (LowerCase(Copy(S, 1, 4)) <> 'http') and (LowerCase(Copy(S, 1, 3)) <> 'www')
  then
    Exit;
  r := Item.DisplayRect(drBounds);
  with Sender.Canvas do
  begin
    FillRect(r);
    Font.Color := clBlue;
    Font.Style := [fsUnderline];
    TextRect(r, r.Left, r.Top, S);
  end;
  DefaultDraw := False;
end;