Clipper On Line • Ver Tópico - wvgStatic()

wvgStatic()

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

wvgStatic()

Mensagempor JoséQuintas » 16 Jun 2020 11:24

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 185 vezes
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14294
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes

wvgStatic()

Mensagempor JoséQuintas » 16 Jun 2020 11:29

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
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14294
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes

wvgStatic()

Mensagempor JoséQuintas » 16 Jun 2020 11:41

É 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
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14294
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro