DP Tool Club 22/CD_ASCQ_22_0695.iso/win/prg/hotmap/frusamap.dfm/frusamap.txt

Text File | 1995-03-26 | 7KB | 262 lines

object UsaMap: TUsaMap
  Left = 21
  Top = 17
  Width = 624
  Height = 472
  Caption = 'HotMap Demo'
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 100
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  TextHeight = 16
  object Label2: TLabel
    Left = 180
    Top = 80
    Width = 77
    Height = 13
    Caption = 'Total Regions'
    Font.Color = clBlack
    Font.Height = -8
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 312
    Top = 80
    Width = 85
    Height = 13
    Caption = 'Last Click was On'
    Font.Color = clBlack
    Font.Height = -8
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 480
    Top = 80
    Width = 55
    Height = 13
    Caption = 'Show State'
    Font.Color = clBlack
    Font.Height = -8
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 100
    Width = 129
    Height = 157
    Caption = 'Fill Type'
    Font.Color = clBlack
    Font.Height = -8
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Items.Strings = (
      'None'
      'Fill && Flash'
      'Border && Flash'
      'Fill && Stay'
      'Border && Stay'
      'Fill All'
      'Border All')
    ParentFont = False
    TabOrder = 12
    OnClick = RadioGroup1Click
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 100
    Width = 129
    Height = 157
    Caption = 'Color'
    Font.Color = clBlack
    Font.Height = -10
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    Visible = False
    object RgnColor: TColorGrid
      Left = 8
      Top = 20
      Width = 112
      Height = 100
      Ctl3D = True
      BackgroundEnabled = False
      ParentCtl3D = False
      TabOrder = 0
      OnChange = RgnColorClick
      OnClick = RgnColorClick
    end
    object Button2: TButton
      Left = 8
      Top = 128
      Width = 113
      Height = 21
      Caption = 'Random Colors'
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object HotMap1: THotMap
    Left = 148
    Top = 104
    Width = 457
    Height = 333
    BackColor = clWhite
    FillType = 0
    Stretch = True
    CurrentRgn = 0
    ColorMode = False
    DragAllowed = False
    MouseHotX = 15
    MouseHotY = 15
    OnRegionMouseDown = HotMap1RegionMouseDown
    OnRegionMouseOver = HotMap1RegionMouseOver
    MouseCursor_Data = {
      FE020000010001002020100000000000E8020000160000002800000020000000
      4000000001000400000000000002000000000000000000001000000000000000
      00000000000080000080000000808000800000008000800080800000C0C0C000
      808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00
      000000000000000000000000000000000F888888888888888888888888888880
      0FF888888888888888888888888888800FF77777777777777777777777777880
      0FF777777777777777777777777778800FF77777777777777777777777777880
      0FF7777777777770F7777777777778800FF7777777777777F777777777777880
      0FF77777777777077F777777777778800FF77777777777777F77777777777880
      0FF777777777707777F77777777778800FF777777777777777F7777777777880
      0FF7777777770777777F7777777778800FF7777777777777777F777777777880
      0FF77777777077777777F777777778800FF77777777777777777F77777777880
      0FF777777707777777777F77777778800FF777777777777777777F7777777880
      0FF7777770777777777777F7777778800FF7777777777777777777F777777880
      0FF77777077777777777777F777778800FF77777777777777777777F77777880
      0FF777707777777777777777F77778800FF77770000000000000000007777880
      0FF777777777777777777777777778800FF77777777777777777777777777880
      0FF777777777777777777777777778800FF77777777777777777777777777880
      0FF777777777777777777777777778800FFFFFFFFFFFFFFFFFFFFFFFFFFFFF80
      0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000
      8000000100000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000080000001}
    MyTag = 0
    MyTagMsg = 0
    NumOfRgns = {0000}
  end
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 597
    Height = 65
    Alignment = taCenter
    Color = clTeal
    Enabled = False
    Font.Color = clYellow
    Font.Height = -10
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    Lines.Strings = (
      'Memo1')
    ParentFont = False
    TabOrder = 0
  end
  object ComboBox1: TComboBox
    Left = 540
    Top = 76
    Width = 65
    Height = 20
    Font.Color = clBlack
    Font.Height = -10
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemHeight = 13
    ParentFont = False
    Sorted = True
    TabOrder = 1
    OnClick = ComboBox1Click
  end
  object ListBox1: TListBox
    Left = 8
    Top = 260
    Width = 129
    Height = 149
    Font.Color = clBlack
    Font.Height = -10
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 2
  end
  object Label3: TEdit
    Left = 400
    Top = 76
    Width = 25
    Height = 20
    Enabled = False
    Font.Color = clBlack
    Font.Height = -10
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
  end
  object Label1: TEdit
    Left = 428
    Top = 76
    Width = 37
    Height = 20
    Enabled = False
    Font.Color = clBlack
    Font.Height = -10
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
  end
  object Button1: TButton
    Left = 8
    Top = 416
    Width = 133
    Height = 21
    Caption = 'Clear List'
    Font.Color = clBlack
    Font.Height = -10
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button1Click
  end
  object Text2: TEdit
    Left = 160
    Top = 404
    Width = 37
    Height = 20
    Color = clYellow
    Enabled = False
    Font.Color = clNavy
    Font.Height = -10
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
  end
  object BiPict1: TBiPict
    Left = 148
    Top = 84
    Width = 29
    Height = 33
    Visible = False
    BevelSize = 0
    BevelStyle = 1
    StretchBlt = True
    Picture_Data = {<image000.

  �( @
�������������������������������wp����wp���w�����p>}