Para Karinha

[Armando Picon]

Tiempo atrás cuando discutíamos la posibilidad de un Gif Animado, indicaste que en Borshade.zip habia un ejemplo sobre este tema. He bajado borshade.zip pero no se puede compilar el ejemplo porque falta "AnimaBMP.ch".

¿Podrías revisar y completar Borshade.zip? Si puedes me remites a mi correo: apic1002002@yaho.es, quedo en espera de tu comunicación.

Armando

[karinha]

Code: Select all | Expand

//--------------------------------------------------------------------------//
// ANIMABMP.CH - Comandos para a classe TAnimaBmpmp
//--------------------------------------------------------------------------//

#ifndef TAnimaBmpMP_CH
#define TAnimaBmpMP_CH


#xcommand @ <nRow>, <nCol> ANIMABMP [ <oAni> ] ;
             [ <bmp: NAME, RESOURCE, FILENAME> <cBitmap> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ GLIPS <nGlips> ] ;
             [ SPEED <nSpeed> ] ;
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
       => ;
          [ <oAni> := ] TAnimaBmp():New( <nRow>, <nCol>, <nWidth>, <nHeight>,;
                        <cBitmap>, <nGlips>, <nSpeed>, <oWnd> )


#xcommand REDEFINE ANIMABMP [ <oAni> ] ;
             [ <bmp: NAME, RESOURCE, FILENAME> <cBitmap> ] ;
             [ ID <nId> ] ;
             [ GLIPS <nGlips> ] ;
             [ SPEED <nSpeed> ] ;
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ <lTransparent: TRANSPARENT> ]     ;  //Modifiquei 31/08/2007
             => ;
          [ <oAni> := ] TAnimaBmp():ReDefine( <oWnd>, <nId>, <cBitmap>,;
                        <nGlips>, <nSpeed> )

#endif

Regards, saludos

[Armando Picon]

Muito obrigado, Karinha

[Armando Picon]

Karinha

Molestándote de nuevo... También faltan los ch: dSay.ch y sSay.ch (ver programa Reindexa.prg)

[karinha]

SENSITIVE SAY

http://www.fivewin.com.br/exibedicas.asp?id=830

http://www.fivewin.com.br/exibedicas.asp?id=609

http://www.fivewin.com.br/exibedicas.asp?id=570

DYNAMIC SAY

http://www.fivewin.com.br/exibedicas.asp?id=484

Regards, saludos

[karinha]

Desculpas, aqui la classe correcta:

//-> con modificaciones - 23/09/2008

#include "FiveWin.ch"
#include "Constant.ch"

#define SS_CENTER 1
#define SS_RIGHT 2
#define SS_GRAYRECT 5 // BOXRECT

#define TA_LEFT 0
#define TA_RIGHT 2
#define TA_CENTER 6
#define TA_TOP 0
#define TA_BOTTOM 8

#define COLOR_WINDOW 5
#define COLOR_WINDOWTEXT 8

#define COLOR_BTNSHADOW 16
#define COLOR_BTNHIGHLIGHT 20

#define WM_NCHITTEST 132 // 0x84

#define GWL_STYLE -16
#define GWL_EXSTYLE -20

#ifdef __XPP__
#define Super ::TControl
#define New _New
#endif

static oTimer, aTimer := {}

//----------------------------------------------------------------------------//

CLASS TDSay FROM TControl

CLASSDATA lRegistered AS LOGICAL

DATA l3D
DATA cPicture
DATA aCaption
DATA bGet

DATA lShaded, lBox, lRaised

DATA nDTop, nDLeft
DATA nTTop, nTLeft
DATA aRect, nLong
DATA nTxtWidth, nTxtHeight
DATA nAlign

DATA oTimer
DATA lScroll, lHorizontal, nSpeed, lWrap // nSpeed: 0 to 100
DATA lBlink, lView

METHOD New( nRow, nCol, bText, oWnd, cPicture, oFont,;
lCentered, lRight, lBottom, lBorder, lPixels, nClrText, nClrBack,;
nWidth, nHeight, cScroll, nSpeed, lWrap, lBlink,;
lDesign, lUpdate, lShaded, lBox, lRaised ) CONSTRUCTOR

METHOD ReDefine( nId, bText, oWnd, cPicture, lCentered, lRight, lBottom,;
nClrText, nClrBack, cScroll, nSpeed, lWrap, lBlink,;
lUpdate, oFont, lShaded, lBox, lRaised ) CONSTRUCTOR

METHOD Default()

METHOD Destroy()

METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::Default()

METHOD HandleEvent( nMsg, nWParam, nLParam )

METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint()

METHOD Paint()

METHOD Dynamic()

METHOD Refresh() INLINE If( ::bGet != nil, ::SetText( Eval( ::bGet ) ),)

METHOD ReSize( nType, nWidth, nHeight ) INLINE ::Default(), Super:ReSize( nType, nWidth, nHeight )

METHOD SetText( cText ) INLINE ;
::cCaption := If( ::cPicture != nil,;
Transform( cText, ::cPicture ),;
cValToChar( cText ) ),;
::Default(), ::Paint()
METHOD VarPut( cValue )

ENDCLASS

//----------------------------------------------------------------------------//

METHOD New( nRow, nCol, bText, oWnd, cPicture, oFont,;
lCentered, lRight, lBottom, lBorder, lPixels, nClrText, nClrBack,;
nWidth, nHeight, cScroll, nSpeed, lWrap, lBlink,;
lDesign, lUpdate, lShaded, lBox, lRaised ) CLASS TDSay

DEFAULT nRow := 0, nCol := 0,;
lBorder := .f., lCentered := .f., lRight := .f., lBottom := .f., lPixels := .f.,;
oWnd := GetWndDefault(),;
nClrText := oWnd:nClrText, nClrBack := oWnd:nClrPane,;
nHeight := If( oFont != nil, Abs( oFont:nHeight ), SAY_CHARPIX_H ),;
lDesign := .f., bText := { || "" },;
lUpdate := .f., lShaded := .f., lBox := .f., lRaised := .f.

::l3D = lShaded .or. lBox .or. lRaised
::nAlign = nOr( If( lBottom, TA_BOTTOM, TA_TOP ),;
If( lCentered, TA_CENTER, If( lRight, TA_RIGHT, TA_LEFT ) ) )
::bGet = bText
::bSetGet = bText
::cPicture = cPicture
::cCaption = If( Empty( cPicture ), cValToChar( Eval( bText ) ),;
Transform( Eval( bText ), cPicture ) )

DEFAULT nWidth := ( If( oFont != nil, Abs( oFont:nWidth ), SAY_CHARPIX_W ) * Len( ::cCaption ) ) - 4 // 8

if ! lPixels
::nTop = nRow * If( oFont != nil, Abs( oFont:nHeight ), SAY_CHARPIX_H ) + 2 // 13
::nLeft = nCol * If( oFont != nil, Abs( oFont:nWidth ), SAY_CHARPIX_W ) // 8
else
::nTop = nRow
::nLeft = nCol
endif

::nBottom = ::nTop + nHeight - 1
::nRight = ::nLeft + nWidth - 1

DEFAULT nSpeed := 55, lWrap := .f., lBlink := .f.

::lScroll = ( cScroll != nil )
::lHorizontal = ( cScroll == "HORIZONTAL" )
::nSpeed = if( nSpeed < 50, ( 50 - nSpeed ) * 10, 100 - nSpeed )
::lWrap = lWrap
::lBlink = lBlink

::oWnd = oWnd
::oFont = oFont
::nId = ::GetNewId()
::nStyle = nOR( WS_CHILD, WS_VISIBLE,;
If( lDesign, nOr( WS_CLIPSIBLINGS, WS_TABSTOP ), 0 ),;
If( lBorder, WS_BORDER, 0 ) )
::lShaded = lShaded
::lBox = lBox
::lRaised = lRaised

::lDrag = lDesign
::lCaptured = .f.
::lUpdate = lUpdate

::SetColor( nClrText, nClrBack )

::Register( nOR( CS_VREDRAW, CS_HREDRAW ) )

if ! Empty( oWnd:hWnd )
::Create()
::Default()
if ::l3D
::Set3DLook()
endif
oWnd:AddControl( Self )
else
oWnd:DefControl( Self )
endif

if ::lDrag
::CheckDots()
endif

return Self

//----------------------------------------------------------------------------//

METHOD ReDefine( nId, bText, oWnd, cPicture, lCentered, lRight, lBottom,;
nClrText, nClrBack, cScroll, nSpeed, lWrap, lBlink,;
lUpdate, oFont, lShaded, lBox, lRaised ) CLASS TDSay

DEFAULT lCentered := .f., lRight := .f., lBottom := .f.,;
nClrText := oWnd:nClrText, nClrBack := oWnd:nClrPane,;
oWnd := GetWndDefault(),;
lUpdate := .f., lShaded := .f., lBox := .f., lRaised := .f.

::l3D = lShaded .or. lBox .or. lRaised
::nId = nId
::nAlign = nOr( If( lBottom, TA_BOTTOM, TA_TOP ),;
If( lCentered, TA_CENTER, If( lRight, TA_RIGHT, TA_LEFT ) ) )
::bGet = bText
::bSetGet = bText
::cPicture = cPicture
::oFont = oFont

if bText != nil
::cCaption = If( Empty( cPicture ), cValToChar( Eval( bText ) ),;
Transform( Eval( bText ), cPicture ) )
endif

DEFAULT nSpeed := 55, lWrap := .f., lBlink := .f.

::lScroll = ( cScroll != nil )
::lHorizontal = ( cScroll == "HORIZONTAL" )
::nSpeed = if( nSpeed < 50, ( 50 - nSpeed ) * 10, 100 - nSpeed )
::lWrap = lWrap
::lBlink = lBlink

::oWnd = oWnd
::hWnd = 0
::lShaded = lShaded
::lBox = lBox
::lRaised = lRaised

::lDrag = .f.
::lCaptured = .f.
::lUpdate = lUpdate

::SetColor( nClrText, nClrBack )

::Register( nOR( CS_VREDRAW, CS_HREDRAW ) )

if oWnd != nil
oWnd:DefControl( Self )
endif

return Self

//----------------------------------------------------------------------------//

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TDSay

if ::lDrag .and. nMsg == WM_NCHITTEST
return DefWindowProc( ::hWnd, nMsg, nWParam, nLParam )
endif

return Super:HandleEvent( nMsg, nWParam, nLParam )

//----------------------------------------------------------------------------//

METHOD Default() CLASS TDSay

local lCentered := nAnd( ::nAlign, TA_CENTER ) == TA_CENTER
local lRight := nAnd( ::nAlign, TA_RIGHT ) == TA_RIGHT
local lBottom := nAnd( ::nAlign, TA_BOTTOM ) == TA_BOTTOM

if ::oFont != nil
::SetFont( ::oFont )
else
::SetFont( ::oWnd:oFont )
endif

::nTxtWidth = 0
::nTxtHeight = GetTextHeight( ::hWnd, 0 )

::aCaption = Array( MLCount( ::cCaption, 254 ) )
AEval( ::aCaption, {|c, n| ::aCaption[ n ] := Trim( MemoLine( ::cCaption, 252, n ) ),;
::nTxtWidth := Max( ::nTxtWidth, GetTextWidth( 0, ::aCaption[ n ],;
if( ::oFont != nil, ::oFont:hFont, 0 ) ) ) } )

::aRect := GetClientRect( ::hWnd )

::nDTop := ::nTTop := if( lBottom, ::aRect[ 3 ], 0 )
::nDLeft := ::nTLeft := if( lCentered, int( ::aRect[ 4 ] / 2 ), if( lRight, ::aRect[ 4 ], 0 ) )

if ::lBox
::aRect := { 2, 2, ::aRect[ 3 ] - 2, ::aRect[ 4 ] - 2 }
elseif ::lShaded .or. ::lRaised
::aRect := { 1, 1, ::aRect[ 3 ] - 1, ::aRect[ 4 ] - 1 }
endif

if ::lScroll
if ::lHorizontal
::nLong := Max( ::nTxtWidth, ::aRect[ 4 ] )
else
::nLong := Max( ::nTxtHeight * len( ::aCaption ), ::aRect[ 3 ] )
endif
endif

InvalidateRect( ::hWnd, ::aRect, .t. )
::lView := .t.

// Call dynamic and blinking

if !::lDrag

if ::lScroll .and. ::oTimer = nil
DEFINE TIMER ::oTimer INTERVAL ::nSpeed ACTION ::Dynamic() OF Self
ACTIVATE TIMER ::oTimer
endif

if ::lBlink .and. AScan( aTimer, { | oCtrl | oCtrl == Self } ) == 0
AAdd( aTimer, Self )
if oTimer = nil
DEFINE TIMER oTimer INTERVAL 300 ACTION Blink() OF ::oWnd
ACTIVATE TIMER oTimer
endif
endif

endif

return nil

//----------------------------------------------------------------------------//

METHOD Destroy() CLASS TDSay

if ::lBlink

ADel( aTimer, AScan( aTimer, { |o| o == Self} ) )
ASize( aTimer, len( aTimer) - 1 )

if len( aTimer ) = 0
oTimer := nil
endif

endif

return Super:Destroy()

//----------------------------------------------------------------------------//

METHOD Paint() CLASS TDSay

local n
local nColorShadow, nColorLight

::GetDC()

if ::lActive

if ::lView

for n := 1 to len( ::aCaption )
WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight, ::nDLeft, ::aCaption[ n ], ::nClrText,,;
If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )
next

if ::lScroll .and. ::lWrap
if ::lHorizontal
for n := 1 to len( ::aCaption )
WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight, ::nDLeft + ::nLong, ::aCaption[ n ], ::nClrText,,;
If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )
next
else
for n := 1 to len( ::aCaption )
WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight + ::nLong, ::nDLeft, ::aCaption[ n ], ::nClrText,,;
If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )
next
endif
endif

else

/* //-> Para que o BLINKING nao trave no WINDOWS XP
//-> Modificado em 01/01/2008
Hay que hacer esta modificación en la clase TDSay:
Código:

METHOD Paint() CLASS TDSay
*/

// InvalidateRect( ::hWnd, ::aRect, .t. )
FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )

/*
El intervalo del timer lo he pasado de 300 a 600, pero eso será según las preferencias de cada uno

regards, saludos

Antonio Linares
www.fivetechsoft.com
*/

endif

else

nColorShadow := GetSysColor( COLOR_BTNSHADOW )
nColorLight := GetSysColor( COLOR_BTNHIGHLIGHT )

for n := 1 to len( ::aCaption )
WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight + 1, ::nDLeft + 1, ::aCaption[ n ], nColorLight,,;
If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )
WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight, ::nDLeft, ::aCaption[ n ], nColorShadow,,;
If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )
next

endif

// 3D

if ::lShaded
WndInset( ::hWnd, ::hDC ) // SHADED, SHADOW
endif

if ::lRaised
WndRaised( ::hWnd, ::hDC ) // RAISED
endif

if ::lBox
WndBoxIn( ::hDC, 0, 0, ::nBottom-::nTop, ::nRight-::nLeft )
WndBoxRaised( ::hDC, 1, 1, ::nBottom-::nTop-1, ::nRight-::nLeft-1 )
endif

::ReleaseDC()

return nil

//----------------------------------------------------------------------------//

METHOD Dynamic() CLASS TDSay

local nSpeed := if( ::nSpeed < 50, int( ( 50 - ::nSpeed + 5 ) / 5 ), 1 )

if !::lActive
return nil
endif

if ::lHorizontal

::nDLeft -= nSpeed
if ::nDLeft + ::nLong < ::nTLeft
if ::lWrap
::nDLeft := ::nDLeft + ::nLong
else
::oTimer:End()
endif
endif
ScrollWindow( ::hWnd, -nSpeed, 0, ::aRect, ::aRect )

else

::nDTop -= nSpeed
if ::nDTop + ::nLong < if( ::nTTop = 0, 0, ::nTxtHeight )
if ::lWrap
::nDTop := ::nDTop + ::nLong
else
::oTimer:End()
endif
endif
ScrollWindow( ::hWnd, 0, -nSpeed, ::aRect, ::aRect )

endif

/* It is not necessary to use the method 'Paint()' because
'ScrollWindow()' he calls directly to the method 'Paint()' */

return nil

//----------------------------------------------------------------------------//

METHOD VarPut( cValue ) CLASS TDSay

if ! Empty( ::cPicture )
cValue = Transform( cValue, ::cPicture )
else
cValue = cValToChar( cValue )
endif

::bGet = { || cValue }

return nil

// Static functions
//----------------------------------------------------------------------------//

static Function Blink()
AEval( aTimer, {| oCtrl | oCtrl:lView := !oCtrl:lView, if( oCtrl:lActive, oCtrl:Paint(), ) } )
return nil

[karinha]

Code: Select all | Expand

#ifndef _DSAY_CH
#define _DSAY_CH

/*----------------------------------------------------------------------------//
!short: DYNAMIC SAY  */

// The SPEED tints that to go from 0 to 100

