Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Выввод изображения в подсказке хинт [D7, WinXP]

Лол © (2008-07-07 13:43:00)
Здравствуйте матера. Пробую вывести изображение в подсказке хинт с помощью этого кода:

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;

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

lol (2008-07-17 14:25:00) [1]
О, попросыпались, а где же вы раньше были? Гамнюки вы, а не мастера!
gl, hf, gg no re

multiflex (2008-07-16 14:05:00) [2]
Ну и чо, сначала вывел на канву, потом показал окно, и удивляемся вот с такими глазами О_О почему не работает, и чо все молчат, и гады такие не помогают. пацталом наверно лежат.

Power Man (2008-07-15 20:15:00) [3]

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

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

Лол (2008-07-15 18:00:00) [4]
Ау-у-у-у. Есть кто живой?

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »