Создание класса-наследника TImage

@Pilyla19 · Регистрация: 18.04.2013

Здравствуйте. Необходимо создать класс, который будет наследовать методы TImage, например, Canvas с дальнейшей прорисовкой фигур.

Были попытки: .h

C++

class TDraw : public TImage
{
__published:    // IDE-managed Components
void __fastcall DrawTree();
public:     // User declarations
  __fastcall TDraw();
};
//---------------------------------------------------------------------------
extern PACKAGE TDraw *obj;

.cpp

C++

TDraw *obj;
//---------------------------------------------------------------------------
__fastcall TDraw::TDraw()
        : TImage(Owner)
{
}
void __fastcall TDraw::DrawTree()
{Picture->Bitmap=NULL;
Canvas->Ellipse(47,12,58,67) ;
}

и вызов

C++

1
2
3

void __fastcall TForm1::FormCreate(TObject *Sender)
{
     obj->DrawTree();}}

Выводится ошибка при компиляции на строки
Picture->Bitmap=NULL;
Canvas->Ellipse(47,12,58,67) ;
Подскажите плиз,что не так

@volvo · 03.01.2014, 16:47

Что за ошибка? У меня нет никакой ошибки, нормально компилируется.

@Pilyla19 · 03.01.2014, 16:51 **[ТС]**

"Access violation at address 400D5748 in module vcl60.bpl.Read of address 00000168"

Прорисовывает эллипс?

@volvo · 03.01.2014, 16:56

Это не при компиляции, а при выполнении. obj надо перед использованием создать:

C++

void __fastcall TForm1::FormCreate(TObject *Sender)
{
     obj = new TDraw(this); // <---
     obj->DrawTree();
}

@Pilyla19 · 03.01.2014, 17:09 **[ТС]**

Спасибо.Создан.
Однако не происходит прорисовки.

@volvo · 03.01.2014, 17:15

C++

class TDraw : public TImage
{
__published:    // IDE-managed Components
void __fastcall DrawTree();
public:     // User declarations
  __fastcall TDraw(TComponent* Owner);
};

+

C++

__fastcall TDraw::TDraw(TComponent* Owner) : TImage(Owner)
{
    Parent = (TWinControl*)Owner;
}
 
void __fastcall TDraw::DrawTree()
{
    Picture->Bitmap = NULL;
    Canvas->Ellipse(47, 12, 58, 67);
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     obj = new TDraw(this); // <---
     obj->DrawTree();
}

Будет прорисовка

@Pilyla19 · 03.01.2014, 17:43 **[ТС]**

огромное спасибо за помощь.. буду разбираться

Добавлено через 16 минут
Скажите пожалуйста, для того,чтобы получить все свойства компонента Image1, это надо прописать, например
Left->Left(this) ;

в каком месте кода?

Добавлено через 4 минуты
или не так?

@volvo · 03.01.2014, 17:54

Чтобы получить доступ ко всем public/published свойствам предка, достаточно к ним обратиться:

C++

void __fastcall TForm1::FormCreate(TObject *Sender)
{
     obj = new TDraw(this);
     obj->Left = 100; // <--- будет изменено Left из TImage
     obj->DrawTree();
}

@Pilyla19 · 03.01.2014, 17:58 **[ТС]**

это-то да.. но просто.. при наследовании прорисовывается квадрат, а исходный компонент имеет больший размер и прямоугольную форму...по идее эти значения свойств не наследуются

@volvo · 03.01.2014, 18:03

Какой "исходный компонент"? Где ему задавалась "форма"?

@volvo Супер-модератор 32487 / 20973 / 8115 Регистрация: 22.10.2011 Сообщений: 36,242 Записей в блоге: 7
	03.01.2014, 16:47	2
	Что за ошибка? У меня нет никакой ошибки, нормально компилируется. 1

@Pilyla19 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 16
	03.01.2014, 16:51 [ТС]	3
	"Access violation at address 400D5748 in module vcl60.bpl.Read of address 00000168" Прорисовывает эллипс? 0

@Pilyla19 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 16
	03.01.2014, 17:09 [ТС]	5
	Спасибо.Создан. Однако не происходит прорисовки. 0

@Pilyla19 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 16
	03.01.2014, 17:43 [ТС]	7
	огромное спасибо за помощь.. буду разбираться Добавлено через 16 минут Скажите пожалуйста, для того,чтобы получить все свойства компонента Image1, это надо прописать, например Left->Left(this) ; в каком месте кода? Добавлено через 4 минуты или не так? 0

@Pilyla19 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 16
	03.01.2014, 17:58 [ТС]	9
	это-то да.. но просто.. при наследовании прорисовывается квадрат, а исходный компонент имеет больший размер и прямоугольную форму...по идее эти значения свойств не наследуются 0

@volvo Супер-модератор 32487 / 20973 / 8115 Регистрация: 22.10.2011 Сообщений: 36,242 Записей в блоге: 7
	03.01.2014, 18:03	10
	Какой "исходный компонент"? Где ему задавалась "форма"? 0

Опции темы