Перекрываем TCustomGrid.DrawCell

← →
Бывший студент © (2005-04-16 01:28) [0]

Создаю компонент с предком TStringGrid. Необходимо изменять стиль ячеек. К примеру меняю цвет и шрифт фокуса и цвет колонок, делаю так:

type
TMyGrid = class(TStringGrid)
.
protected
procedure DrawCell(ACol, ARow: Longint;
ARect: TRect; AState: TGridDrawState); override;
.
implementation

procedure TMyGrid.DrawCell(ACol, ARow: Longint;
ARect: TRect; AState: TGridDrawState);
var Rect: TRect;
const
clPaleGreen = TColor($CCFFCC);
clPaleRed = TColor($CCCCFF);
begin
inherited;

if (gdFocused in AState) then
begin
Canvas.Brush.Color := clBlack;
Canvas.Font.Color := clWhite;
Canvas.Font.Style := [fsBold];
end
else if ACol = 2 then
Canvas.Brush.color := clPaleGreen
else
Canvas.brush.Color := clPaleRed;

if (ACol > 0) and (ARow > 0) then
begin

Canvas.FillRect(ARect);
Canvas.TextOut(Rect.Top, Rect.Left, Cells[ACol, ARow]);
end;
end;

В результате текст всех ячеек попадает в первую колонку, что не так?

← →
MBo © (2005-04-16 09:36) [1]

Ну скажи, какой смысл тебе отвечать, если ты не вникаешь в ответы по поводу прямоугольника

Что это за финт ушами:
Canvas.TextOut(Rect.Top,

← →
Бывший студент © (2005-04-16 11:50) [2]

Спасибо за оценку, но:
если использовать Canvas.TextOut(ARect.Top..), то всё валится вообще в последнюю ячейку нулевой колонки.

← →
Просто Джо © (2005-04-16 14:15) [3]

Блин. Left, затем Top

Спасибо за совет - заработало.

Перекрываем TCustomGrid.DrawCell Найти похожие ветки