Компоненты, будь я не ладен!

← →
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.
:))

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

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

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