Selecionar Edit e Colocar Cor no Delphi

11/07/2021

0

Delphi

Bom dia Pessoal. Estou querendo implementar no meu projeto um seletor de números, como na imagem abaixo:
http://prntscr.com/1aa5jxg

Criei uma procedure, segue código abaixo:
procedure Tfrm_Procedures.Procedure_Sel_Dez_Sort(DBrig: TDBGrid; Item: Integer; texto: string; Edit: TEdit);
begin
  if DBrig.Columns.Items[Item].Field.Text = texto then
  begin
    Edit.Color := clWindow;
    Edit.Color := $0092397F;
  end
  else
    Edit.Color := clWindow;
end;

E lá no formulário estou utilizando da seguinte forma, segue código abaixo (no OnCellClick do DBGrid):
procedure Tfrm_Resultados_LF.DBGrid1CellClick(Column: TColumn);
begin

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'25',edt_dez_sort_sel_25);

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,3,'25',edt_dez_sort_sel_25);

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,4,'25',edt_dez_sort_sel_25);

Continua abaixo pois não deu pra colocar todo aqui...
Rubens Pena

Rubens Pena

Responder

Posts

11/07/2021

Rubens Pena

... continuando.
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,5,'25',edt_dez_sort_sel_25);

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,6,'25',edt_dez_sort_sel_25);

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,7,'25',edt_dez_sort_sel_25);

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,8,'25',edt_dez_sort_sel_25);


continua abaixo...
Responder
Gostei + 0

11/07/2021

Rubens Pena

... Continuando
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,9,'25',edt_dez_sort_sel_25);

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,10,'25',edt_dez_sort_sel_25);

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,11,'25',edt_dez_sort_sel_25);

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,12,'25',edt_dez_sort_sel_25);


Continua abaixo...
Responder
Gostei + 0

11/07/2021

Rubens Pena

... Continuando
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,13,'25',edt_dez_sort_sel_25);

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,14,'25',edt_dez_sort_sel_25);

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,15,'25',edt_dez_sort_sel_25);

   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'01',edt_dez_sort_sel_01);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'02',edt_dez_sort_sel_02);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'03',edt_dez_sort_sel_03);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'04',edt_dez_sort_sel_04);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'05',edt_dez_sort_sel_05);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'06',edt_dez_sort_sel_06);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'07',edt_dez_sort_sel_07);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'08',edt_dez_sort_sel_08);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'09',edt_dez_sort_sel_09);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'10',edt_dez_sort_sel_10);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'11',edt_dez_sort_sel_11);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'12',edt_dez_sort_sel_12);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'13',edt_dez_sort_sel_13);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'14',edt_dez_sort_sel_14);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'15',edt_dez_sort_sel_15);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'16',edt_dez_sort_sel_16);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'17',edt_dez_sort_sel_17);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'18',edt_dez_sort_sel_18);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'19',edt_dez_sort_sel_19);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'20',edt_dez_sort_sel_20);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'21',edt_dez_sort_sel_21);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'22',edt_dez_sort_sel_22);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'23',edt_dez_sort_sel_23);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'24',edt_dez_sort_sel_24);
   frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,16,'25',edt_dez_sort_sel_25);


continuando abaixo para finalizar...
Responder
Gostei + 0

11/07/2021

Rubens Pena

Finalizando

Da forma como eu fiz nao esta selecionando todos os edites e mudando a cor como solicitado na procedure.
Segue abaixo imagem quando eu clico em uma linha do grid:

http://prntscr.com/1aaabp2
Aqui esta selecionando apenas o 24, era pra selecionar os demais.

http://prntscr.com/1aaapzw
Aqui esta selecionando apenas o 21, era pra selecionar os demais.

http://prntscr.com/1aaaxoe
Aqui esta selecionando apenas o 21 novamente, era pra selecionar os demais.

http://prntscr.com/1aab7qz
Aqui esta selecionando apenas o 24 novamente, era pra selecionar os demais.

http://prntscr.com/1aabfty
Aqui esta selecionando apenas o 25, era pra selecionar os demais.

Enfim, esta selecionando apenas o ultimo de cada registro.

obs.:
frm_Procedures.Procedure_Sel_Dez_Sort(DBGrid1,2,'01',edt_dez_sort_sel_01);

DBGrid1 é o nome do grid
2 é a coluna do grid [itemIndex]
'01' é o texto da coluna 2 do grid
edt_dez_sort_sel_01 é o nome do edit que será pintado

O que mudar nesse código para que funcione a seleção dos edits
Responder
Gostei + 0

12/07/2021

Emerson Nascimento

não sei se entendi o que precisa.
se a tua necessidade é somente pintar os edits com os números sorteados na linha da grade, segue exemplo:
procedure Tfrm_Resultados_LF.DBGrid1CellClick(Column: TColumn);
const
  Cores: array[boolean] of TColor = (clWindow, $0092397F);
