Delphi World - Цветной DBGrid
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Цветной DBGrid

Глупый юзер горько плачет
На обломки окон глядя.
Глупый юзер: он не знает,
Что такое мелко-мягкий.


// Function to color a DBGrid (declared as private) 
procedure TForm1.ColorGrid(dbgIn: TDBGrid; qryIn: TQuery; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; 
  State: TGridDrawState); 
var  
  iValue: LongInt; 
begin 
  // color only the first field
  if (DataCol = 0) then 
  begin 
    //Проверяем значение поля и присваеваем цвет  
     
    iValue := qryIn.FieldByName('HINWEIS_COLOR').AsInteger; 
    case iValue of 
      1: dbgIn.Canvas.Brush.Color := clGreen; 
      2: dbgIn.Canvas.Brush.Color := clLime; 
      3: dbgIn.Canvas.Brush.Color := clYellow; 
      4: dbgIn.Canvas.Brush.Color := clRed; 
    end; 
     
    dbgIn.DefaultDrawColumnCell(Rect, DataCol, Column, State); 

  end; 
end; 

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; 
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
  ColorGrid(DBGrid1, Query1, Rect, DataCol, Column, State); 
end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования