Можно ли в StringGridе изменять цвет определенной строки? Как?

← →
I.Ru.Ru (2004-04-25 15:39) [0]

Подробное описание:
Имеется StringGrid. Один из столбцов является основным. Если одно из значений данного столбца больше всех значений других столбцов той же строки, то всю строку необходимо выделять зеленым цветом, если меньше всех значений, то красным.

← →
Anatoly Podgoretsky © (2004-04-25 15:48) [1]

Можно

← →
begin...end © (2004-04-25 15:51) [2]

> Можно ли в StringGridе изменять цвет определенной строки?

Можно.

> Как?

Обрабатывать событие OnDrawCell.

← →
Frozzen (2004-04-25 16:35) [3]

Вот так я делаю, тока у меня не обычный стрингрид а DBGrid
procedure TMainForm.RxDBGridGetCellParams(Sender: TObject; Field: TField;
AFont: TFont; var Background: TColor; Highlight: Boolean);
var
f,f1 : byte;
begin
f := (Sender as TrxDBGrid).DataSource.DataSet.FieldByName("flag").AsInteger;
f1 := (Sender as TrxDBGrid).DataSource.DataSet.FieldByName("plat").AsInteger;
if f = 1 then Background := clMoneyGreen;//clMedGray;//clGradientActiveCaption;
if f = 2 then Background := clRed;
if f1 = 1 then begin AFont.Style := AFont.Style + [fsBold]; end;

end;

← →
I.Ru.Ru (2004-04-28 10:47) [4]

Что-то у меня не поулчается:(
Уважаемые мастера вы не могли бы написать мне код для выделения ячейки StringGrid.Cell[2,2] в красный цвет....Буду очень благодарна!!

← →
Плохиш (2004-04-28 10:51) [5]

> I.Ru.Ru (28.04.04 10:47) [4]
> Что-то у меня не поулчается:(
> Уважаемые мастера вы не могли бы написать мне код для выделения
> ячейки StringGrid.Cell[2,2] в красный цвет....Буду очень
> благодарна!!

F1 - TStringGrid - OnDrawCell - Example

← →
RDen (2004-04-28 10:57) [6]

в OnDrawCell:

TStringGrid(Sender).Canvas.Font.Color := clWindowText;
IF gdSelected IN State Then
begin
TStringGrid(Sender).Canvas.Brush.Color := clRED;
TStringGrid(Sender).Canvas.FillRect(Rect);
end; end
with TStringGrid(Sender) do
begin
S := Cells[ACol,ARow];
Dec(Rect.Right, 2); Inc(Rect.Top, 2);
Canvas.FillRect(Rect);
DrawText(Canvas.Handle, PChar(S), Length(S), Rect, DT_CENTER);
end

http://www.delphikingdom.ru/asp/viewitem.asp?UrlItem=/helloworld/dbgridcolor.htm

Можно ли в StringGridе изменять цвет определенной строки? Как? Найти похожие ветки