PC World Komputer 1998 January/Pcwk0198.iso/Zadarmo/Csamp21/csamp.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-10-23 | 9.3 KB | 367 lines

object Form1: TForm1
  Left = 367
  Top = 119
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = 'CSamp'
  ClientHeight = 281
  ClientWidth = 160
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Button1: TButton
    Left = 9
    Top = 238
    Width = 144
    Height = 36
    Cursor = crCross
    Caption = 'Press and hold'
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnMouseDown = Button1MouseDown
    OnMouseUp = Button1MouseUp
  end
  object GroupBox1: TGroupBox
    Left = 9
    Top = 0
    Width = 144
    Height = 89
    Hint = 'RGB values of point under cursor.'
    Caption = 'Color Components: '
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object LabelB: TLabel
      Left = 22
      Top = 60
      Width = 19
      Height = 16
      Caption = 'B:?'
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LabelG: TLabel
      Left = 22
      Top = 41
      Width = 20
      Height = 16
      Caption = 'G:?'
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LabelR: TLabel
      Left = 22
      Top = 22
      Width = 20
      Height = 16
      Caption = 'R:?'
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Shape1: TShape
      Left = 80
      Top = 27
      Width = 49
      Height = 49
    end
  end
  object GroupBox2: TGroupBox
    Left = 9
    Top = 95
    Width = 144
    Height = 43
    Hint = 'Coordinates of point under cursor.'
    Caption = 'Mouse coordinates: '
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    object Label2: TLabel
      Left = 25
      Top = 18
      Width = 18
      Height = 16
      Caption = 'X:?'
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 80
      Top = 18
      Width = 19
      Height = 16
      Caption = 'Y:?'
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object GroupBox3: TGroupBox
    Left = 9
    Top = 138
    Width = 144
    Height = 91
    Caption = 'Options: '
    TabOrder = 3
    object ToolbarButton971: TToolbarButton97
      Left = 7
      Top = 18
      Width = 41
      Height = 44
      AllowAllUp = True
      GroupIndex = 1
      Caption = 'Zoom'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003333333333333333333300003333333330033003300300003333
        3333300330033003000033303333333333333333000033000333333333333333
        000030F000333333333333330000330F000333333333333300003330F0000000
        73333333000033330F0078887033333300003333300788FF8703333300003333
        30788888F877333300003333308888888F80333300003333307888888F803333
        000033333078FF8888803333000033333777FF88887733330000333333077888
        8703333300003333333077777033333300003333333370007333333300003333
        33333333333333330000}
      Layout = blGlyphTop
      OnClick = ToolbarButton971Click
    end
    object ToolbarButton972: TToolbarButton97
      Left = 52
      Top = 18
      Width = 42
      Height = 44
      Caption = 'About'
      Glyph.Data = {
        F8000000424DF800000000000000760000002800000010000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000555
        55555555008880055555555088CCC880555555508C888C8055555508CCCCCCC8
        05555508CECCCCC805555508CEECCCC8055555508C444C805555555088FFF880
        5555555508FFF80555555555508F805555555555508F805555555555508F8055
        55555555508F80555555555508888805555555555000005555550000}
      Layout = blGlyphTop
      OnClick = ToolbarButton972Click
    end
    object ToolbarButton973: TToolbarButton97
      Left = 97
      Top = 18
      Width = 41
      Height = 44
      Caption = 'Hide'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F33330000000000033333777777777773330000}
      Layout = blGlyphTop
      NumGlyphs = 2
      OnClick = ToolbarButton973Click
    end
    object ToolbarButton974: TToolbarButton97
      Left = 97
      Top = 65
      Width = 41
      Height = 22
      Caption = 'Copy'
      OnClick = ToolbarButton974Click
    end
    object HexCheckBox: TCheckBox
      Left = 9
      Top = 68
      Width = 64
      Height = 17
      Caption = 'As hex'
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = HexCheckBoxClick
    end
  end
  object Timer1: TTimer
    Interval = 500
    OnTimer = Timer1Timer
  end
  object TrayIcon1: TTrayIcon
    Active = True
    ShowDesigning = False
    Icon.Data = {<image001.ico>}
    ToolTip = 'Csamp: R:? G:? B:?'
    OnClick = TrayIcon1Click
    OnDblClick = TrayIcon1DblClick
    PopupMenu = PopupMenu1
    Left = 8
    Top = 24
  end
  object PopupMenu1: TPopupMenu
    Left = 48
    Top = 72
    object RGB: TMenuItem
      Caption = 'R:? G:? B:?'
      Hint = 'Copy RGB to Clipboard'
      ShortCut = 0
      object CopyinHTML1: TMenuItem
        Caption = 'Copy in HTML'
        ShortCut = 0
        OnClick = CopyinHTML1Click
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object CopyRed1: TMenuItem
        Caption = 'Copy Red'
        ShortCut = 0
        OnClick = CopyRed1Click
      end
      object CopyGreen1: TMenuItem
        Caption = 'Copy Green'
        ShortCut = 0
        OnClick = CopyGreen1Click
      end
      object CopyBlue1: TMenuItem
        Caption = 'Copy Blue'
        ShortCut = 0
        OnClick = CopyBlue1Click
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object CopyAll1: TMenuItem
        Caption = 'Copy All'
        ShortCut = 0
        OnClick = CopyAll1Click
      end
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Show1: TMenuItem
      Caption = 'Show Csamp'
      Default = True
      ShortCut = 0
      OnClick = Show1Click
    end
    object Hide1: TMenuItem
      Caption = 'Hide Csamp'
      ShortCut = 0
      OnClick = Hide1Click
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Show2: TMenuItem
      Caption = 'Show Zoom'
      ShortCut = 0
      OnClick = Show2Click
    end
    object Hide2: TMenuItem
      Caption = 'Hide Zoom'
      ShortCut = 0
      OnClick = Hide2Click
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object ShowFastCsamp1: TMenuItem
      Caption = 'Show Fast Csamp'
      ShortCut = 0
      OnClick = ShowFastCsamp1Click
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Exit1: TMenuItem
      Caption = 'Exit'
      ShortCut = 0
      OnClick = Exit1Click
    end
  end
  object Timer2: TTimer
    OnTimer = Timer2Timer
    Left = 48
    Top = 16
  end
  object PopupMenu2: TPopupMenu
    AutoPopup = False
    OnPopup = CopyinHTML1Click
    Left = 64
    Top = 112
    object CopyinHTML2: TMenuItem
      Caption = 'Copy in HTML'
      ShortCut = 0
      OnClick = CopyinHTML1Click
    end
    object N7: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object CopyRed2: TMenuItem
      Caption = 'Copy Red'
      ShortCut = 0
      OnClick = CopyRed1Click
    end
    object CopyGreen2: TMenuItem
      Caption = 'Copy Green'
      ShortCut = 0
      OnClick = CopyGreen1Click
    end
    object CopyBlue2: TMenuItem
      Caption = 'Copy Blue'
      ShortCut = 0
      OnClick = CopyBlue1Click
    end
    object N8: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object CopyAll2: TMenuItem
      Caption = 'Copy All'
      ShortCut = 0
      OnClick = CopyAll1Click
    end
  end
end