Topic: [Скрипт] Полосатый TableGrid

Скрипт разукрашивает через одну строчку компонент TableGrid


скрипт:

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 iRow := 0 to c do
         for iCol := 0 to q do
         begin
             if iRow mod 2 = 0 then Form1.GridEmployees.Cell[iCol,iRow].Color := clBtnFace;
         end;
end;

begin
end.


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

Post's attachments

Attachment icon Color Grid striped.zip 5.83 kb, 685 downloads since 2015-02-23 

Dmitry.

2 (edited by alex842 2015-08-06 09:31:30)

Re: [Скрипт] Полосатый TableGrid

Немного усовершенствовал пример Дмитрия, сделав из него универсальную процедуру. Пригодится, если нужно раскрашивать несколько таблиц.

procedure ColorRowGrid (Grid:TdbStringGridEx;ColorEven,ColorOdd:TColor);
//Grid - Таблица для раскрашивания (Form1.TableGrid1)
//ColorEven - цвет четных строк
//ColorOdd - цвет нечетных строк
var
   iRow ,c: integer;
   q, iCol: integer;
begin
     c := Grid.RowCount - 1;
     q := Grid.Columns.Count-1;
     for iRow := 0 to c do
         for iCol := 0 to q do
         begin
             if iRow mod 2 = 0 then Grid.Cell[iCol,iRow].Color := ColorEven
             else
             Grid.Cell[iCol,iRow].Color := ColorOdd;
         end;
end;

//Пример
ColorRowGrid(Form1.TableGrid1,clBtnFace,clWindow);
Post's attachments

Attachment icon Color Grid striped.zip 336.56 kb, 483 downloads since 2015-08-06 

Re: [Скрипт] Полосатый TableGrid

А возможно тоже самое провернуть с колонками, если да то можно пример?

4 (edited by k245 2018-10-09 07:58:05)

Re: [Скрипт] Полосатый TableGrid

metatron wrote:

А возможно тоже самое провернуть с колонками, если да то можно пример?

замените строку

if iRow mod 2 = 0 then Grid.Cell[iCol,iRow].Color := ColorEven

на

if iCol mod 2 = 0 then Grid.Cell[iCol,iRow].Color := ColorEven
Создание приложений на платформе My Visual DataBase:
https://myvisualdatabase.blogspot.ru/p/ … ge_86.html