var
  datasetsorteio: TDataset; // recebe o dataset utilizado na grade
  posdezena: integer; // apoio
  sorteados: array[1..25] of char; // array com os números sorteados no jogo/aposta
begin
  // pega o dataset em uso
  datasetsorteio := Column.Field.DataSet;

  // preenche o array com os números sorteados
  for posdezena := 1 to 15 do
    sorteados[datasetsorteio.FieldByName('DEZ'+formatfloat('00',posdezena)).AsInteger] := 'X';

  // pinta os edits a partir dos números soteados indicados no array
  for posdezena := low(sorteados) to high(sorteados) do
    TEdit(FindComponent('edt_dez_sort_sel_'+formatfloat('00',posdezena))).Color := Cores[sorteados[posdezena]='X'];
end;

Obs1: esta procedure DBGrid1CellClick deve ser chamada no AfterOpen do dataset, de modo que já pinte os edits do registro posicionado na abertura do dataset.
exemplo:
procedure Tfrm_Resultados_LF.Table1AfterOpen(DataSet: TDataSet);
begin
   DBGrid1CellClick(DBGrid1.Columns[0]);
end;

Obs2: usei somente FindComponet porque suponho que os edits estejam colocados diretamente no form.
se estiverem em algum outro conteiner, por exemplo, um painel, faça PanelX.FindComponent

Responder
Gostei + 0

13/07/2021

Rubens Pena

não sei se entendi o que precisa.
se a tua necessidade é somente pintar os edits com os números sorteados na linha da grade, segue exemplo:
procedure Tfrm_Resultados_LF.DBGrid1CellClick(Column: TColumn);
const
  Cores: array[boolean] of TColor = (clWindow, $0092397F);
var
  datasetsorteio: TDataset; // recebe o dataset utilizado na grade
  posdezena: integer; // apoio
  sorteados: array[1..25] of char; // array com os números sorteados no jogo/aposta
begin
  // pega o dataset em uso
  datasetsorteio := Column.Field.DataSet;

  // preenche o array com os números sorteados
  for posdezena := 1 to 15 do
    sorteados[datasetsorteio.FieldByName('DEZ'+formatfloat('00',posdezena)).AsInteger] := 'X';

  // pinta os edits a partir dos números soteados indicados no array
  for posdezena := low(sorteados) to high(sorteados) do
    TEdit(FindComponent('edt_dez_sort_sel_'+formatfloat('00',posdezena))).Color := Cores[sorteados[posdezena]='X'];
end;

Obs1: esta procedure DBGrid1CellClick deve ser chamada no AfterOpen do dataset, de modo que já pinte os edits do registro posicionado na abertura do dataset.
exemplo:
procedure Tfrm_Resultados_LF.Table1AfterOpen(DataSet: TDataSet);
begin
   DBGrid1CellClick(DBGrid1.Columns[0]);
end;

Obs2: usei somente FindComponet porque suponho que os edits estejam colocados diretamente no form.
se estiverem em algum outro conteiner, por exemplo, um painel, faça PanelX.FindComponent


Boa tarde, você interpretou direitinho o que estou querendo fazer. Mais deu um erro no código ao debugar. A primeira parte ele debugou direitinho localizando todos os valores (1,3,5,8,10,11,13,14,15,16,17,18,21,22,25) - Lá na FDQUery eu coloquei mascara nas dezenas para que as primeiras dezenas antes do 10 sair com o 0 na frente.

*Imagem da Primeira Parte do código Debugada >> http://prntscr.com/1auvczy <<
Imagem dos Numeros Selecionados no Grid em tempo de excursão >> http://prntscr.com/1auw968 <<
**Imagem do erro da Segunda parte do código >> http://prntscr.com/1auzq4h <<

//Primeira parte*
procedure Tfrm_Resultados_LF.DBGrid1CellClick(Column: TColumn);
const
  Cores: array [Boolean] of TColor = (clWindow, $0092397F);
var
  datasetsorteio: TDataset; // recebe o dataset utilizado na grade
  posdezena: Integer; // apoio
  sorteados: array [1 .. 25] of Char; // array com os números sorteados no jogo/aposta
begin
  dtp_Data_Concuso.DateTime := dados.fdq_LF_ResultadosDATA_CONCURSO.AsDateTime;

  // pega o dataset em uso
  datasetsorteio := Column.Field.DataSet;

  // preenche o array com os números sorteados
  for posdezena := 1 to 15 do
    sorteados[datasetsorteio.FieldByName('DEZ' + formatfloat('00', posdezena))
      .AsInteger] := 'X';


Segunda parte do Codigo abaixo:
//Segunda Parte**
  // pinta os edits a partir dos números soteados indicados no array
  for posdezena := low(sorteados) to high(sorteados) do
    TEdit(pnl_Fundo_Dezenas_Sorteadas.FindComponent('edt_dez_sort_sel_' +
      formatfloat('00', posdezena))).Color := Cores[sorteados[posdezena] = 'X'];

Quando entra na linha 4 do código acima e dou F8 pra prosseguir com o debug da erro**

Abaixo imagem de como esta os componentes (panel e edts) __ Visualizar para entender:
>>> https://prnt.sc/1av2p8m <<<

Não fiz o teste colocado da observação 1 que você me passou, pois se esta dando erro aqui na chamada vai dar também.

Abaixo meu código completo (parte 1 e 2 juntas)
procedure Tfrm_Resultados_LF.DBGrid1CellClick(Column: TColumn);
const
  Cores: array [Boolean] of TColor = (clWindow, $0092397F);
var
  datasetsorteio: TDataset; // recebe o dataset utilizado na grade
  posdezena: Integer; // apoio
  sorteados: array [1 .. 25] of Char;
  // array com os números sorteados no jogo/aposta
begin
  dtp_Data_Concuso.DateTime := dados.fdq_LF_ResultadosDATA_CONCURSO.AsDateTime;

  // pega o dataset em uso
  datasetsorteio := Column.Field.DataSet;

  // preenche o array com os números sorteados
  for posdezena := 1 to 15 do
    sorteados[datasetsorteio.FieldByName('DEZ' + formatfloat('00', posdezena))
      .AsInteger] := 'X';

  // pinta os edits a partir dos números soteados indicados no array
  for posdezena := low(sorteados) to high(sorteados) do
    TEdit(pnl_Fundo_Sorteio.FindComponent('edt_dez_sort_sel_' +
      formatfloat('00', posdezena))).Color := Cores[sorteados[posdezena] = 'X'];

//aqui na linha 22 fiz a correção de TEdit(pnl_Fundo_Dezenas_Sorteadas. para TEdit(pnl_Fundo_Sorteio. (continua dando o mesmo erro)
Responder
Gostei + 0

13/07/2021

Emerson Nascimento

aparentemente o sistema não está encontrando o Edit.

faça assim no segundo trecho (declare Componente: TComponent, NomeComp: string):
  // pinta os edits a partir dos números soteados indicados no array
  for posdezena := low(sorteados) to high(sorteados) do
  begin
    NomeComp := 'edt_dez_sort_sel_' + formatfloat('00', posdezena);
    Componente := pnl_Fundo_Sorteio.FindComponent(NomeComp); // tenha certeza de quem é o Owner dos edits
    if Componente = nil
      ShowMessage('Edit '+NomeComp+' não encontrado')
    else
      TEdit(Componente).Color := Cores[sorteados[posdezena] = 'X'];
  end;

Responder
Gostei + 0

13/07/2021

Rubens Pena

aparentemente o sistema não está encontrando o Edit.

faça assim no segundo trecho (declare Componente: TComponent, NomeComp: string):
  // pinta os edits a partir dos números soteados indicados no array
  for posdezena := low(sorteados) to high(sorteados) do
  begin
    NomeComp := 'edt_dez_sort_sel_' + formatfloat('00', posdezena);
    Componente := pnl_Fundo_Sorteio.FindComponent(NomeComp); // tenha certeza de quem é o Owner dos edits
    if Componente = nil
      ShowMessage('Edit '+NomeComp+' não encontrado')
    else
      TEdit(Componente).Color := Cores[sorteados[posdezena] = 'X'];
  end;


Fiz como solicitado e deu essa mensagem pra todos do "Edit edt_dez_sort_sel_01 não encontrado" >>> https://prnt.sc/1avj44g <<< pra todos do 01 ao 25

procedure Tfrm_Resultados_LF.DBGrid1CellClick(Column: TColumn);
const
  Cores: array [Boolean] of TColor = (clWindow, $0092397F);
var
  datasetsorteio: TDataset; // recebe o dataset utilizado na grade
  posdezena: Integer; // apoio
  sorteados: array [1 .. 25] of Char; // array com os números sorteados no jogo/aposta
  Componente: TComponent;
  NomeComp: string;
begin
  dtp_Data_Concuso.DateTime := dados.fdq_LF_ResultadosDATA_CONCURSO.AsDateTime;

  // pega o dataset em uso
  datasetsorteio := Column.Field.DataSet;

  // preenche o array com os números sorteados
  for posdezena := 1 to 15 do
    sorteados[datasetsorteio.FieldByName('DEZ' + formatfloat('00', posdezena))
      .AsInteger] := 'X';

  for posdezena := low(sorteados) to high(sorteados) do
    begin
      NomeComp := 'edt_dez_sort_sel_' + formatfloat('00', posdezena);
      Componente := pnl_Fundo_Sorteio.FindComponent(NomeComp); // tenha certeza de quem é o Owner dos edits (Sim e esse mesmo - By Rubens)
    if Componente = nil then
      ShowMessage('Edit '+NomeComp+' não encontrado')
    else
      TEdit(Componente).Color := Cores[sorteados[posdezena] = 'X'];
    end;
end;


Por traz do panel (pnl_Fundo_Sorteio) tem outro panel que é o panel fundo. Mais os edits estão dentro do panel (pnl_Fundo_Sorteio) mesmo, então os edits são "filhos" do pnl_Fundo_Sorteio.
Responder
Gostei + 0

13/07/2021

Emerson Nascimento

uma coisa é o parent, que é onde o componente aparece. outra coisa é o owner, que é o 'dono' do componente.

talvez não pertença ao pnl_Fundo_Sorteio.

retire o "pnl_Fundo_Sorteio." e deixe apenas FindComponent.
Responder
Gostei + 0

13/07/2021

Rubens Pena

uma coisa é o parent, que é onde o componente aparece. outra coisa é o owner, que é o 'dono' do componente.

talvez não pertença ao pnl_Fundo_Sorteio.

retire o "pnl_Fundo_Sorteio." e deixe apenas FindComponent.


Boa noite. Mestre.

Consegui aqui com a ajudar do Ricardo Araújo e o código ficou assim:

procedure Tfrm_Resultados_LF.DBGrid1CellClick(Column: TColumn);
const
  Cores: array [Boolean] of TColor = (clWindow, $0092397F);
var
  datasetsorteio: TDataset; // recebe o dataset utilizado na grade
  posdezena: Integer; // apoio
  sorteados: array [1 .. 25] of Char; // array com os números sorteados no jogo/aposta
  Componente: TComponent;
  NomeComp: string;
begin
  dtp_Data_Concuso.DateTime := dados.fdq_LF_ResultadosDATA_CONCURSO.AsDateTime;

  // pega o dataset em uso
  datasetsorteio := Column.Field.DataSet;

  // preenche o array com os números sorteados
  for posdezena := 1 to 15 do
    sorteados[datasetsorteio.FieldByName('DEZ' + formatfloat('00', posdezena)).AsInteger] := 'X';

  for posdezena := low(sorteados) to high(sorteados) do
    begin
      NomeComp := 'edt_dez_sort_sel_' + formatfloat('00', posdezena);
      TEdit(FindComponent(NomeComp)).Color := Cores[sorteados[posdezena] = 'X'];
    end;
end;


Mais uma vez te agradeço pela paciência em me ajudar no meu projeto.
Responder
Gostei + 0

13/07/2021

Rubens Pena

não sei se entendi o que precisa.
se a tua necessidade é somente pintar os edits com os números sorteados na linha da grade, segue exemplo:
procedure Tfrm_Resultados_LF.DBGrid1CellClick(Column: TColumn);
const
  Cores: array[boolean] of TColor = (clWindow, $0092397F);
var
  datasetsorteio: TDataset; // recebe o dataset utilizado na grade
  posdezena: integer; // apoio
  sorteados: array[1..25] of char; // array com os números sorteados no jogo/aposta
begin
  // pega o dataset em uso
  datasetsorteio := Column.Field.DataSet;

  // preenche o array com os números sorteados
  for posdezena := 1 to 15 do
    sorteados[datasetsorteio.FieldByName('DEZ'+formatfloat('00',posdezena)).AsInteger] := 'X';

  // pinta os edits a partir dos números soteados indicados no array
  for posdezena := low(sorteados) to high(sorteados) do
    TEdit(FindComponent('edt_dez_sort_sel_'+formatfloat('00',posdezena))).Color := Cores[sorteados[posdezena]='X'];
end;

Obs1: esta procedure DBGrid1CellClick deve ser chamada no AfterOpen do dataset, de modo que já pinte os edits do registro posicionado na abertura do dataset.
exemplo:
procedure Tfrm_Resultados_LF.Table1AfterOpen(DataSet: TDataSet);
begin
   DBGrid1CellClick(DBGrid1.Columns[0]);
end;

Obs2: usei somente FindComponet porque suponho que os edits estejam colocados diretamente no form.
se estiverem em algum outro conteiner, por exemplo, um painel, faça PanelX.FindComponent



Mestre com relação ao que me instruiu a fazer na Obs1. eu Coloquei lá, (usei a livraria do dbgrid na no datamodule) mais ficava dando erro, pois meu formulários ficava dando nil tanto no AfterOper como no BeforeOpen. Então eu usei o código dentro do evento OnShow do forme, coloquei a ultima linha e deu certo.
DBGrid1CellClick(DBGrid1.Columns[0]);


Mais uma vez obrigado.
Responder
Gostei + 0

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar