Выввод изображения в подсказке хинт

← →
Лол (2008-07-07 13:43) [0]

Здравствуйте матера. Пробую вывести изображение в подсказке хинт с помощью этого кода:

var
Form1: TForm1;
tw : THintWindow;
implementation

{$R *.dfm}

Function RevealHint (Control: TControl): THintWindow;
{----------------------------------------------------------------}
{ Демонстрирует всплывающую подсказку для определенного элемента }
{ управления (Control), возвращает ссылку на hint-объект, }
{ поэтому в дальнейшем подсказка может быть спрятана вызовом }
{ RemoveHint (смотри ниже). }
{----------------------------------------------------------------}

var
ShortHint: string;
AShortHint: array[0..255] of Char;
HintPos: TPoint;
HintBox: TRect;
jp : tjpegimage;
begin

{ Создаем окно: }
Result := THintWindow.Create(Control);
jp:=Tjpegimage.Create;

jp.LoadFromFile("1.jpg");
HintBox := Bounds(0, 0, 100, 100);
result.Canvas.Draw(1,1, jp);

{ Теперь показываем окно: }
Result.ActivateHint(HintBox, ShortHint);
jp.Free;
end; {RevealHint}

procedure RemoveHint (var Hint: THintWindow);
{----------------------------------------------------------------}
{ Освобождаем дескриптор окна всплывающей подсказки, выведенной }
{ предыдущим RevealHint. }
{----------------------------------------------------------------}
begin
Hint.ReleaseHandle;
Hint.Free;
Hint := nil;
end; {RemoveHint}

procedure TForm1.Button1Click(Sender: TObject);
var
c : Tcontrol;
begin
tw:=RevealHint(C);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RemoveHint(tw);
end;

Обьясните пожалуйста почему этот код не выводит изображение на "подсказку". Где я зделал промах.

← →
Лол (2008-07-15 18:00) [1]

Ау-у-у-у. Есть кто живой?

..............

Я уже сам, догадался. Спасиба за "помощь" уважаеміе мастера.

← →
Power Man (2008-07-15 20:15) [2]

> Лол (15.07.08 18:00) [1]

Вау-у-у-у сам себе я крут без друзей и без подруг

← →
multiflex (2008-07-16 14:05) [3]

Ну и чо, сначала вывел на канву, потом показал окно, и удивляемся вот с такими глазами О_О почему не работает, и чо все молчат, и гады такие не помогают. пацталом наверно лежат.

← →
lol (2008-07-17 14:25) [4]

О, попросыпались, а где же вы раньше были? Гамнюки вы, а не мастера!
gl, hf, gg no re

Выввод изображения в подсказке хинт Найти похожие ветки