VPF::потомок TImage - Форум программистов

gonzales

Дата 19.12.2012, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 241
Регистрация: 13.3.2006

Репутация: 1
Всего: 2

доброго времени суток!

задача следующая, имеется потомок TImage в котором средствами GDI+ отрисовывается картинка + элементы управления.
Причем элементы управления отрисовываются только в активном Имидже. Таких картинок на панели находится десяток, соответственно при изменении активного имиджа мне приходится полностью перерисовывать все картинки, что получается достаточно долго.
Мне пришла в голову мысль прикрутить сверху имиджа с картинкой еще один прозрачный timage, как слой, в котором отрисовывать элементы управления. Все вроде просто, но не получается

Код


var
    framelayer:TImage;

constructor TFrameImage.Create(aowner: Tcomponent); // конструктор
  begin
    inherited Create(aowner);
    framelayer:=Timage.Create(self.parent);
    framelayer.Parent:=self.Parent;
    framelayer.Top:=0;
    framelayer.Left:=0;
    framelayer.Width:=300;
    framelayer.Height:=300;
    framelayer.Picture.Bitmap.Width:=framelayer.Width;
    framelayer.Picture.Bitmap.Height:=framelayer.Height;
    framelayer.Transparent:=true;
    framelayer.Visible:=true;
    framelayer.Enabled:=true;

  end;

ошибок нет, но в полученном framelayer ничего не отображается, как будто он не видимый.

может предложете еще какой вариант?

--------------------

- мастер, мастер, запорол..., все четыре запорол!!!- я ж тебе только три давал!!!???- да я и образец запорол!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »