Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.16;
Скачать: 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 вся ветка

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.029 c
6-1080436071
NND
2004-03-28 05:07
2004.05.16
-= Определение подключен ли комп к сети =-


3-1081818147
Sirgfine
2004-04-13 05:02
2004.05.16
Сортировка в TTable


14-1083066121
Yozh_Programmer
2004-04-27 15:42
2004.05.16
Альтернатива mIRC


11-1069017691
Deimos
2003-11-17 00:21
2004.05.16
Как узнать во что переименован файл?


7-1080737806
Xtz
2004-03-31 16:56
2004.05.16
My ТoolBar on Internet Explorer????????????/