Versão 2.5.3 está com bug na grid

[asimoes]

A versão 2.5.3 está com bug quando utilizamos DYNAMICBACKCOLOR (para zebrar a grid), confirmei isso, voltando para a versão anterior.

[HASA]

:-O
Foi modificado veja:

* Fixed: Double repainting at adding a new row in a Grid control with dynamic

coloring. It was a reason of the slow colored grid refreshing.

Added additional dynamic colors update at set focus to the grid.

Contributed by Grigory Filatov <gfilatov@inbox.ru>

(see demo in folder \samples\Advanced\ProcInfo)

:xau

HASA

[asimoes]

hasa,

Fiz um teste aqui com a 2.5.3 e não está funcionando, a tela de fundo está em branco. Na versão 2.5.2 está normal a grid fica zebrada.
Não sei o que é, o código abaixo é o que está com problema na 2.5.3

Código: Selecionar todos

 LOAD WINDOW fCadastro
 CENTER Window fCadastro
 ACTIVATE Window fCadastro

FUNCTION VerTaxas(cApto,nValue)
LOCAL nTotal
MEMVAR lIncluir
 
   HB_Default(@nValue,1)
   
   DbSelectArea("TAXAS")
   
   IF TAXAS->(DbSeek(CADASTRO->Apto))
      lIncluir:=.F.
   ELSE
      lIncluir:=.T.
   ENDIF
  
   fCadastro.Grid_Taxas.DisableUpdate()
   
   fCadastro.Grid_Taxas.DeleteAllItems()
   
   aRows:={}
   
   nTotal:=0
      
   DO WHILE !TAXAS->(Eof()) .AND. TAXAS->Apto = cApto
      
       fCadastro.Grid_Taxas.AddItem( { TAXAS->Cod,;
                                         TAXAS->Descricao,;
                                         Transform(TAXAS->Valor,"@E 999.99"),;
                                         IF(TAXAS->Cobra,"S","N"),;
                                         TAXAS->Tipo } )
     
      IF TAXAS->Cobra .AND. TAXAS->Tipo = "A"
         nTotal+=TAXAS->Valor   
      ENDIF
      IF !TAXAS->Cobra .AND. TAXAS->Tipo = "D"
         nTotal-=TAXAS->Valor   
      ENDIF
      DO EVENTS
      TAXAS->(DbSkip())
   ENDDO
   
   lEvento:=.T.

   fCadastro.lbVrTotal.Value:=Transform(nTotal,"@E 9,999.99")
     
   * Ordem dos Botões: ADICIONAR EDITAR SALVAR EXCLUIR ANTERIOR PROXIMO PRIMEIRO ULTIMO CANCELAR 
 
   IF lIncluir
      BotaoAtivo(.T.,.F.,.F.,.F.,.T.,.T.,.T.,.T.,.F.,.T.)
   ELSE
      BotaoAtivo(.F.,.T.,.F.,.F.,.T.,.T.,.T.,.T.,.F.,.T.)
   ENDIF

   fCadastro.Grid_Taxas.EnableUpdate()
 
   fCadastro.Grid_Taxas.Value:=nValue

   GetVars()
   
RETURN .T.

fCadastro.fmg

Código: Selecionar todos

