Descanço de tela, como posso usar no clipper?

Mensagem por **alaminojunior** » 08 Out 2007 09:42

Clodoaldo, eu particularmente uso junto com Tbrowse. Por exemplo:

Tb4:= TbColumnne(Vcab, { || tran(precod,"@ 99999-9")+"  "+predsc+"  "+preemb+"  "+tran(prevnd,"@E 9,999,999.99")+" "+iif(prezer,"N/T","   ")})
Tb3:= TbrowseDB(07,04,14,75)
Tb3:HeadSep:= "Ä"
Tb3:ColorSpec:= "n/w,gr+/b,n+/w,n+/gr*,n/w"
Tb4:DefColor:= {5}
Tb4:ColorBlock:= {|Tb3| iif(prezer = .t., {3,4},{1,2})}
Tb3:AddColumn(Tb4)
Do While .t.
   Do While !Tb3:Stabilize()
   Enddo
   tempo:= Inkey(300)
   Do Case
      Case Tempo = 0   // Ela entra aqui
           Protect()          // Esta função foi postada mais acima neste tópico
           Tb3:RefreshAll()
           loop