home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / einst.frm < prev    next >
Text File  |  1995-02-27  |  10KB  |  316 lines

  1. VERSION 2.00
  2. Begin Form F_Setup 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Setup"
  5.    ClientHeight    =   2340
  6.    ClientLeft      =   2130
  7.    ClientTop       =   2175
  8.    ClientWidth     =   3915
  9.    Height          =   2745
  10.    Left            =   2070
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   156
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   261
  17.    Top             =   1830
  18.    Width           =   4035
  19.    Begin PictureBox Pic_ChooseColor 
  20.       AutoSize        =   -1  'True
  21.       Height          =   555
  22.       Left            =   1620
  23.       Picture         =   EINST.FRX:0000
  24.       ScaleHeight     =   525
  25.       ScaleWidth      =   2055
  26.       TabIndex        =   11
  27.       Top             =   1740
  28.       Visible         =   0   'False
  29.       Width           =   2085
  30.    End
  31.    Begin PictureBox Pic_ForeColor 
  32.       Height          =   210
  33.       Left            =   1635
  34.       ScaleHeight     =   180
  35.       ScaleWidth      =   1725
  36.       TabIndex        =   13
  37.       Top             =   1395
  38.       Width           =   1755
  39.    End
  40.    Begin PictureBox Pic_BackColor 
  41.       Height          =   210
  42.       Left            =   1635
  43.       ScaleHeight     =   180
  44.       ScaleWidth      =   1725
  45.       TabIndex        =   12
  46.       Top             =   1095
  47.       Width           =   1755
  48.    End
  49.    Begin CommandButton Cmd_OK 
  50.       BackColor       =   &H00C0C0C0&
  51.       Caption         =   "OK"
  52.       FontBold        =   0   'False
  53.       FontItalic      =   0   'False
  54.       FontName        =   "MS Sans Serif"
  55.       FontSize        =   8.25
  56.       FontStrikethru  =   0   'False
  57.       FontUnderline   =   0   'False
  58.       Height          =   315
  59.       Left            =   1140
  60.       TabIndex        =   10
  61.       Top             =   1890
  62.       Width           =   1590
  63.    End
  64.    Begin ComboBox Cmb_Foreground 
  65.       FontBold        =   0   'False
  66.       FontItalic      =   0   'False
  67.       FontName        =   "MS Sans Serif"
  68.       FontSize        =   8.25
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       Height          =   300
  72.       Left            =   1590
  73.       Style           =   2  'Dropdown List
  74.       TabIndex        =   8
  75.       Top             =   1350
  76.       Width           =   2085
  77.    End
  78.    Begin ComboBox Cmb_Background 
  79.       FontBold        =   0   'False
  80.       FontItalic      =   0   'False
  81.       FontName        =   "MS Sans Serif"
  82.       FontSize        =   8.25
  83.       FontStrikethru  =   0   'False
  84.       FontUnderline   =   0   'False
  85.       Height          =   300
  86.       Left            =   1590
  87.       Style           =   2  'Dropdown List
  88.       TabIndex        =   6
  89.       Top             =   1050
  90.       Width           =   2085
  91.    End
  92.    Begin ComboBox Cmb_Fontbold 
  93.       FontBold        =   0   'False
  94.       FontItalic      =   0   'False
  95.       FontName        =   "MS Sans Serif"
  96.       FontSize        =   8.25
  97.       FontStrikethru  =   0   'False
  98.       FontUnderline   =   0   'False
  99.       Height          =   300
  100.       Left            =   1590
  101.       Style           =   2  'Dropdown List
  102.       TabIndex        =   4
  103.       Top             =   750
  104.       Width           =   2085
  105.    End
  106.    Begin ComboBox Cmb_FontSize 
  107.       FontBold        =   0   'False
  108.       FontItalic      =   0   'False
  109.       FontName        =   "MS Sans Serif"
  110.       FontSize        =   8.25
  111.       FontStrikethru  =   0   'False
  112.       FontUnderline   =   0   'False
  113.       Height          =   300
  114.       Left            =   1590
  115.       Style           =   2  'Dropdown List
  116.       TabIndex        =   2
  117.       Top             =   450
  118.       Width           =   2085
  119.    End
  120.    Begin ComboBox Cmb_Fontname 
  121.       FontBold        =   0   'False
  122.       FontItalic      =   0   'False
  123.       FontName        =   "MS Sans Serif"
  124.       FontSize        =   8.25
  125.       FontStrikethru  =   0   'False
  126.       FontUnderline   =   0   'False
  127.       Height          =   300
  128.       Left            =   1590
  129.       Sorted          =   -1  'True
  130.       Style           =   2  'Dropdown List
  131.       TabIndex        =   0
  132.       Top             =   150
  133.       Width           =   2085
  134.    End
  135.    Begin Label Label5 
  136.       BackStyle       =   0  'Transparent
  137.       Caption         =   "Vordergrundfarbe"
  138.       FontBold        =   0   'False
  139.       FontItalic      =   0   'False
  140.       FontName        =   "MS Sans Serif"
  141.       FontSize        =   8.25
  142.       FontStrikethru  =   0   'False
  143.       FontUnderline   =   0   'False
  144.       Height          =   195
  145.       Left            =   210
  146.       TabIndex        =   9
  147.       Top             =   1410
  148.       Width           =   1365
  149.    End
  150.    Begin Label Label4 
  151.       BackStyle       =   0  'Transparent
  152.       Caption         =   "Hintergrundfarbe"
  153.       FontBold        =   0   'False
  154.       FontItalic      =   0   'False
  155.       FontName        =   "MS Sans Serif"
  156.       FontSize        =   8.25
  157.       FontStrikethru  =   0   'False
  158.       FontUnderline   =   0   'False
  159.       Height          =   195
  160.       Left            =   210
  161.       TabIndex        =   7
  162.       Top             =   1110
  163.       Width           =   1365
  164.    End
  165.    Begin Label Label3 
  166.       BackStyle       =   0  'Transparent
  167.       Caption         =   "Fett"
  168.       FontBold        =   0   'False
  169.       FontItalic      =   0   'False
  170.       FontName        =   "MS Sans Serif"
  171.       FontSize        =   8.25
  172.       FontStrikethru  =   0   'False
  173.       FontUnderline   =   0   'False
  174.       Height          =   195
  175.       Left            =   210
  176.       TabIndex        =   5
  177.       Top             =   810
  178.       Width           =   1365
  179.    End
  180.    Begin Shape Shape1 
  181.       Height          =   1695
  182.       Left            =   60
  183.       Top             =   60
  184.       Width           =   3735
  185.    End
  186.    Begin Label Label2 
  187.       BackStyle       =   0  'Transparent
  188.       Caption         =   "Schriftgr÷sse"
  189.       FontBold        =   0   'False
  190.       FontItalic      =   0   'False
  191.       FontName        =   "MS Sans Serif"
  192.       FontSize        =   8.25
  193.       FontStrikethru  =   0   'False
  194.       FontUnderline   =   0   'False
  195.       Height          =   195
  196.       Left            =   210
  197.       TabIndex        =   3
  198.       Top             =   510
  199.       Width           =   1365
  200.    End
  201.    Begin Label Label1 
  202.       BackStyle       =   0  'Transparent
  203.       Caption         =   "Schriftart"
  204.       FontBold        =   0   'False
  205.       FontItalic      =   0   'False
  206.       FontName        =   "MS Sans Serif"
  207.       FontSize        =   8.25
  208.       FontStrikethru  =   0   'False
  209.       FontUnderline   =   0   'False
  210.       Height          =   195
  211.       Left            =   210
  212.       TabIndex        =   1
  213.       Top             =   210
  214.       Width           =   1365
  215.    End
  216. End
  217. Option Explicit
  218. Option Compare Text
  219.  
  220. Dim GL_PicColor As Picturebox
  221.  
  222. Sub Cmb_Background_dropdown ()
  223.   Set GL_PicColor = Pic_BackColor
  224.   Pic_ChooseColor.Move Cmb_Background.Left, Cmb_Background.Top + Cmb_Background.Height
  225.   Pic_ChooseColor.Visible = True
  226.   Pic_ChooseColor.SetFocus
  227. End Sub
  228.  
  229. Sub Cmb_Fontbold_Click ()
  230.   G_Control.FontBold = Cmb_Fontbold = "Ja"
  231. End Sub
  232.  
  233. Sub Cmb_Fontname_Click ()
  234.   Dim i%, old, fs#
  235.   G_Control.FontName = Cmb_Fontname
  236.   Me.FontName = G_Control.FontName
  237.   Cmb_Fontsize.Clear
  238.   fs# = 6
  239.   For i% = 24 To 96
  240.     Me.FontSize = fs#
  241.     If Me.FontSize <> old Then
  242.       Cmb_Fontsize.AddItem Me.FontSize
  243.       old = Me.FontSize
  244.     End If
  245.     fs# = fs# + .25
  246.   Next i%
  247.   PM_SeekList Cmb_Fontsize, (G_Control.FontSize)
  248. End Sub
  249.  
  250. Sub Cmb_FontSize_Click ()
  251.   G_Control.FontSize = Cmb_Fontsize
  252. End Sub
  253.  
  254. Sub Cmb_Foreground_dropdown ()
  255.   Set GL_PicColor = Pic_ForeColor
  256.   Pic_ChooseColor.Move Cmb_Foreground.Left, Cmb_Foreground.Top + Cmb_Foreground.Height
  257.   Pic_ChooseColor.Visible = True
  258.   Pic_ChooseColor.SetFocus
  259. End Sub
  260.  
  261. Sub Cmd_OK_Click ()
  262.   PM_SchreibControl G_Control
  263.   Unload Me
  264. End Sub
  265.  
  266. Sub Form_Load ()
  267.   Dim i%, old
  268.   For i% = 0 To Screen.FontCount - 1
  269.     Cmb_Fontname.AddItem Screen.Fonts(i%)
  270.   Next i%
  271.   PM_SeekList Cmb_Fontname, (G_Control.FontName)
  272.   PM_SeekList Cmb_Fontsize, (G_Control.FontSize)
  273.   Me.FontName = G_Control.FontName
  274.   For i% = 1 To 24
  275.     Me.FontSize = i%
  276.     If Me.FontSize <> old Then
  277.       Cmb_Fontsize.AddItem Me.FontSize
  278.       old = Me.FontSize
  279.     End If
  280.   Next i%
  281.   Cmb_Fontbold.AddItem "Ja"
  282.   Cmb_Fontbold.AddItem "Nein"
  283.   PM_SeekList Cmb_Fontbold, Choose(G_Control.FontBold + 2, "Ja", "Nein")
  284.   Pic_BackColor.BackColor = G_Control.BackColor
  285.   Pic_ForeColor.BackColor = G_Control.ForeColor
  286.   'PM_Show3d Me
  287.   Screen.MousePointer = 0 'Standard
  288. End Sub
  289.  
  290. Sub Form_Resize ()
  291. PM_Show3d Me
  292. End Sub
  293.  
  294. Sub Pic_BackColor_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  295.   Cmb_Background_dropdown
  296. End Sub
  297.  
  298. Sub Pic_ChooseColor_LostFocus ()
  299.   Pic_ChooseColor.Visible = False
  300.   G_Control.ForeColor = Pic_ForeColor.BackColor
  301.   G_Control.BackColor = Pic_BackColor.BackColor
  302. End Sub
  303.  
  304. Sub Pic_ChooseColor_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  305.   Dim nx%, ny%
  306.   nx% = X \ (Pic_ChooseColor.ScaleWidth / 8)
  307.   ny% = Y \ (Pic_ChooseColor.ScaleHeight / 2)
  308.   GL_PicColor.BackColor = QBColor(nx% + 8 * ny%)
  309.   Pic_ChooseColor.Visible = False
  310. End Sub
  311.  
  312. Sub Pic_ForeColor_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  313.   Cmb_Foreground_dropdown
  314. End Sub
  315.  
  316.