cleanup script

MPS/data.pas

@@ -29,6 +29,7 @@ procedure AddSlide(sld: TSongPart);
 procedure setSlide(i: Integer);
 procedure showProjection();
 procedure showSong();
+procedure saveSong();
 
 implementation
 uses main, projection;
@@ -209,5 +210,10 @@ begin
   frmSong.Show;
 end;
 
+procedure saveSong;
+begin
+
+end;
+
 end.
 

MPS/main.lfm

@@ -1,12 +1,12 @@
 object Form1: TForm1
-  Left = 584
+  Left = 580
   Height = 649
-  Top = 165
+  Top = 117
   Width = 766
   ActiveControl = Notebook1
   AllowDropFiles = True
   Caption = 'Form1'
-  ClientHeight = 618
+  ClientHeight = 629
   ClientWidth = 766
   Menu = MainMenu1
   OnDropFiles = FormDropFiles
@@ -15,7 +15,7 @@ object Form1: TForm1
   LCLVersion = '1.5'
   object IGrid: TMyDrawGrid
     Left = 136
-    Height = 618
+    Height = 629
     Top = 0
     Width = 400
     Align = alClient
@@ -30,7 +30,7 @@ object Form1: TForm1
       end    
       item
         Title.Caption = ''
-        Width = 172
+        Width = 170
       end>
     DefaultRowHeight = 80
     ExtendedSelect = False
@@ -44,22 +44,22 @@ object Form1: TForm1
     ColWidths = (
       64
       160
-      172
+      170
     )
   end
   object Panel1: TPanel
     Left = 536
-    Height = 618
+    Height = 629
     Top = 0
     Width = 230
     Align = alRight
     Caption = 'Panel1'
-    ClientHeight = 618
+    ClientHeight = 629
     ClientWidth = 230
     TabOrder = 1
     object EditButton1: TEditButton
       Left = 40
-      Height = 31
+      Height = 22
       Top = 312
       Width = 103
       NumbersOnly = True
@@ -14835,6 +14835,14 @@ object Form1: TForm1
       }
       OnClick = BGRAResizeSpeedButton2Click
     end
+    object TreeView1: TTreeView
+      Left = 0
+      Height = 295
+      Top = 1
+      Width = 228
+      DefaultItemHeight = 16
+      TabOrder = 3
+    end
   end
   object Notebook1: TNotebook
     Left = 56
@@ -14846,7 +14854,7 @@ object Form1: TForm1
   end
   object PageControl1: TPageControl
     Left = 0
-    Height = 618
+    Height = 629
     Top = 0
     Width = 136
     Align = alLeft

MPS/main.pas

@@ -7,7 +7,7 @@ interface
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   ComCtrls, StdCtrls, EditBtn, Buttons, MyDrawGrid, BGRAResizeSpeedButton, data,
-  ActnList, Menus;
+  ActnList, Menus, ShellCtrls, CustomDrawnControls;
 
 type
 
@@ -41,6 +41,7 @@ type
     OpenImgDialog: TOpenDialog;
     PageControl1: TPageControl;
     Panel1: TPanel;
+    TreeView1: TTreeview;
     procedure Action1Execute(Sender: TObject);
     procedure BGRAResizeSpeedButton1Click(Sender: TObject);
     procedure BGRAResizeSpeedButton2Click(Sender: TObject);

MPS/mps.lpi

@@ -121,13 +121,13 @@
         <PackageName Value="LCL"/>
       </Item3>
     </RequiredPackages>
-    <Units Count="71">
+    <Units Count="80">
       <Unit0>
         <Filename Value="mps.lpr"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
-        <CursorPos X="20" Y="10"/>
-        <UsageCount Value="113"/>
+        <CursorPos X="70" Y="14"/>
+        <UsageCount Value="122"/>
       </Unit0>
       <Unit1>
         <Filename Value="main.pas"/>
@@ -135,10 +135,10 @@
         <ComponentName Value="Form1"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="4"/>
-        <CursorPos X="47" Y="16"/>
-        <UsageCount Value="113"/>
+        <CursorPos X="18" Y="14"/>
+        <UsageCount Value="122"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit1>
       <Unit2>
         <Filename Value="versionsupport.pas"/>
@@ -147,7 +147,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="221"/>
         <CursorPos X="12" Y="253"/>
