161 lines
3.6 KiB
Plaintext
161 lines
3.6 KiB
Plaintext
object Form1: TForm1
|
|
Left = 240
|
|
Top = 104
|
|
Caption = 'RulerBox Demo - www.ImageEn.com'
|
|
ClientHeight = 590
|
|
ClientWidth = 969
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Menu = MainMenu1
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
OnResize = FormResize
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object VertRuler: TRulerBox
|
|
Left = 0
|
|
Top = 41
|
|
Width = 40
|
|
Height = 527
|
|
GripBaseDim = 1
|
|
DotPerUnit = 1.000000000000000000
|
|
Frequency = 10.000000000000000000
|
|
LabelFreq = 100.000000000000000000
|
|
RulerColor = clGray
|
|
RulerDir = rdVertical
|
|
MaxGripHeight = 15
|
|
Align = alLeft
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 40
|
|
Top = 41
|
|
Width = 929
|
|
Height = 527
|
|
Background = clBtnFace
|
|
Ctl3D = False
|
|
ParentCtl3D = False
|
|
LegacyBitmap = False
|
|
OnViewChange = ImageEnView1ViewChange
|
|
MouseInteract = [miZoom]
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 1
|
|
OnMouseMove = ImageEnView1MouseMove
|
|
end
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Top = 568
|
|
Width = 969
|
|
Height = 22
|
|
Panels = <
|
|
item
|
|
Width = 200
|
|
end
|
|
item
|
|
Width = 250
|
|
end>
|
|
end
|
|
object HorzRuler: TRulerBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 969
|
|
Height = 41
|
|
GripBaseDim = 1
|
|
DotPerUnit = 1.000000000000000000
|
|
Frequency = 10.000000000000000000
|
|
LabelFreq = 100.000000000000000000
|
|
RulerColor = clGray
|
|
MaxGripHeight = 15
|
|
Align = alTop
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
Left = 201
|
|
Top = 201
|
|
object FileMenu: TMenuItem
|
|
Caption = 'File'
|
|
object miOpen: TMenuItem
|
|
Caption = 'Open...'
|
|
OnClick = miOpenClick
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miExit: TMenuItem
|
|
Caption = 'Exit'
|
|
OnClick = Exit1Click
|
|
end
|
|
end
|
|
object ViewMenu: TMenuItem
|
|
Caption = 'View'
|
|
object miCenter: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Center'
|
|
Checked = True
|
|
OnClick = Center1Click
|
|
end
|
|
object miAlignRuler: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Align Ruler to Image'
|
|
OnClick = miAlignRulerClick
|
|
end
|
|
end
|
|
object UnitsMenu: TMenuItem
|
|
Caption = 'Units'
|
|
object miPixels: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Pixels'
|
|
Checked = True
|
|
GroupIndex = 9
|
|
RadioItem = True
|
|
OnClick = OnSelectUnits
|
|
end
|
|
object miInches: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Inches'
|
|
GroupIndex = 9
|
|
RadioItem = True
|
|
OnClick = OnSelectUnits
|
|
end
|
|
object miMillimeters: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Millimeters'
|
|
GroupIndex = 9
|
|
RadioItem = True
|
|
OnClick = OnSelectUnits
|
|
end
|
|
object miCentimeters: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Centimeters'
|
|
GroupIndex = 9
|
|
RadioItem = True
|
|
OnClick = OnSelectUnits
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
GroupIndex = 9
|
|
end
|
|
object miLockGrips: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Lock Grips to Labels'
|
|
GroupIndex = 9
|
|
OnClick = OnSelectUnits
|
|
end
|
|
end
|
|
end
|
|
end
|