//sgrdQty: TStringGrid
procedure TfrmPDStock.sgrdQtyDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
sText: String;
iTextWidth: Integer;
rNum: Double;
begin
inherited;
with sgrdQty do
begin
sText := Cells[ACol, ARow]; //輸出內容
iTextWidth := canvas.TextWidth(sText); //輸出內容寬度
//
if ARow = 0 then
Canvas.TextRect(Rect, (Rect.left+Rect.right-iTextWidth) div 2, Rect.Top+2, sText) //第1行, 居中
else if ACol = 0 then
Canvas.TextRect(Rect, Rect.Left+2, Rect.top+2, sText) //第1列, 左對齊
else
begin
//如果<0以紅色顯示
if TryStrToFloat(sText, rNum) and (rNum < 0) then
Canvas.Font.Color := clRed
else
Canvas.Font.Color := clWindowText;
//
Canvas.TextRect(Rect, Rect.right - iTextWidth - 2 ,Rect.Top + 2, sText); //其它, 右對齊心
end;
end;
end;