home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / PolarDraw / data1.cab / Samples / Visual_Basic / VBDraw / frmGuidelines.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-08-31  |  3.2 KB  |  98 lines
  1. VERSION 5.00
  2. Begin VB.Form frmGuidelines 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Set guidelines"
  5.    ClientHeight    =   1710
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3870
  9.    Icon            =   "frmGuidelines.frx":0000
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1710
  14.    ScaleWidth      =   3870
  15.    StartUpPosition =   1  'CenterOwner
  16.    WhatsThisHelp   =   -1  'True
  17.    Begin VB.CommandButton btnChooseColor 
  18.       Caption         =   "Choose color..."
  19.       Height          =   330
  20.       Left            =   120
  21.       TabIndex        =   2
  22.       Top             =   1245
  23.       Width           =   1335
  24.    End
  25.    Begin VB.CommandButton btnCancel 
  26.       Caption         =   "Cancel"
  27.       Height          =   345
  28.       Left            =   2985
  29.       TabIndex        =   4
  30.       Top             =   1200
  31.       Width           =   780
  32.    End
  33.    Begin VB.CommandButton btnOK 
  34.       Caption         =   "OK"
  35.       Height          =   315
  36.       Left            =   3000
  37.       TabIndex        =   3
  38.       Top             =   840
  39.       Width           =   780
  40.    End
  41.    Begin VB.CheckBox chckGuidelines 
  42.       Caption         =   "Show guidelines"
  43.       Height          =   255
  44.       Left            =   120
  45.       TabIndex        =   0
  46.       Top             =   270
  47.       Value           =   1  'Checked
  48.       Width           =   1695
  49.    End
  50.    Begin VB.CheckBox chckSnapToGuidelines 
  51.       Caption         =   "Align shapes to guidelines"
  52.       Height          =   360
  53.       Left            =   120
  54.       TabIndex        =   1
  55.       Top             =   690
  56.       Value           =   1  'Checked
  57.       Width           =   2280
  58.    End
  59. Attribute VB_Name = "frmGuidelines"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Dim crGuidelinesColor As OLE_COLOR
  65. Dim fSnapToGuidelines, fShowGuidelines As Boolean
  66. Private Sub btnCancel_Click()
  67.     'if user cancels, set back to initial values
  68.     pd_Page.GuidelineColor = crGuidelinesColor
  69.     pd_Environment.ShowGuidelines = fShowGuidelines
  70.     pd_Environment.SnapToGuidelines = fSnapToGuidelines
  71.   Unload Me
  72. End Sub
  73. Private Sub btnChooseColor_Click()
  74.     With pd_Page
  75.         .GuidelineColor = SetColor(.GuidelineColor)
  76.     End With
  77. End Sub
  78. Private Sub btnOK_Click()
  79.     crGuidelinesColor = pd_Page.GuidelineColor
  80.     fShowGuidelines = CBool(chckGuidelines.Value)
  81.     fSnapToGuidelines = CBool(chckSnapToGuidelines.Value)
  82.     Unload Me
  83. End Sub
  84. Private Sub chckGuidelines_Click()
  85.     pd_Environment.ShowGuidelines = CBool(chckGuidelines.Value)
  86. End Sub
  87. Private Sub chckSnapToGuidelines_Click()
  88.     pd_Environment.SnapToGuidelines = CBool(chckSnapToGuidelines.Value)
  89. End Sub
  90. Private Sub Form_Load()
  91.     'saving initial values
  92.     crGuidelinesColor = pd_Page.GuidelineColor
  93.     fShowGuidelines = pd_Environment.ShowGuidelines
  94.     fSnapToGuidelines = pd_Environment.SnapToGuidelines
  95.     chckGuidelines.Value = Abs(fShowGuidelines)
  96.     chckSnapToGuidelines.Value = Abs(fSnapToGuidelines)
  97. End Sub
  98.