FillRect không vẽ ô TStringGrid hoàn chỉnh trong Delphi XE2

Question

FillRect không sơn ô hoàn chỉnh TStringGrid trong Delphi XE2. Có khoảng cách 3 pixel ở phía bên trái màu mặc định (với BiDiMode được đặt thành bdLeftToRight). Vấn đề này không tồn tại trong Delphi 6 mà tôi đã sử dụng trước đây.

procedure TShapeline.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
    Rect: TRect; State: TGridDrawState); 
begin 
    Stringgrid1.Canvas.Brush.Color:=$00FF80FF; 
    StringGrid1.Canvas.FillRect(Rect); 
end; 

Tôi cố gắng để thay đổi tất cả tài sản (bao gồm cả) và phong cách bàn chải khác nhau, hình chữ nhật sơn không điền vào các tế bào hoàn chỉnh.

Answer 1

Tắt 4 lựa chọn đầu tiên trong TStringGrid:

• goFixedVertLine
• goFixedHorizLine
• goVertLine
• goHorizLine

Sau đó, nó sẽ không vẽ đường lưới, và bạn ô lưới sẽ vẽ ngay cạnh các cạnh. Chỉ cần thử nó với XE.

Answer 2

này dự kiến ​​hành vi trong XE2 khi DefaultDrawing = true và chủ đề được kích hoạt (Tôi sẽ không để tranh luận về tốt hay xấu ở đây - như bạn có thể nhận thấy, hành vi này là khác nhau cho chế độ RigthToLeft ...).

Giải pháp thay thế là kiểm tra điều kiện này và giảm Rect.Left xuống 4 pixel trước khi gọi FillRect.

Answer 3

Bạn có thể sử dụng StringGrid1.CellRect(ACol, ARow) trả về TRect thực tế của ô thay vì sử dụng tham số Rect.

Answer 4

Vì bạn đang tự vẽ ô lưới rồi chỉ cần tắt thuộc tính lưới DefaultDrawing, đặt thành false.