-        <UsageCount Value="113"/>
+        <UsageCount Value="122"/>
       </Unit2>
       <Unit3>
         <Filename Value="uabout.pas"/>
@@ -174,7 +174,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="16"/>
         <CursorPos X="10" Y="42"/>
-        <UsageCount Value="113"/>
+        <UsageCount Value="122"/>
       </Unit5>
       <Unit6>
         <Filename Value="uabout.lfm"/>
@@ -185,11 +185,10 @@
       <Unit7>
         <Filename Value="data.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="3"/>
-        <TopLine Value="179"/>
-        <CursorPos Y="211"/>
-        <UsageCount Value="113"/>
-        <Loaded Value="True"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="6"/>
+        <CursorPos X="12" Y="9"/>
+        <UsageCount Value="122"/>
       </Unit7>
       <Unit8>
         <Filename Value="/opt/fpcsrc/packages/proj4/src/proj.pas"/>
@@ -267,9 +266,9 @@
       <Unit18>
         <Filename Value="/opt/lazarus/lcl/include/control.inc"/>
         <EditorIndex Value="-1"/>
-        <TopLine Value="2710"/>
-        <CursorPos Y="2728"/>
-        <UsageCount Value="7"/>
+        <TopLine Value="3641"/>
+        <CursorPos Y="3657"/>
+        <UsageCount Value="10"/>
       </Unit18>
       <Unit19>
         <Filename Value="resize1.pas"/>
@@ -286,11 +285,10 @@
       </Unit20>
       <Unit21>
         <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="-1"/>
         <TopLine Value="66"/>
-        <CursorPos X="14" Y="82"/>
+        <CursorPos X="10" Y="72"/>
         <UsageCount Value="14"/>
-        <Loaded Value="True"/>
       </Unit21>
       <Unit22>
         <Filename Value="/opt/lazarus/lcl/include/rasterimage.inc"/>
@@ -391,9 +389,9 @@
       <Unit35>
         <Filename Value="/opt/fpcsrc/rtl/objpas/classes/classesh.inc"/>
         <EditorIndex Value="-1"/>
-        <TopLine Value="318"/>
-        <CursorPos X="14" Y="333"/>
-        <UsageCount Value="9"/>
+        <TopLine Value="667"/>
+        <CursorPos X="3" Y="604"/>
+        <UsageCount Value="10"/>
       </Unit35>
       <Unit36>
         <Filename Value="/opt/fpcsrc/rtl/inc/objpash.inc"/>
@@ -507,12 +505,11 @@
         <UsageCount Value="7"/>
       </Unit50>
       <Unit51>
-        <Filename Value="../../MyPresenter1.0/MyDrawGrid/mydrawgrid.pas"/>
+        <Filename Value="../MyDrawGrid/mydrawgrid.pas"/>
         <UnitName Value="MyDrawGrid"/>
         <EditorIndex Value="-1"/>
-        <TopLine Value="225"/>
         <CursorPos X="80" Y="247"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="10"/>
       </Unit51>
       <Unit52>
         <Filename Value="song.pas"/>
@@ -520,18 +517,17 @@
         <ComponentName Value="frmSong"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <TopLine Value="21"/>
-        <CursorPos X="15" Y="37"/>
-        <UsageCount Value="59"/>
-        <Loaded Value="True"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="91"/>
+        <CursorPos Y="82"/>
+        <UsageCount Value="68"/>
       </Unit52>
       <Unit53>
-        <Filename Value="../../MyPresenter1.0/MyDrawGrid/mygrids.pas"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="1"/>
-        <CursorPos X="10" Y="16"/>
-        <UsageCount Value="14"/>
-        <Loaded Value="True"/>
+        <Filename Value="../MyDrawGrid/mygrids.pas"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="7"/>
+        <CursorPos X="16" Y="19"/>
+        <UsageCount Value="17"/>
       </Unit53>
       <Unit54>
         <Filename Value="../../../Documents/MyPresenter1.0/MyDrawGrid/mygrids.pas"/>
@@ -564,7 +560,7 @@
         <UsageCount Value="7"/>
       </Unit57>
       <Unit58>
-        <Filename Value="../../MyPresenter1.0/units/resize.pas"/>
+        <Filename Value="../units/resize.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="58"/>
         <CursorPos Y="86"/>
@@ -642,7 +638,7 @@
         <UsageCount Value="9"/>
       </Unit68>
       <Unit69>
-        <Filename Value="../../MyPresenter1.0/bgrabitmap/bgradefaultbitmap.pas"/>
+        <Filename Value="../bgrabitmap/bgradefaultbitmap.pas"/>
         <UnitName Value="BGRADefaultBitmap"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="1884"/>
@@ -656,120 +652,125 @@
         <CursorPos X="16" Y="706"/>
         <UsageCount Value="9"/>
       </Unit70>
+      <Unit71>
+        <Filename Value="mps.lpr.orig"/>
+        <EditorIndex Value="-1"/>
+        <UsageCount Value="10"/>
+        <DefaultSyntaxHighlighter Value="None"/>
+      </Unit71>
+      <Unit72>
+        <Filename Value="/opt/lazarus/components/lazutils/laz2_dom.pas"/>
+        <UnitName Value="Laz2_DOM"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="86"/>
+        <CursorPos Y="116"/>
+        <UsageCount Value="10"/>
+      </Unit72>
+      <Unit73>
+        <Filename Value="/opt/fpcsrc/rtl/objpas/objpas.pp"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="26"/>
+        <CursorPos X="8" Y="40"/>
+        <UsageCount Value="10"/>
+      </Unit73>
+      <Unit74>
+        <Filename Value="treegrid.pas"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="92"/>
+        <CursorPos X="31" Y="111"/>
+        <UsageCount Value="21"/>
+      </Unit74>
+      <Unit75>
+        <Filename Value="/opt/lazarus/lcl/comctrls.pp"/>
+        <UnitName Value="ComCtrls"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="3164"/>
+        <CursorPos X="3" Y="3179"/>
+        <UsageCount Value="10"/>
+      </Unit75>
+      <Unit76>
+        <Filename Value="/opt/lazarus/lcl/include/treeview.inc"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="5052"/>
+        <CursorPos X="5" Y="5066"/>
+        <UsageCount Value="10"/>
+      </Unit76>
+      <Unit77>
+        <Filename Value="/opt/lazarus/lcl/shellctrls.pas"/>
+        <UnitName Value="ShellCtrls"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="47"/>
+        <CursorPos X="29" Y="50"/>
+        <UsageCount Value="10"/>
+      </Unit77>
+      <Unit78>
+        <Filename Value="/opt/lazarus/lcl/customdrawncontrols.pas"/>
+        <UnitName Value="CustomDrawnControls"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="170"/>
+        <CursorPos X="3" Y="197"/>
+        <UsageCount Value="10"/>
+      </Unit78>
+      <Unit79>
+        <Filename Value="../MyDrawGrid/mydrawtree.pas"/>
+        <UnitName Value="myDrawTree"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="1"/>
+        <TopLine Value="2"/>
+        <CursorPos X="27" Y="28"/>
+        <UsageCount Value="11"/>
+        <Loaded Value="True"/>
+      </Unit79>
     </Units>
-    <JumpHistory Count="28" HistoryIndex="27">
+    <JumpHistory Count="12" HistoryIndex="11">
       <Position1>
-        <Filename Value="../../MyPresenter1.0/MyDrawGrid/mygrids.pas"/>
-        <Caret Line="46" Column="4" TopLine="25"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="46" Column="28" TopLine="25"/>
       </Position1>
       <Position2>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="822" Column="29" TopLine="819"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="44" Column="25" TopLine="26"/>
       </Position2>
       <Position3>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="956" Column="36" TopLine="929"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="44" Column="21" TopLine="23"/>
       </Position3>
       <Position4>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="76" Column="25" TopLine="60"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="44" Column="22" TopLine="23"/>
       </Position4>
       <Position5>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="98" Column="25" TopLine="71"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="44" Column="22" TopLine="23"/>
       </Position5>
       <Position6>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="239" Column="55" TopLine="213"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="17" Column="24" TopLine="8"/>
       </Position6>
       <Position7>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="794" Column="33" TopLine="767"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="17" Column="24" TopLine="8"/>
       </Position7>
       <Position8>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="799" Column="18" TopLine="772"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="16" Column="24" TopLine="8"/>
       </Position8>
       <Position9>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="800" Column="23" TopLine="773"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="17" Column="23" TopLine="8"/>
       </Position9>
       <Position10>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="956" Column="36" TopLine="929"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="16" Column="24" TopLine="8"/>
       </Position10>
       <Position11>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="963" Column="18" TopLine="936"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="17" Column="17" TopLine="8"/>
       </Position11>
       <Position12>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="964" Column="24" TopLine="937"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="16" Column="24" TopLine="8"/>
       </Position12>
