ctl32

Quiero poner esta clase en modo Marquee , pero el archivo ctl32_vfp2c32.prg al parecer esta dañado, tiene esto ?

TEXT TO m.lcFileData noshow
TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
KAEAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0K
JAAAAAAAAABUgeiZEOCGyhDghsoQ4IbKA+jvyhHghsoV7NvKEuCGyhXsicoa4IbKycOayhLghsqHw5/K
Por eso no he podido probar la clase

Me ayudarian por favor , con el prg, o de ser posible, con un ejemplo en foxpro para crear una barra que diga al usuario que espero, mientras hago un proceso

Gracias de antemano

Jose Luis Sayago

el prg, no está dañado lo que pasa es que tiene almacenado una fll, que descomprime para ser usada por los controles.

Aqui tienes un pequeño ejemplo, el botón inicio incia el termómetro

Code: Select all

PUBLIC oform1

SET CLASSLIB TO libs\ctl32.vcx ADDITIVE

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


   **************************************************
*-- Form:         form1 (k:\gestasa\kk.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   02/16/09 05:31:01 PM
*
DEFINE CLASS form1 AS form


   Top = 0
   Left = 0
   Height = 250
   Width = 436
   DoCreate = .T.
   Caption = "Form1"
   *-- XML Metadata for customizable properties
   _memberdata = ""
   Name = "Form1"


   ADD OBJECT ctl32_progressbar1 AS ctl32_progressbar WITH ;
      Top = 201, ;
      Left = 61, ;
      ctlvisible = .F., ;
      Name = "Ctl32_progressbar1", ;
      lblname.Name = "lblname", ;
      ctlTextBox.Name = "ctlTextBox"


   ADD OBJECT command1 AS commandbutton WITH ;
      Top = 132, ;
      Left = 144, ;
      Height = 27, ;
      Width = 84, ;
      Caption = "Iniciar", ;
      Name = "Command1"


   ADD OBJECT label1 AS label WITH ;
      Caption = "Label1", ;
      Height = 17, ;
      Left = 84, ;
      Top = 48, ;
      Width = 264, ;
      Name = "Label1"


   ADD OBJECT command2 AS commandbutton WITH ;
      Top = 133, ;
      Left = 244, ;
      Height = 27, ;
      Width = 84, ;
      Caption = "Finalizar", ;
      Name = "Command2"


   PROCEDURE command1.Click
      This.Parent.ctl32_progressbar1.ctlMarquee = .T.
      This.Parent.label1.Caption = "Procesando ..... "
      this.Parent.ctl32_progressbar1.ctlShow()
   ENDPROC


   PROCEDURE command2.Click
      this.Parent.ctl32_progressbar1.ctlMarquee = .F.
      this.Parent.ctl32_progressbar1.ctlHide()
      this.Parent.label1.Caption = "Proceso Terminado por el usuario"
   ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************