Изменить шрифт TStatusBarDelphi , Компоненты и Классы , TStatusBarИзменить шрифт TStatusBar
Оформил: DeeCo { To use this example, you need a TStatusBar and at least one Panel. Then change the style of StatusBar1.Panels[0] to psOwnerDraw and add the code below to the OnDrawPanel handler. Es wird eine TStatusBar fur dieses Beispiel benotigt mit mindestens einem Panel. Der Style von StatusBar1.Panels[0] muss zu psOwnerDraw geandert werden. Fuge dann folgenden Code im OnDrawPanel Ereignis hinzu: } procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); var SomeText: string; begin if Panel = StatusBar1.Panels[0] then begin SomeText := 'Hello!'; Panel.Width := Trunc(StatusBar1.Canvas.TextWidth(SomeText) * 1.5); with StatusBar.Canvas do begin Brush.Color := clWhite; FillRect(Rect); Font.Name := 'Arial'; Font.Color := clRed; Font.Style := Font.Style + [fsItalic, fsBold]; TextRect(Rect, Rect.Left + 1, Rect.Top, SomeText); end; end; end; В статье описывается пример изменения шрифта TStatusBar на компьютере Delphi, в котором используется стиль panels[0] с параметром psOwnerDraw и добавляется код для обработки события OnDrawPanel. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TStatusBar ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |