?? 自匯狀態欄.txt
字號:
//設置狀態欄面板對象的Style為OwnerDraw,并在狀態欄對象的DrawPanel事件中書寫以下代碼:
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;Panel: TStatusPanel; const Rect: Trect);
begin
with statusbar1.Canvas do
begin
Brush.Color := clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top,'Panel'+IntToStr(Panel.Index));
end;
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -