PC Toledo

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  

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