| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите ;с новым типом [D5, D6, Win95/98, Win2k]

KPY ©   (2002-08-12 06:49:00) 

Задача такая создать свой тип который содержит 2 рисунка и таймер. Таймер я уже вставил
MyTimer:=TTimer.Create(MyTimer);
MyTimer.Enabled:=false;
MyTimer.OnTimer:=MyTimerTimer;
MyTimer.Interval:=1000;
Почему то с Image так не получается. В Unit1.dfm нашел что картинка описывается так
object Image1: TImage
Left = 156
Top = 18
Width = 35
Height = 35
Picture.Data = {4269746D6170DA080000424DDA0800000000000036040000280000002100
************************************************************
000210000000100080000000000A40400000000000000000000000100000000
00000004000000080000000FF000000002000004020000080200000FF20
0000FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
FEFEFE000000}
Мне нужно отвязаться от конкретного файла т.е. чтобы описание картинки было в самом типе.
Пробовал по аналогии с таймером делать не работает. Куда думать?

---

ЮЮ   (2002-08-12 09:46:00) [1]

Im.Picture.LoadFromFile();
Im.Picture.Bitmap.LoadFromXXX

---

KPY   (2002-08-12 09:05:00) [2]

Как создать типы я знаю у меня все работает когда я ложу на форму 2 имаджа а потом делаю так

type
MyImage = class(TObject)
Im : Timage;
Im1: TImage;
MyTimer:TTimer;
procedure MyTimerTimer(Sender: TObject);
constructor Create;
destructor Destroy;override;
private
{}
public
Num:integer;
end;
****
****
****
my.im:=form1.Image1;
так все работает

Но моя основная задача избавится от form1.Image1 а сделать как-нибудь типа
Picture.Data = {
07544269746D6170DA080000424DDA0800000000000036040000280000002100
0000210000000100080000000000A40400000000000000000000000100000000
0000000000004000000080000000FF000000002000004020000080200000FF20}
матерится мой делфи говорит нету у имаджа свойства пикчур

---

IlyaA   (2002-08-12 07:35:00) [3]

Даю след. описание класса:

TMyClass = class//Получишь наследника TObject
private
vPic1: TImage;
vPic2: TImage;
vTimer: TTimer;
public
constructor Create;
propertyPic1: TImage read vPic1;
propertyPic2: TImage read vPic2;
propertyTimer: TTimer read vTimer;
end;

Constructor TMyClass.Create;
begin
vPic1:=TImage.Create(self); //Указываешь владельца
//в твоём примере владелец был-бы vPic1, тогда, при удалении
//этого объекта, объект vPic1 остался бы жив. Почитай по подробней
vPic2:=TImage.Create(self);
vTimer:=TTimer.Create(self);
vTimer.Enabled:=false;
vTimer.OnTimer:=MyTimerTimer;
vTimer.Interval:=1000;
end;

---

Наверх