Bila Vrana/BILA_VRANA.iso/018A/WBIT32.ZIP/WEBIT32.EXE/0/RCDATA/TSIMPLEFORM/TSIMPLEFORM.txt

Text File | 1996-11-23 | 6KB | 272 lines

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