Конференция "Media" » Выввод изображения в подсказке хинт [D7, WinXP]
 
  • Лол (07.07.08 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;

    Обьясните пожалуйста почему этот код не выводит изображение на "подсказку". Где я зделал промах.
  • Лол (15.07.08 18:00) [1]
    Ау-у-у-у. Есть кто живой?

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

    Я уже сам, догадался. Спасиба за "помощь" уважаеміе мастера.
  • Power Man (15.07.08 20:15) [2]

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


    Вау-у-у-у сам себе я крут без друзей и без подруг
  • multiflex (16.07.08 14:05) [3]
    Ну и чо, сначала вывел на канву, потом показал окно, и удивляемся вот с такими глазами О_О почему не работает, и чо все молчат, и гады такие не помогают. пацталом наверно лежат.
  • lol (17.07.08 14:25) [4]
    О, попросыпались, а где же вы раньше были? Гамнюки вы, а не мастера!
    gl, hf, gg no re
 
Конференция "Media" » Выввод изображения в подсказке хинт [D7, WinXP]
Есть новые Нет новых   [134431   +14][b:0][p:0]