-      <Position13>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="969" Column="23" TopLine="942"/>
-      </Position13>
-      <Position14>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="1417" Column="63" TopLine="1390"/>
-      </Position14>
-      <Position15>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="1429" Column="24" TopLine="1402"/>
-      </Position15>
-      <Position16>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="1432" Column="33" TopLine="1405"/>
-      </Position16>
-      <Position17>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="1434" Column="34" TopLine="1407"/>
-      </Position17>
-      <Position18>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="1435" Column="27" TopLine="1408"/>
-      </Position18>
-      <Position19>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="2749" Column="18" TopLine="2719"/>
-      </Position19>
-      <Position20>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="549" Column="31" TopLine="533"/>
-      </Position20>
-      <Position21>
-        <Filename Value="../../MyPresenter1.0/MyDrawGrid/mygrids.pas"/>
-        <Caret Line="12" Column="12"/>
-      </Position21>
-      <Position22>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="72" Column="26" TopLine="56"/>
-      </Position22>
-      <Position23>
-        <Filename Value="../../MyPresenter1.0/MyDrawGrid/mygrids.pas"/>
-        <Caret Line="50" Column="51" TopLine="22"/>
-      </Position23>
-      <Position24>
-        <Filename Value="../../MyPresenter1.0/MyDrawGrid/mygrids.pas"/>
-        <Caret Line="23" Column="30" TopLine="7"/>
-      </Position24>
-      <Position25>
-        <Filename Value="../../MyPresenter1.0/MyDrawGrid/mygrids.pas"/>
-        <Caret Line="43" Column="7" TopLine="12"/>
-      </Position25>
-      <Position26>
-        <Filename Value="../../MyPresenter1.0/MyDrawGrid/mygrids.pas"/>
-        <Caret Line="52" Column="43" TopLine="31"/>
-      </Position26>
-      <Position27>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="72" Column="26" TopLine="62"/>
-      </Position27>
-      <Position28>
-        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="822" Column="23" TopLine="819"/>
-      </Position28>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>
@@ -798,15 +799,6 @@
     </Linking>
   </CompilerOptions>
   <Debugging>
-    <BreakPoints Count="1">
-      <Item1>
-        <Kind Value="bpkSource"/>
-        <WatchScope Value="wpsLocal"/>
-        <WatchKind Value="wpkWrite"/>
-        <Source Value="song.pas"/>
-        <Line Value="82"/>
-      </Item1>
-    </BreakPoints>
     <Exceptions Count="3">
       <Item1>
         <Name Value="EAbort"/>

MyDrawGrid/my_drawgrid.lpk

@@ -2,6 +2,7 @@
 <CONFIG>
   <Package Version="4">
     <Name Value="my_drawgrid"/>
+    <Type Value="RunAndDesignTime"/>
     <CompilerOptions>
       <Version Value="11"/>
       <SearchPaths>
@@ -15,11 +16,8 @@
           <UseExternalDbgSyms Value="True"/>
         </Debugging>
       </Linking>
-      <Other>
-        <CompilerPath Value="$(CompPath)"/>
-      </Other>
     </CompilerOptions>
-    <Files Count="3">
+    <Files Count="5">
       <Item1>
         <Filename Value="mydrawgrid.pas"/>
         <HasRegisterProc Value="True"/>
@@ -33,21 +31,31 @@
         <Filename Value="resize.pas"/>
         <UnitName Value="resize"/>
       </Item3>
+      <Item4>
+        <AddToUsesPkgSection Value="False"/>
+      </Item4>
+      <Item5>
+        <Filename Value="mydrawtree.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="myDrawTree"/>
+      </Item5>
     </Files>
-    <Type Value="RunAndDesignTime"/>
-    <RequiredPkgs Count="4">
+    <RequiredPkgs Count="5">
       <Item1>
-        <PackageName Value="PasLibVlcPlayer"/>
+        <PackageName Value="virtualtreeview_package"/>
       </Item1>
       <Item2>
-        <PackageName Value="BGRABitmapPack"/>
+        <PackageName Value="PasLibVlcPlayer"/>
       </Item2>
       <Item3>
-        <PackageName Value="LCL"/>
+        <PackageName Value="BGRABitmapPack"/>
       </Item3>
       <Item4>
