col row

Ответ от Андрей Х[гуру]
переделай из этого :procedure TFormHistory.ListHistoryDrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);var S: string; DrawRect: TRect; CurrentColor: TColor;begin // Определяем цвет строки в зависимости типа Imcoming if (Sender as TStrinGgrid).Cells[COLUMN_INCOMING, Row ] = '1' then CurrentColor:=clBlue else CurrentColor:=clMaroon; if (Sender as TStrinGgrid).Row = Row then CurrentColor := clHighlightText; (Sender as TStrinGgrid).Canvas.font.color := CurrentColor; S:= (Sender as TStrinGgrid).Cells[ Col, Row ]; if (Col = COLUMN_MESSAGE ) and (Row <> ROW_HEADER) then begin if Length(S) > 0 then begin DrawRect:=Rect; DrawText((Sender as TStrinGgrid).Canvas.Handle, Pchar(S), Length(S), DrawRect, dt_calcrect or dt_wordbreak or dt_left ); if (DrawRect.bottom - DrawRect.top) > (Sender as TStrinGgrid).RowHeights[Row] then (Sender as TStrinGgrid).RowHeights[row] :=(DrawRect.bottom - DrawRect.top) else begin DrawRect.Right:=Rect.Right; (Sender as TStrinGgrid).Canvas.FillRect( DrawRect ); DrawText((Sender as TStrinGgrid).Canvas.Handle, Pchar(S), Length(S), DrawRect, dt_wordbreak or dt_left); end; end; end else if Row <> ROW_HEADER then (Sender as TStrinGgrid).Canvas.Textout(rect.left+3, rect.top+3, S );end;