MPS/data.pas

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

MPS/main.lfm

@@ -1,12 +1,12 @@
 object Form1: TForm1
-  Left = 580
+  Left = 584
   Height = 649
-  Top = 117
+  Top = 165
   Width = 766
   ActiveControl = Notebook1
   AllowDropFiles = True
   Caption = 'Form1'
-  ClientHeight = 629
+  ClientHeight = 618
   ClientWidth = 766
   Menu = MainMenu1
   OnDropFiles = FormDropFiles
@@ -15,7 +15,7 @@ object Form1: TForm1
   LCLVersion = '1.5'
   object IGrid: TMyDrawGrid
     Left = 136
-    Height = 629
+    Height = 618
     Top = 0
     Width = 400
     Align = alClient
@@ -30,7 +30,7 @@ object Form1: TForm1
       end    
       item
         Title.Caption = ''
-        Width = 170
+        Width = 172
       end>
     DefaultRowHeight = 80
     ExtendedSelect = False
@@ -44,22 +44,22 @@ object Form1: TForm1
     ColWidths = (
       64
       160
-      170
+      172
     )
   end
   object Panel1: TPanel
     Left = 536
-    Height = 629
+    Height = 618
     Top = 0
     Width = 230
     Align = alRight
     Caption = 'Panel1'
-    ClientHeight = 629
+    ClientHeight = 618
     ClientWidth = 230
     TabOrder = 1
     object EditButton1: TEditButton
       Left = 40
-      Height = 22
+      Height = 31
       Top = 312
       Width = 103
       NumbersOnly = True
@@ -14835,14 +14835,6 @@ 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
@@ -14854,7 +14846,7 @@ object Form1: TForm1
   end
   object PageControl1: TPageControl
     Left = 0
-    Height = 629
+    Height = 618
     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, ShellCtrls, CustomDrawnControls;
+  ActnList, Menus;
 
 type
 
@@ -41,7 +41,6 @@ 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="80">
+    <Units Count="71">
       <Unit0>
         <Filename Value="mps.lpr"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
-        <CursorPos X="70" Y="14"/>
+        <CursorPos X="20" Y="10"/>
-        <UsageCount Value="122"/>
+        <UsageCount Value="113"/>
       </Unit0>
       <Unit1>
         <Filename Value="main.pas"/>
@@ -135,10 +135,10 @@
         <ComponentName Value="Form1"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <CursorPos X="18" Y="14"/>
+        <EditorIndex Value="-1"/>
-        <UsageCount Value="122"/>
+        <TopLine Value="4"/>
-        <Loaded Value="True"/>
+        <CursorPos X="47" Y="16"/>
-        <LoadedDesigner Value="True"/>
+        <UsageCount Value="113"/>
       </Unit1>
       <Unit2>
         <Filename Value="versionsupport.pas"/>
@@ -147,7 +147,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="221"/>
         <CursorPos X="12" Y="253"/>
-        <UsageCount Value="122"/>
+        <UsageCount Value="113"/>
       </Unit2>
       <Unit3>
         <Filename Value="uabout.pas"/>
@@ -174,7 +174,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="16"/>
         <CursorPos X="10" Y="42"/>
-        <UsageCount Value="122"/>
+        <UsageCount Value="113"/>
       </Unit5>
       <Unit6>
         <Filename Value="uabout.lfm"/>
@@ -185,10 +185,11 @@
       <Unit7>
         <Filename Value="data.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="-1"/>
+        <EditorIndex Value="3"/>
-        <TopLine Value="6"/>
+        <TopLine Value="179"/>
-        <CursorPos X="12" Y="9"/>
+        <CursorPos Y="211"/>
-        <UsageCount Value="122"/>
+        <UsageCount Value="113"/>
+        <Loaded Value="True"/>
       </Unit7>
       <Unit8>
         <Filename Value="/opt/fpcsrc/packages/proj4/src/proj.pas"/>
@@ -266,9 +267,9 @@
       <Unit18>
         <Filename Value="/opt/lazarus/lcl/include/control.inc"/>
         <EditorIndex Value="-1"/>
-        <TopLine Value="3641"/>
+        <TopLine Value="2710"/>
-        <CursorPos Y="3657"/>
+        <CursorPos Y="2728"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="7"/>
       </Unit18>
       <Unit19>
         <Filename Value="resize1.pas"/>
@@ -285,10 +286,11 @@
       </Unit20>
       <Unit21>
         <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <EditorIndex Value="-1"/>