-        <PackageName Value="FCL"/>
+        <PackageName Value="LCL"/>
       </Item4>
+      <Item5>
+        <PackageName Value="FCL"/>
+      </Item5>
     </RequiredPkgs>
     <UsageOptions>
       <UnitPath Value="$(PkgOutDir)"/>

MyDrawGrid/my_drawgrid.pas

@@ -7,13 +7,14 @@ unit my_drawgrid;
 interface
 
 uses
-  MyDrawGrid, mygrids, resize, LazarusPackageIntf;
+  MyDrawGrid, mygrids, resize, myDrawTree, LazarusPackageIntf;
 
 implementation
 
 procedure Register;
 begin
   RegisterUnit('MyDrawGrid', @MyDrawGrid.Register);
+  RegisterUnit('myDrawTree', @myDrawTree.Register);
 end;
 
 initialization

MyDrawGrid/mydrawgrid.pas

@@ -510,14 +510,6 @@ begin
   FreeThenNil(bitmap);
 end;
 
-procedure TMyDrawGrid.DrawPictureInCell(aCol, aRow: Integer; aRect: TRect);
-var bitmap: TBGRABitmap;
-begin
-  bitmap:=ResizeImage(GetSlideImage(aCol, aRow), (aRect.Right-aRect.Left), (aRect.Bottom-aRect.Top));
-  bitmap.Draw(Canvas, aRect);
-  FreeThenNil(bitmap);
-end;
-
 function TMyDrawGrid.CellNeedsCheckboxBitmaps(const aCol, aRow: Integer): boolean;
 var
   C: TGridColumn;

MyDrawGrid/mydrawtree.pas

@@ -0,0 +1,32 @@
+unit myDrawTree;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, VirtualTrees;
+
+type
+  TmyDrawTree = class(TVirtualDrawTree)
+  private
+    { Private declarations }
+  protected
+    { Protected declarations }
+  public
+    { Public declarations }
+  published
+    { Published declarations }
+  end;
+
+procedure Register;
+
+implementation
+
+procedure Register;
+begin
+  {$I mydrawtree_icon.lrs}
+  RegisterComponents('Virtual Controls',[TmyDrawTree]);
+end;
+
+end.

MyDrawGrid/mydrawtree_icon.lrs

