demoform.dfm

Usefull Ruler VCL Delphi Component with full source code

    end
    object Panel5: TPanel
      Left = 478
      Top = 25
      Width = 25
      Height = 342
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 2
      object RsRuler4: TRsRuler
        Left = 0
        Top = 0
        Width = 25
        Height = 342
        Hint = 'TRsRuler: Direction = rdLeft (Text sideways)'
        Units = ruCenti
        Flat = False
        ScaleColor = clWhite
        TickColor = clNavy
        Direction = rdRight
        ScaleDir = rsdNormal
        Scale = 100
        HairLine = False
        HairLinePos = -1
        HairLineStyle = hlsLine
        ShowMinus = True
        Align = alClient
        Color = clActiveBorder
        ShowHint = True
      end
    end
    object Panel6: TPanel
      Left = 0
      Top = 25
      Width = 25
      Height = 342
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 3
      object RsRuler3: TRsRuler
        Left = 0
        Top = 0
        Width = 25
        Height = 342
        Hint = 'TRsRuler: Direction = rdLeft (Text sideways)'
        Units = ruCenti
        Flat = False
        ScaleColor = clWhite
        TickColor = clNavy
        Direction = rdLeft
        ScaleDir = rsdNormal
        Scale = 100
        HairLine = False
        HairLinePos = -1
        HairLineStyle = hlsLine
        ShowMinus = True
        Align = alClient
        Color = clActiveBorder
        ShowHint = True
      end
    end
  end
  object Panel7: TPanel
    Left = 0
    Top = 25
    Width = 142
    Height = 391
    Align = alLeft
    TabOrder = 2
    object BoldBtn: TSpeedButton
      Left = 59
      Top = 54
      Width = 23
      Height = 22
      Hint = 'Bold'
      AllowAllUp = True
      GroupIndex = 1
      Caption = 'B'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = BoldBtnClick
    end
    object ItalicBtn: TSpeedButton
      Left = 82
      Top = 54
      Width = 23
      Height = 22
      Hint = 'Italic'
      AllowAllUp = True
      GroupIndex = 2
      Caption = 'I '
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = ItalicBtnClick
    end
    object ColorSwitchBtn: TSpeedButton
      Left = 112
      Top = 85
      Width = 23
      Height = 22
      Hint = 'Switch color selection'
      AllowAllUp = True
      GroupIndex = 3
      Caption = 'Clr'
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = ColorSwitchBtnClick
    end
    object Label3: TLabel
      Left = 8
      Top = 288
      Width = 63
      Height = 13
      Caption = 'Scale Offset:'
    end
    object Label4: TLabel
      Left = 8
      Top = 8
      Width = 104
      Height = 13
      Caption = 'Ruler font properties:'
    end
    object Bevel1: TBevel
      Left = 8
      Top = 80
      Width = 127
      Height = 9
      Shape = bsTopLine
    end
    object Label5: TLabel
      Left = 8
      Top = 88
      Width = 60
      Height = 13
      Caption = 'Ruler colors:'
    end
    object Label6: TLabel
      Left = 8
      Top = 109
      Width = 130
      Height = 13
      Caption = 'Clr button toggles colors of'
    end
    object Label7: TLabel
      Left = 8
      Top = 125
      Width = 126
      Height = 13
      Caption = 'scale/font and bkgnd/ticks'
    end
    object Bevel2: TBevel
      Left = 7
      Top = 280
      Width = 127
      Height = 9
      Shape = bsTopLine
    end
    object Label9: TLabel
      Left = 8
      Top = 304
      Width = 17
      Height = 13
      Caption = 'Hor'
    end
    object SpeedButton9: TSpeedButton
      Left = 114
      Top = 300
      Width = 23
      Height = 22
      Hint = 'Press for Offset = 0'
      Caption = '0'
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton9Click
    end
    object SpeedButton10: TSpeedButton
      Left = 114
      Top = 326
      Width = 23
      Height = 22
      Hint = 'Press for Offset = 0'
      Caption = '0'
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton10Click
    end
    object Label10: TLabel
      Left = 8
      Top = 328
      Width = 16
      Height = 13
      Caption = 'Ver'
    end
    object SpeedButton11: TSpeedButton
      Left = 8
      Top = 360
      Width = 46
      Height = 18
      Hint = 'Shows or hides the minus sign if negative offset'
      AllowAllUp = True
      GroupIndex = 3
      Down = True
      Caption = 'ShowMin'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      Layout = blGlyphRight
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton11Click
    end
    object SpeedButton14: TSpeedButton
      Left = 64
      Top = 360
      Width = 65
      Height = 18
      AllowAllUp = True
      GroupIndex = 4
      Caption = 'Reverse Scale'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton14Click
    end
    object FontBox: TComboBox
      Left = 8
      Top = 28
      Width = 129
      Height = 21
      Hint = 'Font'
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnChange = FontBoxChange
    end
    object SizeBox: TComboBox
      Left = 8
      Top = 54
      Width = 47
      Height = 21
      Hint = 'Size'
      ItemHeight = 13
      ItemIndex = 4
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = '8'
      OnChange = SizeBoxChange
      Items.Strings = (
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '12'
        '14'
        '16'
        '18'
        '20'
        '22'
        '24'
        '26')
    end
    object ColorGrid1: TColorGrid
      Left = 5
      Top = 144
      Width = 132
      Height = 128
      Hint = 'FG = Fontcolor, BG = ScaleColor'
      Ctl3D = True
      BackgroundIndex = 15
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnMouseUp = ColorGrid1MouseUp
    end
    object HorTrack: TTrackBar
      Left = 28
      Top = 305
      Width = 83
      Height = 17
      Max = 50
      Min = -50
      Orientation = trHorizontal
      ParentShowHint = False
      PageSize = 10
      Frequency = 50
      Position = 0
      SelEnd = 0
      SelStart = 0
      ShowHint = True
      TabOrder = 3
      ThumbLength = 10
      TickMarks = tmBoth
      TickStyle = tsNone
      OnChange = HorTrackChange
    end
  end
  object VerTrack: TTrackBar
    Left = 28
    Top = 358
    Width = 83
    Height = 17
    Max = 50
    Min = -50
    Orientation = trHorizontal
    ParentShowHint = False
    PageSize = 10
    Frequency = 50
    Position = 0
    SelEnd = 0
    SelStart = 0
    ShowHint = True
    TabOrder = 3
    ThumbLength = 10
    TickMarks = tmBoth
    TickStyle = tsNone
    OnChange = VerTrackChange
  end
end