home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Borland / Dbase50w / SAMPLES1.PAK / FONT.WFM < prev    next >
Text File  |  1994-08-02  |  10KB  |  376 lines

  1. *******************************************************************************
  2. *  PROGRAM:      Font.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         1/94
  7. *
  8. *  UPDATED:      4/94
  9. *
  10. *  REVISION:     $Revision:   1.21  $
  11. *
  12. *  VERSION:      dBASE FOR WINDOWS 5.0
  13. *
  14. *  DESCRIPTION:  This program shows how you can use different fonts to enhance
  15. *                your dBASE for Windows form controls.  Most
  16. *                dBASE for Windows controls allow font manipulation.
  17. *
  18. *  PARAMETERS:   None
  19. *
  20. *  CALLS:        None
  21. *
  22. *  USAGE:        DO Font.wfm
  23. *
  24. *******************************************************************************
  25. create session
  26. set talk off
  27. set ldCheck off
  28.  
  29. ** END HEADER -- do not remove this line*
  30. * Generated on 06/18/94
  31. *
  32. LOCAL f
  33. f = NEW FONTFORM()
  34. f.Open()
  35.  
  36. CLASS FONTFORM OF FORM
  37.    this.Top =          2.20
  38.    this.Text = "Fonts are Fun!"
  39.    this.Width =         79.02
  40.    this.Height =         17.94
  41.    this.Left =          4.65
  42.    this.MousePointer =          1
  43.    this.Maximize = .F.
  44.    this.HelpId = ""
  45.    this.Minimize = .F.
  46.    this.HelpFile = ""
  47.  
  48.    DEFINE RECTANGLE RECTANGLE1 OF THIS;
  49.        PROPERTY;
  50.          BorderStyle          1,;
  51.          Top          0.00,;
  52.          Text "",;
  53.          Width         79.10,;
  54.          ColorNormal "N/W",;
  55.          Height          2.47,;
  56.          Left          0.00,;
  57.          Border .T.
  58.  
  59.    DEFINE RECTANGLE RECTANGLE2 OF THIS;
  60.        PROPERTY;
  61.          BorderStyle          1,;
  62.          Top          2.47,;
  63.          Text "",;
  64.          Width         26.30,;
  65.          ColorNormal "N/W",;
  66.          Height         12.06,;
  67.          Left          0.00,;
  68.          Border .T.
  69.  
  70.    DEFINE RECTANGLE RECTANGLE3 OF THIS;
  71.        PROPERTY;
  72.          BorderStyle          1,;
  73.          Top          2.47,;
  74.          Text "",;
  75.          Width         26.23,;
  76.          ColorNormal "N/W",;
  77.          Height         12.06,;
  78.          Left         26.23,;
  79.          Border .T.
  80.  
  81.    DEFINE RECTANGLE RECTANGLE4 OF THIS;
  82.        PROPERTY;
  83.          BorderStyle          1,;
  84.          Top          2.43,;
  85.          Text "",;
  86.          Width         26.70,;
  87.          ColorNormal "N/W",;
  88.          Height         12.06,;
  89.          Left         52.46,;
  90.          Border .T.
  91.  
  92.    DEFINE TEXT TITLETEXT OF THIS;
  93.        PROPERTY;
  94.          Top          0.23,;
  95.          Text "dBASE for Windows Font Samples",;
  96.          Width         77.19,;
  97.          ColorNormal "R/W",;
  98.          Height          1.90,;
  99.          FontName "Times New Roman",;
  100.          Left          0.50,;
  101.          Border .F.,;
  102.          Alignment          4,;
  103.          FontSize         18.00
  104.  
  105.    DEFINE TEXT TEXT0 OF THIS;
  106.        PROPERTY;
  107.          Top          2.74,;
  108.          Text "Times New Roman",;
  109.          Width         25.07,;
  110.          ColorNormal "N/W",;
  111.          Height          1.61,;
  112.          FontName "Times New Roman",;
  113.          Left          0.50,;
  114.          FontBold .F.,;
  115.          Border .F.,;
  116.          FontSize         14.00
  117.  
  118.    DEFINE TEXT TEXT1 OF THIS;
  119.        PROPERTY;
  120.          Top          4.68,;
  121.          Text "8 Point",;
  122.          Width         12.45,;
  123.          ColorNormal "N/W",;
  124.          Height          1.37,;
  125.          FontName "Times New Roman",;
  126.          Left          0.50,;
  127.          FontBold .F.,;
  128.          Border .F.
  129.  
  130.    DEFINE TEXT TEXT2 OF THIS;
  131.        PROPERTY;
  132.          Top          6.06,;
  133.          Text "10 Point Underlined",;
  134.          Width         21.75,;
  135.          ColorNormal "N/W",;
  136.          Height          1.37,;
  137.          FontName "Times New Roman",;
  138.          Left          0.50,;
  139.          FontBold .F.,;
  140.          FontUnderline .T.,;
  141.          Border .F.,;
  142.          FontSize         10.00
  143.  
  144.    DEFINE TEXT TEXT3 OF THIS;
  145.        PROPERTY;
  146.          Top          7.43,;
  147.          Text "12 Point Italic",;
  148.          Width         22.41,;
  149.          ColorNormal "N/W",;
  150.          Height          1.37,;
  151.          FontName "Times New Roman",;
  152.          Left          0.50,;
  153.          FontItalic .T.,;
  154.          FontBold .F.,;
  155.          Border .F.,;
  156.          FontSize         12.00
  157.  
  158.    DEFINE TEXT TEXT4 OF THIS;
  159.        PROPERTY;
  160.          Top          9.03,;
  161.          Text "16 Point Bold",;
  162.          Width         23.74,;
  163.          ColorNormal "N/W",;
  164.          Height          1.61,;
  165.          FontName "Times New Roman",;
  166.          Left          0.50,;
  167.          Border .F.,;
  168.          FontSize         16.00
  169.  
  170.    DEFINE TEXT TEXT5 OF THIS;
  171.        PROPERTY;
  172.          Top         11.01,;
  173.          Text "30 Point",;
  174.          Width         23.74,;
  175.          ColorNormal "N/W",;
  176.          Height          3.30,;
  177.          FontName "Times New Roman",;
  178.          Left          0.50,;
  179.          FontBold .F.,;
  180.          Border .F.,;
  181.          FontSize         30.00
  182.  
  183.    DEFINE TEXT TEXT6 OF THIS;
  184.        PROPERTY;
  185.          Top          2.76,;
  186.          Text "Arial",;
  187.          Width         23.07,;
  188.          ColorNormal "N/W",;
  189.          Height          1.37,;
  190.          FontName "Arial",;
  191.          Left         26.89,;
  192.          FontBold .F.,;
  193.          Border .F.,;
  194.          FontSize         14.00
  195.  
  196.    DEFINE TEXT TEXT7 OF THIS;
  197.        PROPERTY;
  198.          Top          4.64,;
  199.          Text "8 Point",;
  200.          Width         23.74,;
  201.          ColorNormal "N/W",;
  202.          Height          1.07,;
  203.          FontName "Arial",;
  204.          Left         26.89,;
  205.          FontBold .F.,;
  206.          Border .F.
  207.  
  208.    DEFINE TEXT TEXT8 OF THIS;
  209.        PROPERTY;
  210.          Top          6.06,;
  211.          Text "10 Point Underlined",;
  212.          Width         23.74,;
  213.          ColorNormal "N/W",;
  214.          Height          1.37,;
  215.          FontName "Arial",;
  216.          Left         26.89,;
  217.          FontBold .F.,;
  218.          FontUnderline .T.,;
  219.          Border .F.,;
  220.          FontSize         10.00
  221.  
  222.    DEFINE TEXT TEXT9 OF THIS;
  223.        PROPERTY;
  224.          Top          7.43,;
  225.          Text "12 Point Italic",;
  226.          Width         23.74,;
  227.          ColorNormal "N/W",;
  228.          Height          1.37,;
  229.          FontName "Arial",;
  230.          Left         26.89,;
  231.          FontItalic .T.,;
  232.          FontBold .F.,;
  233.          Border .F.,;
  234.          FontSize         12.00
  235.  
  236.    DEFINE TEXT TEXT10 OF THIS;
  237.        PROPERTY;
  238.          Top          9.03,;
  239.          Text "16 Point Bold",;
  240.          Width         23.74,;
  241.          ColorNormal "N/W",;
  242.          Height          1.61,;
  243.          FontName "Arial",;
  244.          Left         26.89,;
  245.          Border .F.,;
  246.          FontSize         16.00
  247.  
  248.    DEFINE TEXT TEXT11 OF THIS;
  249.        PROPERTY;
  250.          Top         11.01,;
  251.          Text "30 Point",;
  252.          Width         25.07,;
  253.          ColorNormal "N/W",;
  254.          Height          2.76,;
  255.          FontName "Arial",;
  256.          Left         26.89,;
  257.          FontBold .F.,;
  258.          Border .F.,;
  259.          FontSize         30.00
  260.  
  261.    DEFINE TEXT TEXT12 OF THIS;
  262.        PROPERTY;
  263.          Top          2.76,;
  264.          Text "MS Sans Serif",;
  265.          Width         24.40,;
  266.          ColorNormal "N/W",;
  267.          Height          1.93,;
  268.          Left         53.29,;
  269.          FontBold .F.,;
  270.          Border .F.,;
  271.          FontSize         14.00
  272.  
  273.    DEFINE TEXT TEXT13 OF THIS;
  274.        PROPERTY;
  275.          Top          4.68,;
  276.          Text "8 Point",;
  277.          Width         24.40,;
  278.          ColorNormal "N/W",;
  279.          Height          1.37,;
  280.          Left         53.29,;
  281.          FontBold .F.,;
  282.          Border .F.
  283.  
  284.    DEFINE TEXT TEXT14 OF THIS;
  285.        PROPERTY;
  286.          Top          6.06,;
  287.          Text "10 Point Underlined",;
  288.          Width         24.40,;
  289.          ColorNormal "N/W",;
  290.          Height          1.66,;
  291.          Left         53.29,;
  292.          FontBold .F.,;
  293.          FontUnderline .T.,;
  294.          Border .F.,;
  295.          FontSize         10.00
  296.  
  297.    DEFINE TEXT TEXT15 OF THIS;
  298.        PROPERTY;
  299.          Top          7.43,;
  300.          Text "12 Point Italic",;
  301.          Width         25.07,;
  302.          ColorNormal "N/W",;
  303.          Height          1.66,;
  304.          Left         53.29,;
  305.          FontItalic .T.,;
  306.          FontBold .F.,;
  307.          Border .F.,;
  308.          FontSize         12.00
  309.  
  310.    DEFINE TEXT TEXT16 OF THIS;
  311.        PROPERTY;
  312.          Top          9.03,;
  313.          Text "16 Point Bold",;
  314.          Width         25.07,;
  315.          ColorNormal "N/W",;
  316.          Height          1.90,;
  317.          Left         53.29,;
  318.          Border .F.,;
  319.          FontSize         16.00
  320.  
  321.    DEFINE TEXT TEXT17 OF THIS;
  322.        PROPERTY;
  323.          Top         11.01,;
  324.          Text "30 Point",;
  325.          Width         25.07,;
  326.          ColorNormal "N/W",;
  327.          Height          2.76,;
  328.          Left         53.29,;
  329.          FontBold .F.,;
  330.          Border .F.,;
  331.          FontSize         30.00
  332.  
  333.    DEFINE ENTRYFIELD ENTRYFIELD1 OF THIS;
  334.        PROPERTY;
  335.          ColorNormal "N/W",;
  336.          ColorHighLight "N/W*",;
  337.          SelectAll .T.,;
  338.          Value "Edit Me...",;
  339.          Top         15.41,;
  340.          Picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",;
  341.          Width         59.93,;
  342.          Height          1.52,;
  343.          FontName "Times New Roman",;
  344.          Left          1.16,;
  345.          FontBold .F.,;
  346.          Border .T.,;
  347.          FontSize         14.00
  348.  
  349.    DEFINE PUSHBUTTON OKBUTTON OF THIS;
  350.        PROPERTY;
  351.          Default .T.,;
  352.          OnClick {;form.Close()},;
  353.          Top         15.14,;
  354.          Text "OK",;
  355.          Width         15.11,;
  356.          ColorNormal "",;
  357.          Height          2.20,;
  358.          FontName "Arial",;
  359.          Left         62.58,;
  360.          FontSize         18.00
  361.  
  362. ENDCLASS
  363.  
  364.  
  365.  
  366.  
  367.  
  368.  
  369.  
  370.  
  371.  
  372.  
  373.  
  374.  
  375.  
  376.