Форум — Ответы ( К темам )
| ? | IMP: как выравнивать панели в статусбаре по ширине текста в них ? (26-04-2003 03:16:21) |
| как выравнивать панели в статусбаре по ширине текста в них ? | |
| Владимир (27-04-2003 14:26:29) | |
Для этого нужно в свойствах всех созданных панелей в статусбаре
установить свойство Style в psOwnerDraw и в обработчик onDrawPanel
статусбара пишем:
//---------------------------------------------------------------------------
void __fastcall TForm1::StatusBar1DrawPanel(TStatusBar *StatusBar,
TStatusPanel *Panel, const TRect &Rect)
{
Panel->Width = StatusBar->Canvas->TextWidth(Panel->Text)+8;
StatusBar->Canvas->TextRect(Rect,Rect.Left+2,Rect.Top+1,Panel->Text);
}
//---------------------------------------------------------------------------
| |