DEFINE WINDOW fCadastro ;
   AT 0,0 ;
   WIDTH  630;
   HEIGHT 575 ;
   TITLE "(SEB01) Cadastro de Condôminos e Taxas de Condomínio";
   ICON ICON_CADASTRO;
   CHILD ;
   NOSIZE; 
   ON INIT {|| OnInitGrid(),IniciaDlg()};
   ON RELEASE {||DbCloseAll()} 

   ON KEY ESCAPE OF fCadastro ACTION {||DbCloseAll(),ThisWindow.Release }
   
   DEFINE SPLITBOX

      DEFINE TOOLBAREX Edicao BUTTONSIZE 30,30 FLAT

         BUTTON oBtn1;
         CAPTION "";
         ACTION {||oNovo()};
         PICTURE "BMP_ADICIONAR";
         TOOLTIP "Incluir um Novo Registro.";
         ADJUST

         BUTTON oBtn2;
         CAPTION "";
         ACTION oEditar();
         PICTURE "BMP_EDITAR";
         TOOLTIP "Editar o Registro Corrente.";
         ADJUST

         BUTTON oBtn3;
         CAPTION "";
         ACTION oSave();
         PICTURE "BMP_SALVAR";
         TOOLTIP "Salvar o Registro.";
         ADJUST

         BUTTON oBtn4;
         CAPTION "";
         ACTION oExcluir();
         PICTURE "BMP_EXCLUIR";
         TOOLTIP "Escluir o Registro.";
         ADJUST
      
         BUTTON oBtn5;
         CAPTION "";
         ACTION oAnterior();
         PICTURE "BMP_VOLTAR";
         TOOLTIP "Registro Anterior.";
         ADJUST
         
         BUTTON oBtn6;
         CAPTION "";
         ACTION oProximo();
         PICTURE "BMP_PROXIMO";
         TOOLTIP "Próximo Registro.";
         ADJUST
         
         BUTTON oBtn7;
         CAPTION "";
         ACTION oPrimeiro();
         PICTURE "BMP_PRIMEIRO";
         TOOLTIP "Primeiro Registro.";
         ADJUST
         
         BUTTON oBtn8;
         CAPTION "";
         ACTION oUltimo();
         PICTURE "BMP_ULTIMO";
         TOOLTIP "Último Registro.";
         ADJUST

         BUTTON oBtn9;
         CAPTION "";
         ACTION oImpressao();
         PICTURE "BMP_PRINT";
         TOOLTIP "Impressão do Cadastro.";
         ADJUST
         
         BUTTON oBtn10;
         CAPTION "";
         ACTION oCancela();
         PICTURE "BMP_DESFAZER";
         TOOLTIP "Cancelar a Operação.";
         ADJUST
         
      END TOOLBAR

      DEFINE TOOLBAREX Saida BUTTONSIZE 30,30 FLAT
         
         BUTTON oBtn11;
         CAPTION "";
         ACTION fCadastro.Release;
         PICTURE "BMP_SAIR";
         TOOLTIP "Sair do Cadastro.";
         ADJUST

      END TOOLBAR
      
   END SPLITBOX

   DEFINE FRAME Frame_1
      CAPTION "Apto/Nome"
      ROW     70
      COL     10
      WIDTH   600
      HEIGHT  60
      OPAQUE .T.
   END FRAME

   DEFINE FRAME Frame_2
      CAPTION "(+) Taxas"
      ROW     145
      COL     10
      WIDTH   600
      HEIGHT  365
      OPAQUE .T.
   END FRAME

   @ 097,020 LABEL lb01;
             VALUE "";
             FONT "Arial";
             SIZE 12;
             AUTOSIZE;
             FONTCOLOR BLUE

   @ 515,015 LABEL lbTotal;
             VALUE "Total:";
             FONT "Arial";
             SIZE 12;
             FONTCOLOR BLUE

   @ 515,065 LABEL lbVrTotal;
             VALUE "";
             FONT "Arial";
             SIZE 12;
             AUTOSIZE;
             FONTCOLOR BLUE

   @ 177,020 LABEL lb02;
             VALUE "Nº   : ";
             FONT "Arial";
             SIZE 12;
             AUTOSIZE;
             FONTCOLOR BLUE

   DEFINE GETBOX oTX01
             ROW 177
             COL 65
             WIDTH 40
             HEIGHT 20
             VALUE Space(2)
             VALID {||Pesquisa(This.Value)}
             PICTURE "99"
             FONTSIZE 12
             FONTNAME cFonte
             FONTCOLOR _VERDE
             BACKCOLOR _BLUE3
             ON GOTFOCUS {||This.BackColor:=_YELLOW2,This.CaretPos:=0}
             ON LOSTFOCUS This.BackColor:=_BLUE3
             TOOLTIP ""
   END GETBOX

   DEFINE GETBOX oTX02
             ROW 177
             COL 110
             WIDTH 345
             HEIGHT 20
             VALUE Space(30)
             PICTURE "@!"
             FONTNAME cFonte
             FONTSIZE 12
             FONTCOLOR _VERDE
             BACKCOLOR _BLUE3
             ON GOTFOCUS {||This.BackColor:=_YELLOW2,This.CaretPos:=0}
             ON LOSTFOCUS This.BackColor:=_BLUE3
             TOOLTIP ""
   END GETBOX
   
   DEFINE GETBOX oVR01
             ROW 177
             COL 460
             WIDTH 80
             HEIGHT 20
             VALUE 0.01
             VALID {||This.Value >= 0.00}
             PICTURE "@E 9,999.99"
             FONTNAME cFonte
             FONTSIZE 11
             FONTCOLOR _VERDE
             BACKCOLOR _BLUE3
             ON GOTFOCUS {||This.BackColor:=_YELLOW2,This.CaretPos:=0}
             ON LOSTFOCUS This.BackColor:=_BLUE3
             TOOLTIP "Informe aqui o valor da cobrança."
   END GETBOX

   DEFINE CHECKBOX oCB01
      ROW	177
      COL	550
      WIDTH 55
      CAPTION 'Cobra' 
      VALUE .F.
      //ONCHANGE CheckValor()
      TOOLTIP '' 
   END CHECKBOX

   @ 207,020 LABEL lb03;
             VALUE "A/D  : ";
             FONT "Arial";
             SIZE 12;
             AUTOSIZE;
             FONTCOLOR BLUE

   DEFINE GETBOX oTX03
             ROW 207
             COL 65
             WIDTH 30
             HEIGHT 20
             VALUE Space(1)
             VALID {||This.Value $ "AD "}
             PICTURE "!"
             FONTNAME cFonte
             FONTSIZE 12
             FONTCOLOR _VERDE
             BACKCOLOR _BLUE3
             ON GOTFOCUS {||This.BackColor:=_YELLOW2,This.CaretPos:=0}
             ON LOSTFOCUS This.BackColor:=_BLUE3
             TOOLTIP "(A)adicionar (D)descontar"
   END GETBOX

   DEFINE GRID Grid_Taxas
      ROW     240
      COL     015  
      WIDTH   590
      HEIGHT  263
      HEADERS {"Nº","Descrição","Valor","Cobra","A/D"}
      WIDTHS  {60,250,100,100,70}
      ITEMS   aRows
      VALUE   1 
      JUSTIFY {GRID_JTFY_LEFT, GRID_JTFY_LEFT, GRID_JTFY_RIGHT, GRID_JTFY_CENTER, GRID_JTFY_CENTER}
      FONTCOLOR BLUE
      DYNAMICFORECOLOR {bFore, bFore, bFore, bFore, bFore }
      DYNAMICBACKCOLOR {bBack, bBack, bBack, bBack, bBack}
      ON DBLCLICK  {||InformaTaxas()}
      FONTBOLD    .T.
      FONTNAME    "Arial"
      FONTSIZE    10
      CELLNAVIGATION .T.
      NOLINES .T.
   END GRID
   
END WINDOW

[HASA]

ASimões, ainda não atualizei, e não vi outro colega reclamando, post no forum minigui internacional ou até mesmo na miniguibrasil que o Grigory acompanha os posts por lá, estou sem previsão ( na verdade tempo ) para atualizar e testar neste momento ok.

:(Neg

HASA

[asimoes]

Hasa, descobri, tava faltando um Cadastro.Grid_Taxas.Refresh(), de alguma forma na versão anterior da minigui tinha o refresh()

[HASA]

)
Legal, estava estranhando ninguém mais reclamar,
:)Pos
HASA

[malcarli]

Boa noite, na sua rotina acima, onde vc colocou o refresh?

obg

Marcelo

[HASA]

Marcelo, coloque logo após o additen, no final não no meio do do while ou for ok, após o enddo ou next.
:)Pos
HASA

[malcarli]

obg, funcionou perfeitamente agora. Ufa.