Changeset 353 for CoolAudio/Demo/UFormPlaylist.lfm

Timestamp:

Apr 23, 2012, 2:57:12 PM (12 years ago)

Author:

chronos

Message:

• Modified: TPlayList is now registred as component in group CoolAudio in Component pallete.
• Added: Created placeholder component TMediaPlayer which can be switched to different audio systems in runtime without destruction/construction.

File:

• CoolAudio/Demo/UFormPlaylist.lfm (modified) (9 diffs)

CoolAudio/Demo/UFormPlaylist.lfm

@@ -1 +1 @@
 object FormPlaylist: TFormPlaylist
-  Left = 310
-  Height = 394
-  Top = 73
+  Left = 331
+  Height = 400
+  Top = 119
   Width = 516
   Caption = 'Playlist'
-  ClientHeight = 394
+  ClientHeight = 400
   ClientWidth = 516
   OnCreate = FormCreate
@@ -14 +14 @@
     Left = 160
     Height = 25
-    Top = 360
+    Top = 366
     Width = 49
     Action = AItemDelete
@@ -23 +23 @@
     Left = 80
     Height = 25
-    Top = 360
+    Top = 366
     Width = 73
     Action = AAddDirectory
@@ -32 +32 @@
     Left = 8
     Height = 25
-    Top = 360
+    Top = 366
     Width = 65
     Action = AAddFile
@@ -40 +40 @@
   object ListView1: TListView
     Left = 8
-    Height = 344
+    Height = 350
     Top = 8
     Width = 505
@@ -65 +65 @@
     Left = 216
     Height = 25
-    Top = 360
+    Top = 366
     Width = 49
     Action = AClearAll
@@ -74 +74 @@
     Left = 328
     Height = 17
-    Top = 360
+    Top = 366
     Width = 88
     Anchors = [akLeft, akBottom]
@@ -83 +83 @@
     Left = 432
     Height = 17
-    Top = 360
+    Top = 366
     Width = 55
+    Anchors = [akLeft, akBottom]
     Caption = 'Repeat'
     TabOrder = 6
@@ -91 +92 @@
     Left = 272
     Height = 25
-    Top = 360
+    Top = 366
     Width = 51
     Action = AItemPlay
+    Anchors = [akLeft, akBottom]
     TabOrder = 7
   end