home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Righello207379732007.psc / Cursori.pag < prev    next >
Text File  |  2007-01-23  |  5KB  |  158 lines
  1. VERSION 5.00
  2. Begin VB.PropertyPage Cursori 
  3.    Caption         =   "Cursori"
  4.    ClientHeight    =   3495
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   5925
  8.    PaletteMode     =   0  'Halftone
  9.    ScaleHeight     =   3495
  10.    ScaleWidth      =   5925
  11.    Begin VB.TextBox txtRulerDx 
  12.       Alignment       =   1  'Right Justify
  13.       Height          =   330
  14.       Left            =   4260
  15.       TabIndex        =   8
  16.       Top             =   2025
  17.       Width           =   840
  18.    End
  19.    Begin VB.TextBox txtRulerSxTop 
  20.       Alignment       =   1  'Right Justify
  21.       Height          =   330
  22.       Left            =   60
  23.       TabIndex        =   5
  24.       Top             =   1125
  25.       Width           =   840
  26.    End
  27.    Begin VB.TextBox txtRulerSxBot 
  28.       Alignment       =   1  'Right Justify
  29.       Height          =   330
  30.       Left            =   840
  31.       TabIndex        =   4
  32.       Top             =   2025
  33.       Width           =   840
  34.    End
  35.    Begin VB.TextBox txtMargineDx 
  36.       Alignment       =   1  'Right Justify
  37.       Height          =   330
  38.       Left            =   4800
  39.       TabIndex        =   3
  40.       Top             =   1125
  41.       Width           =   840
  42.    End
  43.    Begin VB.TextBox txtMargineSx 
  44.       Alignment       =   1  'Right Justify
  45.       Height          =   330
  46.       Left            =   1440
  47.       TabIndex        =   1
  48.       Top             =   1125
  49.       Width           =   840
  50.    End
  51.    Begin VB.Label lblRulerDx 
  52.       Alignment       =   2  'Center
  53.       AutoSize        =   -1  'True
  54.       Caption         =   "Cursore destro"
  55.       Height          =   195
  56.       Left            =   4170
  57.       TabIndex        =   9
  58.       Top             =   2400
  59.       Width           =   1020
  60.    End
  61.    Begin VB.Image Image1 
  62.       BorderStyle     =   1  'Fixed Single
  63.       Height          =   465
  64.       Left            =   60
  65.       Picture         =   "Cursori.pgx":0000
  66.       Top             =   1500
  67.       Width           =   5760
  68.    End
  69.    Begin VB.Label lblRulerSxTop 
  70.       AutoSize        =   -1  'True
  71.       Caption         =   "Cursore sinistro superiore"
  72.       Height          =   405
  73.       Left            =   60
  74.       TabIndex        =   7
  75.       Top             =   720
  76.       Width           =   1155
  77.       WordWrap        =   -1  'True
  78.    End
  79.    Begin VB.Label lblRulerSxBot 
  80.       Alignment       =   2  'Center
  81.       AutoSize        =   -1  'True
  82.       Caption         =   "Cursore sinistro inferiore"
  83.       Height          =   195
  84.       Left            =   428
  85.       TabIndex        =   6
  86.       Top             =   2400
  87.       Width           =   1665
  88.    End
  89.    Begin VB.Label lblMargineDx 
  90.       Alignment       =   2  'Center
  91.       AutoSize        =   -1  'True
  92.       Caption         =   "Margine destro"
  93.       Height          =   195
  94.       Left            =   4695
  95.       TabIndex        =   2
  96.       Top             =   900
  97.       Width           =   1050
  98.    End
  99.    Begin VB.Label lblMargineSx 
  100.       Alignment       =   2  'Center
  101.       AutoSize        =   -1  'True
  102.       Caption         =   "Margine sinistro"
  103.       Height          =   195
  104.       Left            =   1313
  105.       TabIndex        =   0
  106.       Top             =   900
  107.       Width           =   1095
  108.    End
  109. End
  110. Attribute VB_Name = "Cursori"
  111. Attribute VB_GlobalNameSpace = False
  112. Attribute VB_Creatable = True
  113. Attribute VB_PredeclaredId = False
  114. Attribute VB_Exposed = True
  115. Private Sub txtMargineDx_Change()
  116.     Changed = True
  117. End Sub
  118.  
  119. Private Sub txtMargineSx_Change()
  120.     Changed = True
  121. End Sub
  122.  
  123. Private Sub txtRulerDx_Change()
  124.     Changed = True
  125. End Sub
  126.  
  127. Private Sub txtRulerSxBot_Change()
  128.     Changed = True
  129. End Sub
  130.  
  131. Private Sub txtRulerSxTop_Change()
  132.     Changed = True
  133. End Sub
  134.  
  135. Private Sub PropertyPage_ApplyChanges()
  136.     SelectedControls(0).MargineDx = Val(Replace(txtMargineDx.Text, ",", "."))
  137.     SelectedControls(0).MargineSx = Val(Replace(txtMargineSx.Text, ",", "."))
  138.     SelectedControls(0).RulerDx = Val(Replace(txtRulerDx.Text, ",", "."))
  139.     SelectedControls(0).RulerSxBot = Val(Replace(txtRulerSxBot.Text, ",", "."))
  140.     SelectedControls(0).RulerSxTop = Val(Replace(txtRulerSxTop.Text, ",", "."))
  141. End Sub
  142.  
  143. Private Sub PropertyPage_SelectionChanged()
  144. Dim bOrizzontale As Boolean
  145.     txtRulerSxTop.Text = SelectedControls(0).RulerSxTop
  146.     txtMargineDx.Text = SelectedControls(0).MargineDx
  147.     txtMargineSx.Text = SelectedControls(0).MargineSx
  148.     txtRulerDx.Text = SelectedControls(0).RulerDx
  149.     txtRulerSxBot.Text = SelectedControls(0).RulerSxBot
  150.     bOrizzontale = (SelectedControls(0).Orientation = 0)
  151.     txtRulerDx.Enabled = bOrizzontale
  152.     txtRulerDx.BackColor = IIf(bOrizzontale, vbWindowBackground, vbButtonFace)
  153.     txtRulerSxBot.Enabled = bOrizzontale
  154.     txtRulerSxBot.BackColor = txtRulerDx.BackColor
  155.     txtRulerSxTop.Enabled = bOrizzontale
  156.     txtRulerSxTop.BackColor = txtRulerDx.BackColor
  157. End Sub
  158.