home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 January / Pcwk0198.iso / Wtestowe / Microgfx / FCTRIALL / ABC.Z / OPTIONS.FRM < prev    next >
Text File  |  1996-12-16  |  10KB  |  297 lines
  1. VERSION 4.00
  2. Begin VB.Form OrgChartOptionsDlg 
  3.    Appearance      =   0  'Flat
  4.    AutoRedraw      =   -1  'True
  5.    BackColor       =   &H00C0C0C0&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "Organization Chart Options"
  8.    ClientHeight    =   2295
  9.    ClientLeft      =   990
  10.    ClientTop       =   2295
  11.    ClientWidth     =   5115
  12.    BeginProperty Font 
  13.       name            =   "MS Sans Serif"
  14.       charset         =   0
  15.       weight          =   700
  16.       size            =   8.25
  17.       underline       =   0   'False
  18.       italic          =   0   'False
  19.       strikethrough   =   0   'False
  20.    EndProperty
  21.    ForeColor       =   &H80000008&
  22.    Height          =   2700
  23.    Icon            =   "OPTIONS.frx":0000
  24.    Left            =   930
  25.    LinkTopic       =   "Form1"
  26.    MaxButton       =   0   'False
  27.    MinButton       =   0   'False
  28.    ScaleHeight     =   2295
  29.    ScaleWidth      =   5115
  30.    Top             =   1950
  31.    Width           =   5235
  32.    Begin VB.Frame OrientGroup 
  33.       Appearance      =   0  'Flat
  34.       BackColor       =   &H00C0C0C0&
  35.       Caption         =   "Chart Orientation"
  36.       ForeColor       =   &H80000008&
  37.       Height          =   1545
  38.       Left            =   120
  39.       TabIndex        =   3
  40.       Top             =   120
  41.       Width           =   2175
  42.       Begin VB.OptionButton RightToLeftRBtn 
  43.          Appearance      =   0  'Flat
  44.          BackColor       =   &H00C0C0C0&
  45.          Caption         =   "Right to Left"
  46.          BeginProperty Font 
  47.             name            =   "MS Sans Serif"
  48.             charset         =   0
  49.             weight          =   400
  50.             size            =   8.25
  51.             underline       =   0   'False
  52.             italic          =   0   'False
  53.             strikethrough   =   0   'False
  54.          EndProperty
  55.          ForeColor       =   &H80000008&
  56.          Height          =   255
  57.          Left            =   240
  58.          TabIndex        =   7
  59.          Top             =   1200
  60.          Width           =   1695
  61.       End
  62.       Begin VB.OptionButton LeftToRightRBtn 
  63.          Appearance      =   0  'Flat
  64.          BackColor       =   &H00C0C0C0&
  65.          Caption         =   "Left to Right"
  66.          BeginProperty Font 
  67.             name            =   "MS Sans Serif"
  68.             charset         =   0
  69.             weight          =   400
  70.             size            =   8.25
  71.             underline       =   0   'False
  72.             italic          =   0   'False
  73.             strikethrough   =   0   'False
  74.          EndProperty
  75.          ForeColor       =   &H80000008&
  76.          Height          =   255
  77.          Left            =   240
  78.          TabIndex        =   6
  79.          Top             =   900
  80.          Width           =   1695
  81.       End
  82.       Begin VB.OptionButton BottomToTopRBtn 
  83.          Appearance      =   0  'Flat
  84.          BackColor       =   &H00C0C0C0&
  85.          Caption         =   "Bottom to Top"
  86.          BeginProperty Font 
  87.             name            =   "MS Sans Serif"
  88.             charset         =   0
  89.             weight          =   400
  90.             size            =   8.25
  91.             underline       =   0   'False
  92.             italic          =   0   'False
  93.             strikethrough   =   0   'False
  94.          EndProperty
  95.          ForeColor       =   &H80000008&
  96.          Height          =   255
  97.          Left            =   240
  98.          TabIndex        =   5
  99.          Top             =   600
  100.          Width           =   1695
  101.       End
  102.       Begin VB.OptionButton TopToBottomRBtn 
  103.          Appearance      =   0  'Flat
  104.          BackColor       =   &H00C0C0C0&
  105.          Caption         =   "Top to Bottom"
  106.          BeginProperty Font 
  107.             name            =   "MS Sans Serif"
  108.             charset         =   0
  109.             weight          =   400
  110.             size            =   8.25
  111.             underline       =   0   'False
  112.             italic          =   0   'False
  113.             strikethrough   =   0   'False
  114.          EndProperty
  115.          ForeColor       =   &H80000008&
  116.          Height          =   255
  117.          Left            =   240
  118.          TabIndex        =   4
  119.          Top             =   300
  120.          Value           =   -1  'True
  121.          Width           =   1695
  122.       End
  123.    End
  124.    Begin VB.CommandButton Cancel 
  125.       Appearance      =   0  'Flat
  126.       BackColor       =   &H80000005&
  127.       Caption         =   "Cancel"
  128.       Height          =   375
  129.       Left            =   2640
  130.       TabIndex        =   12
  131.       Top             =   1800
  132.       Width           =   1335
  133.    End
  134.    Begin VB.CommandButton OK 
  135.       Appearance      =   0  'Flat
  136.       BackColor       =   &H80000005&
  137.       Caption         =   "OK"
  138.       Default         =   -1  'True
  139.       Height          =   375
  140.       Left            =   1140
  141.       TabIndex        =   11
  142.       Top             =   1800
  143.       Width           =   1335
  144.    End
  145.    Begin VB.Frame SizingGroup 
  146.       Appearance      =   0  'Flat
  147.       BackColor       =   &H00C0C0C0&
  148.       Caption         =   "Sizing Options"
  149.       ForeColor       =   &H80000008&
  150.       Height          =   1560
  151.       Left            =   2520
  152.       TabIndex        =   0
  153.       Top             =   120
  154.       Width           =   2295
  155.       Begin VB.CheckBox IncreaseMgrSize 
  156.          Appearance      =   0  'Flat
  157.          BackColor       =   &H00C0C0C0&
  158.          Caption         =   "Increase Manager Size"
  159.          BeginProperty Font 
  160.             name            =   "MS Sans Serif"
  161.             charset         =   0
  162.             weight          =   400
  163.             size            =   8.25
  164.             underline       =   0   'False
  165.             italic          =   0   'False
  166.             strikethrough   =   0   'False
  167.          EndProperty
  168.          ForeColor       =   &H80000008&
  169.          Height          =   255
  170.          Left            =   120
  171.          TabIndex        =   9
  172.          Top             =   600
  173.          Value           =   1  'Checked
  174.          Width           =   2055
  175.       End
  176.       Begin VB.CheckBox EqualWithinLevels 
  177.          Appearance      =   0  'Flat
  178.          BackColor       =   &H00C0C0C0&
  179.          Caption         =   "Equal Within Levels"
  180.          BeginProperty Font 
  181.             name            =   "MS Sans Serif"
  182.             charset         =   0
  183.             weight          =   400
  184.             size            =   8.25
  185.             underline       =   0   'False
  186.             italic          =   0   'False
  187.             strikethrough   =   0   'False
  188.          EndProperty
  189.          ForeColor       =   &H80000008&
  190.          Height          =   255
  191.          Left            =   120
  192.          TabIndex        =   8
  193.          Top             =   300
  194.          Value           =   1  'Checked
  195.          Width           =   2055
  196.       End
  197.       Begin VB.TextBox BoxSpacing 
  198.          Appearance      =   0  'Flat
  199.          BeginProperty Font 
  200.             name            =   "MS Sans Serif"
  201.             charset         =   0
  202.             weight          =   400
  203.             size            =   8.25
  204.             underline       =   0   'False
  205.             italic          =   0   'False
  206.             strikethrough   =   0   'False
  207.          EndProperty
  208.          Height          =   285
  209.          Left            =   1080
  210.          TabIndex        =   10
  211.          Text            =   "0.25"
  212.          Top             =   1050
  213.          Width           =   735
  214.       End
  215.       Begin VB.Label Label2 
  216.          Alignment       =   2  'Center
  217.          Appearance      =   0  'Flat
  218.          BackColor       =   &H00C0C0C0&
  219.          Caption         =   "in."
  220.          BeginProperty Font 
  221.             name            =   "MS Sans Serif"
  222.             charset         =   0
  223.             weight          =   400
  224.             size            =   8.25
  225.             underline       =   0   'False
  226.             italic          =   0   'False
  227.             strikethrough   =   0   'False
  228.          EndProperty
  229.          ForeColor       =   &H80000008&
  230.          Height          =   240
  231.          Left            =   1845
  232.          TabIndex        =   1
  233.          Top             =   1050
  234.          Width           =   315
  235.       End
  236.       Begin VB.Label Label1 
  237.          Appearance      =   0  'Flat
  238.          BackColor       =   &H00C0C0C0&
  239.          Caption         =   "Box Spacing"
  240.          BeginProperty Font 
  241.             name            =   "MS Sans Serif"
  242.             charset         =   0
  243.             weight          =   400
  244.             size            =   8.25
  245.             underline       =   0   'False
  246.             italic          =   0   'False
  247.             strikethrough   =   0   'False
  248.          EndProperty
  249.          ForeColor       =   &H80000008&
  250.          Height          =   255
  251.          Left            =   90
  252.          TabIndex        =   2
  253.          Top             =   1050
  254.          Width           =   990
  255.       End
  256.    End
  257. End
  258. Attribute VB_Name = "OrgChartOptionsDlg"
  259. Attribute VB_Creatable = False
  260. Attribute VB_Exposed = False
  261. Private Sub Cancel_Click()
  262.     OrgChartOptionsDlg.Hide
  263.     Call SetToDefault
  264.     Call MainActive
  265. End Sub
  266.  
  267. Private Sub Form_Load()
  268.    SetToDefault
  269. End Sub
  270.  
  271. Private Sub MainActive()
  272.     OrgChartDlg.Enabled = True
  273.     OrgChartDlg.Show
  274. End Sub
  275.  
  276. Private Sub OK_Click()
  277.     ' Make sure that the box spacing value
  278.     ' is a valid number & not 0
  279.  
  280.     Spacing = Val(BoxSpacing)
  281.  
  282.     If Spacing > 0 And Spacing < 10 Then
  283.         OrgChartOptionsDlg.Hide
  284.         Call MainActive
  285.     Else
  286.         MsgBox "Spacing must be a number greater than 0 and less than 10 inches.", 48, OrgChartOptionsDlg.Caption
  287.     End If
  288. End Sub
  289.  
  290. Private Sub SetToDefault()
  291.     OrgChartOptionsDlg.TopToBottomRBtn.Value = True
  292.     OrgChartOptionsDlg.EqualWithinLevels.Value = 1
  293.     OrgChartOptionsDlg.IncreaseMgrSize.Value = 1
  294.     OrgChartOptionsDlg.BoxSpacing.Text = "0.25"
  295. End Sub
  296.  
  297.