Clipper On Line • Ver Tópico - Say Vertical com box

Say Vertical com box

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Say Vertical com box

Mensagempor Kapiaba » 29 Nov 2016 10:48

// Say Vertical com box

#Include "FiveWin.ch"

FUNCTION SayTest()

   local oDlg, oSay, oFont

   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-40 NESCAPEMENT 900

   DEFINE DIALOG oDlg SIZE 600,700 PIXEL TRUEPIXEL

   ACTIVATE DIALOG oDlg CENTERED ;
      ON PAINT ( oDlg:SayText( "Vertical Text" + CRLF + "Second Line", ;
         { 20,20,300, 120 }, nil, oFont ), ;
         oDlg:Box( 20, 20, 300, 120 ) )

   RELEASE FONT ofont

RETURN NIL


Kapiaba
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1264
Data de registro: 07 Dez 2012 16:14
Cidade/Estado: São Paulo
Curtiu: 251 vezes
Mens.Curtidas: 81 vezes

Say Vertical com box

Mensagempor Kapiaba » 29 Nov 2016 12:20

Very good,

#include "fivewin.ch"

#define SS_CENTERIMAGE      0x00000200

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

function SayTestDlg

   local oDlg, oSay

   DEFINE DIALOG oDlg TRUEPIXEL TITLE "SAY VCENTER"

   @ 20,20 SAY oSay PROMPT "Center" SIZE 200,100 PIXEL OF oDlg  CENTER

   if Empty( oSay:hWnd )
      oSay:nStyle := nOr( oSay:nStyle, SS_CENTERIMAGE  ) // dialogs
   else
      oSay:WinStyle( SS_CENTERIMAGE, .t. ) // windows, etc
   endif

   ACTIVATE DIALOG oDlg CENTERED ;
      ON PAINT oDlg:Box( oSay:nTop-1, oSay:nLeft-1, oSay:nBottom+1, oSay:nRight+ 1 )

return nil

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


Kapiaba
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1264
Data de registro: 07 Dez 2012 16:14
Cidade/Estado: São Paulo
Curtiu: 251 vezes
Mens.Curtidas: 81 vezes

Say Vertical com box

Mensagempor Kapiaba » 29 Nov 2016 12:48

Usando Window(Janela)

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL oWnd, oSay[3], oFont[2]
   
   DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0,20 BOLD NESCAPEMENT 900
       
   DEFINE WINDOW oWnd ;//FROM 1,5 TO 20,65 ;
          TITLE "Testing SAY With Design"

   @ 180, 30 say osay[2] prompt "" of ownd color 0 size 80,200 font oFont[1]   design  update pixel
 
   ACTIVATE WINDOW oWnd MAXIMIZED          ;
        ON INIT  oSay[2]:SAY(180,30,"THIS DONT SHOW",CLR_BLACK,CLR_YELLOW,oFont[1],.t.,)  ;
        ON PAINT osay[2]:SAY(180,30,"THIS DONT SHOW",CLR_BLACK,CLR_YELLOW,oFont[1],.t.,)

RETURN NIL


Kapiaba
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1264
Data de registro: 07 Dez 2012 16:14
Cidade/Estado: São Paulo
Curtiu: 251 vezes
Mens.Curtidas: 81 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


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