Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.220.154.41] |
|
Сообщ.
#1
,
|
|
|
Дано
TMyClass = class(TPanel) Privete FCapFont: TFont; procedure SetCapFont(const Value: TFont); ...... published property CapFont: TFont read FCapFont write SetFont; .... end; implementation ..... procedure SetCapFont(const Value: TFont); begin FCapFont.Assign(Value); end; Не могу понять на каком этапе нужно перерисовать капшн(DesignTime) при изменении например размера шрифта. Если таки нада ловить месагу то пож. опишите как. заранее спасибо |
Сообщ.
#2
,
|
|
|
procedure TControl.CMFontChanged(var Message: TMessage); begin Invalidate; end; procedure TControl.SetFont(Value: TFont); begin FFont.Assign(Value); end; Сообщение CM_FONTCHANGED. |
Сообщ.
#3
,
|
|
|
Написал так:
procedure TUNIDate.Invalidate; override; ... procedure TUNIDate.Invalidate; var s: string; begin inherited; drawHeader; //рисую на канвасе end; Падает на ошибке(Component "" HAs no Parent), когда пытаешся кинуть компонент на форму. Другими словами єта месага прилетает тада када еще ниче не нада рисовать. А еси вставить проверку на Parent <> nil он ваще ничего не делает. Добавлено я уже разобрался. кому интересно : нада юзать FFont.OnChange |