pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

M source/mainform.lfm

Browse Source 
M    source/mainform.pas


git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1869 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
yangjixian
2011-08-30 01:42:36 +00:00
parent 20c57c5180
commit e801f62380
2 changed files with 38 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
applications/cactusjukebox/source/mainform.lfm
View File

@ -1,11 +1,11 @@
object Main: TMain object Main: TMain
Left = 184 Left = 191
Height = 624 Height = 624
Top = 61 Top = 61
Width = 893 Width = 893
ActiveControl = Panel4 ActiveControl = Panel4
Caption = 'titel' Caption = 'titel'
ClientHeight = 602 ClientHeight = 597
ClientWidth = 893 ClientWidth = 893
Icon.Data = { Icon.Data = {
3E42000000000100010040400000010020002842000016000000280000004000 3E42000000000100010040400000010020002842000016000000280000004000
@ -547,8 +547,8 @@ object Main: TMain
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 22 Height = 23
Top = 580 Top = 574
Width = 893 Width = 893
Panels = < Panels = <
item item
@ -562,7 +562,7 @@ object Main: TMain
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 288 Left = 288
Height = 580 Height = 574
Top = 0 Top = 0
Width = 8 Width = 8
AutoSnap = False AutoSnap = False
@ -572,19 +572,19 @@ object Main: TMain
end end
object Panel1: TPanel object Panel1: TPanel
Left = 296 Left = 296
Height = 580 Height = 574
Top = 0 Top = 0
Width = 597 Width = 597
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 580 ClientHeight = 574
ClientWidth = 597 ClientWidth = 597
TabOrder = 0 TabOrder = 0
OnClick = Panel1Click OnClick = Panel1Click
OnResize = Panel1Resize OnResize = Panel1Resize
object TitleTree: TListView object TitleTree: TListView
Left = 0 Left = 0
Height = 150 Height = 144
Top = 5 Top = 5
Width = 587 Width = 587
Align = alTop Align = alTop
@ -599,23 +599,27 @@ object Main: TMain
item item
AutoSize = True AutoSize = True
Caption = 'Artist' Caption = 'Artist'
Width = 567 Width = 44
end end
item item
AutoSize = True AutoSize = True
Caption = 'Title' Caption = 'Title'
Width = 39
end end
item item
AutoSize = True AutoSize = True
Caption = 'Album' Caption = 'Album'
Width = 52
end end
item item
AutoSize = True AutoSize = True
Caption = 'Track' Caption = 'Track'
Width = 44
end end
item item
AutoSize = True AutoSize = True
Caption = 'Genre' Caption = 'Genre'
Width = 49
end end
item item
AutoSize = True AutoSize = True
@ -627,7 +631,7 @@ object Main: TMain
AutoSize = True AutoSize = True
Caption = 'Length' Caption = 'Length'
MaxWidth = 60 MaxWidth = 60
Width = 57 Width = 341
end> end>
PopupMenu = titlelistmenu PopupMenu = titlelistmenu
ReadOnly = True ReadOnly = True
@ -650,7 +654,7 @@ object Main: TMain
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 10 Height = 10
Top = 155 Top = 149
Width = 597 Width = 597
Align = alTop Align = alTop
ResizeAnchor = akTop ResizeAnchor = akTop
@ -658,7 +662,7 @@ object Main: TMain
object Panel3: TPanel object Panel3: TPanel
Left = 0 Left = 0
Height = 415 Height = 415
Top = 165 Top = 159
Width = 597 Width = 597
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
@ -843,7 +847,7 @@ object Main: TMain
end end
object current_title_edit: TEdit object current_title_edit: TEdit
Left = 12 Left = 12
Height = 21 Height = 27
Top = 109 Top = 109
Width = 200 Width = 200
Color = clBtnFace Color = clBtnFace
@ -852,7 +856,7 @@ object Main: TMain
end end
object current_title_edit1: TEdit object current_title_edit1: TEdit
Left = 12 Left = 12
Height = 21 Height = 27
Top = 141 Top = 141
Width = 200 Width = 200
Color = clBtnFace Color = clBtnFace
@ -861,9 +865,9 @@ object Main: TMain
end end
object randomcheck: TCheckBox object randomcheck: TCheckBox
Left = 135 Left = 135
Height = 19 Height = 23
Top = 257 Top = 257
Width = 62 Width = 76
Caption = 'Random' Caption = 'Random'
OnChange = randomcheckChange OnChange = randomcheckChange
TabOrder = 3 TabOrder = 3
@ -915,7 +919,7 @@ object Main: TMain
item item
AutoSize = True AutoSize = True
Caption = 'Playlist' Caption = 'Playlist'
Width = 344 Width = 346
end> end>
PopupMenu = playlistmenu PopupMenu = playlistmenu
ReadOnly = True ReadOnly = True
@ -946,10 +950,10 @@ object Main: TMain
TabOrder = 2 TabOrder = 2
object filetypebox: TComboBox object filetypebox: TComboBox
Left = 360 Left = 360
Height = 21 Height = 27
Top = 8 Top = 8
Width = 90 Width = 90
ItemHeight = 13 ItemHeight = 0
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'all types' 'all types'
@ -967,7 +971,7 @@ object Main: TMain
end end
object searchstr: TEdit object searchstr: TEdit
Left = 120 Left = 120
Height = 21 Height = 27
Top = 8 Top = 8
Width = 232 Width = 232
OnKeyUp = searchstrKeyUp OnKeyUp = searchstrKeyUp
@ -1009,11 +1013,11 @@ object Main: TMain
end end
object clear_list: TBitBtn object clear_list: TBitBtn
AnchorSideBottom.Side = asrCenter AnchorSideBottom.Side = asrCenter
Left = 499 Left = 517
Height = 30 Height = 30
Hint = 'Clear Playlist' Hint = 'Clear Playlist'
Top = 7 Top = 7
Width = 84 Width = 66
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
Caption = 'Clear' Caption = 'Clear'
@ -1080,9 +1084,9 @@ object Main: TMain
end end
object lblPath: TLabel object lblPath: TLabel
Left = 8 Left = 8
Height = 14 Height = 20
Top = 56 Top = 56
Width = 50 Width = 46
Caption = 'lblPath' Caption = 'lblPath'
ParentColor = False ParentColor = False
end end
@ -1090,19 +1094,19 @@ object Main: TMain
end end
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Height = 580 Height = 574
Top = 0 Top = 0
Width = 288 Width = 288
Align = alLeft Align = alLeft
BorderSpacing.InnerBorder = 30 BorderSpacing.InnerBorder = 30
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 580 ClientHeight = 574
ClientWidth = 288 ClientWidth = 288
TabOrder = 1 TabOrder = 1
OnClick = Panel4Click OnClick = Panel4Click
object ArtistTree: TTreeView object ArtistTree: TTreeView
Left = 26 Left = 26
Height = 570 Height = 564
Top = 5 Top = 5
Width = 259 Width = 259
Align = alClient Align = alClient
@ -1112,7 +1116,7 @@ object Main: TMain
BorderSpacing.InnerBorder = 20 BorderSpacing.InnerBorder = 20
BorderSpacing.CellAlignHorizontal = ccaLeftTop BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaLeftTop BorderSpacing.CellAlignVertical = ccaLeftTop
DefaultItemHeight = 16 DefaultItemHeight = 22
DragMode = dmAutomatic DragMode = dmAutomatic
ExpandSignType = tvestArrow ExpandSignType = tvestArrow
Images = ImageList1 Images = ImageList1
@ -1143,9 +1147,9 @@ object Main: TMain
OnClick = ArtistSrchFieldClick OnClick = ArtistSrchFieldClick
object Label2: TLabel object Label2: TLabel
Left = 77 Left = 77
Height = 14 Height = 20
Top = 8 Top = 8
Width = 43 Width = 44
Caption = 'Search' Caption = 'Search'
ParentColor = False ParentColor = False
end end
@ -1196,7 +1200,7 @@ object Main: TMain
end end
object artistsearch: TEdit object artistsearch: TEdit
Left = 8 Left = 8
Height = 21 Height = 27
Top = 32 Top = 32
Width = 110 Width = 110
OnKeyUp = ArtistTreeKeyUp OnKeyUp = ArtistTreeKeyUp
@ -1206,7 +1210,7 @@ object Main: TMain
end end
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Height = 575 Height = 569
Top = 5 Top = 5
Width = 26 Width = 26
Align = alLeft Align = alLeft

8
applications/cactusjukebox/source/mainform.pas
View File

@ -2258,21 +2258,17 @@ function TMain.LoadFile(path: string): boolean;
var var
z: integer; z: integer;
aPath: string;
listitem: TListItem; listitem: TListItem;
begin begin
DebugOutLn('** Loadfile **', 2); DebugOutLn('** Loadfile **', 2);
Application.ProcessMessages; Application.ProcessMessages;
//Ubuntu need this {$IFDEF WINDOWS} if FileExistsUTF8(Path) then
aPath := UTF8Decode(path);
// {$ENDIF}
if FileExists(aPath) then
begin begin
z := MediaCollection.GetIndexByPath(path); z := MediaCollection.GetIndexByPath(path);
DebugOutLn(z, 3); DebugOutLn(z, 3);
if z < 0 then if z < 0 then
begin begin
z := MediaCollection.add(apath); z := MediaCollection.add(path);
end; end;
PlayerObj.playlist.add(MediaCollection.items[z]); PlayerObj.playlist.add(MediaCollection.items[z]);
ListItem := Playlist.Items.Add; ListItem := Playlist.Items.Add;