Aprenda a criar de maneira simples efeitos de sombreamento que podem ser usados tanto em Clipper, como em xHarbour, seja em ambiente Windows como em ambiente Linux (necessita do ncursses)

A rotina abaixo criará um efeito de sombra que poderá ter a cor alterada. Function sombra( nTop, nLeft, nBottom, nRight )      Local nShadowLen, cShadow      Local Mascara, cor      cor:=3      cShadow := SaveScreen( nTop, nLeft,nBottom, nRight )      Mascara := Replicate("X"+Chr(cor),len(cShadow))      RestScreen( nTop, nLeft, nBottom, nRight,Transform(cShadow,Mascara)) return nil Criada essa rotina, basta inseri-la da seguinte maneira: sombra(06,07,11,27)  // vc poderá alteras as posições do sombreamente ao seu gosto                     //Lembre-se apenas que nunca deverá tex as mesmas referencias de linha e coluna que a janel. @05,05 clear to 10,25 @05,05 to 10,25

Quebra-Linha

Colaborador..: Mike Maciel
Categoria(s).: Clipper;
Versão.......: 1
Data.........: 08/09/2004 18:04:12
Visualizado..: 5171 vezes
Fonte........: Clipper avançado