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