home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Borland / Dbase50w / SAMPLES2.PAK / EQUIPMNT.H < prev    next >
Text File  |  1994-08-02  |  1KB  |  39 lines
  1. *******************************************************************************
  2. *  FILE:         Equipmnt.h
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         1/94
  7. *
  8. *  UPDATED:      7/94
  9. *
  10. *  REVISION:     $Revision:   1.6  $
  11. *
  12. *  VERSION:      dBASE FOR WINDOWS 5.0
  13. *
  14. *  DESCRIPTION:  Header file for Equipmnt.prg
  15. *
  16. *  PARAMETERS:   None
  17. *
  18. *  CALLS:        None
  19. *
  20. *  USAGE:        #include "Equipmnt.h"
  21. *
  22. *******************************************************************************
  23. *** Preprocessor directives
  24.  
  25. #define ALLTRIM(x)    ltrim(rtrim(x))
  26. #define FIELDLIST     "flight_no,origin,dest,date,departure,arrival,price"
  27.  
  28. *  Fonts
  29. #define ARIALFONT    fontName "Arial" ,fontSize 20
  30. #define ARIALBFONT   fontName "Arial",fontSize 12,fontBold .t.
  31. #define SERIFBFONT   fontName "Serif",fontSize 15,fontBold .t.
  32.  
  33. *  l = form length
  34. #define PB_ROW(l)     (l - 3)
  35.  
  36. *  w = form width,p = pb prompt, t = total # pb's, n = # of current pb
  37. #define PB_COLUMN(w,p,t,n) ;
  38.                       (1+(int((w-2-((t*(len(p)+4))+t-1))/2)+((n-1)*(len(p)+5))))
  39.