home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 April B
/
Pcwk4b98.iso
/
Borland
/
Dbase50w
/
SAMPLES1.PAK
/
FONT.WFM
< prev
next >
Wrap
Text File
|
1994-08-02
|
10KB
|
376 lines
*******************************************************************************
* PROGRAM: Font.wfm
*
* WRITTEN BY: Borland Samples Group
*
* DATE: 1/94
*
* UPDATED: 4/94
*
* REVISION: $Revision: 1.21 $
*
* VERSION: dBASE FOR WINDOWS 5.0
*
* DESCRIPTION: This program shows how you can use different fonts to enhance
* your dBASE for Windows form controls. Most
* dBASE for Windows controls allow font manipulation.
*
* PARAMETERS: None
*
* CALLS: None
*
* USAGE: DO Font.wfm
*
*******************************************************************************
create session
set talk off
set ldCheck off
** END HEADER -- do not remove this line*
* Generated on 06/18/94
*
LOCAL f
f = NEW FONTFORM()
f.Open()
CLASS FONTFORM OF FORM
this.Top = 2.20
this.Text = "Fonts are Fun!"
this.Width = 79.02
this.Height = 17.94
this.Left = 4.65
this.MousePointer = 1
this.Maximize = .F.
this.HelpId = ""
this.Minimize = .F.
this.HelpFile = ""
DEFINE RECTANGLE RECTANGLE1 OF THIS;
PROPERTY;
BorderStyle 1,;
Top 0.00,;
Text "",;
Width 79.10,;
ColorNormal "N/W",;
Height 2.47,;
Left 0.00,;
Border .T.
DEFINE RECTANGLE RECTANGLE2 OF THIS;
PROPERTY;
BorderStyle 1,;
Top 2.47,;
Text "",;
Width 26.30,;
ColorNormal "N/W",;
Height 12.06,;
Left 0.00,;
Border .T.
DEFINE RECTANGLE RECTANGLE3 OF THIS;
PROPERTY;
BorderStyle 1,;
Top 2.47,;
Text "",;
Width 26.23,;
ColorNormal "N/W",;
Height 12.06,;
Left 26.23,;
Border .T.
DEFINE RECTANGLE RECTANGLE4 OF THIS;
PROPERTY;
BorderStyle 1,;
Top 2.43,;
Text "",;
Width 26.70,;
ColorNormal "N/W",;
Height 12.06,;
Left 52.46,;
Border .T.
DEFINE TEXT TITLETEXT OF THIS;
PROPERTY;
Top 0.23,;
Text "dBASE for Windows Font Samples",;
Width 77.19,;
ColorNormal "R/W",;
Height 1.90,;
FontName "Times New Roman",;
Left 0.50,;
Border .F.,;
Alignment 4,;
FontSize 18.00
DEFINE TEXT TEXT0 OF THIS;
PROPERTY;
Top 2.74,;
Text "Times New Roman",;
Width 25.07,;
ColorNormal "N/W",;
Height 1.61,;
FontName "Times New Roman",;
Left 0.50,;
FontBold .F.,;
Border .F.,;
FontSize 14.00
DEFINE TEXT TEXT1 OF THIS;
PROPERTY;
Top 4.68,;
Text "8 Point",;
Width 12.45,;
ColorNormal "N/W",;
Height 1.37,;
FontName "Times New Roman",;
Left 0.50,;
FontBold .F.,;
Border .F.
DEFINE TEXT TEXT2 OF THIS;
PROPERTY;
Top 6.06,;
Text "10 Point Underlined",;
Width 21.75,;
ColorNormal "N/W",;
Height 1.37,;
FontName "Times New Roman",;
Left 0.50,;
FontBold .F.,;
FontUnderline .T.,;
Border .F.,;
FontSize 10.00
DEFINE TEXT TEXT3 OF THIS;
PROPERTY;
Top 7.43,;
Text "12 Point Italic",;
Width 22.41,;
ColorNormal "N/W",;
Height 1.37,;
FontName "Times New Roman",;
Left 0.50,;
FontItalic .T.,;
FontBold .F.,;
Border .F.,;
FontSize 12.00
DEFINE TEXT TEXT4 OF THIS;
PROPERTY;
Top 9.03,;
Text "16 Point Bold",;
Width 23.74,;
ColorNormal "N/W",;
Height 1.61,;
FontName "Times New Roman",;
Left 0.50,;
Border .F.,;
FontSize 16.00
DEFINE TEXT TEXT5 OF THIS;
PROPERTY;
Top 11.01,;
Text "30 Point",;
Width 23.74,;
ColorNormal "N/W",;
Height 3.30,;
FontName "Times New Roman",;
Left 0.50,;
FontBold .F.,;
Border .F.,;
FontSize 30.00
DEFINE TEXT TEXT6 OF THIS;
PROPERTY;
Top 2.76,;
Text "Arial",;
Width 23.07,;
ColorNormal "N/W",;
Height 1.37,;
FontName "Arial",;
Left 26.89,;
FontBold .F.,;
Border .F.,;
FontSize 14.00
DEFINE TEXT TEXT7 OF THIS;
PROPERTY;
Top 4.64,;
Text "8 Point",;
Width 23.74,;
ColorNormal "N/W",;
Height 1.07,;
FontName "Arial",;
Left 26.89,;
FontBold .F.,;
Border .F.
DEFINE TEXT TEXT8 OF THIS;
PROPERTY;
Top 6.06,;
Text "10 Point Underlined",;
Width 23.74,;
ColorNormal "N/W",;
Height 1.37,;
FontName "Arial",;
Left 26.89,;
FontBold .F.,;
FontUnderline .T.,;
Border .F.,;
FontSize 10.00
DEFINE TEXT TEXT9 OF THIS;
PROPERTY;
Top 7.43,;
Text "12 Point Italic",;
Width 23.74,;
ColorNormal "N/W",;
Height 1.37,;
FontName "Arial",;
Left 26.89,;
FontItalic .T.,;
FontBold .F.,;
Border .F.,;
FontSize 12.00
DEFINE TEXT TEXT10 OF THIS;
PROPERTY;
Top 9.03,;
Text "16 Point Bold",;
Width 23.74,;
ColorNormal "N/W",;
Height 1.61,;
FontName "Arial",;
Left 26.89,;
Border .F.,;
FontSize 16.00
DEFINE TEXT TEXT11 OF THIS;
PROPERTY;
Top 11.01,;
Text "30 Point",;
Width 25.07,;
ColorNormal "N/W",;
Height 2.76,;
FontName "Arial",;
Left 26.89,;
FontBold .F.,;
Border .F.,;
FontSize 30.00
DEFINE TEXT TEXT12 OF THIS;
PROPERTY;
Top 2.76,;
Text "MS Sans Serif",;
Width 24.40,;
ColorNormal "N/W",;
Height 1.93,;
Left 53.29,;
FontBold .F.,;
Border .F.,;
FontSize 14.00
DEFINE TEXT TEXT13 OF THIS;
PROPERTY;
Top 4.68,;
Text "8 Point",;
Width 24.40,;
ColorNormal "N/W",;
Height 1.37,;
Left 53.29,;
FontBold .F.,;
Border .F.
DEFINE TEXT TEXT14 OF THIS;
PROPERTY;
Top 6.06,;
Text "10 Point Underlined",;
Width 24.40,;
ColorNormal "N/W",;
Height 1.66,;
Left 53.29,;
FontBold .F.,;
FontUnderline .T.,;
Border .F.,;
FontSize 10.00
DEFINE TEXT TEXT15 OF THIS;
PROPERTY;
Top 7.43,;
Text "12 Point Italic",;
Width 25.07,;
ColorNormal "N/W",;
Height 1.66,;
Left 53.29,;
FontItalic .T.,;
FontBold .F.,;
Border .F.,;
FontSize 12.00
DEFINE TEXT TEXT16 OF THIS;
PROPERTY;
Top 9.03,;
Text "16 Point Bold",;
Width 25.07,;
ColorNormal "N/W",;
Height 1.90,;
Left 53.29,;
Border .F.,;
FontSize 16.00
DEFINE TEXT TEXT17 OF THIS;
PROPERTY;
Top 11.01,;
Text "30 Point",;
Width 25.07,;
ColorNormal "N/W",;
Height 2.76,;
Left 53.29,;
FontBold .F.,;
Border .F.,;
FontSize 30.00
DEFINE ENTRYFIELD ENTRYFIELD1 OF THIS;
PROPERTY;
ColorNormal "N/W",;
ColorHighLight "N/W*",;
SelectAll .T.,;
Value "Edit Me...",;
Top 15.41,;
Picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",;
Width 59.93,;
Height 1.52,;
FontName "Times New Roman",;
Left 1.16,;
FontBold .F.,;
Border .T.,;
FontSize 14.00
DEFINE PUSHBUTTON OKBUTTON OF THIS;
PROPERTY;
Default .T.,;
OnClick {;form.Close()},;
Top 15.14,;
Text "OK",;
Width 15.11,;
ColorNormal "",;
Height 2.20,;
FontName "Arial",;
Left 62.58,;
FontSize 18.00
ENDCLASS