Chip Hitware 7 B/CHIP_HITWARE_7B.iso/Gry/DopeWars/DopeWars.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1999-03-24 | 8.4 KB | 407 lines

object Form1: TForm1
  Left = 231
  Top = 135
  BorderIcons = [biSystemMenu, biMinimize, biHelp]
  BorderStyle = bsSingle
  Caption = 'Dope Wars'
  ClientHeight = 412
  ClientWidth = 409
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = True
  OnActivate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 4
    Top = 138
    Width = 37
    Height = 13
    Caption = 'Health :'
  end
  object LSpace: TLabel
    Left = 208
    Top = 168
    Width = 119
    Height = 13
    Caption = 'Trenchcoat. Space : 100'
  end
  object HealthBar: TGauge
    Left = 44
    Top = 136
    Width = 157
    Height = 17
    BackColor = clRed
    Color = clWhite
    ForeColor = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Progress = 100
  end
  object LCDCash: TLCDLabel
    Left = 4
    Top = 8
    Width = 196
    Height = 20
    Caption = 'Cash:888,888,888'
    PixelSpacing = 0
    CharSpacing = 2
    LineSpacing = 2
    BorderSpace = 2
    TextLines = 1
    NoOfChars = 16
    BackGround = clBlack
    BorderStyle = frNone
    PixelOn = clLime
    PixelOff = 16384
  end
  object LCDBank: TLCDLabel
    Left = 4
    Top = 38
    Width = 196
    Height = 20
    Caption = 'Bank:888,888,888'
    PixelSpacing = 0
    CharSpacing = 2
    LineSpacing = 0
    BorderSpace = 2
    TextLines = 1
    NoOfChars = 16
    BackGround = clBlack
    BorderStyle = frNone
    PixelOn = clLime
    PixelOff = 16384
  end
  object LCDDebt: TLCDLabel
    Left = 4
    Top = 68
    Width = 196
    Height = 20
    Caption = 'Debt:888,888,888'
    PixelSpacing = 0
    CharSpacing = 2
    LineSpacing = 0
    BorderSpace = 2
    TextLines = 1
    NoOfChars = 16
    BackGround = clBlack
    BorderStyle = frNone
    PixelOn = clRed
    PixelOff = 64
  end
  object LCDGuns: TLCDLabel
    Left = 4
    Top = 98
    Width = 196
    Height = 20
    Caption = 'Guns:          0'
    PixelSpacing = 0
    CharSpacing = 2
    LineSpacing = 0
    BorderSpace = 2
    TextLines = 1
    NoOfChars = 16
    BackGround = clBlack
    BorderStyle = frNone
    PixelOn = clYellow
    PixelOff = 12078
  end
  object Label1: TLabel
    Left = 8
    Top = 168
    Width = 78
    Height = 13
    Caption = 'Available drugs :'
  end
  object SellBtn: TBitBtn
    Left = 276
    Top = 132
    Width = 60
    Height = 25
    Hint = 'Sell'
    Caption = '&Sell'
    Enabled = False
    TabOrder = 2
    OnClick = SellBtnClick
  end
  object BuyBtn: TBitBtn
    Left = 212
    Top = 132
    Width = 60
    Height = 25
    Hint = 'Buy'
    Caption = '&Buy'
    Enabled = False
    TabOrder = 1
    OnClick = BuyBtnClick
  end
  object SubwayBox: TGroupBox
    Left = 208
    Top = 4
    Width = 197
    Height = 121
    Caption = 'Subway from Coney Island :'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object Location1Btn: TBitBtn
      Left = 8
      Top = 20
      Width = 88
      Height = 30
      Caption = 'Bronx'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Location1BtnClick
    end
    object Location2Btn: TBitBtn
      Left = 8
      Top = 52
      Width = 88
      Height = 30
      Caption = 'Ghetto'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Location2BtnClick
    end
    object Location3Btn: TBitBtn
      Left = 8
      Top = 84
      Width = 88
      Height = 30
      Caption = 'Central Park'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Location3BtnClick
    end
    object Location5Btn: TBitBtn
      Left = 104
      Top = 52
      Width = 88
      Height = 30
      Caption = '&Coney Island'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = Location5BtnClick
    end
    object Location6Btn: TBitBtn
      Left = 104
      Top = 84
      Width = 88
      Height = 30
      Caption = 'Brooklyn'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = Location6BtnClick
    end
    object Location4Btn: TBitBtn
      Left = 104
      Top = 20
      Width = 88
      Height = 30
      Caption = 'Manhattan'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = Location4BtnClick
    end
    object FinishBtn: TButton
      Left = 12
      Top = 24
      Width = 177
      Height = 89
      Caption = 'Finish'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      Visible = False
      OnClick = FinishBtnClick
    end
  end
  object Sale: TListView
    Left = 4
    Top = 184
    Width = 197
    Height = 193
    Columns = <
      item
        Caption = 'Drug'
        Width = 115
      end
      item
        Alignment = taRightJustify
        Caption = 'Price'
        Width = 78
      end>
    ColumnClick = False
    HideSelection = False
    HotTrackStyles = []
    ReadOnly = True
    RowSelect = True
    TabOrder = 3
    ViewStyle = vsReport
    OnClick = SaleClick
    OnDblClick = BuyBtnClick
  end
  object Trenchcoat: TListView
    Left = 208
    Top = 184
    Width = 197
    Height = 193
    Columns = <
      item
        Caption = 'Drug'
        Width = 90
      end
      item
        Alignment = taRightJustify
        Caption = 'Qty'
        Width = 53
      end
      item
        Alignment = taRightJustify
        Caption = 'Price'
      end>
    ColumnClick = False
    HideSelection = False
    HotTrackStyles = []
    ReadOnly = True
    RowSelect = True
    TabOrder = 4
    ViewStyle = vsReport
    OnClick = TrenchcoatClick
    OnDblClick = SellBtnClick
  end
  object FinanceBtn: TBitBtn
    Left = 340
    Top = 132
    Width = 60
    Height = 25
    Hint = 'Manage finances'
    Caption = 'F&inances'
    TabOrder = 5
    OnClick = FinanceBtnClick
  end
  object NewGameBtn: TButton
    Left = 248
    Top = 384
    Width = 75
    Height = 25
    Caption = 'New Game'
    TabOrder = 6
    OnClick = NewGameClick
  end
  object ExitBtn: TButton
    Left = 332
    Top = 384
    Width = 75
    Height = 25
    Caption = 'Exit'
    TabOrder = 7
    OnClick = ExitBtnClick
  end
  object MainMenu: TMainMenu
    Left = 192
    Top = 344
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = 'New Game'
        Enabled = False
        ShortCut = 113
        OnClick = NewGameClick
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object View1: TMenuItem
      Caption = '&View'
      object HighScores1: TMenuItem
        Caption = 'High &Scores'
        OnClick = HighScores1Click
      end
      object UnitPrice: TMenuItem
        Caption = '&Unit Price'
        Checked = True
        ShortCut = 24656
        OnClick = UnitPriceClick
      end
    end
    object Sounds: TMenuItem
      Caption = 'S&ounds'
      object EnableSnd: TMenuItem
        Caption = 'E&nabled'
        Checked = True
        OnClick = EnableSndClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = 'Contents'
        OnClick = Contents1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = '&About...'
        OnClick = About1Click
      end
    end
  end
end