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

名前

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

本文 OffsetRectを入れたけど、 やり方がマズい？？？ if (gdFixed In State) then begin OffsetRect(Rect, 10, 10); //(Sender as TStringGrid).Canvas.Brush.Style := bsSolid; //(Sender as TStringGrid).Canvas.Brush.Color := (Sender as TStringGrid).FixedColor; //(Sender as TStringGrid).Canvas.Brush.Style := bsClear; (Sender as TStringGrid).Canvas.FillRect(Rect); DrawText((Sender as TStringGrid).Canvas.Handle, PChar((Sender as TStringGrid).Cells[ACol,ARow]), Length((Sender as TStringGrid).Cells[ACol,ARow]), Rect, DT_SingleLine or DT_VCenter or DT_RIGHT); end else begin (Sender as TStringGrid).Canvas.Brush.Style := bsSolid; (Sender as TStringGrid).Canvas.FillRect(Rect); DrawText((Sender as TStringGrid).Canvas.Handle, PChar((Sender as TStringGrid).Cells[ACol,ARow]), Length((Sender as TStringGrid).Cells[ACol,ARow]), Rect, DT_SingleLine or DT_VCenter or DT_CENTER); end;