Форум: "Потрепаться";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
ВнизКомпоненты, будь я не ладен! Найти похожие ветки
← →
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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c