home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 May / cica_0595_4.zip / cica_0595_4 / UTIL / WSPRTERM / FLINESPA.FRM < prev    next >
Text File  |  1994-05-01  |  5KB  |  175 lines
  1. VERSION 2.00
  2. Begin Form FLineSpacing 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Line Spacing Setup"
  5.    ClientHeight    =   3240
  6.    ClientLeft      =   3030
  7.    ClientTop       =   2085
  8.    ClientWidth     =   3300
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   3705
  12.    Left            =   2940
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3240
  17.    ScaleWidth      =   3300
  18.    Top             =   1710
  19.    Width           =   3480
  20.    Begin VScrollBar VScroll1 
  21.       Height          =   1320
  22.       LargeChange     =   2
  23.       Left            =   2520
  24.       Max             =   10
  25.       TabIndex        =   2
  26.       Top             =   900
  27.       Value           =   10
  28.       Width           =   240
  29.    End
  30.    Begin PictureBox MLineSpacingSample 
  31.       FontTransparent =   0   'False
  32.       Height          =   1320
  33.       Left            =   540
  34.       ScaleHeight     =   1290
  35.       ScaleWidth      =   1965
  36.       TabIndex        =   4
  37.       TabStop         =   0   'False
  38.       Top             =   900
  39.       Width           =   1995
  40.    End
  41.    Begin CommandButton CmdCancel 
  42.       Cancel          =   -1  'True
  43.       Caption         =   "&Cancel"
  44.       Height          =   375
  45.       Left            =   1845
  46.       TabIndex        =   1
  47.       Top             =   2520
  48.       Width           =   915
  49.    End
  50.    Begin CommandButton CmdOk 
  51.       Caption         =   "&Ok"
  52.       Default         =   -1  'True
  53.       Height          =   375
  54.       Left            =   540
  55.       TabIndex        =   0
  56.       Top             =   2520
  57.       Width           =   915
  58.    End
  59.    Begin Label MLineSpacingValue 
  60.       BackStyle       =   0  'Transparent
  61.       Caption         =   "0"
  62.       Height          =   240
  63.       Left            =   2790
  64.       TabIndex        =   6
  65.       Top             =   270
  66.       Width           =   420
  67.    End
  68.    Begin Label Label2 
  69.       AutoSize        =   -1  'True
  70.       BackStyle       =   0  'Transparent
  71.       Caption         =   "Sample:"
  72.       Height          =   195
  73.       Left            =   540
  74.       TabIndex        =   5
  75.       Top             =   675
  76.       Width           =   690
  77.    End
  78.    Begin Label Label1 
  79.       AutoSize        =   -1  'True
  80.       BackStyle       =   0  'Transparent
  81.       Caption         =   "Additional Line Pixel Spacing:"
  82.       Height          =   195
  83.       Left            =   180
  84.       TabIndex        =   3
  85.       Top             =   270
  86.       Width           =   2550
  87.    End
  88. End
  89. Option Explicit
  90.  
  91. Dim newLineSpacing As Integer
  92.  
  93. Sub CmdCancel_Click ()
  94.  
  95.     Unload FLineSpacing
  96.  
  97. End Sub
  98.  
  99. Sub CmdOK_Click ()
  100.     Dim newHeight%, rv%
  101.  
  102.     If lineSpacing <> newLineSpacing Then
  103.         FMain.Scrn.Cls
  104.         lineSpacing = newLineSpacing
  105.         lineSpacingExt = lineSpacing * Screen.TwipsPerPixelY
  106.         pixelHeight = (FMain.Scrn.TextHeight("M") / Screen.TwipsPerPixelY) + lineSpacing
  107.         pixelWidth = FMain.Scrn.TextWidth("M") / Screen.TwipsPerPixelX
  108.         newHeight = (MaxRow + 1) * (FMain.Scrn.TextHeight("M") + lineSpacingExt) + FMain.StatusBar.Height + sidesTB + FMain.HScrollBar.Height + 25
  109.         If FMain.WindowState = 0 Then
  110.             FMain.Move FMain.Left, FMain.Top, FMain.Width, newHeight
  111.         End If
  112.         FMain.VScrollBar.Value = FMain.VScrollBar.Max
  113.     End If
  114.     rv = WritePrivateProfileString(Key_Pref, Appl_LineSpacing, Str$(lineSpacing), DefaultINI)
  115.  
  116.     Unload FLineSpacing
  117.  
  118. End Sub
  119.  
  120. Sub displaySample ()
  121.     Dim i%
  122.  
  123.     MLineSpacingSample.Cls
  124.     MLineSpacingSample.CurrentX = 0
  125.     MLineSpacingSample.CurrentY = 0
  126.     For i = 1 To 15
  127.         MLineSpacingSample.CurrentY = MLineSpacingSample.CurrentY + (newLineSpacing * Screen.TwipsPerPixelY)
  128.         MLineSpacingSample.Print "   " & Chr$(179) & " Sample Text " & Chr$(179)
  129.     Next i
  130.  
  131. End Sub
  132.  
  133. Sub Form_Activate ()
  134.  
  135.     VScroll1.Value = VScroll1.Max - newLineSpacing
  136.     displaySample
  137.  
  138. End Sub
  139.  
  140. Sub Form_Load ()
  141.  
  142.     CenterForm FLineSpacing
  143.  
  144.     newLineSpacing = lineSpacing
  145.     MLineSpacingSample.FontName = FMain.Scrn.FontName
  146.     MLineSpacingSample.FontSize = FMain.Scrn.FontSize
  147.     MLineSpacingSample.BackColor = FMain.Scrn.BackColor
  148.     MLineSpacingSample.ForeColor = FMain.Scrn.ForeColor
  149.     MLineSpacingValue.Caption = Str(newLineSpacing)
  150.  
  151. End Sub
  152.  
  153. Sub VScroll1_Change ()
  154.  
  155.     newLineSpacing = VScroll1.Max - VScroll1.Value
  156.     MLineSpacingValue.Caption = Str(newLineSpacing)
  157.     displaySample
  158.  
  159. End Sub
  160.  
  161. Sub VScroll1_GotFocus ()
  162.  
  163.     CmdOk.SetFocus
  164.  
  165. End Sub
  166.  
  167. Sub VScroll1_Scroll ()
  168.  
  169.     newLineSpacing = VScroll1.Max - VScroll1.Value
  170.     MLineSpacingValue.Caption = Str(newLineSpacing)
  171.     displaySample
  172.  
  173. End Sub
  174.  
  175.