Назначение цвета для каждой строки
Материал из 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