+        <EditorIndex Value="2"/>
         <TopLine Value="66"/>
-        <CursorPos X="10" Y="72"/>
+        <CursorPos X="14" Y="82"/>
         <UsageCount Value="14"/>
+        <Loaded Value="True"/>
       </Unit21>
       <Unit22>
         <Filename Value="/opt/lazarus/lcl/include/rasterimage.inc"/>
@@ -389,9 +391,9 @@
       <Unit35>
         <Filename Value="/opt/fpcsrc/rtl/objpas/classes/classesh.inc"/>
         <EditorIndex Value="-1"/>
-        <TopLine Value="667"/>
+        <TopLine Value="318"/>
-        <CursorPos X="3" Y="604"/>
+        <CursorPos X="14" Y="333"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
       </Unit35>
       <Unit36>
         <Filename Value="/opt/fpcsrc/rtl/inc/objpash.inc"/>
@@ -505,11 +507,12 @@
         <UsageCount Value="7"/>
       </Unit50>
       <Unit51>
-        <Filename Value="../MyDrawGrid/mydrawgrid.pas"/>
+        <Filename Value="../../MyPresenter1.0/MyDrawGrid/mydrawgrid.pas"/>
         <UnitName Value="MyDrawGrid"/>
         <EditorIndex Value="-1"/>
+        <TopLine Value="225"/>
         <CursorPos X="80" Y="247"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="8"/>
       </Unit51>
       <Unit52>
         <Filename Value="song.pas"/>
@@ -517,17 +520,18 @@
         <ComponentName Value="frmSong"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <EditorIndex Value="-1"/>
+        <TopLine Value="21"/>
-        <TopLine Value="91"/>
+        <CursorPos X="15" Y="37"/>
-        <CursorPos Y="82"/>
+        <UsageCount Value="59"/>
-        <UsageCount Value="68"/>
+        <Loaded Value="True"/>
       </Unit52>
       <Unit53>
-        <Filename Value="../MyDrawGrid/mygrids.pas"/>
+        <Filename Value="../../MyPresenter1.0/MyDrawGrid/mygrids.pas"/>
-        <EditorIndex Value="-1"/>
+        <IsVisibleTab Value="True"/>
-        <TopLine Value="7"/>
+        <EditorIndex Value="1"/>
-        <CursorPos X="16" Y="19"/>
+        <CursorPos X="10" Y="16"/>
-        <UsageCount Value="17"/>
+        <UsageCount Value="14"/>
+        <Loaded Value="True"/>
       </Unit53>
       <Unit54>
         <Filename Value="../../../Documents/MyPresenter1.0/MyDrawGrid/mygrids.pas"/>
@@ -560,7 +564,7 @@
         <UsageCount Value="7"/>
       </Unit57>
       <Unit58>
-        <Filename Value="../units/resize.pas"/>
+        <Filename Value="../../MyPresenter1.0/units/resize.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="58"/>
         <CursorPos Y="86"/>
@@ -638,7 +642,7 @@
         <UsageCount Value="9"/>
       </Unit68>
       <Unit69>
-        <Filename Value="../bgrabitmap/bgradefaultbitmap.pas"/>
+        <Filename Value="../../MyPresenter1.0/bgrabitmap/bgradefaultbitmap.pas"/>
         <UnitName Value="BGRADefaultBitmap"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="1884"/>
@@ -652,125 +656,120 @@
         <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="12" HistoryIndex="11">
+    <JumpHistory Count="28" HistoryIndex="27">
       <Position1>
-        <Filename Value="main.pas"/>
+        <Filename Value="../../MyPresenter1.0/MyDrawGrid/mygrids.pas"/>
-        <Caret Line="46" Column="28" TopLine="25"/>
+        <Caret Line="46" Column="4" TopLine="25"/>
       </Position1>
       <Position2>
-        <Filename Value="main.pas"/>
+        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="44" Column="25" TopLine="26"/>
+        <Caret Line="822" Column="29" TopLine="819"/>
       </Position2>
       <Position3>
-        <Filename Value="main.pas"/>
+        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="44" Column="21" TopLine="23"/>
+        <Caret Line="956" Column="36" TopLine="929"/>
       </Position3>
       <Position4>
-        <Filename Value="main.pas"/>
+        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="44" Column="22" TopLine="23"/>
+        <Caret Line="76" Column="25" TopLine="60"/>
       </Position4>
       <Position5>
-        <Filename Value="main.pas"/>
+        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="44" Column="22" TopLine="23"/>
+        <Caret Line="98" Column="25" TopLine="71"/>
       </Position5>
       <Position6>
