Назначение цвета для каждой строки, вывод ячейки в несколько строк в StringGrid
procedure TFormHistory.ListHistoryDrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
var
S: string;
DrawRect: TRect;
CurrentColor: TColor;
begin// Определяем цвет строки в зависимости типа Imcomingif (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) thenbeginif Length(S) > 0 thenbegin
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)
elsebegin
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;
endelseif Row <> ROW_HEADER then
(Sender as TStrinGgrid).Canvas.Textout(rect.left+3, rect.top+3 , S );
end;
Статья Назначение цвета для каждой строки, вывод ячейки в несколько строк в StringGrid раздела Компоненты и Классы TStringGrid и TDrawGrid может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.