home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 January / Pcwk0198.iso / Zadarmo / CLARION / CLARION.EXE / 0 / RCDATA / TFMFLOATER / TFMFLOATER.txt
Text File  |  1997-10-06  |  9KB  |  289 lines
  1. object fmFloater: TfmFloater
  2.   Left = 83
  3.   Top = 68
  4.   Hint = 'Click on empty spot and drag to move|'
  5.   BorderIcons = []
  6.   BorderStyle = bsNone
  7.   Caption = 'Clarion-receiver'
  8.   ClientHeight = 25
  9.   ClientWidth = 367
  10.   Color = clBlack
  11.   Font.Charset = DEFAULT_CHARSET
  12.   Font.Color = clBlack
  13.   Font.Height = -13
  14.   Font.Name = 'MS Sans Serif'
  15.   Font.Style = []
  16.   FormStyle = fsStayOnTop
  17.   ShowHint = True
  18.   OnCreate = FormCreate
  19.   PixelsPerInch = 120
  20.   TextHeight = 16
  21.   object pnBase: TPanel
  22.     Left = 1
  23.     Top = 1
  24.     Width = 365
  25.     Height = 24
  26.     Cursor = crDrag
  27.     Hint = 'Click on empty spot and drag to move'
  28.     BevelInner = bvLowered
  29.     Font.Charset = DEFAULT_CHARSET
  30.     Font.Color = clBlack
  31.     Font.Height = -13
  32.     Font.Name = 'MS Sans Serif'
  33.     Font.Style = [fsBold]
  34.     ParentFont = False
  35.     TabOrder = 0
  36.     TabStop = True
  37.     OnMouseDown = pnBaseMouseDown
  38.     OnMouseMove = pnBaseMouseMove
  39.     OnMouseUp = pnBaseMouseUp
  40.     object bPlay: TSpeedButton
  41.       Left = 32
  42.       Top = 2
  43.       Width = 29
  44.       Height = 18
  45.       Hint = 'Play/Pause'
  46.       AllowAllUp = True
  47.       GroupIndex = 1
  48.       Enabled = False
  49.       Glyph.Data = {
  50.         26010000424D260100000000000076000000280000001C0000000B0000000100
  51.         040000000000B000000000000000000000001000000010000000000000000000
  52.         80000080000000808000800000008000800080800000C0C0C000808080000000
  53.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A00AAAAAAAAA
  54.         AAAFFAAAAAAAAAAA0000A0000AAAAAAAAAA8AFFAAAAAAAAA0000A000000AAAAA
  55.         AAA8AAAFFAAAAAAA0000A000000000AAAAA8AAAAAFFFAAAA0000A00000000000
  56.         AAA8AAAAAAAAFFAA0000A0000000000000A8AAAAAAAAAAFF0000A00000000000
  57.         AAA8AAAAAAAA88AA0000A000000000AAAAA8AAAAAA88AAAA0000A0000000AAAA
  58.         AAA8AAA888AAAAAA0000A0000AAAAAAAAAA8A88AAAAAAAAA0000A00AAAAAAAAA
  59.         AAA88AAAAAAAAAAA0000}
  60.       Margin = 5
  61.       NumGlyphs = 2
  62.       OnClick = bPlayClick
  63.     end
  64.     object bPrev: TBitBtn
  65.       Left = 62
  66.       Top = 2
  67.       Width = 23
  68.       Height = 18
  69.       Hint = 'Play  previous item|'
  70.       Enabled = False
  71.       Font.Charset = DEFAULT_CHARSET
  72.       Font.Color = clBlack
  73.       Font.Height = -18
  74.       Font.Name = 'MS Sans Serif'
  75.       Font.Style = []
  76.       ParentFont = False
  77.       ParentShowHint = False
  78.       ShowHint = True
  79.       TabOrder = 1
  80.       OnClick = bPrevClick
  81.       Glyph.Data = {
  82.         FA000000424DFA000000000000007600000028000000180000000B0000000100
  83.         0400000000008400000000000000000000001000000010000000000000000000
  84.         80000080000000808000800000008000800080800000C0C0C000808080000000
  85.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAA00A
  86.         AAAAAAAAAFFAAAAAA00AA00AAAAAAFFAAA8AAAAA000AA00AAAAAFA8AAA8AAAA0
  87.         000AA00AAAAFAA8AAA8AA000000AA00AAFFAAA8AAA8A0000000AA00AFAAAAA8A
  88.         AA8AA000000AA00AA88AAA8AAA8AAAA0000AA00AAAA8AA8AAA8AAAAA000AA00A
  89.         AAAA8A8AAA8AAAAAA00AA00AAAAAA88AAA8AAAAAAAAAA00AAAAAAAAAAA8A}
  90.       NumGlyphs = 2
  91.       Spacing = 0
  92.     end
  93.     object bNext: TBitBtn
  94.       Left = 86
  95.       Top = 2
  96.       Width = 23
  97.       Height = 18
  98.       Hint = 'Play next item'
  99.       Enabled = False
  100.       Font.Charset = DEFAULT_CHARSET
  101.       Font.Color = clBlack
  102.       Font.Height = -18
  103.       Font.Name = 'MS Sans Serif'
  104.       Font.Style = []
  105.       ParentFont = False
  106.       ParentShowHint = False
  107.       ShowHint = True
  108.       TabOrder = 2
  109.       OnClick = bNextClick
  110.       Glyph.Data = {
  111.         FA000000424DFA000000000000007600000028000000180000000B0000000100
  112.         0400000000008400000000000000000000001000000010000000000000000000
  113.         80000080000000808000800000008000800080800000C0C0C000808080000000
  114.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A00AAAAAAAAA
  115.         AFFAAAAAAAAAA00AA00AAAAAA8AAAFFAAAAAA00AA000AAAAA8AAA8AFAAAAA00A
  116.         A0000AAAA8AAA8AAFAAAA00AA000000AA8AAA8AAAFFAA00AA0000000A8AAA8AA
  117.         AAAFA00AA000000AA8AAA8AAA88AA00AA0000AAAA8AAA8AA8AAAA00AA000AAAA
  118.         A8AAA8A8AAAAA00AA00AAAAAA8AAA88AAAAAA00AAAAAAAAAA8AAAAAAAAAA}
  119.       NumGlyphs = 2
  120.       Spacing = 0
  121.     end
  122.     object bRewind: TBitBtn
  123.       Left = 109
  124.       Top = 2
  125.       Width = 23
  126.       Height = 18
  127.       Hint = 'Start over at beginning|'
  128.       Enabled = False
  129.       Font.Charset = DEFAULT_CHARSET
  130.       Font.Color = clNavy
  131.       Font.Height = -18
  132.       Font.Name = 'MS Sans Serif'
  133.       Font.Style = []
  134.       ParentFont = False
  135.       ParentShowHint = False
  136.       ShowHint = True
  137.       TabOrder = 3
  138.       OnClick = bRewindClick
  139.       Glyph.Data = {
  140.         FA000000424DFA000000000000007600000028000000180000000B0000000100
  141.         0400000000008400000000000000000000001000000010000000000000000000
  142.         80000080000000808000800000008000800080800000C0C0C000808080000000
  143.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
  144.         AAAAAAAAAAAAAAAAA0AAAAA0AAAAAFAAAAAFAAAA00AAAA00AAAAF8AAAAF8AA00
  145.         00AA0000AAFFA8AAFFA8A00000A00000AFAAA8AFAAA8000000000000FAAAA8FA
  146.         AAA8A00000A00000A8AAA8A8AAA8AA0000AA0000AA88A8AA88A8AAAA00AAAA00
  147.         AAAA88AAAA88AAAAA0AAAAA0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}
  148.       Margin = 2
  149.       NumGlyphs = 2
  150.       Spacing = 0
  151.     end
  152.     object bVolume: TBitBtn
  153.       Left = 3
  154.       Top = 2
  155.       Width = 20
  156.       Height = 18
  157.       Hint = 'Volume control'
  158.       TabOrder = 0
  159.       OnClick = bVolumeClick
  160.       Glyph.Data = {
  161.         E6000000424DE60000000000000076000000280000000B0000000E0000000100
  162.         04000000000070000000000000000000000010000000100000000000000000FF
  163.         00000084840000FF0000C6C6C60000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
  164.         FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00330033333310
  165.         0000300203333310000004402033331000000660020333100000066405233310
  166.         0000066406500310000006600560201000000604056452100000066006546210
  167.         0000066405622310000006640653331000000640052333100000444052333310
  168.         00003000233333100000}
  169.     end
  170.     object bClose: TButton
  171.       Left = 336
  172.       Top = 2
  173.       Width = 16
  174.       Height = 18
  175.       Hint = 'Hide (+Shift = Quit)'
  176.       Caption = 'X'
  177.       Font.Charset = DEFAULT_CHARSET
  178.       Font.Color = clWindowText
  179.       Font.Height = -13
  180.       Font.Name = 'MS Sans Serif'
  181.       Font.Style = [fsBold]
  182.       ParentFont = False
  183.       TabOrder = 9
  184.       OnMouseDown = bCloseMouseDown
  185.     end
  186.     object pnTop: TPanel
  187.       Left = 309
  188.       Top = 2
  189.       Width = 16
  190.       Height = 9
  191.       Hint = 'Move to top of screen'
  192.       BevelOuter = bvLowered
  193.       Color = clNavy
  194.       Font.Charset = DEFAULT_CHARSET
  195.       Font.Color = clYellow
  196.       Font.Height = -10
  197.       Font.Name = 'MS Sans Serif'
  198.       Font.Style = []
  199.       ParentFont = False
  200.       TabOrder = 7
  201.       TabStop = True
  202.       OnClick = pnTopClick
  203.     end
  204.     object pnBottom: TPanel
  205.       Left = 309
  206.       Top = 12
  207.       Width = 16
  208.       Height = 9
  209.       Hint = 'Move to bottom of screen'
  210.       BevelOuter = bvLowered
  211.       Color = clMaroon
  212.       Font.Charset = DEFAULT_CHARSET
  213.       Font.Color = clYellow
  214.       Font.Height = -10
  215.       Font.Name = 'MS Sans Serif'
  216.       Font.Style = []
  217.       ParentFont = False
  218.       TabOrder = 8
  219.       TabStop = True
  220.       OnClick = pnBottomClick
  221.     end
  222.     object bOut: TBitBtn
  223.       Left = 132
  224.       Top = 2
  225.       Width = 23
  226.       Height = 18
  227.       Hint = 'Remove current item from PlayList'
  228.       Enabled = False
  229.       TabOrder = 4
  230.       OnClick = bOutClick
  231.       Glyph.Data = {
  232.         FA000000424DFA000000000000007600000028000000180000000B0000000100
  233.         0400000000008400000000000000000000001000000010000000000000000000
  234.         80000080000000808000800000008000800080800000C0C0C000808080000000
  235.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAA000000AAA
  236.         AAAFFFFFFAAAAA00AAAA00AAAA88AAAAFFAAA000AAAAA00AA88FAAAAAFFA00A0
  237.         0AAAAA0088A8FAAAAAFF00AA00AAAA0088AA8FAAAAFF00AAA00AAA0088AAA8FA
  238.         AAFF00AAAA00AA0088AAAA8FAAFF00AAAAA00A0088AAAAA8FA8FA00AAAAA000A
  239.         A88AAAAA8F8AAA00AAAA00AAAA88AAAA88AAAAA000000AAAAAA888888AAA}
  240.       NumGlyphs = 2
  241.     end
  242.     object bStop: TBitBtn
  243.       Left = 157
  244.       Top = 2
  245.       Width = 23
  246.       Height = 18
  247.       Hint = 'Stop'
  248.       Enabled = False
  249.       Font.Charset = DEFAULT_CHARSET
  250.       Font.Color = clRed
  251.       Font.Height = -18
  252.       Font.Name = 'MS Sans Serif'
  253.       Font.Style = []
  254.       ParentFont = False
  255.       ParentShowHint = False
  256.       ShowHint = True
  257.       TabOrder = 5
  258.       OnClick = bStopClick
  259.       Glyph.Data = {
  260.         FA000000424DFA000000000000007600000028000000180000000B0000000100
  261.         0400000000008400000000000000000000001000000010000000000000000000
  262.         80000080000000808000800000008000800080800000C0C0C000808080000000
  263.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
  264.         AAAAAAAAAAAA0000000000AAFFFFFFFFFFAA0000000000AA8AAAAAAAAFAA0000
  265.         000000AA8AAAAAAAAFAA0000000000AA8AAAAAAAAFAA0000000000AA8AAAAAAA
  266.         AFAA0000000000AA8AAAAAAAAFAA0000000000AA8AAAAAAAAFAA0000000000AA
  267.         8AAAAAAAAFAA0000000000AA888888888FAAAAAAAAAAAAAAAAAAAAAAAAAA}
  268.       NumGlyphs = 2
  269.       Spacing = 0
  270.     end
  271.     object TrackBar: TTrackBar
  272.       Left = 180
  273.       Top = 4
  274.       Width = 125
  275.       Height = 17
  276.       Enabled = False
  277.       Orientation = trHorizontal
  278.       Frequency = 1
  279.       Position = 0
  280.       SelEnd = 0
  281.       SelStart = 0
  282.       TabOrder = 6
  283.       TickMarks = tmBottomRight
  284.       TickStyle = tsNone
  285.       OnChange = TrackBarChange
  286.     end
  287.   end
  288. end
  289.