Buz

Olá Jhonas, o que você disse resolve o meu problema nesse caso.......muito obrigado! De qualquer maneira, andei pesquisando e achei exatamente o que queria. o que acontece é q na verdade é q qualquer input de texto em célula (não via canvas), com a instrução Cells[x,y]...gera esse problema no processamento....então nunca podemos inserir textos nas células pelo DrawCell... o que resolveu meu problema para fins de atualiação do grid foi o "Grid.Repaint"...pode parecer idiota, mas ralei pra descobrir isso...rs Vlw...é isso ae então.... Vlw a todos pela ajuda!!!!!

A seguinte instrução deve fazer o que você está pedindo, mas espero q depois você saiba organizar estes dados, pois desse modo as informações podem ficar um pouco confusas: SeuComponente.SQL.Add('SELECT Tabela_Fatura.campo1, Tabela_Fatura.campo2, Tabela_Fatura.campo3');//... e qts mais quiser SeuComponente.SQL.Add(' FROM Tabela_Fatura'); SeuComponente.SQL.Add(' INNER JOIN Tabela_Clientes'); SeuComponente.SQL.Add(' ON Tabela_Clientes.codigo = Tabela_Fatura.codigo'); SeuComponente.SQL.Add(' WHERE'); SeuComponente.SQL.Add(' Tabela_Clientes.nome LIKE %' + edit1.text + '%'); Se eu fosse você eu faria a busca aproximada pelo nome do cliente em um local separado, de lá tiraria o código dele, e então faria uma busca simples para buscar as faturas com aquele código de cliente...

Tente o seguinte: dm.ZQuery1.Active:= false; dm.ZQuery1.SQL.Clear; dm.ZQuery1.SQL.Add('insert into materia_prima (nome, un) values ('''+edtNome.Text+''','''+cmbUn.Text+''')'); dm.ZQuery1.ExecSQL; dm.ZQuery1.Commit; //Comitar os dados no banco de dados showmessage('Salvo com sucesso!'); edtNome.Clear; cmbUn.ItemIndex:= -1; edtNome.SetFocus;

Ae, descobri onde q tah o problema!!!! Agora só preciso resolver...rs O problema ta na seguinte instrução: Cells[ACol, ARow] := Cells[ACol, ARow]; //Para atualização da células Se eu tiro essa linha do código o processamento fica normal de novo......maaaaas....o código não funciona como deveria.... O objetivo deste código é selecionar uma linha do grid de amarelo, mantendo os textos da coluna 1 e 2... Sem tirar a linha de código acima funciona beleza, mas se tirar ele já da tudo errado... Alguma dica? Vlw!!!!

Denis, o que você disse faz todo sentido, mas ainda assim minha matriz é pequena. Atualmente, para fins de teste, ela é [2,8].....futuramente ela será [2,200]...

Na realidade independe do código q está dentro do evento. Isso acontece com qualquer código. Em todo caso segue código abaixo: procedure TAluno_form.grid_alunosDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with grid_alunos do begin //Colorir a linha qd selecionada if ARow = aluno_selecionado then Canvas.Brush.Color := $7FFFFF; if ARow <> aluno_selecionado then Canvas.Brush.Color := clwhite; Canvas.Brush.Style := bsSolid; canvas.Font.Style := []; canvas.Font.Color := clblack; rect.Right := rect.Right + grid_alunos.GridLineWidth; canvas.FillRect(rect); Canvas.TextOut(Rect.Left,Rect.Top,Cells[ACol, ARow]); Cells[ACol, ARow] := Cells[ACol, ARow]; //Para atualização da células end; panel1.Update; end; [aluno_selecionado] é uma variável (integer) global q contem a linha em q o aluno selecionado está. Espero q agora seja possível ajudar..... Obrigado!

Pessoal, Estou criando uma aplicação onde eu utilizo um StringGrid, e o OnDrawCell do mesmo. O problema q estou tendo é q qd utilizo o On[name]DrawCell meu "CPU Usage" vai para +/- 50%. Independente do código q coloco dentro do DrawCell, ocorre esse problema. Eu sei q na verdade o OnDrawCell é um loop, e imagino q seja esse o porque da lentidão... mas num sei resolver me ajudem pf....