掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridのセル位置について (ID：45207)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは。 開発環境は、win7 home premium(sp1)、delphiXE3 enterpriseです。 stringgridを不慣れですが、先日から使い始めました。 セル位置を右寄り、中央寄せとかに変更したいと思っています。 いろいろなサイトを参考にして、もちろんこちらのサイトも参考にしてコードを書いてみました。 以下はDrawCellイベントに書き込んだソースです。usesにGraphUtilを追加しています。 with (Sender as TStringGrid) do begin if (gdFixed in State) then begin GradientFillCanvas(Canvas, GradientStartColor,GradientEndColor,Rect,gdVertical); DrawText(Canvas.Handle,PChar(Cells[ACol,ARow]),-1,Rect,DT_SINGLELINE or DT_CENTER or DT_VCenter); end else begin Canvas.Brush.Style := bsSolid; Canvas.FillRect(Rect); DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]),Length(Cells[ACol,ARow]),Rect, DT_SingleLine or DT_VCenter or DT_CENTER); end; end; これだと二重にデータが書かれるのは防げるのですが、列ごとに前と後ろに四角っぽいのが表示されてしまします。 この四角をなくして、もともとのstringgridっぽくするのはどうすれば良いのでしょうか？ 以上、よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.