掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
D2010のStringGridでのセンター、右寄せの方法 (ID:35540)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>こんなコードを多用してきました。これだと残像が残るのです。 現在のDefaultDrawingは何でしょうか DefaultDrawingがFalseだと全てのセルを自前で描画しないと いけません。 以下はテストコードです。uses にGraphUtilを加えています。 procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin with StringGrid1 do begin DefaultDrawing:=True; for I := 0 to ColCount-1 do Cells[i,0]:='Test'; end; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with StringGrid1 do begin if (gdFixed in State) and (ACol in [2..5]) 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; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.