#xcommand REDEFINE DYNAMIC SAY [<oDSay>] ;
             [ <label: PROMPT, VAR> <cText> ] ;
             [ PICTURE <cPict> ] ;
             [ ID <nId> ] ;
             [ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
             [ <lCenter: CENTERED, CENTER > ] ;
             [ <lRight:  RIGHT > ] ;
             [ <lBottom: BOTTOM > ];
             [ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ] ] ;
             [ <scroll: VERTICAL, HORIZONTAL > SCROLL [ SPEED <nSpeed> ] [ <lWrap: WRAP > ] ] ;
             [ <lBlink: BLINKING > ] ;
             [ <update: UPDATE > ] ;
             [ FONT <oFont> ] ;
             [ <lShaded: SHADED, SHADOW > ] ;
             [ <lBox:    BOX   >  ] ;
             [ <lRaised: RAISED > ] ;
       => ;
          [ <oDSay> := ] TDSay():ReDefine( <nId>, <{cText}>, <oWnd>, <cPict>, ;
                        <.lCenter.>, <.lRight.>, <.lBottom.>, <nClrText>, <nClrBack>, ;
                        [Upper(<(scroll)>)], <nSpeed>, <.lWrap.>, <.lBlink.>, ;
                        <.update.>, <oFont>, <.lShaded.>, <.lBox.>, <.lRaised.> )

#xcommand @ <nRow>, <nCol> DYNAMIC SAY [ <oDSay> <label: PROMPT,VAR > ] <cText> ;
             [ PICTURE <cPict> ] ;
             [ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
             [ FONT <oFont> ]  ;
             [ <lCenter: CENTERED, CENTER > ] ;
             [ <lRight:  RIGHT > ] ;
             [ <lBottom: BOTTOM > ];
             [ <lBorder: BORDER > ] ;
             [ <lPixel: PIXEL, PIXELS > ] ;
             [ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ] ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ <scroll: VERTICAL, HORIZONTAL > SCROLL [ SPEED <nSpeed> ] [ <lWrap: WRAP > ] ] ;
             [ <lBlink: BLINKING > ] ;
             [ <design: DESIGN >  ] ;
             [ <update: UPDATE >  ] ;
             [ <lShaded: SHADED, SHADOW > ] ;
             [ <lBox:    BOX   >  ] ;
             [ <lRaised: RAISED > ] ;
      => ;
          [ <oDSay> := ] TDSay():New( <nRow>, <nCol>, <{cText}>,;
             [<oWnd>], [<cPict>], <oFont>, <.lCenter.>, <.lRight.>, <.lBottom.>, <.lBorder.>,;
             <.lPixel.>, <nClrText>, <nClrBack>, <nWidth>, <nHeight>,;
             [Upper(<(scroll)>)], <nSpeed>, <.lWrap.>, <.lBlink.>,;
             <.design.>, <.update.>, <.lShaded.>, <.lBox.>, <.lRaised.> )
#endif

[Armando Picon]

Gracias Karinha...

Y ahora que estamos intercambiando archivos.... Tiempo atrás te remití el Zipper3.prg (compactador de archivos) ¿Te sirvió?.

En mi web: www.geocities.com/sisgemeirl (opción "productos") hay una versión nueva que utilizo en forma continua. Si te parece bien bajalo y utilizalo.

Armando

[karinha]

Armando,

Tiempo atrás te remití el Zipper3.prg ????

No me recuerdo!

Mismo asi, Muchas gracias.

Saludos.

[Armando Picon]

Armando,

Tiempo atrás te remití el Zipper3.prg ????

No me recuerdo!

Mismo asi, Muchas gracias.

Saludos.

Opsss

[karinha]

Buenas Armando,

Bajé el zipper7, y está mui bién...

Podrias enviarme los fuentes??

A mi, no sirve como está... Puedo hacer modificaciones?

Para el Português por ejemplo?

Y se quiero seleccionar todo de la carpeta, como hago?

Gracias de antemano.

Saludos.

[karinha]

Armando, y el RESTORE de lo mismo??

Como haces para RESTAURAR el Backup??

Saludos.

[Armando Picon]

Armando, y el RESTORE de lo mismo??

Como haces para RESTAURAR el Backup??

Saludos.

Karinha

No desarrolle el RESTORE porque no me ha sido necesario... pero si lo necesitas, es cosa de escribirlo. Recuerda que esta aplicación lo hice para el entorno de software para instalaciones pero no como programa de backup.

Saludos

Armando

[karinha]

Armando, gracias.

Creo sea posible mejorar bastante.

Se posible, enviame el fuente.

Si no és posible, sigo con el XBACKUPLITE, que también, és marabilloso.

Muchas gracias y un gran saludo.

[Armando Picon]

Armando, gracias.

Creo sea posible mejorar bastante.

Se posible, enviame el fuente.

Si no és posible, sigo con el XBACKUPLITE, que también, és marabilloso.

Muchas gracias y un gran saludo.

Enviame un email a apic1002002@yahoo.es para retornarte el fuente. Continuando con Borshade.zip, en el archivo cx.lnk hace referencia a una libreria FOLDBMP32.LIB, eso es necesario para compilar el ejemplo?