COLORINDO MSFLEXGRID

XXXANGELSXXX 04/10/2010 12:44:31
#354367
Boa tarde pessoal, tenho um sistema de CRM, onde tenho registro de ocorrencias no mesmo, onde funciona mais ou menos assim, a recepcionista registra o chamado, e aloca para um tecnico, automaticamente o chamado vai para o status 2-Pendente, entao o que fiz, uma rotina para colorir as linhas do flexgrid de acordo com o status, até ai tudo bem, mas como estou utilizando um loop para verificar dlinha por linha para pintar o grid, o que acontece.. a tela no momento que vai colorir, tipo da uma travadinha.. onde que .. é o momento que ele está pintando as linhas, gostaria de ver com voces, pois como ele vai passando de linha a linha.. ate chegar no final do grid, se tem alguma oiutra maneira de pintar o grid sem precisar utilizar o loop, ou melhor.. se precisar usar o loop, em qual evento voces aconselham a utlizar.. segue abaixo o metodo.. 


Sub ColorirGrid()
    Dim iL As Integer, iC As Integer    [ô]Variavel para pegar a linha e a coluna do grid
    With TDBGrid1
        For iL = 1 To .Rows - 1
            For iC = 0 To .Cols - 1
                .Col = iC
                .Row = iL
                If .TextMatrix(.Row, 12) = [Ô]2-Pendente[Ô] Then
                    .CellBackColor = &HEFEFEF
                ElseIf .TextMatrix(.Row, 12) = [Ô]3-Analisando[Ô] Then
                    .CellBackColor = &HC0FFFF
                ElseIf .TextMatrix(.Row, 12) = [Ô]4-Concluída[Ô] Then
                    .CellBackColor = &HC0FFC0
                ElseIf .TextMatrix(.Row, 12) = [Ô]1-Aguardando[Ô] Then
                    .CellBackColor = &HC0C0FF
                End If
            Next iC
        Next iL
    End With
End Sub

Imagina, se tiver 200 registros na tabela, entao vai demorar quase 1 minuto para pintar as linhas..
XXXANGELSXXX 04/10/2010 13:04:34
#354369
resolvi o problema, tirei algumas funções do evento rowcolchange, e funcionou da forma que queria, obrigado..
Tópico encerrado , respostas não são mais permitidas
Voltar