Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Назначение цвета для каждой строки

01.01.2007
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;
 

https://delphiworld.narod.ru/

DelphiWorld 6.0