home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / update / crescent / htprn / tsthtprn.frm < prev    next >
Text File  |  1995-01-24  |  10KB  |  264 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4815
  5.    ClientLeft      =   1410
  6.    ClientTop       =   1890
  7.    ClientWidth     =   9585
  8.    Height          =   5220
  9.    Left            =   1350
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   321
  12.    ScaleMode       =   3  'Pixel
  13.    ScaleWidth      =   639
  14.    Top             =   1545
  15.    Width           =   9705
  16.    Begin CommandButton Command3 
  17.       Caption         =   "Quit"
  18.       Height          =   360
  19.       Left            =   6660
  20.       TabIndex        =   7
  21.       Top             =   3960
  22.       Width           =   1368
  23.    End
  24.    Begin CommandButton Command2 
  25.       Caption         =   "Print All"
  26.       Height          =   360
  27.       Left            =   6615
  28.       TabIndex        =   6
  29.       Top             =   2700
  30.       Width           =   1368
  31.    End
  32.    Begin CommandButton Command1 
  33.       Caption         =   "Preview"
  34.       Height          =   360
  35.       Left            =   6615
  36.       TabIndex        =   5
  37.       Top             =   1500
  38.       Width           =   1368
  39.    End
  40.    Begin csHyperText csHyperText1 
  41.       BorderStyle     =   1  'Fixed Single
  42.       FontBold        =   0   'False
  43.       FontItalic      =   0   'False
  44.       FontName        =   "Arial"
  45.       FontSize        =   9.75
  46.       FontStrikethru  =   0   'False
  47.       FontUnderline   =   0   'False
  48.       HeadingColor    =   &H00800000&
  49.       HeadingSize     =   14
  50.       Height          =   4335
  51.       Left            =   150
  52.       TabIndex        =   0
  53.       Text            =   ""
  54.       Top             =   105
  55.       Width           =   6120
  56.       WordWrap        =   -1  'True
  57.    End
  58.    Begin Label Label5 
  59.       BackStyle       =   0  'Transparent
  60.       Caption         =   "Use Print All when you only want to print all pages without an intervening print preview."
  61.       FontBold        =   0   'False
  62.       FontItalic      =   0   'False
  63.       FontName        =   "MS Sans Serif"
  64.       FontSize        =   8.25
  65.       FontStrikethru  =   0   'False
  66.       FontUnderline   =   0   'False
  67.       Height          =   1140
  68.       Left            =   6600
  69.       TabIndex        =   3
  70.       Top             =   3195
  71.       Width           =   2685
  72.    End
  73.    Begin Label Label4 
  74.       BackStyle       =   0  'Transparent
  75.       Caption         =   "Preview allows your users to View separate pages of text, and print selectively also."
  76.       FontBold        =   0   'False
  77.       FontItalic      =   0   'False
  78.       FontName        =   "MS Sans Serif"
  79.       FontSize        =   8.25
  80.       FontStrikethru  =   0   'False
  81.       FontUnderline   =   0   'False
  82.       Height          =   1140
  83.       Left            =   6570
  84.       TabIndex        =   8
  85.       Top             =   1935
  86.       Width           =   2685
  87.    End
  88.    Begin Label Label3 
  89.       BackStyle       =   0  'Transparent
  90.       Caption         =   "You can allow your users to Print, or Print Preivew it."
  91.       FontBold        =   0   'False
  92.       FontItalic      =   0   'False
  93.       FontName        =   "MS Sans Serif"
  94.       FontSize        =   8.25
  95.       FontStrikethru  =   0   'False
  96.       FontUnderline   =   0   'False
  97.       Height          =   810
  98.       Left            =   6570
  99.       TabIndex        =   4
  100.       Top             =   915
  101.       Width           =   2595
  102.    End
  103.    Begin Label Label2 
  104.       BackStyle       =   0  'Transparent
  105.       Caption         =   "On the left is your Crescent Software HyperText Control with its text"
  106.       FontBold        =   0   'False
  107.       FontItalic      =   0   'False
  108.       FontName        =   "MS Sans Serif"
  109.       FontSize        =   8.25
  110.       FontStrikethru  =   0   'False
  111.       FontUnderline   =   0   'False
  112.       Height          =   780
  113.       Left            =   6585
  114.       TabIndex        =   2
  115.       Top             =   420
  116.       Width           =   2790
  117.    End
  118.    Begin Label Label1 
  119.       AutoSize        =   -1  'True
  120.       BackStyle       =   0  'Transparent
  121.       Caption         =   "This is your application"
  122.       Height          =   195
  123.       Left            =   6570
  124.       TabIndex        =   1
  125.       Top             =   150
  126.       Width           =   1980
  127.    End
  128. End
  129. Option Explicit
  130. Declare Function WritePrivateProfileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpString$, ByVal lplFileName$)
  131.  
  132. Dim sText As String
  133.  
  134. Sub Command1_Click ()
  135.     Dim sIniFile As String
  136.  
  137.     ' ----- Give a suitable name for an INI file to hold parameters
  138.     sIniFile = App.Path & "\TSTHTPRN.INI"
  139.  
  140.     ' ----- Provide Print Preview - See the comments in CreateTextFiles for explanation
  141.     CreateTextFiles sIniFile, True           ' True indicates Preview is ON
  142.     ' ----- And shell to CSHTPRN.EXE
  143.     PrintHyperText sIniFile
  144.  
  145. End Sub
  146.  
  147. Sub Command2_Click ()
  148.     Dim sIniFile As String
  149.  
  150.     ' ----- Give a suitable name for an INI file to hold parameters
  151.     sIniFile = App.Path & "\TSTHTPRN.INI"
  152.  
  153.     ' ----- Provide Print - See the comments in CreateTextFiles for explanation
  154.     CreateTextFiles sIniFile, False           ' False indicates Preview is OFF
  155.     ' ----- And shell to CSHTPRN.EXE
  156.     PrintHyperText sIniFile
  157.  
  158. End Sub
  159.  
  160. Sub Command3_Click ()
  161.     Unload Me
  162.     End
  163.  
  164. End Sub
  165.  
  166. Sub CreateTextFiles (sIniFile As String, fPreview As Integer)
  167.     ' ----- First dump the HyperText Control's text into a text file - Any valid name is ok
  168.     Open App.Path & "\TSTHTPRN.TXT" For Output As #1
  169.     Print #1, sText
  170.     Close #1
  171.     
  172.  
  173.     ' ----- Now make calls to Windows API function to write to an INI file.
  174.     ' ----- You need to use a wrapper by sending INI file name, Section, Keyword and value
  175.  
  176.     ' ----- This two lines below are the  only MANDATORY lines you need to use
  177.     ' ----- Tell it what file to find the text in
  178.     WriteProfileString sIniFile, "HyperText", "TextFile", App.Path & "\TSTHTPRN.TXT"
  179.     
  180.     ' ----- Tell it whether to preview (true = -1) or print directly (false = 0)
  181.     WriteProfileString sIniFile, "Action", "Preview", Trim$(Str$(fPreview))
  182.     
  183.     
  184.     ' ----- If you wish, you need not use any of the following lines, the defaults will be
  185.     ' ----- used.  These lines are provided for you to customize the appearance of the preview/
  186.     ' ----- printed page
  187.  
  188.     ' ----- If you wish to, set up the page margins, else, all will default to 1" if not found
  189.     WriteProfileString sIniFile, "PageSetup", "TopMargin", "1"
  190.     WriteProfileString sIniFile, "PageSetup", "BottomMargin", "1"
  191.     WriteProfileString sIniFile, "PageSetup", "LeftMargin", "1"
  192.     WriteProfileString sIniFile, "PageSetup", "RightMargin", "1"
  193.     
  194.  
  195.     ' ----- Now determine what fonts you need to use to print out
  196.     ' ----- Header Font Name = Default to "Arial" if not found
  197.     WriteProfileString sIniFile, "Fonts", "HeaderFontName", "Arial"
  198.     ' ----- Header Font Size = Default to 14 if not found
  199.     WriteProfileString sIniFile, "Fonts", "HeaderFontSize", "14"
  200.     ' ----- Text Font Name = Default to "Arial" if not found
  201.     WriteProfileString sIniFile, "Fonts", "TextFontName", "Arial"
  202.     ' ----- Text font Size = Default to 10 if not found
  203.     WriteProfileString sIniFile, "Fonts", "TextFontSize", "10"
  204.  
  205.     ' ----- Determine what color to use in printing header and text, can be overridden by Color settings
  206.     ' ----- Color for header = Default Dark Blue if not found
  207.     WriteProfileString sIniFile, "Color", "Header", "C00000"
  208.     ' ----- Color for text = Default Black if not found
  209.     WriteProfileString sIniFile, "Color", "Text", "00000"
  210.  
  211.     ' ----- You can specify lines to print as Headers and footers. There are two lines
  212.     ' ----- of Header provided and one for footer.  You can embed variables in these lines
  213.     ' ----- as follows:
  214.     ' ----- To Get this                      Use This
  215.     ' -----  Page 1                     Page @#
  216.     ' -----  Page 1 of 3                Page @# of @N
  217.     ' -----  System Date                @D
  218.     ' -----  System Time                @T
  219.     ' -----  Any other text             Any other Text
  220.     ' -----
  221.     ' ----- Header line 1 = Defaults to "HyperText Printer" if not found
  222.     WriteProfileString sIniFile, "Header", "Line1", "This is My Header Line 1"
  223.     ' ----- Header Line 2 = Defaults to null string if not found
  224.     WriteProfileString sIniFile, "Header", "Line2", "and my header line two"
  225.     ' ----- Offset of Header from end of page = Default to 0.5" if not found
  226.     WriteProfileString sIniFile, "Header", "Offset", "0.5"
  227.  
  228.     ' ----- Footer line 1 = Defaults to Page Number if not found
  229.     WriteProfileString sIniFile, "Footer", "Line1", "Page @#"
  230.     ' ----- Offset of Footer from end of page = Default to 0.5" if not found
  231.     WriteProfileString sIniFile, "Header", "Offset", "0.5"
  232.  
  233. End Sub
  234.  
  235. Sub Form_Load ()
  236. ' ----- Centers the form
  237. Me.Move ((Screen.Width - Me.Width) / 2), ((Screen.Height - Me.Height) / 2)
  238.  
  239.  
  240.     Open App.Path & "\TST.TXT" For Input As #1
  241.     sText = Input$(LOF(1), #1)
  242.     Close #1
  243.  
  244.     'sText = "This is a test \Pprogram\p for \JTesting\j the HyperText Utility created by Graphic Solutions"
  245.  
  246.     csHyperText1.Text = sText
  247.  
  248.  
  249.  
  250. End Sub
  251.  
  252. Sub PrintHyperText (sIniFile As String)
  253.     Dim x%
  254.     x% = Shell(App.Path & "\CSHTPRUN.EXE " & sIniFile, 1)
  255.  
  256. End Sub
  257.  
  258. Sub WriteProfileString (sIniFile As String, sSection As String, sKeyWord As String, sValue As String)
  259.     Dim x%
  260.     x% = WritePrivateProfileString(sSection, sKeyWord, sValue, sIniFile)
  261.  
  262. End Sub
  263.  
  264.