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;