Продвинутый Хинт

[Пепел Феникса]

в общем можно как то сделать чтоб в Хинт можно было запихнуть более сложные данные?
конкретно интересуют: 2 строки, 1 цветная полоса, один Image(Bitmap->128*128)

есть мысли как такое сделать?(хинт нужен на листвиев)

[Аватар]

Наверно взять THintWindow, от него создать свой класс, в котором делать прорисовку

[Пепел Феникса]

ладно, нарисовать то я нарисую, а вот как его привинтить к TListView?

[Кольша]

Пепел Феникса,не плейлист ли вы делаете?

[Пепел Феникса]

нет, хотя там это тоже можно применить будет.

[Кольша]

как сделаете кинете на тест?P.s компоненты сильно не писал,но может переписать TListView не мнного например дать возможность его красить тогда вообще кульный компонент выйдет.

[Пепел Феникса]

дать возможность его красить тогда вообще кульный компонент выйдет.

красить его я итак умею.

[Аватар]

Как-то так, но действует на все объекты формы

TMyHintWindow = class(THintWindow)
  protected
    procedure Paint; override;
  public
    function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override;
  end;
...
procedure TMyHintWindow.Paint;
begin
//Здесь рисуем
end;

function TMyHintWindow.CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect;
begin
  Result:=Rect(0,0,100,100); //Размеры хинта
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HintWindowClass:=TMyHintWindow;
  Application.ShowHint:=False;
  Application.ShowHint:=True;
end;

[Пепел Феникса]

хм...это малость не то, мне нужно только у листвиева такую штуку проделать.
и причем хинту нужно знать точку вызова чтоб понять что показывать(над каким итемом виева).

или я много хочу от стандартного виева?

[Аватар]

Точку вызова в Application.OnHint можно отловить. Если конкретно для ListView, то слишком глубоко копать прийдется по сообщениям винды и все ручками делать. Да и ListView не прокатит, наследника делать скорее всего нужно. Не пробовал