Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/delphi/ruzne/zcd30120.exe/Demo/SPOT_1.DFM/SPOT_1.txt

Text File | 1996-03-13 | 5KB | 274 lines

object Form1: TForm1
  Left = 190
  Top = 90
  BorderStyle = bsDialog
  Caption = 'Test of TzMouseSpot'
  ClientHeight = 333
  ClientWidth = 410
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Scaled = False
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 410
    Height = 333
    Align = alClient
    AutoSize = True
    Picture.Data = {<image000.bmp>}
  end
  object zMouseSpot12: TzMouseSpot
    Left = 8
    Top = 96
    Width = 89
    Height = 209
    Hint = 'Jutland'
    ParentShowHint = False
    ShowHint = True
  end
  object zMouseSpot17: TzMouseSpot
    Left = 104
    Top = 216
    Width = 57
    Height = 57
    Hint = 'Funen'
    ParentShowHint = False
    ShowHint = True
  end
  object zMouseSpot13: TzMouseSpot
    Left = 96
    Top = 96
    Width = 41
    Height = 121
    Hint = 'Jutland'
    ParentShowHint = False
    ShowHint = True
  end
  object zMouseSpot10: TzMouseSpot
    Left = 96
    Top = 8
    Width = 57
    Height = 89
    Hint = 'Jutland'
    ParentShowHint = False
    ShowHint = True
  end
  object zMouseSpot9: TzMouseSpot
    Left = 168
    Top = 168
    Width = 105
    Height = 113
    Hint = 'Zealand'
    ParentShowHint = False
    ShowHint = True
  end
  object z3DLabel1: Tz3DLabel
    Left = 232
    Top = 16
    Width = 130
    Height = 37
    Caption = 'Denmark'
    Color = clBtnFace
    Font.Color = clFuchsia
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
    ShadowColor = clPurple
  end
  object Label1: TLabel
    Left = 232
    Top = 56
    Width = 141
    Height = 64
    Caption =
      'Try to point and click on the black rectangles on the map, to se' +
      'e some facts about the city'
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    WordWrap = True
  end
  object Label2: TLabel
    Left = 280
    Top = 136
    Width = 121
    Height = 105
    AutoSize = False
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object zMouseSpot1: TzMouseSpot
    Left = 246
    Top = 200
    Width = 19
    Height = 25
    Cursor = crCross
    Hint = 'Copenhagen'
    ParentShowHint = False
    ShowHint = True
    OnClick = zMouseSpot1Click
  end
  object zMouseSpot2: TzMouseSpot
    Left = 127
    Top = 233
    Width = 17
    Height = 17
    Cursor = crCross
    Hint = 'Odense'
    ParentShowHint = False
    ShowHint = True
    OnClick = zMouseSpot2Click
  end
  object zMouseSpot3: TzMouseSpot
    Left = 18
    Top = 222
    Width = 17
    Height = 17
    Cursor = crCross
    Hint = 'Esbjerg'
    ParentShowHint = False
    ShowHint = True
    OnClick = zMouseSpot3Click
  end
  object zMouseSpot4: TzMouseSpot
    Left = 118
    Top = 157
    Cursor = crCross
    Hint = '�rhus'
    ParentShowHint = False
    ShowHint = True
    OnClick = zMouseSpot4Click
  end
  object zMouseSpot5: TzMouseSpot
    Left = 109
    Top = 129
    Cursor = crCross
    Hint = 'Randers'
    ParentShowHint = False
    ShowHint = True
    OnClick = zMouseSpot5Click
  end
  object zMouseSpot6: TzMouseSpot
    Left = 104
    Top = 69
    Cursor = crCross
    Hint = 'Aalborg'
    ParentShowHint = False
    ShowHint = True
    OnClick = zMouseSpot6Click
  end
  object zMouseSpot7: TzMouseSpot
    Left = 376
    Top = 249
    Width = 30
    Height = 34
    Hint = 'The isle of Bornholm'
    ParentShowHint = False
    ShowHint = True
  end
  object zMouseSpot8: TzMouseSpot
    Left = 272
    Top = 136
    Width = 137
    Height = 113
    OnClick = zMouseSpot8Click
  end
  object zMouseSpot11: TzMouseSpot
    Left = 16
    Top = 56
    Width = 81
    Height = 41
    Hint = 'Jutland'
    ParentShowHint = False
    ShowHint = True
  end
  object zMouseSpot14: TzMouseSpot
    Left = 96
    Top = 272
    Width = 25
    Height = 33
    Hint = 'Jutland'
    ParentShowHint = False
    ShowHint = True
  end
  object zMouseSpot15: TzMouseSpot
    Left = 136
    Top = 120
    Width = 33
    Height = 57
    Hint = 'Jutland'
    ParentShowHint = False
    ShowHint = True
  end
  object zMouseSpot16: TzMouseSpot
    Left = 216
    Top = 280
    Width = 17
    Height = 9
    Hint = 'Zealand'
    ParentShowHint = False
    ShowHint = True
  end
  object zMouseSpot18: TzMouseSpot
    Left = 128
    Top = 272
    Width = 25
    Height = 17
    Hint = 'Funen'
    ParentShowHint = False
    ShowHint = True
  end
  object zColorBtn1: TzColorBtn
    Left = 272
    Top = 288
    Width = 113
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Caption = 'Stop program'
    Color = clBlue
    ParentColor = False
    HighLightColor = clWhite
    ShadowColor = clNavy
    TabOrder = 0
    OnClick = zColorBtn1Click
  end
  object zHint1: TzHint
    PartOfScreen = 4
    Use3D = False
    Left = 8
    Top = 16
  end
  object zShowApp1: TzShowApp
    OnlyOneInstance = True
    CPUType = 5
    CPUString = 'Pentium'
    UseCmdShow = False
    HelpFile = 'DELPHI.HLP'
    HintColor = clAqua
    HintPause = 800
    Icon.Data = {<image001.ico>}
    ShowHint = True
    Title = 'Delphi'
    OnSecondInstance = zShowApp1SecondInstance
    Left = 35
    Top = 16
  end
end