-        <Filename Value="main.pas"/>
+        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="17" Column="24" TopLine="8"/>
+        <Caret Line="239" Column="55" TopLine="213"/>
       </Position6>
       <Position7>
-        <Filename Value="main.pas"/>
+        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="17" Column="24" TopLine="8"/>
+        <Caret Line="794" Column="33" TopLine="767"/>
       </Position7>
       <Position8>
-        <Filename Value="main.pas"/>
+        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="16" Column="24" TopLine="8"/>
+        <Caret Line="799" Column="18" TopLine="772"/>
       </Position8>
       <Position9>
-        <Filename Value="main.pas"/>
+        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="17" Column="23" TopLine="8"/>
+        <Caret Line="800" Column="23" TopLine="773"/>
       </Position9>
       <Position10>
-        <Filename Value="main.pas"/>
+        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="16" Column="24" TopLine="8"/>
+        <Caret Line="956" Column="36" TopLine="929"/>
       </Position10>
       <Position11>
-        <Filename Value="main.pas"/>
+        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="17" Column="17" TopLine="8"/>
+        <Caret Line="963" Column="18" TopLine="936"/>
       </Position11>
       <Position12>
-        <Filename Value="main.pas"/>
+        <Filename Value="/opt/fpcsrc/packages/fcl-base/src/contnrs.pp"/>
-        <Caret Line="16" Column="24" TopLine="8"/>
+        <Caret Line="964" Column="24" TopLine="937"/>
       </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>
@@ -799,6 +798,15 @@
     </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,7 +2,6 @@
 <CONFIG>
   <Package Version="4">
     <Name Value="my_drawgrid"/>
-    <Type Value="RunAndDesignTime"/>
     <CompilerOptions>
       <Version Value="11"/>
       <SearchPaths>
@@ -16,8 +15,11 @@
           <UseExternalDbgSyms Value="True"/>
         </Debugging>
       </Linking>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
     </CompilerOptions>
-    <Files Count="5">
+    <Files Count="3">
       <Item1>
         <Filename Value="mydrawgrid.pas"/>
         <HasRegisterProc Value="True"/>
@@ -31,31 +33,21 @@
         <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>
-    <RequiredPkgs Count="5">
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="4">
       <Item1>
-        <PackageName Value="virtualtreeview_package"/>
+        <PackageName Value="PasLibVlcPlayer"/>
       </Item1>
       <Item2>
-        <PackageName Value="PasLibVlcPlayer"/>
+        <PackageName Value="BGRABitmapPack"/>
       </Item2>
       <Item3>
-        <PackageName Value="BGRABitmapPack"/>
+        <PackageName Value="LCL"/>
       </Item3>
       <Item4>
-        <PackageName Value="LCL"/>
-      </Item4>
-      <Item5>
         <PackageName Value="FCL"/>
-      </Item5>
+      </Item4>
     </RequiredPkgs>
     <UsageOptions>
       <UnitPath Value="$(PkgOutDir)"/>

MyDrawGrid/my_drawgrid.pas

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

MyDrawGrid/mydrawgrid.pas

@@ -510,6 +510,14 @@ 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

@@ -1,32 +0,0 @@
-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

@@ -1,51 +0,0 @@
-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,17 +10,10 @@ type
  { TSongPart }
  TSongType = (Slide, Intro, Verse, PreChorus, Chorus, Bridge, Conclusion, Solo);
  PSong = ^TSong;
- TSong = class(TFPObjectList)
+ TSong = class(TObjectList)
    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)
@@ -29,7 +22,7 @@ type
    public
    ParentSong: PSong;
    FImg, FResImg, FThumb: TBGRABitmap;
-   FText, FNote, FPath, FComments: String;
+   FText, FNote, FPath: String;
    FIsVideo, First, Last: Boolean;
    FSongType: TSongType;
    constructor create();
@@ -124,7 +117,7 @@ begin
     FResImg.Free;
   if FThumb<>Nil then
     FThumb.Free;
-  //Dispose(PSong);
+  Dispose(PSong, Destroy);
   FNote := '';
   FText := '';
   FIsVideo := False;

MyDrawGrid/treegrid_icon.lrs

@@ -1,50 +0,0 @@
-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

@@ -1,4 +0,0 @@
-#!/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

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

free_images/morgueFile/png/.directory

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

free_images/morgueFile/raw/.directory

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

free_images/pixbay/.directory

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