• From: Санкт-Петербург
  • Registered: 2017-03-09
  • Posts: 266

Topic: Вертикальная раскраска Grid

Вопрос собственно какой, можно-ли сделать вертикальную раскраску грида по типу зебры, т.е например серый-белый-серый-белый и т.д. Хочется визуально развести соседние записи. А та слева цифровые данные из цифрового поля, а справа цифровые данные из текстового поля и они как-то "очень сблизились", визуально сливаются в одно число.
Надеюсь не очень сумбурно написал?)
Спасибо.

надо идти вперёд....
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вертикальная раскраска Grid

procedure Form1_GridEmployees_OnChange (Sender: string);
var
   iRow ,c: integer;
   q, iCol: integer;
begin
     c := Form1.GridEmployees.RowCount - 1;
     q := Form1.GridEmployees.Columns.Count-1;
     for iCol := 0 to c do
         for iRow := 0 to q do
         begin
             if iCol mod 2 = 0 then Form1.GridEmployees.Cell[iCol,iRow].Color := clBtnFace;
         end;
end;

Проект с примером:

Post's attachments

Attachment icon Color Grid striped vertical.zip 7.21 kb, 333 downloads since 2017-04-04 

Dmitry.
  • From: Санкт-Петербург
  • Registered: 2017-03-09
  • Posts: 266

Re: Вертикальная раскраска Grid

DriveSoft wrote:
procedure Form1_GridEmployees_OnChange (Sender: string);
var
   iRow ,c: integer;
   q, iCol: integer;
begin
     c := Form1.GridEmployees.RowCount - 1;
     q := Form1.GridEmployees.Columns.Count-1;
     for iCol := 0 to c do
         for iRow := 0 to q do
         begin
             if iCol mod 2 = 0 then Form1.GridEmployees.Cell[iCol,iRow].Color := clBtnFace;
         end;
end;

Проект с примером:

Огромнейшее спасибо!!!

надо идти вперёд....