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 = {} 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 = {} 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 = 'tts@tts.com.pl' 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, (022) 621-12-31 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