Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];
Вниз
Помогите с новым типом Найти похожие ветки
← →
KPY (2002-08-12 06:49) [0]Задача такая создать свой тип который содержит 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}
Мне нужно отвязаться от конкретного файла т.е. чтобы описание картинки было в самом типе.
Пробовал по аналогии с таймером делать не работает. Куда думать?
← →
IlyaA (2002-08-12 07:35) [1]Даю след. описание класса:
TMyClass = class //Получишь наследника TObject
private
vPic1: TImage;
vPic2: TImage;
vTimer: TTimer;
public
constructor Create;
property Pic1: TImage read vPic1;
property Pic2: TImage read vPic2;
property Timer: 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;
← →
KPY (2002-08-12 09:05) [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}
матерится мой делфи говорит нету у имаджа свойства пикчур
← →
ЮЮ (2002-08-12 09:46) [3]Im.Picture.LoadFromFile();
Im.Picture.Bitmap.LoadFromXXX
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c
