home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
cdspy
/
einst.frm
< prev
next >
Wrap
Text File
|
1995-02-27
|
10KB
|
316 lines
VERSION 2.00
Begin Form F_Setup
BorderStyle = 1 'Fixed Single
Caption = "Setup"
ClientHeight = 2340
ClientLeft = 2130
ClientTop = 2175
ClientWidth = 3915
Height = 2745
Left = 2070
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 156
ScaleMode = 3 'Pixel
ScaleWidth = 261
Top = 1830
Width = 4035
Begin PictureBox Pic_ChooseColor
AutoSize = -1 'True
Height = 555
Left = 1620
Picture = EINST.FRX:0000
ScaleHeight = 525
ScaleWidth = 2055
TabIndex = 11
Top = 1740
Visible = 0 'False
Width = 2085
End
Begin PictureBox Pic_ForeColor
Height = 210
Left = 1635
ScaleHeight = 180
ScaleWidth = 1725
TabIndex = 13
Top = 1395
Width = 1755
End
Begin PictureBox Pic_BackColor
Height = 210
Left = 1635
ScaleHeight = 180
ScaleWidth = 1725
TabIndex = 12
Top = 1095
Width = 1755
End
Begin CommandButton Cmd_OK
BackColor = &H00C0C0C0&
Caption = "OK"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 315
Left = 1140
TabIndex = 10
Top = 1890
Width = 1590
End
Begin ComboBox Cmb_Foreground
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Left = 1590
Style = 2 'Dropdown List
TabIndex = 8
Top = 1350
Width = 2085
End
Begin ComboBox Cmb_Background
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Left = 1590
Style = 2 'Dropdown List
TabIndex = 6
Top = 1050
Width = 2085
End
Begin ComboBox Cmb_Fontbold
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Left = 1590
Style = 2 'Dropdown List
TabIndex = 4
Top = 750
Width = 2085
End
Begin ComboBox Cmb_FontSize
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Left = 1590
Style = 2 'Dropdown List
TabIndex = 2
Top = 450
Width = 2085
End
Begin ComboBox Cmb_Fontname
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Left = 1590
Sorted = -1 'True
Style = 2 'Dropdown List
TabIndex = 0
Top = 150
Width = 2085
End
Begin Label Label5
BackStyle = 0 'Transparent
Caption = "Vordergrundfarbe"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Left = 210
TabIndex = 9
Top = 1410
Width = 1365
End
Begin Label Label4
BackStyle = 0 'Transparent
Caption = "Hintergrundfarbe"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Left = 210
TabIndex = 7
Top = 1110
Width = 1365
End
Begin Label Label3
BackStyle = 0 'Transparent
Caption = "Fett"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Left = 210
TabIndex = 5
Top = 810
Width = 1365
End
Begin Shape Shape1
Height = 1695
Left = 60
Top = 60
Width = 3735
End
Begin Label Label2
BackStyle = 0 'Transparent
Caption = "Schriftgr÷sse"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Left = 210
TabIndex = 3
Top = 510
Width = 1365
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Schriftart"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Left = 210
TabIndex = 1
Top = 210
Width = 1365
End
End
Option Explicit
Option Compare Text
Dim GL_PicColor As Picturebox
Sub Cmb_Background_dropdown ()
Set GL_PicColor = Pic_BackColor
Pic_ChooseColor.Move Cmb_Background.Left, Cmb_Background.Top + Cmb_Background.Height
Pic_ChooseColor.Visible = True
Pic_ChooseColor.SetFocus
End Sub
Sub Cmb_Fontbold_Click ()
G_Control.FontBold = Cmb_Fontbold = "Ja"
End Sub
Sub Cmb_Fontname_Click ()
Dim i%, old, fs#
G_Control.FontName = Cmb_Fontname
Me.FontName = G_Control.FontName
Cmb_Fontsize.Clear
fs# = 6
For i% = 24 To 96
Me.FontSize = fs#
If Me.FontSize <> old Then
Cmb_Fontsize.AddItem Me.FontSize
old = Me.FontSize
End If
fs# = fs# + .25
Next i%
PM_SeekList Cmb_Fontsize, (G_Control.FontSize)
End Sub
Sub Cmb_FontSize_Click ()
G_Control.FontSize = Cmb_Fontsize
End Sub
Sub Cmb_Foreground_dropdown ()
Set GL_PicColor = Pic_ForeColor
Pic_ChooseColor.Move Cmb_Foreground.Left, Cmb_Foreground.Top + Cmb_Foreground.Height
Pic_ChooseColor.Visible = True
Pic_ChooseColor.SetFocus
End Sub
Sub Cmd_OK_Click ()
PM_SchreibControl G_Control
Unload Me
End Sub
Sub Form_Load ()
Dim i%, old
For i% = 0 To Screen.FontCount - 1
Cmb_Fontname.AddItem Screen.Fonts(i%)
Next i%
PM_SeekList Cmb_Fontname, (G_Control.FontName)
PM_SeekList Cmb_Fontsize, (G_Control.FontSize)
Me.FontName = G_Control.FontName
For i% = 1 To 24
Me.FontSize = i%
If Me.FontSize <> old Then
Cmb_Fontsize.AddItem Me.FontSize
old = Me.FontSize
End If
Next i%
Cmb_Fontbold.AddItem "Ja"
Cmb_Fontbold.AddItem "Nein"
PM_SeekList Cmb_Fontbold, Choose(G_Control.FontBold + 2, "Ja", "Nein")
Pic_BackColor.BackColor = G_Control.BackColor
Pic_ForeColor.BackColor = G_Control.ForeColor
'PM_Show3d Me
Screen.MousePointer = 0 'Standard
End Sub
Sub Form_Resize ()
PM_Show3d Me
End Sub
Sub Pic_BackColor_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Cmb_Background_dropdown
End Sub
Sub Pic_ChooseColor_LostFocus ()
Pic_ChooseColor.Visible = False
G_Control.ForeColor = Pic_ForeColor.BackColor
G_Control.BackColor = Pic_BackColor.BackColor
End Sub
Sub Pic_ChooseColor_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim nx%, ny%
nx% = X \ (Pic_ChooseColor.ScaleWidth / 8)
ny% = Y \ (Pic_ChooseColor.ScaleHeight / 2)
GL_PicColor.BackColor = QBColor(nx% + 8 * ny%)
Pic_ChooseColor.Visible = False
End Sub
Sub Pic_ForeColor_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Cmb_Foreground_dropdown
End Sub