-
Здравствуйте матера. Пробую вывести изображение в подсказке хинт с помощью этого кода:
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;
Обьясните пожалуйста почему этот код не выводит изображение на "подсказку". Где я зделал промах.
-
Ау-у-у-у. Есть кто живой?
..............
Я уже сам, догадался. Спасиба за "помощь" уважаеміе мастера.
-
> Лол (15.07.08 18:00) [1]
Вау-у-у-у сам себе я крут без друзей и без подруг
-
Ну и чо, сначала вывел на канву, потом показал окно, и удивляемся вот с такими глазами О_О почему не работает, и чо все молчат, и гады такие не помогают. пацталом наверно лежат.
-
О, попросыпались, а где же вы раньше были? Гамнюки вы, а не мастера! gl, hf, gg no re
|