@@ -0,0 +1,51 @@
+LazarusResources.Add('TmyDrawTree','PNG',[
+  #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
+  +#0#0#6'bKGD'#0#255#0#255#0#255#160#189#167#147#0#0#0#9'pHYs'#0#0#29#135#0#0
+  +#29#135#1#143#229#241'e'#0#0#0#7'tIME'#7#223#8#27#17#17'+zU'#140#18#0#0#4#7
+  +'IDATH'#199#181#149#207'kTW'#20#199'?'#247#190#247'&'#157#26#131#182'*'#193
+  +#130#16#23'Fk'#11#182#22'lZ'#220'tU'#196#22'!'#157#196'R'#177#171#208'U'#233
+  +#170#165#255'A'#161'Pp'#211'E'#165'.4B'#137'cV'#150#186#235#162#191#144'R'
+  +#173#253#17'jP'#12#154'L'#18'$'#147#153#201#188'7'#243#222#187'?N'#23'3Q*j'
+  +#210'J'#15'\'#222'}'#156#239#249'~9'#247#156'{'#174#226'!v'#249#24#236'?'#219
+  +#249#170#135'`'#132'{'#152#253'g'#249#247'v'#249#227#190#181'1'#31#20#31#233
+  +'Wke'#240#203'1'#158#208#138'A'#165#149'E'#186'xA'#4#9#189'0'#253#210'Y'#210
+  +'Ge'#16#174#165#172#21#131'Qo'#225#234#134#129'MH'#238#192'y'#20#144#204'51'
+  +#169#221#7#252#166#30#145'A'#184#214#17'('#173#236#134#129'M'#12'|x'#160#205
+  +'|3$6'#128#216#153#241#169'bcv'#197'v*'#241#24#2#8'Jr'#7#243#205#208'/$'#17
+  +'-'#131#246#210#201'FPk'#133#135#235#170#182#243#16#27'hu'#151#147#206'Z'#135
+  +#173''''#3#233'V'#214'j'#223'%'#246'b'#149'"B'#144#199#22#16'$L'#230#154#204
+  +#140'O'#21';E'#22#148'"Jj)"'#18#174'K'#160'4:Lyb'#146#210#232#240']'#199#9
+  +#147#1'_'#211#150'hZR'#187#207#207'6l'#31'X'#128#21'OhE'#133')'#225'4XN'#152
+  +#195#148'F{'#238#198#174'r'#149'''&'#161'4'#210'!-'#141#12#175'Y'#176'#o'#31
+  +#29':r'#244#232#208'Z'#184'U'#174#210#200'0'#171#27']>7'#233'K'#163#195'{'
+  +#128#131#128#230#159#253#231#128#231#129#227#221#255'3'#192#31'@p'#223#213
+  +#241#192#247#229#137#201#191'V9'#213'['#199#15'q'#254#204'7'#148'F'#134#7'Q\'
+  +#163's'#12#243']'#240#253'"yw_x'#0#185#6#182#3#161#242#236'>W'#158#156'>~'
+  +#248#208#189'>'#254#252'`3'#248#174#255#189#151'A'#152'('#127#245#227#127#24
+  +']'#12#191#251#206#171#136'p'#253#244#201'K'#191#171'^'#7#160#222'8'#25'EZ'
+  +#233#189#129#198#250'b'#150'#('#213#234#137'D@{5s'#165#252#169#213#133'd'#183
+  +#14#148#19#17'%'#157#156'D'#132' '#222#216'{'#237#179#243#239#135#160#7#180
+  +#214#244'Zk'#0'I'#160' '#157#6#154#10#211#204'<'#179'm'#243#214'_'#183'n'#218
+  +#142#23#135#19#131#235'34'#26'5'#154#237#218'k'#185').n'#221#226#175#238#218
+  +#217'O'#150'9'#172#247'xQ'#204'V'#238'P'#149#226#179#161#167#191#184'm'#203
+  +#183#155'w'#236#192#25#3#198#208#151#231#212#22#23#169#199#241'@'#184'P'#197
+  +#31#216#187#135#215'_'#25'1'#137#169#18#219'*'#25#13#255#243#149#159#204#210
+  +#159'5'#19#6#218#237#218#217#207''''#31#149#218'7+'#181#176#30#27'r'#9#236
+  +#169#241#139#197#133#154'w1'#152#193#161#161#248#197#177#177#136'JE'#251#165
+  +'%'#168'V'#185't'#225'B4s'#253#186#15#163#0'r'#219'f)'#190#29'5M'#149#150#173
+  +#145#169#134'KM'#139' @{'#17#149'e'#142#155#149'Zxk'#161#17#213#19'C'#230'5'
+  +#237#220'"^+'#13#218#196'qdn'#220#8#179'J%`y'#25'j5l'#146#16#0'a'#160#192'JN'
+  +#203#213'i'#187':m_'''#149':F'#178'N'#175#10'X'#239#169#199#134'zbh'#180'r'
+  +#218'Nc'#157' '#171#179'"Mq'#213'*'#210'%gy'#25#178#172'{'#147'='#136#182#184
+  +'01'#150#24#195#10'F5'#189#10#188#17#223'iU/'#138'\'#2#155'yM'#219'iR'#175'-'
+  +#16'IG'#223#7#206#153#158'$A'#199#177#151#149#21'h6'#9#188#143'<'#16'>'#253
+  +#20'z~q'#142#230#15#181#200'z'#131'#G'#240#164#177#235#137#138'D'#222'K0['
+  +#185#195#169#241#139#197'vn'#177#157')'#26#173#212#27#248#160'/'#232#133'hnj'
+  +#170'wev'#22#201's'#200's'#240#158'F'#154#178#25'tX(D'#149',M_'#200#211#220
+  +#162#164'{'#181#4'A$'#212'z'#134#192#187'V'#146#239#187'}{'#209'"'#168#142'G'
+  +#137#136#15#217#200#205#0'n'#197'I'#242'\'#210'j)'#186'='#140#8#136#132#5#168
+  +#240#127#155'z'#243'd'#225#161#175#191#14#13#151'N'#127'A'#207#147#213#7#6'W'
+  +'{'#183#240'ey'#236#238#252'x'#208#155#254'7'#198'V[H'#160#223'P'#154#0#0#0#0
+  +'IEND'#174'B`'#130
+]);
+

MyDrawGrid/mygrids.pas

