Скачать: CL | DM;

Можно ли в 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

---

← →
A_N_D ©   (2004-04-28 11:23) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c