object SimpleForm: TSimpleForm Left = 201 Top = 159 Width = 551 Height = 403 Caption = 'Image Mapping' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Menu = MainMenu1 Position = poDefault ShowHint = True OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 15 object Panel1: TPanel Left = 0 Top = 241 Width = 543 Height = 116 Align = alBottom Color = clNavy ParentShowHint = False ShowHint = True TabOrder = 0 object Label1: TLabel Left = 3 Top = 1 Width = 4 Height = 16 Color = clYellow Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label2: TLabel Left = 19 Top = 1 Width = 4 Height = 16 Color = clYellow Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object ChooseLoc: TLabel Left = 7 Top = 65 Width = 81 Height = 14 Caption = 'Choose Location' Font.Color = clYellow Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Visible = False end object SpeedButton1: TSpeedButton Left = 5 Top = 41 Width = 22 Height = 22 Hint = 'Add a row to the grid' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333FF33333333FF333993333333300033377F3333333777333993333333 300033F77FFF3333377739999993333333333777777F3333333F399999933333 33003777777333333377333993333333330033377F3333333377333993333333 3333333773333333333F333333333333330033333333F33333773333333C3333 330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3 993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333 333333333337733333FF3333333C333330003333333733333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True Visible = False OnClick = SpeedButton1Click end object CoordGrid: TStringGrid Left = 99 Top = 6 Width = 422 Height = 107 Hint = 'Left click in column 1 to set map style' ColCount = 50 DefaultRowHeight = 20 RowCount = 20 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] TabOrder = 0 OnDrawCell = CoordGridDrawCell OnMouseDown = CoordGridMouseDown RowHeights = ( 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20) end object Button1: TButton Left = 12 Top = 86 Width = 79 Height = 23 Hint = 'Display all maps' Caption = 'Refresh' TabOrder = 1 OnClick = Button1Click end object MapStyle: TComboBox Left = 99 Top = 26 Width = 64 Height = 20 Font.Color = clWindowText Font.Height = -9 Font.Name = 'Arial' Font.Style = [] ItemHeight = 12 Items.Strings = ( 'rect' 'poly' 'default') ParentFont = False TabOrder = 2 OnChange = MapStyleChange end object BitBtn1: TBitBtn Left = 8 Top = 18 Width = 85 Height = 20 Hint = 'Click to start selecting map coordinates' Caption = 'Set Positions' TabOrder = 3 OnClick = BitBtn1Click end object Button2: TButton Left = 30 Top = 42 Width = 67 Height = 21 Caption = 'Map Name' TabOrder = 4 OnClick = Button2Click end end object Memo1: TMemo Left = 32 Top = 4 Width = 283 Height = 117 ScrollBars = ssBoth TabOrder = 1 Visible = False end object MultiImage1: TPMultiImage Left = 0 Top = 0 Width = 105 Height = 105 Color = clBtnFace ImageName = 'file not found' ImageDither = True ImageReadRes = lAutoMatic ImageWriteRes = sAutoMatic TifSaveCompress = sNONE JPegSaveQuality = 25 JPegSaveSmooth = 0 OnClick = MultiImage1Click OnMouseDown = MultiImage1MouseDown OnMouseMove = MultiImage1MouseMove TextLeft = 0 TextTop = 0 TextRotate = 0 TabOrder = 4 TabStop = False end object MainMenu1: TMainMenu Left = 2 Top = 32 object File1: TMenuItem Caption = 'File' ShortCut = 0 object LoadImage1: TMenuItem Caption = 'Load Image...' ShortCut = 0 Visible = False OnClick = LoadImage1Click end object SaveFile: TMenuItem Caption = 'Save Map to file...' ShortCut = 0 OnClick = SaveFileClick end object SaveReturn: TMenuItem Caption = 'Save map to page and return' ShortCut = 0 OnClick = SaveReturnClick end object SaveCoord: TMenuItem Caption = 'Save Web-It! coordinate file...' ShortCut = 0 OnClick = SaveCoordClick end object LoadCoord: TMenuItem Caption = 'Load Web-It! coordinate file...' ShortCut = 0 OnClick = LoadCoordClick end object Exit1: TMenuItem Caption = 'Abandon and return' ShortCut = 0 OnClick = Exit1Click end end end object SaveDialog1: TSaveDialog FileEditStyle = fsEdit Filter = 'External Map Files|*.MAP|Web-It! Coordinate Files|*.COR' Left = 2 Top = 2 end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = 'Graphics|*.JPG;*.GIF|Web-It! Coordinate Files|*.COR' Left = 2 Top = 60 end object Scaler2: TScaler Xdevelop = 800 Ydevelop = 600 LimitScale = No ScaleRuntime = False Left = 2 Top = 88 PixelsPerInch = 96 ClientHeight = 357 ClientWidth = 543 end end