Скачать: CL | DM;

Компоненты, будь я не ладен!   Найти похожие ветки 

← →
SergeN   (2003-04-03 11:14) [0]

Мастера, помогите пожалуйста.
Методом научного тыка пытаюсь создать свой компонент (литературы нет).

Вот код. Пожалуйста не смейтесь, я его урезал дабы не занимать Ваше драгоценное время на чтение моих каракуль.

unit New;

interface

uses Classes, Controls;

type
TNewPro=class(TCustomControl)
public
Procedure Paint; Override;
end;

Procedure Register;

implementation

Procedure Register;
begin
RegisterComponents("New",[TNewPro]);
end;

Procedure TNewPro.Paint;
begin
inherited;
Canvas.LineTo(width,height);
end;

end.

Вопросы:
1. Как осуществить мою мечту, т.е. чтобы в "дизайнере" при изменении width и height снова прорисовывалась эта глупая линия?
2. Как сделать так, чтобы после сворачивания или перекрытия др. окном моей формы компонент прорисовывал линию?

Пожалуйста, подпните меня в нужном направлении. Дальше пойду сам. :))))))

---

← →
Mike_Goblin ©   (2003-04-03 11:46) [1]

1. Метод Paint не надо выносить в public
2. В Paint можно не вызывать inherited так как он ничего не делает в TCustomControl
3. Перед LineTo установи точку начала линии вызовом MoveTo
Задай стиль и цвет карандаша и кисти

---

← →
SergeN   (2003-04-03 11:52) [2]

> Mike_Goblin © (03.04.03 11:46)



> 3. Перед LineTo установи точку начала линии вызовом MoveTo
> Задай стиль и цвет карандаша и кисти


Это всё есть. Я же говорю, что урезал.


> 1. Метод Paint не надо выносить в public
> 2. В Paint можно не вызывать inherited так как он ничего
> не делает в TCustomControl


Спасибо. Учту. Буду знать.

А конкретно по моим вопросам?

---

← →
MBo ©   (2003-04-03 11:56) [3]

Перекомпилировал пакет (dclusr50)?

---

← →
SergeN   (2003-04-03 12:01) [4]

> Перекомпилировал пакет (dclusr50)?


Нет. :))

Может я не от того класса детей хочу иметь? Или не правильно их делаю? :o)

---

← →
Style   (2003-04-03 12:08) [5]

Ну наверное это наследник TGraphicsControl. От него пробуй детей иметь 8)

---

← →
MBo ©   (2003-04-03 12:08) [6]

помогла перекомпиляция?

>Может я не от того класса детей хочу иметь?
Это зависит от твоих потребностей.
Наследник CustomControl - оконный элемент, может принимать фокус, владеть другими компонентами.
Если это не требуется, можно от TGraphicControl наследоваться.

---

← →
SergeN   (2003-04-03 12:35) [7]

> MBo © (03.04.03 12:08)
> помогла перекомпиляция?


Помогла. Всё пучком. Дитё имею от TGraphicsControl. Спасибо!
Просто я не понял при чём тут dclusr50. У меня он NewProgress.
:))

---

← →
MBo ©   (2003-04-03 12:42) [8]

>Просто я не понял при чём тут dclusr50
В design-time ты видишь на форме компонент из этого пакета, даже если ты уже поменял код в модуле компонента. А перекомпилировав пакет, увидишь изменения

---

← →
SergeN   (2003-04-03 12:57) [9]

> MBo © (03.04.03 12:42)


Всё понял. Огромное спасибо! Пошёл дальше...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c