Скачать: CL | DM;

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

← →
Лол   (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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.005 c