PC World Komputer 1997 November/Pcwk1197.iso/Reklamy/TTS/TTSOPISY.EX_/TTSOPISY.EX/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-09-07 | 8KB | 296 lines

object Form1: TForm1
  Left = -3
  Top = -2
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'TTS Company, 621-12-31 do 33, czekamy na Ciebie'
  ClientHeight = 408
  ClientWidth = 639
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsItalic]
  Icon.Data = {<image000.ico>}
  Menu = s
  Scaled = False
  ShowHint = True
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = -24
    Width = 640
    Height = 480
    AutoSize = True
    ParentShowHint = False
    Picture.Data = {<image001.bmp>}
    ShowHint = False
    Stretch = True
  end
  object Image2: TImage
    Left = 159
    Top = -1
    Width = 362
    Height = 130
    Hint = 'TTS Company jest liderem na rynku oprogramowania'
    ParentShowHint = False
    Picture.Data = {<image002.bmp>}
    ShowHint = True
    Transparent = True
  end
  object Image3: TImage
    Left = 8
    Top = 144
    Width = 89
    Height = 41
    Cursor = crHandPoint
    Hint = 'Cennik firmy'
    ParentShowHint = False
    Picture.Data = {<image003.bmp>}
    ShowHint = True
    Transparent = True
    OnClick = Image3Click
  end
  object Image4: TImage
    Left = 24
    Top = 216
    Width = 177
    Height = 57
    ParentShowHint = False
    Picture.Data = {<image004.bmp>}
    ShowHint = True
    Transparent = True
  end
  object Image5: TImage
    Left = 8
    Top = 288
    Width = 81
    Height = 49
    Cursor = crHandPoint
    Hint = 'Opisy program�w polskich'
    ParentShowHint = False
    Picture.Data = {<image005.bmp>}
    ShowHint = True
    Transparent = True
    OnClick = Image5Click
  end
  object Image6: TImage
    Left = 8
    Top = 344
    Width = 81
    Height = 49
    Cursor = crHandPoint
    Hint = 'Opisy program�w multimedialnych'
    ParentShowHint = False
    Picture.Data = {<image006.bmp>}
    ShowHint = True
    Transparent = True
    OnClick = Image6Click
  end
  object Label1: TLabel
    Left = 104
    Top = 160
    Width = 70
    Height = 24
    Caption = 'Cennik'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsItalic]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    Transparent = True
    OnClick = Label1Click
  end
  object Label2: TLabel
    Left = 96
    Top = 304
    Width = 156
    Height = 24
    Caption = 'Programy polskie'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsItalic]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    Transparent = True
    OnClick = Label2Click
  end
  object Label3: TLabel
    Left = 104
    Top = 368
    Width = 102
    Height = 24
    Caption = 'Multimedia'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsItalic]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    Transparent = True
    OnClick = Label3Click
  end
  object Image7: TImage
    Left = 408
    Top = 304
    Width = 209
    Height = 89
    Hint = 'TTS Company jest partnerem handlowym firmy Microsoft'
    ParentShowHint = False
    Picture.Data = {<image007.bmp>}
    ShowHint = True
    Transparent = True
  end
  object Image8: TImage
    Left = 400
    Top = 192
    Width = 217
    Height = 113
    Picture.Data = {<image008.bmp>}
    Transparent = True
  end
  object MediaPlayer1: TMediaPlayer
    Left = 176
    Top = 152
    Width = 253
    Height = 30
    FileName = 'Mus1.mid'
    Visible = False
    TabOrder = 0
    TabStop = False
    OnClick = MediaPlayer1Click
    OnEnter = MediaPlayer1Enter
    OnExit = MediaPlayer1Exit
    OnPostClick = MediaPlayer1PostClick
    OnNotify = MediaPlayer1Notify
  end
  object s: TMainMenu
    Left = 336
    Top = 344
    object Cennik1: TMenuItem
      Caption = '&Cennik'
      object Programypolskie3: TMenuItem
        Caption = '&Programy &polskie'
        Hint = 'Ceny program�w polskich'
        OnClick = Programypolskie3Click
      end
      object Programyzagraniczne2: TMenuItem
        Caption = 'Programy &zagraniczne'
        Hint = 'Ceny program�w zagranicznych'
        OnClick = Programyzagraniczne2Click
      end
      object Multimedia2: TMenuItem
        Caption = '&Multimedia'
        Hint = 'Ceny program�w multimedialnych'
        OnClick = Multimedia2Click
      end
      object Gry1: TMenuItem
        Caption = '&Gry'
        OnClick = Gry1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Nowoci1: TMenuItem
        Caption = '&Nowo�ci !!!'
        Hint = 'Nowo�ci '
        OnClick = Nowoci1Click
      end
      object Promocje1: TMenuItem
        Caption = 'Prom&ocje !!!'
        Hint = 'Promocje'
        OnClick = Promocje1Click
      end
      object Promocjaedukacyjna1: TMenuItem
        Caption = 'Promocja &edukacyjna'
        Hint = 'Promocja edukacyjna'
        OnClick = Promocjaedukacyjna1Click
      end
      object Formularzzamwienia1: TMenuItem
        Caption = '&Formularz zam�wienia'
        Hint = 'Formularz zam�wienia'
        OnClick = Formularzzamwienia1Click
      end
      object Jakzamwiprogramy1: TMenuItem
        Caption = '&Jak zam�wi� programy'
        Hint = 'Jak zam�wi� piogramy'
        OnClick = Jakzamwiprogramy1Click
      end
      object Jakotrzymademoprogramu1: TMenuItem
        Caption = 'Jak otrzyma� &demo programu'
        Hint = 'Jak otrzyma� wersj� demaonstracyjn� programu'
        OnClick = Jakotrzymademoprogramu1Click
      end
    end
    object Opisyprogramw1: TMenuItem
      Caption = '&Opisy program�w'
      object Multimedia1: TMenuItem
        Caption = '&Multimedia'
        Hint = 'Opisy program�w multimedialnych'
        OnClick = Multimedia1Click
      end
      object Programypolskie2: TMenuItem
        Caption = 'Programy &polskie'
        Hint = 'Opisy program�w polskich'
        OnClick = Programypolskie2Click
      end
    end
    object Inne1: TMenuItem
      Caption = '&Inne'
      object Informatordziauobsugipartnerwhandlowych1: TMenuItem
        Caption = '&Informator dzia�u obs�ugi partner�w handlowych'
        Hint = 'Informat6or D.O.P.'
        OnClick = Informatordziauobsugipartnerwhandlowych1Click
      end
      object MOLPMicrosoftOpenLincense1: TMenuItem
        Caption = '&MOLP - Microsoft Open Lincense'
        Hint = 'MOLP'
        OnClick = MOLPMicrosoftOpenLincense1Click
      end
      object Zkimsikontaktowa1: TMenuItem
        Caption = '&Z kim si� kontaktowa� ?'
        Hint = 'Kontakt'
        OnClick = Zkimsikontaktowa1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Muzykawtle1: TMenuItem
        Caption = 'M&uzyka w tle'
        OnClick = Muzykawtle1Click
      end
      object Oprogramie1: TMenuItem
        Caption = '&O programie'
        OnClick = Oprogramie1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 296
    Top = 345
    object Programypolskie1: TMenuItem
      Caption = 'Programy &polskie'
    end
    object Programyzagraniczne1: TMenuItem
      Caption = 'Programy &zagraniczne'
    end
    object Mulimedia1: TMenuItem
      Caption = '&Mulimedia'
    end
  end
end