home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / komunikace / raketu / r-install.exe / Raketu.exe / 0 / RCDATA / TDLGCALLREC / TDLGCALLREC.txt < prev   
Encoding:
Text File  |  2007-01-31  |  4.0 KB  |  184 lines
  1. object DlgCallRec: TDlgCallRec
  2.   Left = 201
  3.   Top = 119
  4.   Width = 290
  5.   Height = 281
  6.   Caption = 'Call Record'
  7.   Color = clBtnFace
  8.   Constraints.MinHeight = 281
  9.   Constraints.MinWidth = 290
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = False
  16.   OnCreate = FormCreate
  17.   OnShow = FormShow
  18.   DesignSize = (
  19.     282
  20.     247)
  21.   PixelsPerInch = 96
  22.   TextHeight = 13
  23.   object ButtonBack1: TImage
  24.     Left = 0
  25.     Top = 0
  26.     Width = 284
  27.     Height = 246
  28.     Anchors = [akLeft, akTop, akRight, akBottom]
  29.     Picture.Data = {<image000.bmp>}
  30.     Stretch = True
  31.   end
  32.   object Label1: TLabel
  33.     Left = 8
  34.     Top = 8
  35.     Width = 260
  36.     Height = 14
  37.     Caption = 'Calls in progress - choose which one to record'
  38.     Font.Charset = EASTEUROPE_CHARSET
  39.     Font.Color = clMaroon
  40.     Font.Height = -11
  41.     Font.Name = 'MS Sans Serif'
  42.     Font.Style = [fsBold]
  43.     ParentFont = False
  44.     Transparent = True
  45.   end
  46.   object Label2: TLabel
  47.     Left = 8
  48.     Top = 128
  49.     Width = 232
  50.     Height = 14
  51.     Caption = 'Previously recorded calls - select and play'
  52.     Font.Charset = EASTEUROPE_CHARSET
  53.     Font.Color = clMaroon
  54.     Font.Height = -11
  55.     Font.Name = 'MS Sans Serif'
  56.     Font.Style = [fsBold]
  57.     ParentFont = False
  58.     Transparent = True
  59.   end
  60.   object BClose: TSpeedButton
  61.     Left = 167
  62.     Top = 220
  63.     Width = 81
  64.     Height = 22
  65.     Anchors = [akBottom]
  66.     Caption = 'Close'
  67.     Flat = True
  68.     Font.Charset = EASTEUROPE_CHARSET
  69.     Font.Color = clMaroon
  70.     Font.Height = -11
  71.     Font.Name = 'MS Sans Serif'
  72.     Font.Style = [fsBold]
  73.     ParentFont = False
  74.     OnClick = BCloseClick
  75.   end
  76.   object MediaCounter: TLabel
  77.     Left = 199
  78.     Top = 91
  79.     Width = 66
  80.     Height = 14
  81.     Anchors = [akTop, akRight]
  82.     Caption = 'MediaCount'
  83.     Font.Charset = EASTEUROPE_CHARSET
  84.     Font.Color = clMaroon
  85.     Font.Height = -11
  86.     Font.Name = 'MS Sans Serif'
  87.     Font.Style = [fsBold]
  88.     ParentFont = False
  89.     Transparent = True
  90.   end
  91.   object Refresh: TImage
  92.     Left = 57
  93.     Top = 218
  94.     Width = 25
  95.     Height = 25
  96.     Cursor = crHandPoint
  97.     Anchors = [akBottom]
  98.     Picture.Data = {<image001.ico>}
  99.     Transparent = True
  100.     OnClick = RefreshClick
  101.   end
  102.   object MediaPlayer1: TMediaPlayer
  103.     Left = 8
  104.     Top = 88
  105.     Width = 169
  106.     Height = 20
  107.     EnabledButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack, btRecord]
  108.     VisibleButtons = [btPlay, btPause, btStop, btStep, btBack, btRecord]
  109.     Anchors = [akLeft, akTop, akRight]
  110.     TabOrder = 0
  111.     OnClick = MediaPlayer1Click
  112.   end
  113.   object ListBox1: TListBox
  114.     Left = 8
  115.     Top = 24
  116.     Width = 266
  117.     Height = 57
  118.     Style = lbOwnerDrawVariable
  119.     Anchors = [akLeft, akTop, akRight]
  120.     BevelKind = bkSoft
  121.     ItemHeight = 16
  122.     TabOrder = 1
  123.     OnDblClick = ListBox1DblClick
  124.     OnDrawItem = ListBox1DrawItem
  125.   end
  126.   object ListBox2: TListBox
  127.     Left = 8
  128.     Top = 144
  129.     Width = 266
  130.     Height = 69
  131.     Style = lbOwnerDrawVariable
  132.     Anchors = [akLeft, akTop, akRight, akBottom]
  133.     BevelKind = bkSoft
  134.     ItemHeight = 16
  135.     PopupMenu = PopupMenu1
  136.     ScrollWidth = 400
  137.     TabOrder = 2
  138.     OnDblClick = ListBox2DblClick
  139.     OnDrawItem = ListBox2DrawItem
  140.   end
  141.   object MediaProg: TProgressBar
  142.     Left = 9
  143.     Top = 113
  144.     Width = 265
  145.     Height = 13
  146.     Cursor = crHandPoint
  147.     Anchors = [akLeft, akTop, akRight]
  148.     Min = 0
  149.     Max = 100
  150.     Smooth = True
  151.     TabOrder = 3
  152.     OnMouseDown = MediaProgMouseDown
  153.   end
  154.   object Timer1: TTimer
  155.     Enabled = False
  156.     OnTimer = Timer1Timer
  157.     Left = 8
  158.     Top = 224
  159.   end
  160.   object PopupMenu1: TPopupMenu
  161.     Images = Dlg.ImageList1
  162.     Left = 8
  163.     Top = 224
  164.     object Refresh1: TMenuItem
  165.       Caption = 'Refresh'
  166.       ImageIndex = 57
  167.       OnClick = RefreshClick
  168.     end
  169.     object N1: TMenuItem
  170.       Caption = '-'
  171.     end
  172.     object Delete: TMenuItem
  173.       Caption = 'Delete'
  174.       ImageIndex = 125
  175.       OnClick = DeleteClick
  176.     end
  177.     object DeleteAll: TMenuItem
  178.       Caption = 'Delete All'
  179.       ImageIndex = 58
  180.       OnClick = DeleteAllClick
  181.     end
  182.   end
  183. end
  184.