Подскажите. каким образом можно изменить цвет строк IWDBGrid, удовлетворяющих определенному условию
» раскраска IWDBGrid
Вот пример, думаю что подойдет.
Код: procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if True then
begin
Self.DBGridEh1.Canvas.Font.Color := clRed;
Self.DBGridEh1.Canvas.FillRect(Rect);
Self.DBGridEh1.Canvas.TextOut(Rect.Left, Rect.Top, Column.Field.Text);
end;
end;
Код: procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if True then
begin
Self.DBGridEh1.Canvas.Font.Color := clRed;
Self.DBGridEh1.Canvas.FillRect(Rect);
Self.DBGridEh1.Canvas.TextOut(Rect.Left, Rect.Top, Column.Field.Text);
end;
end;
UP
Всем спасибо, все оказалось предельно просто
Необходимо просто обрабатывать событие onRenderCell:
Код:
procedure TIWFormObject.IWDBGridObjectRenderCell(ACell: TIWGridCell; const ARow,
AColumn: Integer);
begin
if (условия для строки) then
ACell.BGColor:=clweborangered;
end;
Необходимо просто обрабатывать событие onRenderCell:
Код:
procedure TIWFormObject.IWDBGridObjectRenderCell(ACell: TIWGridCell; const ARow,
AColumn: Integer);
begin
if (условия для строки) then
ACell.BGColor:=clweborangered;
end;
Страницы: 1
Предыдущая тема: кодировка в фортране.
Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.