PC World Komputer 1998 July & August/Pcwk78a98.iso/Reklamy/Tts/_SETUP.1/TTSOPISY.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-03-12 | 12.6 KB | 535 lines

object Form1: TForm1
  Left = -4
  Top = -4
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'TTS Company, 621-12-31 do 33, czekamy na Ciebie'
  ClientHeight = 534
  ClientWidth = 800
  Color = 15921906
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsItalic]
  Icon.Data = {<image000.ico>}
  Menu = s
  ShowHint = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = -1
    Top = 0
    Width = 641
    Height = 441
    Picture.Data = {<image001.bmp>}
    Stretch = True
  end
  object ASLink1: TASLink
    Left = 148
    Top = 162
    Width = 129
    Height = 25
    Cursor = crHandPoint
    Hint =
      'Skr�t do strony WWW TTS Company (tylko dla u�ytkownik�w Internet' +
      'u)'
    Transparent = True
    Caption = 'www.tts.com.pl'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    URLType = utHttp
  end
  object ASLink2: TASLink
    Left = 342
    Top = 162
    Width = 118
    Height = 25
    Cursor = crHandPoint
    Hint =
      'Mo�esz przes�a� poczt� (np. zam�wienie) do TTS Company (tylko dl' +
      'a u�ytkownik�w Internetu)'
    Transparent = True
    Caption = '[e-mail]'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Banner1: TBanner
    Left = 130
    Top = 136
    Width = 353
    Height = 25
    AutoEnable = False
    ScrollInterval = 100
    ScrollPixels = 7
    ScrollText =
      'Centrum Sprzeda�y Oprogramowania, Partner Handlowy Microsoft , M' +
      'icrosoft Solution Provider, Partner Handlowy Corel, Autoryzowany' +
      ' Reseler Symantec zaprasza w godzinach od 9 do 17, od poniedzia�' +
      'ku do pi�tku.Gwarantujemy najni�sze ceny w kraju: (22)621-12-31'
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object ALed1: TALed
    Left = 130
    Top = 168
    Width = 16
    Height = 16
    TrueColor = clYellow
    Value = True
    Interval = 100
  end
  object ALed2: TALed
    Left = 324
    Top = 168
    Width = 16
    Height = 16
    Value = True
    Interval = 200
  end
  object ALed4: TALed
    Left = 303
    Top = 168
    Width = 16
    Height = 16
    TrueColor = clRed
    Value = True
    Interval = 500
  end
  object ALed5: TALed
    Left = 465
    Top = 168
    Width = 16
    Height = 16
    TrueColor = clWhite
    Value = True
    Interval = 100
  end
  object ALed6: TALed
    Left = 281
    Top = 168
    Width = 16
    Height = 16
    TrueColor = clAqua
    Value = True
    Interval = 200
  end
  object DRLabel2: TDRLabel
    Left = 48
    Top = 268
    Width = 89
    Height = 20
    Caption = 'Dystrybucja'
    Color = clBlack
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
    Layout = tlCenter
    OnClick = DRLabel1Click
    HiColor = clBlue
    LoColor = clNavy
    Border = boNone
    Ctl3D = True
    BlinkInterval = 300
    Blink = blNone
    ShadowColor = clNavy
    Deep = 2
  end
  object DRLabel4: TDRLabel
    Left = 52
    Top = 309
    Width = 80
    Height = 20
    Caption = 'Wdro�enia'
    Color = clBlack
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
    Layout = tlCenter
    OnClick = Label3Click
    HiColor = clBlue
    LoColor = clNavy
    Border = boNone
    Ctl3D = True
    BlinkInterval = 300
    Blink = blNone
    ShadowColor = clNavy
    Deep = 2
  end
  object DRLabel1: TDRLabel
    Left = 66
    Top = 226
    Width = 51
    Height = 20
    Caption = 'Cennik'
    Color = clBlack
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
    Layout = tlCenter
    OnClick = corel70
    HiColor = clBlue
    LoColor = clNavy
    Border = boNone
    Ctl3D = True
    BlinkInterval = 300
    Blink = blNone
    ShadowColor = clNavy
    Deep = 2
  end
  object Image2: TImage
    Left = 0
    Top = 8
    Width = 81
    Height = 105
    Cursor = crHandPoint
    Hint = 'Najlepszy pakiet biurowy na �wiecie w wersji polskiej'
    Stretch = True
    OnClick = Office97
  end
  object Image3: TImage
    Left = 520
    Top = 8
    Width = 105
    Height = 105
    Cursor = crHandPoint
    Hint = 'Corel Draw 7,0, produktywno��, potega, precyzja !'
    Stretch = True
    OnClick = corel70
  end
  object Image4: TImage
    Left = 8
    Top = 344
    Width = 81
    Height = 89
    Cursor = crHandPoint
    Hint = 'Pakiet do ka�dego biura projektowego !'
    Stretch = True
    OnClick = Autocad
  end
  object Image5: TImage
    Left = 112
    Top = 376
    Width = 102
    Height = 57
    Cursor = crHandPoint
    Hint = 'TTS Company posiada tytu� Partnera Handlowego Corel !'
    Stretch = True
    OnClick = Corel
  end
  object Image6: TImage
    Left = 218
    Top = 376
    Width = 199
    Height = 65
    Cursor = crHandPoint
    Hint = 'TTS Company posiada tytu� Partnera Handlowego Microsoft !'
    Stretch = True
    OnClick = image7click
  end
  object Image7: TImage
    Left = 425
    Top = 378
    Width = 100
    Height = 56
    Cursor = crHandPoint
    Hint = 'TTS Company posiada tytu� Autoryzowanego Resellera Symantec !'
    Stretch = True
    OnClick = image4click
  end
  object Image8: TImage
    Left = 464
    Top = 202
    Width = 169
    Height = 129
    Cursor = crHandPoint
    Hint =
      'U nas dowiesz si�, jak najtaniej zalegalizowa� oprogramowanie, s' +
      'pecjali�ci oczekuj� na tw�j telefon !'
    Stretch = True
    OnClick = MOLPMicrosoftOpenLincense1Click
  end
  object Image9: TImage
    Left = 175
    Top = 216
    Width = 89
    Height = 122
    Cursor = crHandPoint
    Hint =
      'HIT ! 65 tys. hase�,  3 tys. zdj��, 18 min. film�w, 90 min, 180 ' +
      'hymn�w itd.'
    Stretch = True
    OnClick = Fogra
  end
  object Image10: TImage
    Left = 263
    Top = 216
    Width = 117
    Height = 122
    Cursor = crHandPoint
    Hint = 'Hit ! Najnowsza wersja Corel Draw !'
    Stretch = True
    OnClick = Corel
  end
  object Image11: TImage
    Left = 381
    Top = 216
    Width = 80
    Height = 122
    Cursor = crHandPoint
    Hint =
      'Blitzkrieg, Historia II wojny �w, Bogus�aw Wo�asza�ski odkrywa t' +
      'ajniki wojny b�yskawicznej !'
    Stretch = True
    OnClick = Image11Click
  end
  object Image12: TImage
    Left = 23
    Top = 218
    Width = 134
    Height = 35
    Cursor = crHandPoint
    Hint = 'Cennik TTS Company'
    Stretch = True
    OnClick = Cennik
  end
  object Image13: TImage
    Left = 26
    Top = 258
    Width = 134
    Height = 35
    Cursor = crHandPoint
    Hint =
      'Ponad 1000 firm z nami wsp�pracuje, wszystkim proponujemy rewel' +
      'acyjne opusty !'
    Stretch = True
    OnClick = Image13Click
  end
  object Image14: TImage
    Left = 19
    Top = 302
    Width = 134
    Height = 35
    Cursor = crHandPoint
    Hint = 'Wdro�enia program�w, instalacje sieci komputerowych itd.'
    Stretch = True
    OnClick = Image6Click
  end
  object Image15: TImage
    Left = 119
    Top = 0
    Width = 378
    Height = 137
    Hint =
      'Centrum Sprzeda�y Oprogramowania, [phone] zadzwo� do nas' +
      ' !'
    Stretch = True
  end
  object Image16: TImage
    Left = 536
    Top = 347
    Width = 97
    Height = 97
    Cursor = crHandPoint
    Hint = 'Najpopularniejszy w Polsce program magazynowy'
    Stretch = True
    OnClick = Subiekt4
  end
  object MediaPlayer2: TMediaPlayer
    Left = 592
    Top = 72
    Width = 253
    Height = 30
    FileName = 'mus1.mid'
    Visible = False
    TabOrder = 0
    OnNotify = MediaPlayer2Notify
  end
  object Panel2: TPanel
    Left = 552
    Top = 352
    Width = 257
    Height = 153
    BorderStyle = bsSingle
    Color = 5434209
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Visible = False
  end
  object MediaPlayer3: TMediaPlayer
    Left = 584
    Top = 240
    Width = 253
    Height = 30
    Display = Panel2
    Visible = False
    TabOrder = 2
    OnNotify = MediaPlayer3Notify
  end
  object s: TMainMenu
    Left = 536
    Top = 112
    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 Gry1: TMenuItem
        Caption = '&Gry'
        OnClick = Gry1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Promocje1: TMenuItem
        Caption = 'Prom&ocje !!!'
        Hint = 'Promocje'
        OnClick = Promocje1Click
      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
      object Wdroenia1: TMenuItem
        Caption = '&Wdro�enia'
        OnClick = Image6Click
      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 = '&Legalizacja oprogramowania'
        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 = 584
    Top = 113
    object Programypolskie1: TMenuItem
      Caption = 'Programy &polskie'
    end
    object Programyzagraniczne1: TMenuItem
      Caption = 'Programy &zagraniczne'
    end
    object Mulimedia1: TMenuItem
      Caption = '&Mulimedia'
    end
  end
  object MarsCaption1: TMarsCaption
    ActiveBeginColor = clWhite
    ActiveEndColor = clBlue
    ActiveFontColor = clGray
    InactiveBeginColor = clGray
    InactiveEndColor = clSilver
    InactiveFontColor = clSilver
    ApplicationNameFont.Charset = DEFAULT_CHARSET
    ApplicationNameFont.Color = clWindowText
    ApplicationNameFont.Height = -11
    ApplicationNameFont.Name = 'MS Sans Serif'
    ApplicationNameFont.Style = [fsBold]
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clBlack
    CaptionFont.Height = -11
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = []
    NumColors = 64
    AutoSize = False
    Left = 232
    Top = 216
  end
end