@@ -10,10 +10,17 @@ type
  { TSongPart }
  TSongType = (Slide, Intro, Verse, PreChorus, Chorus, Bridge, Conclusion, Solo);
  PSong = ^TSong;
- TSong = class(TObjectList)
+ TSong = class(TFPObjectList)
    private
    protected
+   commentI: IntegerArray;
    public
+   themes, comments: TStrings;
+   reseaseDate, modifyDate, copyDate: TDate;
+   version: Double;
+   ver, lang, copyrighht, key, vOrder: String;
+   keywords, lines, authors: TStrings;
+   ccliNo, transpo: Integer;
  end;
 
  TSongPart=class(TObject)
@@ -22,7 +29,7 @@ type
    public
    ParentSong: PSong;
    FImg, FResImg, FThumb: TBGRABitmap;
-   FText, FNote, FPath: String;
+   FText, FNote, FPath, FComments: String;
    FIsVideo, First, Last: Boolean;
    FSongType: TSongType;
    constructor create();
@@ -117,7 +124,7 @@ begin
     FResImg.Free;
   if FThumb<>Nil then
     FThumb.Free;
-  Dispose(PSong, Destroy);
+  //Dispose(PSong);
   FNote := '';
   FText := '';
   FIsVideo := False;

MyDrawGrid/treegrid_icon.lrs

