FiveTech Support Forums

#include "FiveWin.ch"


static oPanel


FUNCTION MAIN
LOCAL oDlg, oBrush

DEFINE BRUSH oBack FILE "badge006.bmp"
DEFINE DIALOG oDlg   SIZE 680,520 ;
TITLE "ID Card Identification maker"


            oPanel:=TPanel(32,18,232,322,oDlg)
            oPanel:oBrusH:= oBack



ACTIVATE DIALOG oDlg ;
ON INIT ( BuildControls( oDlg ) ,;
          PAINT_DATA(oPanel)   )

oBrush:End()

RETURN NIL
//---------------------------------------------------------//

FUNCTION PAINT_DATA(oWnd )
Local cfoto := "DIP.bmp"
Local oImg
Local oSay[10],oFont[10]
Local   cImpresa:= "<< Empresa >>"


@ 13, 12 BITMAP oImg FILENAME cFoto OF oWnd    SIZE 96,115  NOBORDER     DESIGN
oImg:lTransparent:=.t.



 DEFINE FONT oFont[1] NAME "Arial" SIZE 0,-24  // iMPRESA
 @ 3, 2 SAY oSay[1] PROMPT cImpresa    OF  oWnd  DESIGN SIZE 250, 24      TRANSPARENT    FONT oFont[1]
  


   RETURN NIL

//------------------------------------------------------------------//
static Function BuildControls( oDlg)
    local oMenu, oBar
  MENU oMenu  2007
   MENUITEM "&Information"
     MENU
       MENUITEM "&Informa......"
       SEPARATOR
       MENUITEM "&Exit" ACTION oDlg:End()
     ENDMENU

   MENUITEM "&?"    ACTION MsgAbout()
   ENDMENU


oDlg:SetMenu( oMenu )

DEFINE BUTTONBAR oBar OF oDlg    2007

DEFINE BUTTON OF oBar  FILENAME "WEBCAM.BMP"
SET MESSAGE OF  oDlg TO "test badge"  NOINSET   2007
  
return( 0 )