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

Материал из DRKB

Назначение цвета для каждой строки[править | править код]

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;


Source: http://delphiworld.narod.ru/
ID: 01080