@@ -0,0 +1,50 @@
+LazarusResources.Add('TTreegrid','PNG',[
+  #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
+  +#0#0#6'bKGD'#0#255#0#255#0#255#160#189#167#147#0#0#0#9'pHYs'#0#0#29#135#0#0
+  +#29#135#1#143#229#241'e'#0#0#0#7'tIME'#7#223#8#27#17#17'+zU'#140#18#0#0#4#7
+  +'IDATH'#199#181#149#207'kTW'#20#199'?'#247#190#247'&'#157#26#131#182'*'#193
+  +#130#16#23'Fk'#11#182#22'lZ'#220'tU'#196#22'!'#157#196'R'#177#171#208'U'#233
+  +#170#165#255'A'#161'Pp'#211'E'#165'.4B'#137'cV'#150#186#235#162#191#144'R'
+  +#173#253#17'jP'#12#154'L'#18'$'#147#153#201#188'7'#243#222#187'?N'#23'3Q*j'
+  +#210'J'#15'\'#222'}'#156#239#249'~9'#247#156'{'#174#226'!v'#249#24#236'?'#219
+  +#249#170#135'`'#132'{'#152#253'g'#249#247'v'#249#227#190#181'1'#31#20#31#233
+  +'Wke'#240#203'1'#158#208#138'A'#165#149'E'#186'xA'#4#9#189'0'#253#210'Y'#210
+  +'Ge'#16#174#165#172#21#131'Qo'#225#234#134#129'MH'#238#192'y'#20#144#204'51'
+  +#169#221#7#252#166#30#145'A'#184#214#17'('#173#236#134#129'M'#12'|x'#160#205
+  +'|3$6'#128#216#153#241#169'bcv'#197'v*'#241#24#2#8'Jr'#7#243#205#208'/$'#17
+  +'-'#131#246#210#201'FPk'#133#135#235#170#182#243#16#27'hu'#151#147#206'Z'#135
+  +#173''''#3#233'V'#214'j'#223'%'#246'b'#149'"B'#144#199#22#16'$L'#230#154#204
+  +#140'O'#21';E'#22#148'"Jj)"'#18#174'K'#160'4:Lyb'#146#210#232#240']'#199#9
+  +#147#1'_'#211#150'hZR'#187#207#207'6l'#31'X'#128#21'OhE'#133')'#225'4XN'#152
+  +#195#148'F{'#238#198#174'r'#149'''&'#161'4'#210'!-'#141#12#175'Y'#176'#o'#31
+  +#29':r'#244#232#208'Z'#184'U'#174#210#200'0'#171#27']>7'#233'K'#163#195'{'
+  +#128#131#128#230#159#253#231#128#231#129#227#221#255'3'#192#31'@p'#223#213
+  +#241#192#247#229#137#201#191'V9'#213'['#199#15'q'#254#204'7'#148'F'#134#7'Q\'
+  +#163's'#12#243']'#240#253'"yw_x'#0#185#6#182#3#161#242#236'>W'#158#156'>~'
+  +#248#208#189'>'#254#252'`3'#248#174#255#189#151'A'#152'('#127#245#227#127#24
+  +']'#12#191#251#206#171#136'p'#253#244#201'K'#191#171'^'#7#160#222'8'#25'EZ'
+  +#233#189#129#198#250'b'#150'#('#213#234#137'D@{5s'#165#252#169#213#133'd'#183
+  +#14#148#19#17'%'#157#156'D'#132' '#222#216'{'#237#179#243#239#135#160#7#180
+  +#214#244'Zk'#0'I'#160' '#157#6#154#10#211#204'<'#179'm'#243#214'_'#183'n'#218
+  +#142#23#135#19#131#235'34'#26'5'#154#237#218'k'#185').n'#221#226#175#238#218
+  +#217'O'#150'9'#172#247'xQ'#204'V'#238'P'#149#226#179#161#167#191#184'm'#203
+  +#183#155'w'#236#192#25#3#198#208#151#231#212#22#23#169#199#241'@'#184'P'#197
+  +#31#216#187#135#215'_'#25'1'#137#169#18#219'*'#25#13#255#243#149#159#204#210
+  +#159'5'#19#6#218#237#218#217#207''''#31#149#218'7+'#181#176#30#27'r'#9#236
+  +#169#241#139#197#133#154'w1'#152#193#161#161#248#197#177#177#136'JE'#251#165
+  +'%'#168'V'#185't'#225'B4s'#253#186#15#163#0'r'#219'f)'#190#29'5M'#149#150#173
+  +#145#169#134'KM'#139' @{'#17#149'e'#142#155#149'Zxk'#161#17#213#19'C'#230'5'
+  +#237#220'"^+'#13#218#196'qdn'#220#8#179'J%`y'#25'j5l'#146#16#0'a'#160#192'JN'
+  +#203#213'i'#187':m_'''#149':F'#178'N'#175#10'X'#239#169#199#134'zbh'#180'r'
+  +#218'Nc'#157' '#171#179'"Mq'#213'*'#210'%gy'#25#178#172'{'#147'='#136#182#184
+  +'01'#150#24#195#10'F5'#189#10#188#17#223'iU/'#138'\'#2#155'yM'#219'iR'#175'-'
+  +#16'IG'#223#7#206#153#158'$A'#199#177#151#149#21'h6'#9#188#143'<'#16'>'#253
+  +#20'z~q'#142#230#15#181#200'z'#131'#G'#240#164#177#235#137#138'D'#222'K0['
+  +#185#195#169#241#139#197'vn'#177#157')'#26#173#212#27#248#160'/'#232#133'hnj'
+  +#170'wev'#22#201's'#200's'#240#158'F'#154#178#25'tX(D'#149',M_'#200#211#220
+  +#162#164'{'#181#4'A$'#212'z'#134#192#187'V'#146#239#187'}{'#209'"'#168#142'G'
+  +#137#136#15#217#200#205#0'n'#197'I'#242'\'#210'j)'#186'='#140#8#136#132#5#168
+  +#240#127#155'z'#243'd'#225#161#175#191#14#13#151'N'#127'A'#207#147#213#7#6'W'
+  +'{'#183#240'ey'#236#238#252'x'#208#155#254'7'#198'V[H'#160#223'P'#154#0#0#0#0
+  +'IEND'#174'B`'#130
+]);

cleanup.sh

@@ -0,0 +1,4 @@
+#!/bin/bash
+find -name \*|grep -E '*\.(dbg|bak|ppu|o|compiled)'|xargs rm 
+find -name \* -type d|grep -E '/lib'|grep -v '/lib/'|xargs rmdir
+rm -f MPS/mps

free_images/morgueFile/.directory

@@ -1,4 +0,0 @@
-[Dolphin]
-PreviewsShown=true
-Timestamp=2015,8,8,12,25,41
-Version=3

free_images/morgueFile/png/.directory

@@ -1,4 +0,0 @@
-[Dolphin]
-PreviewsShown=true
-Timestamp=2015,8,8,13,31,25
-Version=3

free_images/morgueFile/raw/.directory

@@ -1,4 +0,0 @@
-[Dolphin]
-PreviewsShown=true
-Timestamp=2015,8,8,13,31,8
-Version=3

free_images/pixbay/.directory

@@ -1,4 +0,0 @@
-[Dolphin]
-PreviewsShown=true
-Timestamp=2015,8,8,12,40,26
-Version=3