Цвета текста, ячеек, столбцов и колонок

Code:

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

     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;