1 (edited by carlo_dj 2017-02-17 14:18:12)

Topic: Wrong number select

Hi,
Sometimes there is a faulty green number selected in the table members? In the example,  number 37 is error because In table drawing is no number 37. Attached the script and a snapshot. Thanks in advance


procedure frmMain_tgDrawings_OnChange (Sender: string);
var
       i,c: integer;
       k,q: integer;
       ii,cc: integer;
       kk,qq: integer;
begin

             q := frmMain.tgMembers.Columns.Count-1;
             c := frmMain.tgMembers.RowCount - 1;
             qq := frmMain.tgDrawings.Columns.Count-1;
             cc := frmMain.tgDrawings.RowCount - 1;
begin
         for i := 0 to c do
         for k := 0 to q do
         for ii := 0 to cc do
         for kk := 0 to qq do
begin
             frmMain.tgMembers.BeginUpdate;
             if (frmMain.tgDrawings.Cells[kk,ii] = '1') and (frmMain.tgMembers.Cells[k,i] = '1') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '2') and (frmMain.tgMembers.Cells[k,i] = '2') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '3') and (frmMain.tgMembers.Cells[k,i] = '3') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '4') and (frmMain.tgMembers.Cells[k,i] = '4') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '5') and (frmMain.tgMembers.Cells[k,i] = '5') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '6') and (frmMain.tgMembers.Cells[k,i] = '6') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '7') and (frmMain.tgMembers.Cells[k,i] = '7') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '8') and (frmMain.tgMembers.Cells[k,i] = '8') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '9') and (frmMain.tgMembers.Cells[k,i] = '9') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '10') and (frmMain.tgMembers.Cells[k,i] = '*10') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '11') and (frmMain.tgMembers.Cells[k,i] = '11') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '12') and (frmMain.tgMembers.Cells[k,i] = '12') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '13') and (frmMain.tgMembers.Cells[k,i] = '13') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '14') and (frmMain.tgMembers.Cells[k,i] = '14') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '15') and (frmMain.tgMembers.Cells[k,i] = '15') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '16') and (frmMain.tgMembers.Cells[k,i] = '16') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '17') and (frmMain.tgMembers.Cells[k,i] = '17') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '18') and (frmMain.tgMembers.Cells[k,i] = '18') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '19') and (frmMain.tgMembers.Cells[k,i] = '19') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '20') and (frmMain.tgMembers.Cells[k,i] = '20') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '21') and (frmMain.tgMembers.Cells[k,i] = '21') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '22') and (frmMain.tgMembers.Cells[k,i] = '22') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '23') and (frmMain.tgMembers.Cells[k,i] = '23') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '24') and (frmMain.tgMembers.Cells[k,i] = '24') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '25') and (frmMain.tgMembers.Cells[k,i] = '25') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '26') and (frmMain.tgMembers.Cells[k,i] = '26') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '27') and (frmMain.tgMembers.Cells[k,i] = '27') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '28') and (frmMain.tgMembers.Cells[k,i] = '28') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '29') and (frmMain.tgMembers.Cells[k,i] = '29') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '30') and (frmMain.tgMembers.Cells[k,i] = '30') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '31') and (frmMain.tgMembers.Cells[k,i] = '31') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '32') and (frmMain.tgMembers.Cells[k,i] = '32') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '33') and (frmMain.tgMembers.Cells[k,i] = '33') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '34') and (frmMain.tgMembers.Cells[k,i] = '34') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '35') and (frmMain.tgMembers.Cells[k,i] = '35') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '36') and (frmMain.tgMembers.Cells[k,i] = '36') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '37') and (frmMain.tgMembers.Cells[k,i] = '37') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '38') and (frmMain.tgMembers.Cells[k,i] = '38') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '39') and (frmMain.tgMembers.Cells[k,i] = '39') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '40') and (frmMain.tgMembers.Cells[k,i] = '40') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '41') and (frmMain.tgMembers.Cells[k,i] = '41') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '42') and (frmMain.tgMembers.Cells[k,i] = '42') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '43') and (frmMain.tgMembers.Cells[k,i] = '43') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '44') and (frmMain.tgMembers.Cells[k,i] = '44') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
             if (frmMain.tgDrawings.Cells[kk,ii] = '45') and (frmMain.tgMembers.Cells[k,i] = '45') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;

            frmMain.tgMembers.EndUpdate;
end;
end;
end;

Post's attachments

Attachment icon wrong number.png 231.99 kb, 371 downloads since 2017-02-17