• Registered: 2018-11-13
  • Posts: 299

Topic: Склеить

Добрый день, есть 2 скрипта
.................................................................................................

procedure data_TableGrid3_OnChange (Sender: TObject);
var
i, Ii, cR, cC,k, l: integer;
sID: string;
begin
cR := data.TableGrid3.RowCount - 1;
cC := data.TableGrid3.Columns.Count -1;
data.TableGrid3.BeginUpdate;
for i := 0 to cR do
   begin
      if (StrToDate(data.TableGrid3.Cells[1,i])- Date <=0) and (StrToDate(data.TableGrid3.Cells[1,i])- Date >=0)   then
        begin
          for Ii:=0 to Cc do data.TableGrid3.Cell[Ii,i].Color := clAqua;
        end;
        if (Date - StrToDate(data.TableGrid3.Cells[1,i]) >0) then
        begin
          for Ii:=0 to Cc do data.TableGrid3.Cell[Ii,i].Color := $006F6FFF;
        end

   end;
   data.TableGrid3.EndUpdate;
end;
...................................................................................................................................................................................
procedure data_TableGrid2018_OnChange (Sender: TObject);
var
   q,i,c,n,m: integer;
begin
     m := data.TableGrid2018.RowCount - 1;
     for n := 0 to m do
     begin
         if data.TableGrid2018.Cells[0,n] = 'Нет' then data.TableGrid2018.Cell[0,n].Color := clRed;
         if data.TableGrid2018.Cells[0,n] = 'Да' then data.TableGrid2018.Cell[0,n].Color := clgreen;

     end;
    begin
     q := 0;
     c := data.TableGrid2018.RowCount - 1;
     for i := 0 to c do
         if data.TableGrid2018.Cells[0, i] <> '' then Inc(q);


     data.TableGrid2018.Columns[0].Footer.Caption := IntToStr(q); // result
end;
end;
.....................................................................................................................................................
как сделать так, что бы в data_TableGrid3_OnChange (первый скрипт) добавить функцию покраски. То есть второго скрипта. Проще говоря как к первому добавить второй, что бы он работал.

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Склеить

procedure Form1_TableGrid1_OnChange (Sender: TObject);
var
i, Ii, cR, cC,q: integer;
sID: string;
begin
cR := Form1.TableGrid1.RowCount - 1;
cC := Form1.TableGrid1.Columns.Count -1;
Form1.TableGrid1.BeginUpdate;
for i := 0 to cR do
   begin
      if (StrToDate(Form1.TableGrid1.Cells[1,i])- Date <=0) and (StrToDate(Form1.TableGrid1.Cells[1,i])- Date >=0)   then
        begin
          for Ii:=0 to Cc do Form1.TableGrid1.Cell[Ii,i].Color := clAqua;
        end;
        if (Date - StrToDate(Form1.TableGrid1.Cells[1,i]) >0) then
        begin
          for Ii:=0 to Cc do Form1.TableGrid1.Cell[Ii,i].Color := $006F6FFF;
        end
   end;

   for i := 0 to cR do
     begin
         if Form1.TableGrid1.Cells[0,i] = 'Нет' then Form1.TableGrid1.Cell[0,i].Color := clRed;
         if Form1.TableGrid1.Cells[0,i] = 'Да' then Form1.TableGrid1.Cell[0,i].Color := clgreen;
     end;
    begin
     q := 0;
     for i := 0 to cR do
         if Form1.TableGrid1.Cells[0, i] <> '' then Inc(q);

     Form1.TableGrid1.Columns[0].Footer.Caption := IntToStr(q); // result
end;
  Form1.TableGrid1.EndUpdate;
end;
Post's attachments

Attachment icon test.7z 4.26 kb, 227 downloads since 2019-04-13