Diversão com Telas

[asimoes]

[sygecom]

Showwwww

[asimoes]

[asimoes]

Centralizando uma imagem na tela

Código: Selecionar todos

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

[JoséQuintas]

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.

[asimoes]

Trabalhando com o objeto PANEL

Código: Selecionar todos

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

[asimoes]

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

[RamonXHB]

Isto está ficando muito interessante !!!