Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.007 c
14-71361
Одиночка
2002-07-27 19:01
2002.08.22
Разработка проектов


1-71189
harismatik
2002-08-09 18:11
2002.08.22
Не помещается вся сторка в ComboBox


4-71438
Izyum
2002-06-17 12:16
2002.08.22
Работа с окнами


3-71055
MikeFW
2002-08-02 10:33
2002.08.22
Как создать на форме новый элемент при нажатии кнопки


1-71086
kserg@ukr.net
2002-08-12 12:40
2002.08.22
QReport - можно ли его подставить в делфи





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский