Selecionar Edit e Colocar Cor no 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:
E lá no formulário estou utilizando da seguinte forma, segue código abaixo (no OnCellClick do DBGrid):
Continua abaixo pois não deu pra colocar todo aqui...
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
Curtidas 0
Respostas
Rubens Pena
11/07/2021
... continuando.
continua abaixo...
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...
GOSTEI 0
Rubens Pena
11/07/2021
... Continuando
Continua abaixo...
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...
GOSTEI 0
Rubens Pena
11/07/2021
... Continuando
continuando abaixo para finalizar...
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...
GOSTEI 0
Rubens Pena
11/07/2021
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.:
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
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
GOSTEI 0
Emerson Nascimento
11/07/2021
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:
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
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
GOSTEI 0
Rubens Pena
11/07/2021
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:
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
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)
GOSTEI 0
Emerson Nascimento
11/07/2021
aparentemente o sistema não está encontrando o Edit.
faça assim no segundo trecho (declare Componente: TComponent, NomeComp: string):
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;
GOSTEI 0
Rubens Pena
11/07/2021
aparentemente o sistema não está encontrando o Edit.
faça assim no segundo trecho (declare Componente: TComponent, NomeComp: string):
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.
GOSTEI 0
Emerson Nascimento
11/07/2021
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.
talvez não pertença ao pnl_Fundo_Sorteio.
retire o "pnl_Fundo_Sorteio." e deixe apenas FindComponent.
GOSTEI 0
Rubens Pena
11/07/2021
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.
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.
GOSTEI 0
Rubens Pena
11/07/2021
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:
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
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.
GOSTEI 0