Cобытия OnPaint и OnPainting

[Alex7wrt]

Так и не понял в чем разница между cобытиями OnPaint и OnPainting? 

 

Или такой вопрос - как поменять цвет фона у объекта TText.

Изменено 24 апреля, 2015 пользователем Alex7wrt

[Alex7wrt]

Прошу подсказки в поиске ошибки. Нужно изменить цвет фона динамически создаваемого объекта TText

 

 после создания элемента пишу:

 

texts.OnApplyStyleLookup:=TextsApplyStyleLookup;

 

В теле процедуры пишу:

 

procedure TForm1.TextsApplyStyleLookup(Sender: TObject);

begin

    ((Sender as TText).FindStyleResource('background') as TRectangle).Fill.Color:=TAlphaColors.White;

end;

 

Но эффекта нет. В чем может быть причина?

Изменено 24 апреля, 2015 пользователем Alex7wrt

[Вячеслав]

А не проще на TRectangle кинуть TText и управлять цветом прямоугольника? Пусть даже из run-time

Изменено 24 апреля, 2015 пользователем Вячеслав

[Alex7wrt]

Спасибо за совет. Об этом даже не думал. Возможно придется сделать так, но не хотелось бы. Просто уже есть определенная структура по взаимодействию объектов (родитель, потомок) и не хотелось бы ее нарушать.