FiveTech Software tech support forums

Code: Select all | Expand

 if Upper( ::ClassName() ) != "TGET" .and. ::bKeyDown != nil

Code: Select all | Expand

if ! ::IsKindOf( "TGET" ) .and. ::bKeyDown != nil

Code: Select all | Expand

METHOD Initiate( hWndFocus, hWnd ) CLASS TDialog
...
   if ::lTransparent
      FixSays( ::hWnd )
      //fgondi
      AEval( ::aControls,;
             { | o | If( ! Upper( o:ClassName() ) $ ;
             "TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO" .and. ;
               ! o:IsKindOf( 'TXBROWSE' ), o:lTransparent := .t., ) } )
 

Code: Select all | Expand

//  TestBtns.prg   10-19-98
//  From John Cole at john@adpa.com

#include 'FIVEWIN.CH'
static oWinMain := nil

PROCEDURE Main()
   local oFont, oDlg

   [b]SkinButtons(  )[/b]

   define font oFont name 'MS Sans Serif' size 6,15

   define window oWinMain from 5,5 to 30,85 title "TestBtns" menu BuildMenu()

   @ 3,10 BUTTON "Button 01 Test" size 100,50 font oFont OF oWinMain ACTION MsgInfo("Button 01 Test on oWinMain")
   @ 3,40 BUTTON "Button 02 Test" size 100,50 font oFont OF oWinMain ACTION MsgInfo("Button 02 Test on oWinMain")

   @ 3,70 BUTTON "Button 03 Test" size 100,50 font oFont OF oWinMain ACTION reporte()

   define dialog oDlg from 0,0 to 12,35 font oFont title 'Test Button on Dialog'
   @ 1,3 BUTTON "&Button Test on Dialog" size 100,50 font oFont OF oDlg ACTION MsgInfo("Button Test on Dialog")
   activate dialog oDlg centered

   set message of oWinMain to "TestBtns" date time noinset
   activate window oWinMain maximized
return


FUNCTION BuildMenu()
   local oMenu
   menu oMenu
   // File menu --------------------------------------------
   menuitem '&File'
   menu
   menuitem "&ACTION MsgInfo Test" MESSAGE "ACTION MsgInfo Test" ;
      ACTION MsgInfo("ACTION MsgInfo Test")
   separator
   menuitem 'E&xit'         ;
      action oWinMain:End() ;
      message 'Exit TestBtns'
   endmenu
   // About menu --------------------------------------------
   menuitem '&About' ;
      action MsgAbout()
   endmenu
return oMenu


Function reporte()

local oprn, xRow1, xCol1

printer oprn  DOC 'Reporte de Corte de Caja' preview

   DEFINE FONT oFont1  NAME "ARIAL" SIZE 0,-08       of oprn
   DEFINE FONT oFont1a NAME "ARIAL" SIZE 0,-08 BOLD of oprn
   DEFINE FONT oFont2  NAME "ARIAL" SIZE 0,-10 BOLD  of oprn
   DEFINE FONT oFont3  NAME "ARIAL" SIZE 0,-12 BOLD  of oprn

   xRow1 = oprn:nVertRes() / 66    // We want 66  rows
   xCol1 = oprn:nHorzRes() / 130  // We want 135 cols
   oprn:lprvmodal := .t.

   page

       oprn:say(2  *xrow1,01 *xcol1,'Reporte de Corte' ,ofont2)
       oprn:say(2  *xrow1,40 *xcol1,'Fecha:'+dtoc( date() )+"AL "+dtoc( date() )         ,ofont2)
       oprn:say(2  *xrow1,100 *xcol1,'Pagina:'+transform(oprn:npage,'999,999')    ,ofont2,,,,2)
      oprn:box(3  *xrow1,1  *xcol1,5  *xrow1,125*xcol1)

   endpage

endprinter

return .t.