D2010のStringGridでのセンター、右寄せの方法 (ID:35544)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ＴＳさん、助言ありがとうございます。
先のコードを以下のようにするとそれなりにはなるんですが、
(StringGrid の DrawingStyle を gdsGradient として進めています）

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
with StringGrid1 do
  begin
    if gdFixed in State then
    begin
      GraphUtil.GradientFillCanvas(Canvas,GradientStartColor,GradientEndColor,Rect,gdVertical);
      DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]),
        -1, Rect, DT_CENTER OR DT_VCENTER OR DT_SINGLELINE)
    end else
    if gdSelected in State then
    begin
      Canvas.Brush.Color := clHighlight;
      Canvas.FillRect(Rect);
      Rect.Right := Rect.Right - 3;
      DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]),
        -1, Rect, DT_RIGHT OR DT_VCENTER OR DT_SINGLELINE);
    end else
    begin
      Canvas.FillRect(Rect);
      Rect.Right := Rect.Right - 3;
      DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]),
        -1, Rect, DT_RIGHT OR DT_VCENTER OR DT_SINGLELINE);
    end;
  end;
end;

近づいてはいるんですが、ハイライト部分（選択セル）の描画がデファルトと違います。
  このデファルトの描画を生かして右寄せには出来ないでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る