F�rum procedure Tfrm.dbGridDrawColumnCell em loop Infinito? #574220

25/01/2017

Boa tarde!
eu estou implementando um C�digo no Delphi 10.1 Berlin que o evento DrawColumnCell est� entrando em loop infinito eu testei no Delphi 7 e fica normal depois que eles roda todos os itens da grid ele para j� no Delphi 10.1 Berlin ele n�o para.
se algu�m souber dizer o que faz isso acontecer ficaria muito grato. J� tem uns dias tentando resolver isso e n�o consigo...
C�digo como est� no evento abaixo

  if (dbgCentroCusto.Columns[datacol].Field.FieldName = 'CODIGO_CENTRO_CUSTO') then
  begin
    if (Copy(DataModuleGeral2.qryPesquisaCentroCustoCODIGO_CENTRO_CUSTO.AsString,4,8) = '00.00') then // 1� Nivel
    begin
      R := Rect;
      Format := FmtLeft;
      dbgCentroCusto.Canvas.FillRect(Rect);
      dbgCentroCusto.Canvas.Font.Style := [fsbold];
    end else
    if (dbgCentroCusto.Columns[datacol].Field.FieldName = 'CODIGO_CENTRO_CUSTO') and
       ((Copy(DataModuleGeral2.qryPesquisaCentroCustoCODIGO_CENTRO_CUSTO.AsString,4,8) <> '00') and
        (Copy(DataModuleGeral2.qryPesquisaCentroCustoCODIGO_CENTRO_CUSTO.AsString,7,8) =  '00'))then // 2� Nivel
    begin
      R := Rect;
      Format := FmtCentered;
      dbgCentroCusto.Canvas.FillRect(Rect);
      dbgCentroCusto.Canvas.Font.Style := [fsbold];
    end else
    if (dbgCentroCusto.Columns[datacol].Field.FieldName = 'CODIGO_CENTRO_CUSTO') then // 3� Nivel
    begin
      R := Rect;
      Format := FmtRight;
      dbgCentroCusto.Canvas.FillRect(Rect);
    end;
    // Aplica as mudan��o no visual da Grid:         Conteudo do Celula          Tamanho do Conteudo do Celula           Alinhamento
    DrawText(dbgCentroCusto.Canvas.Handle, PChar(' '+Column.Field.AsString+' '), Length (' '+Column.Field.AsString+' '), R, Format);
  end;

Eduardo Silva

Curtir t�pico

+ 0

Responder