. : Paint on Shape : .

Исходник программы, показывающей пример добавления события «OnPaint» для компонента TShape (TGraphic).

Это симулятор привода форсунок для детского фонтана. В примере представлены форсунки с элементами управления TShape, при этом необходимо обозначить каждую из них номером. Выход из события OnPaint был логичным способом это реализовать, но класс TShape не поддерживает данное событие. Данный пример добавляет реализацию данного события.

Аналогичный способ можно использовать для настройки внешнего вида компонентов TLabel или TBevel - они оба потомки TGraphic без события OnPaint.