procedure TJSDBGrid.Paint;
const
  ls_Text = 'JIESHU';
var
  li_X, li_Y : Integer;
begin
  inherited Paint;      Self.Canvas.Font.Size := 30;
  Self.Canvas.Font.Name := '細明體';
  Self.Canvas.Font.Color := $00FDF1CC;
  li_X := (Self.Width - Self.Canvas.TextWidth(ls_Text)) div 2;
  li_Y := (Self.Height - Self.Canvas.TextHeight(ls_Text)) div 2;
  Self.Canvas.TextOut(li_X, li_Y, ls_Text);
end;

人生有夢，逐夢而行。 人若為善，福雖未至，禍已遠離。 人若為惡，禍雖未至，福已遠離。 http://www.coss.com.tw/jieshu/