FiveTech Software tech support forums

Code: Select all  Expand view

function Preferences()

   local oDlg
   
   DEFINE DIALOG oDlg TITLE "Preferences" SIZE 400, 200

   @ 1.2, 1.5 SAY "Default RDD: " + cDefRdd OF oDlg
   
   @ 2.4, 1.2 COMBOBOX cDefRdd ITEMS { "DBFNTX", "DBFCDX", "ADS" } ;
      OF oDlg SIZE 180, 150
   
   @ 4, 7 BUTTON "&Ok" OF oDlg SIZE 45, 13 ;
      ACTION ( SavePreferences(), oDlg:End() )

   @ 4, 18 BUTTON "&Cancel" OF oDlg SIZE 45, 13 ACTION oDlg:End()
   
   ACTIVATE DIALOG oDlg CENTERED
   
return nil  

Code: Select all  Expand view

INIT PROCEDURE Sets()
   
   LoadPreferences()
   
   if UPPER( cDefRdd ) = 'ADS'
      REQUEST ADS,ADSKeyCount,ADSKeyNo,OrdKeyCount,OrdKeyNo,AdsGetRelKeyPos,AdsSetRelKeyPos,DBFCDX,DBFFPT
      rddRegister( "ADS", 1 )
      rddsetdefault( "ADS" )
      AdsSetServerType(1)
      AdsSetFileType(2)
      SET SERVER LOCAL
      AdsSetFileType( ADS_CDX )  
   ELSE
      REQUEST DBFCDX
   ENDIF
   
   SET DATE FORMAT TO "DD/MM/YYYY"
   
return

xRC: fivedbu.rc(37): warning: No newline at end of file.
xRC: fivedbu.rc(13): error: File not found: '..\bitmaps\32x32\bottom.bmp'.
xRC: fivedbu.rc(24): error: File not found: '..\bitmaps\32x32\imp_exp.bmp'.
xRC: fivedbu.rc(27): error: File not found: '..\bitmaps\32x32\process.bmp'.
xRC: fivedbu.rc(30): error: File not found: '..\bitmaps\32x32\top.bmp'.
xRC: fivedbu.rc(31): error: File not found: '..\bitmaps\32x32\relation.bmp'.

Type: C >>>Couldn't build: fivedbu.res<<<
Type: C >>>TMAKEOBJECT<<<
Type: C >>>TMAKEOBJECT:REFRESH<<<
Type: N >>> 1

Code: Select all  Expand view

  @ 4, 15 BUTTON "&Ok" OF oDlg SIZE 45, 13 ;
      ACTION ( cFilter := AllTrim( cFilter ),;
               If( Empty( cFilter ), DbClearFilter(), DbSetFilter( GENBLOCK( cFilter ), cFilter ) ),;
               oBrw:Refresh(), oDlg:End() )