Diversão com Telas

por **asimoes** » 04 Out 2020 22:55

por **sygecom** » 06 Out 2020 20:21

Showwwww

por **asimoes** » 08 Out 2020 21:51

por **asimoes** » 09 Out 2020 15:43

Centralizando uma imagem na tela

nCol := ( ThisForm:nWidth  - 60 ) / 2
   
nRow := ( ThisForm:nHeight - 60 ) / 2
   
@ nCol,nRow  BITMAP BitmapQR ;
          SHOW          "" ; 
          OF            ThisForm ;
          STRETCH       0 ;
          BACKTRANSPARENT ;
          SIZE          60, 60

por **JoséQuintas** » 09 Out 2020 15:54

Uma coisa que gosto no Harbour 3.4 é que dá pra fazer essa conta, desse mesmo jeito, sem precisar recorrer à linguagem C ou algum tipo de conversão, igual conseguiu fazer na hwgui.
Mas verifique com a lib hbzebra, pode ser mais interessante.

por **asimoes** » 11 Out 2020 15:51

Trabalhando com o objeto PANEL

oPanel := MyStatusBar( ThisForm, 32 )
   
oPanel:oSayPanel:SetText( "HwGui")

FUNCTION MyStatusBar( ThisForm, nHeight )

   @ 0, ThisForm:nHeight PANEL oPanel ;
                         OF        ThisForm ; 
                         SIZE      ThisForm:nWidth, nHeight ;
                         ON PAINT  {|This|   Proc_On_Paint( __xhb_p2n( This:handle ), , , , ,{250,250,250}, {85,212,255} ) }

   @ 0,0 LINE        oLine ;
         LENGTH      oPanel:nWidth ;
         HEIGHT      5 ;
         OF          oPanel ;
         COLOR       N_GRAY2 ;
         BORDERWIDTH 1             

   @ 4,0 SAY oSayPanel ;
             CAPTION "" ;
             OF oPanel ;
             FONT HFont():Add( 'Tahoma', 0, -16, 400 ) ;
             SIZE oPanel:nWidth, 24 ;
             BACKTRANSPARENT ;
             STYLE SS_LEFT + DT_CALCRECT  

   WITH OBJECT oSayPanel          
      :Move( , ( nHeight - :nHeight ) / 2 + 2, , :nHeight )  
   END
   
RETURN oPanel

por **asimoes** » 13 Out 2020 20:55

As 2 janelas são modal, a segunda janela é chamada no ACTIVATE da primeira, as janelas são somente DIALOG

por **RamonXHB** » 14 Out 2020 11:23

Isto está ficando muito interessante !!!

Quem está online