demoform.dfm

Usefull Ruler VCL Delphi Component with full source code

object Form1: TForm1
  Left = 485
  Top = 365
  Width = 653
  Height = 450
  Caption = 'Demo RsRuler v. 4.0'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label8: TLabel
    Left = 8
    Top = 352
    Width = 86
    Height = 13
    Caption = 'Horizontal Offset:'
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 645
    Height = 25
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvNone
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 5
      Top = 4
      Width = 22
      Height = 16
      AllowAllUp = True
      GroupIndex = 1
      Caption = 'Flat'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 174
      Top = 4
      Width = 16
      Height = 16
      Hint = 'Units = ruCenti'
      GroupIndex = 2
      Down = True
      Caption = 'cm'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 190
      Top = 4
      Width = 18
      Height = 16
      Hint = 'Units = ruMilli'
      GroupIndex = 2
      Caption = 'mm'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 208
      Top = 4
      Width = 16
      Height = 16
      Hint = 'Units = ruInch'
      GroupIndex = 2
      Caption = 'in'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object Label1: TLabel
      Left = 484
      Top = 6
      Width = 25
      Height = 11
      Caption = 'Scale:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object PctBtn: TSpeedButton
      Left = 597
      Top = 3
      Width = 41
      Height = 16
      Hint = 'Click = 100%'
      Caption = '100%'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = PctBtnClick
    end
    object SpeedButton5: TSpeedButton
      Left = 28
      Top = 4
      Width = 41
      Height = 16
      AllowAllUp = True
      GroupIndex = 3
      Caption = 'HairLines'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 72
      Top = 4
      Width = 34
      Height = 16
      GroupIndex = 4
      Down = True
      Caption = 'hlsLine'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
      OnClick = SpeedButton6Click
    end
    object SpeedButton7: TSpeedButton
      Left = 105
      Top = 4
      Width = 34
      Height = 16
      GroupIndex = 4
      Caption = 'hlsRect'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
      OnClick = SpeedButton7Click
    end
    object SpeedButton8: TSpeedButton
      Left = 224
      Top = 4
      Width = 16
      Height = 16
      Hint = 'Units = ruPixel'
      GroupIndex = 2
      Caption = 'px'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton8Click
    end
    object PosLabel: TLabel
      Left = 384
      Top = 6
      Width = 3
      Height = 11
      Hint = 'Current position, including Offset'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
    end
    object SpeedButton12: TSpeedButton
      Left = 160
      Top = 4
      Width = 16
      Height = 16
      GroupIndex = 2
      Caption = 'm'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton12Click
    end
    object SpeedButton13: TSpeedButton
      Left = 142
      Top = 4
      Width = 18
      Height = 16
      GroupIndex = 2
      Caption = 'km'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton13Click
    end
    object TrackBar1: TTrackBar
      Left = 507
      Top = 2
      Width = 89
      Height = 22
      Hint = '100%'
      Max = 1000
      Min = 1
      Orientation = trHorizontal
      ParentShowHint = False
      PageSize = 10
      Frequency = 50
      Position = 100
      SelEnd = 0
      SelStart = 0
      ShowHint = True
      TabOrder = 0
      ThumbLength = 10
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = TrackBar1Change
    end
  end
  object Panel2: TPanel
    Left = 142
    Top = 25
    Width = 503
    Height = 391
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      503
      391)
    object LogoImage: TImage
      Left = 25
      Top = 24
      Width = 200
      Height = 133
      Cursor = crCross
      Picture.Data = {
        0A544A504547496D616765A9200000FFD8FFE000104A46494600010101004800
        480000FFDB0043000503040404030504040405050506070C08070707070F0B0B
        090C110F1212110F111113161C1713141A1511111821181A1D1D1F1F1F131722
        24221E241C1E1F1EFFDB0043010505050706070E08080E1E1411141E1E1E1E1E
        1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E
        1E1E1E1E1E1E1E1E1E1E1E1E1EFFC0001108008500C803012200021101031101
        FFC4001F0000010501010101010100000000000000000102030405060708090A
        0BFFC400B5100002010303020403050504040000017D01020300041105122131
        410613516107227114328191A1082342B1C11552D1F02433627282090A161718
        191A25262728292A3435363738393A434445464748494A535455565758595A63
        6465666768696A737475767778797A838485868788898A92939495969798999A
        A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
        D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
        01010101010101010000000000000102030405060708090A0BFFC400B5110002
        0102040403040705040400010277000102031104052131061241510761711322
        328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
        292A35363738393A434445464748494A535455565758595A636465666768696A
        737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
        A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
        E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F48F
        0868963A969913CB12F99B4738EB5BE3C1961DE051F8551F876D8D323FF74579
        E78FB56F18EA5F159FC39A0EA12ACD3C9B218CCBB173B73D4F4E0571E2F17F56
        49DAF7D0E2C6E3161629F2DEEEC7AA0F0569FF00F3C57F2A7AF8274F3FF2C53F
        2AF36FF840BE37FF00CFE45FF8305FF1A3FE101F8E1FF3FB17FE0C17FC6B9BEB
        F5BFE7CB393FB4EB7FCF891E9ABE06D3CFFCB14FCA9EBE04D3FF00E78A7E556F
        E1A693E21D17C14B078AA459353FB5392C26127EEC818E47E35D22495E9539B9
        C149AB5FA1EA529B9C149AB5FA1CA0F0169E7FE5827E5520F87FA79FF9609F95
        75D1C9562393DEACD0E317E1E69E7FE5827E54EFF857360471027E55DC47254F
        1C9401E78DF0EAC47FCB04FCAA36F87D623FE582FE55E9A0AB0E698F10232280
        3CC1BC03623FE582FE551B780EC47FCB14FCABD2A48BDAAB4917B50079D3781A
        C47FCB14FCAA26F04D88FF00962BF957A0C9113D0563F882E7FB36D5253B103C
        F1C6CCFC05567009FCAA273505766B428CAB54508EECE49BC1B623FE58AFE551
        B7842C47FCB25FCABB9BA81039F298491FF0B83904553922F6AB326AC71ADE13
        B11FF2CD7F2A8DBC2D623FE5927E55D6C915569223401CC7FC22D6673B61071D
        702A36F0BDA8FF00977FFC76B57C496BAD5CE857565A04BE5EA1395119DFB071
        9EFDABCF8F817E36FF00CFF45FF8304FF1AE1C462AA529F2C69B97A1C189C654
        A32E58D272F43A96F0D5B0FF00977FFC76A27F0EDAA824C1803B95AE6BFE105F
        8D9FF3FD0FFE0C13FC6B17E1B6B1E27B9F8A9A67877C417B72F14933473C2EE7
        0D8463FCC573FF00694A338C674DABBB6A727F6BCA338C6749C799DB531FE3CE
        A4BA57872E6C74AFDDC922112CCBC103FBABFE34553FDA4A14823D4224184467
        0A3D0668AF58F68F70F003634C8FFDD15C5D9FFC9D169DFF005F2DFF00A2DABA
        EF02B634B8FF00DDAE46CBFE4E834D3FF4F27FF45B5795997C54BFC48F1F36DE
        8FF891EBDAFEAD6BA4C17FA85FDC3436F6CAD23B01BB8040E99F7AF38FF85FDF
        0F95883AB4DC7FD313FE35B3F1ADB3E02F128FFA777FFD0857E7E49FEB1BEA6B
        EEF23C9E8E3A94A751BD1F43D2A951C5E87DDA3F683F87BDF5494FFDB2FF00EB
        D4D07ED07F0F59C2FF006938CF731915E1FE1DFD957C4FAD78674BD722F15E81
        026A5650DDC514DE6865591038070A7900F6AE23E2AFC10F1B7C3BB64BED492C
        F50D3D8EDFB6584A64456F46040653F518F7AEBA795E53567ECE155F37AFFC02
        5D4A895EC7DBFE10F881E16F13B08F48D5ADE698F48F7618FD0575C9257E5A68
        9ACEA5A2DFC57BA75DCB6F3C4C1959188208AFD12F82BE2C93C6BF0BB45F12CC
        00B89E368AE40E9E6C6C558FE38DDF8D79B9C64BF504AA41DE2F4F42E9D4E6D0