程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi中更改StatusBar為黑底綠字

Delphi中更改StatusBar為黑底綠字

編輯:Delphi

首先, 啟動 Statusbars.Panels 的屬性編輯器(從 Object Inspector 中, 點一下 Panels 屬性右邊的...小按鈕), 確定各 Panels 的 Sytle 是否為:

OwnerDraw (若為 Text, 則 OnDrawPanel 事件不會有作用的).

其次

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
Panel.Style:=psOwnerDraw; // 這行可以去掉
// StatusBar.Canvas.Brush.Color:=clGreen;
// StatusBar.Canvas.Font.Color:=clBlack;
// 如果如您的標題 -- 黑底綠字, 那是不是應該改成 --
StatusBar.Canvas.Brush.Color:=clBlack;
StatusBar.Canvas.Font.Color:=clGreen;
StatusBar.Canvas.FillRect(Rect);
// 顯示文字:
StatusBar.Canvas.TextRect(Rect, Rect.Left, Rect.Top, Panel.Text);
end;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved