Создал форму. На нее кидаю Button, StatusBar и XPManifest. У StatusBar меняю свойство SimplePanel=True, а в SimpleText что-нибудь пишу. В кнопке будет следующая процедура:
| Код |
procedure TForm1.Button1Click(Sender: TObject);
begin
if fsBold in StatusBar1.Font.Style then
StatusBar1.Font.Style:=[]
else
StatusBar1.Font.Style:=[fsBold];
StatusBar1.Refresh;
end;
|
Так вот, вопрос будет заключаться в следующем: Когда я меняю стиль шрифта StatusBar, то StatusBar не отрисовывает текст заново. Проверял...если не кидать на форму XPManifest, то все будет нормально... Подскажите пожалуйста, как решить эту проблему? |
