２重表示をなくすには？ (ID:40549)

名前

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

本文 >OffsetRectを入れたけど、 >やり方がマズい？？？ 最初の質問でセル文字の alignment を変更してあるのを見落としていたｗ。 固定セルの alignment を中央寄せ、または右寄せに変更したいのなら背景をグラデーションで塗らないとまずいね。 ここではグラデーションの色として clBtnFace を指定している。 procedure GradientFillRect(Canvas: TCanvas; Rect: TRect; aColor: TColor); var H, L, S: WORD; begin ColorRGBToHLS(ColorToRGB(aColor), H, L, S); GradientFillCanvas(Canvas, ColorHLSToRGB(H, L+80, S), ColorHLSToRGB(H, L-40, S), Rect, gdVertical); end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with (Sender as TStringGrid) do begin if (gdFixed in State) then begin Canvas.Brush.Style := bsClear; // clBtnFace色のグラデーションで塗る(上を明るく、下を暗く) GradientFillRect(Canvas, Rect, clBtnFace{ $E0E0E0 }); DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, Rect, DT_SINGLELINE or DT_VCENTER or DT_RIGHT); end else begin end; end; end;