Clipper On Line • Ver Tópico - wvgStatic()
Página 1 de 1

wvgStatic()

MensagemEnviado: 16 Jun 2020 11:24
por JoséQuintas
Vamos brincar com wvgStatic() ?

Talvez ela sirva pra coisas interessantes.

PROCEDURE Main

   LOCAL oControl

   SetMode( 25, 80 )
   CLS

   oControl := wvgStatic():New()
   oControl:Create(,,{-2,-2},{-10,-50})
   Inkey(0)

   RETURN


wvgstatic.png
wvgstatic.png (7.76 KiB) Visualizado 183 vezes

wvgStatic()

MensagemEnviado: 16 Jun 2020 11:29
por JoséQuintas
PROCEDURE Main

   LOCAL oControl

   SetMode( 25, 80 )
   CLS

   oControl := wvgStatic():New()
   oControl:Style := WIN_WS_CHILD + WIN_WS_GROUP + BS_GROUPBOX
   oControl:Create(,,{-2,-2},{-10,-50})
   oControl:SetCaption( "teste" )
   @ 3, 3 SAY "testando"
   Inkey(0)

   RETURN


wvgstatic.png

wvgStatic()

MensagemEnviado: 16 Jun 2020 11:41
por JoséQuintas
É só teste simples, nem sei usar isso, está sendo no chute.

PROCEDURE Main

   LOCAL oControl

   SetMode( 25, 80 )
   CLS

   oControl := wvgStatic():New()
   WITH OBJECT oControl
      :Type := WVGSTATIC_TYPE_TEXT
      :Create(,,{-2,-2},{-10,-50})
      :SetCaption( MemoRead( "test.prg" ) )
   ENDWITH
   @ 3, 3 SAY "testando"
   Inkey(0)

   RETURN


wvgstatic.png