home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 10 / Chip_Hitware_Vol_10.iso / chiphit / multmedi / 95cdmagi / cdplay.exe / 0 / RCDATA / TFORM1 / TFORM1.txt < prev   
Text File  |  1997-10-22  |  7KB  |  329 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 133
  4.   ActiveControl = CDName
  5.   BorderIcons = []
  6.   BorderStyle = bsNone
  7.   ClientHeight = 453
  8.   ClientWidth = 632
  9.   Color = clBlack
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OnActivate = FormActivate
  15.   OnClose = FormClose
  16.   OnCreate = FormCreate
  17.   OnMouseMove = FormMouseMove
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Label1: TLabel
  21.     Left = 517
  22.     Top = 230
  23.     Width = 22
  24.     Height = 29
  25.     Font.Color = clOlive
  26.     Font.Height = -24
  27.     Font.Name = 'MS Sans Serif'
  28.     Font.Style = [fsBold, fsItalic]
  29.     ParentFont = False
  30.     OnMouseMove = Label1MouseMove
  31.   end
  32.   object Gauge1: TGauge
  33.     Left = 24
  34.     Top = 323
  35.     Width = 470
  36.     Height = 24
  37.     Hint = 'Bisheriger Genu∩┐╜ des aktuellen Liedes'
  38.     Color = clAqua
  39.     Font.Color = clBlack
  40.     Font.Height = -16
  41.     Font.Name = 'MS Sans Serif'
  42.     Font.Style = [fsBold]
  43.     ForeColor = 4227072
  44.     ParentColor = False
  45.     ParentFont = False
  46.     ParentShowHint = False
  47.     Progress = 0
  48.     ShowHint = True
  49.   end
  50.   object Gauge2: TGauge
  51.     Left = 24
  52.     Top = 298
  53.     Width = 470
  54.     Height = 25
  55.     Hint = 'Bisheriger Genu∩┐╜ der CD'
  56.     Color = clRed
  57.     Font.Color = clBlack
  58.     Font.Height = -16
  59.     Font.Name = 'MS Sans Serif'
  60.     Font.Style = [fsBold]
  61.     ForeColor = clGreen
  62.     ParentColor = False
  63.     ParentFont = False
  64.     ParentShowHint = False
  65.     Progress = 0
  66.     ShowHint = True
  67.   end
  68.   object PlayBtn: TBtnImg
  69.     Left = 50
  70.     Top = 360
  71.     Width = 57
  72.     Height = 57
  73.     Hint = 'PLAY'
  74.     ParentShowHint = False
  75.     Picture.Data = {<image000.bmp>}
  76.     ShowHint = True
  77.     Stretch = True
  78.     OnClick = PlayBtnClick
  79.   end
  80.   object StopBtn: TBtnImg
  81.     Left = 134
  82.     Top = 360
  83.     Width = 60
  84.     Height = 60
  85.     Hint = 'STOP'
  86.     ParentShowHint = False
  87.     Picture.Data = {<image001.bmp>}
  88.     ShowHint = True
  89.     Stretch = True
  90.     OnClick = StopBtnClick
  91.   end
  92.   object NextBtn: TBtnImg
  93.     Left = 320
  94.     Top = 360
  95.     Width = 62
  96.     Height = 62
  97.     Hint = 'NACHFOLGEND'
  98.     ParentShowHint = False
  99.     Picture.Data = {<image002.bmp>}
  100.     ShowHint = True
  101.     Stretch = True
  102.     OnClick = NextBtnClick
  103.   end
  104.   object PrevBtn: TBtnImg
  105.     Left = 227
  106.     Top = 360
  107.     Width = 62
  108.     Height = 62
  109.     Hint = 'VORHERGEHEND'
  110.     ParentShowHint = False
  111.     Picture.Data = {<image003.bmp>}
  112.     ShowHint = True
  113.     Stretch = True
  114.     OnClick = PrevBtnClick
  115.   end
  116.   object QuitBtn: TBtnImg
  117.     Left = 512
  118.     Top = 350
  119.     Width = 110
  120.     Height = 80
  121.     Hint = 'Was f∩┐╜r eine Frage!'
  122.     ParentShowHint = False
  123.     Picture.Data = {<image004.bmp>}
  124.     ShowHint = True
  125.     Stretch = True
  126.     OnClick = QuitBtnClick
  127.   end
  128.   object Label3: TLabel
  129.     Left = 530
  130.     Top = 301
  131.     Width = 25
  132.     Height = 20
  133.     Hint = 'Position auf der CD in Minuten:Sekunden'
  134.     Caption = 'ffff'
  135.     Color = 16384
  136.     Font.Color = clGreen
  137.     Font.Height = -16
  138.     Font.Name = 'MS Sans Serif'
  139.     Font.Style = [fsBold]
  140.     ParentColor = False
  141.     ParentFont = False
  142.     ParentShowHint = False
  143.     ShowHint = True
  144.     Transparent = True
  145.     OnMouseMove = Label3MouseMove
  146.   end
  147.   object EjectBtn: TBtnImg
  148.     Left = 410
  149.     Top = 360
  150.     Width = 62
  151.     Height = 62
  152.     Hint = 'EJECT'
  153.     ParentShowHint = False
  154.     Picture.Data = {<image005.bmp>}
  155.     ShowHint = True
  156.     Stretch = True
  157.     OnClick = EjectBtnClick
  158.   end
  159.   object Label5: TLabel
  160.     Left = 0
  161.     Top = 438
  162.     Width = 633
  163.     Height = 13
  164.     Hint = 'Bitte linke Maustaste dr∩┐╜cken, um Anzeige zu verkleinern!'
  165.     Caption = 
  166.       '(c) copyright 1997 J∩┐╜rg G. Beyer, JGBeyer@aol.com, Benutzung auf' +
  167.       ' eigene Gefahr und eigenes Risiko, strategic solutions - Hamburg'
  168.     Font.Color = clWhite
  169.     Font.Height = -11
  170.     Font.Name = 'MS Sans Serif'
  171.     Font.Style = [fsItalic]
  172.     ParentFont = False
  173.     ParentShowHint = False
  174.     ShowHint = True
  175.     OnClick = Label5Click
  176.   end
  177.   object Label6: TLabel
  178.     Left = 502
  179.     Top = 291
  180.     Width = 120
  181.     Height = 13
  182.     Caption = 'bisherige Spieldauer:'
  183.     Color = 16384
  184.     Font.Color = clBlack
  185.     Font.Height = -11
  186.     Font.Name = 'MS Sans Serif'
  187.     Font.Style = [fsBold]
  188.     ParentColor = False
  189.     ParentFont = False
  190.     ParentShowHint = False
  191.     ShowHint = False
  192.     Transparent = True
  193.     OnMouseMove = Label3MouseMove
  194.   end
  195.   object Label2: TLabel
  196.     Left = 514
  197.     Top = 222
  198.     Width = 104
  199.     Height = 13
  200.     Caption = 'CD Gesamtdauer: '
  201.     Color = clWhite
  202.     Font.Color = clBlack
  203.     Font.Height = -11
  204.     Font.Name = 'MS Sans Serif'
  205.     Font.Style = [fsBold]
  206.     ParentColor = False
  207.     ParentFont = False
  208.     Transparent = True
  209.   end
  210.   object Label4: TLabel
  211.     Left = 512
  212.     Top = 88
  213.     Width = 103
  214.     Height = 37
  215.     Caption = 'Label3'
  216.     Color = clGreen
  217.     Font.Color = clLime
  218.     Font.Height = -32
  219.     Font.Name = 'MS Sans Serif'
  220.     Font.Style = [fsBold]
  221.     ParentColor = False
  222.     ParentFont = False
  223.     Transparent = True
  224.     Visible = False
  225.   end
  226.   object CDName: TEdit
  227.     Left = 24
  228.     Top = 3
  229.     Width = 470
  230.     Height = 32
  231.     Hint = 'Interpret und Name der CD'
  232.     Font.Color = clWindowText
  233.     Font.Height = -19
  234.     Font.Name = 'MS Sans Serif'
  235.     Font.Style = [fsBold]
  236.     MaxLength = 255
  237.     ParentFont = False
  238.     ParentShowHint = False
  239.     ShowHint = True
  240.     TabOrder = 0
  241.     Text = 'Name der Audio CD'
  242.     OnChange = CDNameChange
  243.   end
  244.   object StringGrid: TStringGrid
  245.     Left = 24
  246.     Top = 44
  247.     Width = 470
  248.     Height = 247
  249.     Hint = 'Namen und Lieblingsst∩┐╜cke angeben'
  250.     ColCount = 4
  251.     FixedCols = 0
  252.     RowCount = 55
  253.     FixedRows = 0
  254.     Font.Color = clNavy
  255.     Font.Height = -16
  256.     Font.Name = 'Arial'
  257.     Font.Style = [fsBold]
  258.     Options = [goTabs]
  259.     ParentFont = False
  260.     ParentShowHint = False
  261.     ShowHint = True
  262.     TabOrder = 1
  263.     OnClick = StringGridDblClick
  264.     OnDblClick = StringGridDblClick
  265.     OnMouseMove = StringGridMouseMove
  266.   end
  267.   object Panel1: TPanel
  268.     Left = 504
  269.     Top = 66
  270.     Width = 121
  271.     Height = 57
  272.     BevelOuter = bvNone
  273.     Color = clBlack
  274.     TabOrder = 2
  275.   end
  276.   object RadioGroup1: TRadioGroup
  277.     Left = 502
  278.     Top = 35
  279.     Width = 124
  280.     Height = 102
  281.     Color = clBlack
  282.     Font.Color = clSilver
  283.     Font.Height = -16
  284.     Font.Name = 'MS Sans Serif'
  285.     Font.Style = []
  286.     ItemIndex = 0
  287.     Items.Strings = (
  288.       'Best Of'
  289.       'Alles')
  290.     ParentColor = False
  291.     ParentFont = False
  292.     TabOrder = 3
  293.   end
  294.   object MediaPlayer1: TMediaPlayer
  295.     Left = 408
  296.     Top = 416
  297.     Width = 225
  298.     Height = 30
  299.     VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack, btEject]
  300.     AutoRewind = False
  301.     Shareable = True
  302.     Visible = False
  303.     TabOrder = 4
  304.     OnNotify = MediaPlayer1Notify
  305.   end
  306.   object StatusBar1: TStatusBar
  307.     Left = 0
  308.     Top = 426
  309.     Width = 632
  310.     Height = 27
  311.     Panels = <
  312.       item
  313.         Text = 'Status'
  314.         Width = 150
  315.       end
  316.       item
  317.         Text = 'Position'
  318.         Width = 50
  319.       end>
  320.     SimplePanel = False
  321.     Visible = False
  322.   end
  323.   object Timer1: TTimer
  324.     OnTimer = Timer1Timer
  325.     Left = 600
  326.     Top = 65522
  327.   end
  328. end
  329.