Tolls/LazDataDesktop: Remove unneeded res files. Unscramble some image index assignments.

(cherry picked from commit bfca6f229d)

tools/lazdatadesktop/bitmaps/dicteditor.txt

@@ -1,48 +0,0 @@
-ddconnection.png
-ddconnection_150.png
-ddconnection_200.png
-dddatadict.png
-dddatadict_150.png
-dddatadict_200.png
-dddeleteobject.png
-dddeleteobject_150.png
-dddeleteobject_200.png
-dddomain.png
-dddomain_150.png
-dddomain_200.png
-dddomains.png
-dddomains_150.png
-dddomains_200.png
-ddfield.png
-ddfield_150.png
-ddfield_200.png
-ddfields.png
-ddfields_150.png
-ddfields_200.png
-ddforeignkey.png
-ddforeignkey_150.png
-ddforeignkey_200.png
-ddforeignkeys.png
-ddforeignkeys_150.png
-ddforeignkeys_200.png
-ddindex.png
-ddindex_150.png
-ddindex_200.png
-ddindexes.png
-ddindexes_150.png
-ddindexes_200.png
-ddsequence.png
-ddsequence_150.png
-ddsequence_200.png
-ddsequences.png
-ddsequences_150.png
-ddsequences_200.png
-ddtable.png
-ddtable_150.png
-ddtable_200.png
-ddtabledata.png
-ddtabledata_150.png
-ddtabledata_200.png
-ddtables.png
-ddtables_150.png
-ddtables_200.png

tools/lazdatadesktop/bitmaps/generateimages

@@ -1,2 +0,0 @@
-#!/bin/sh
-../../lazres ../dicteditor.res @dicteditor.txt

tools/lazdatadesktop/bitmaps/generateimages.bat

@@ -1 +0,0 @@
-..\..\lazres ..\dicteditor.res @dicteditor.txt

tools/lazdatadesktop/dicteditor.pp

@@ -49,7 +49,6 @@ Type
   TDataDictEditor = Class(TTabSheet)
   private
     FDD: TFPDataDictionary;
-    FIMgList : TImageList;
     FImageOffset: Integer;
     FModified: Boolean;
     FTV : TTreeView;
@@ -152,31 +151,27 @@ Type
   
 
 Const
-  // Image Index for nodes. Relative to ImageOffset;
+  // Image index, referring to ImgDatamodule.AppImages in unit dmImages;
-  // Must match the TObjectType
+  iiDataDict     = 32;
-  iiDataDict     = 0;
   iiTables       = 1;
   iiTable        = 2;
   iiFields       = 3;
   iiField        = 4;
-  iiConnection   = 5;
+  iiConnection   = 0;
-  iiTableData    = 6;
+  iiTableData    = 7;
-  iiIndexes      = 7;
+  iiIndexes      = 5;
-  iiIndex        = 8;
+  iiIndex        = 27;
-  iiSequences    = 9;
+  iiSequences    = 6;
-  iiSequence     = 10;
+  iiSequence     = 23;
-  iiForeignkeys  = 11;
+  iiForeignkeys  = 46;
-  iiForeignKey   = 12;
+  iiForeignKey   = 25;
-  iiDomains      = 13;
+  iiDomains      = 47;
-  iiDomain       = 14;
+  iiDomain       = 21;
-  IIMaxObject    = IIDomain; // Should be last
+  iiDelete       = 16;
-  iiDelete       = iiMaxObject+1;
 
 implementation
 
-{$R dicteditor.res}
+uses DB, MemDS, fpcodegenerator, TypInfo, dmImages, lazdatadeskstr;
-
-uses DB, MemDS, fpcodegenerator, TypInfo, lazdatadeskstr;
 
 Function ObjectTypeName(ObjectType : TEditObjectType) : String;
 
@@ -241,8 +236,6 @@ begin
 end;
 
 
-
-
 { TDataDictEditor }
 
 function TDataDictEditor.NewNode(TV : TTreeView;ParentNode: TTreeNode; ACaption: String; AImageIndex : Integer
@@ -371,16 +364,6 @@ begin
 end;
 
 Procedure TDataDictEditor.CreateGUI;
-
-Const
-  ImageNames : Array[0..IIMaxObject+1] of string =
-        ('dddatadict','ddtables','ddtable','ddfields','ddfield',
-         'ddtables','ddtabledata','ddindexes','ddindex',
-         'ddsequences','ddsequence',
-         'ddforeignkeys','ddforeignkey',
-         'dddomains','dddomain','dddeleteobject');
-
-
 Var
   P : TPortableNetworkGraphic;
   I : Integer;
@@ -416,19 +399,8 @@ begin
   FMIDeleteObject.ImageIndex:=IIDelete;
   FMenu.Items.Add(FMIDeleteObject);
   FTV.PopupMenu:=FMenu;
-  FIMgList:=TImageList.Create(Self);
+  FTV.Images:=ImgDatamodule.AppImages;
-  For I:=0 to IIMaxObject+1 do
+  FMenu.Images:=ImgDatamodule.AppImages;
-    begin
-    P:=TPortableNetworkGraphic.Create;
-    try
-      P.LoadFromResourceName(HInstance, ImageNames[i]);
-      FImgList.Add(P,Nil);
-    finally
-      P.Free;
-    end;
-    end;
-  FTV.Images:=FImgList;
-  FMenu.Images:=FImgList;
 end;
 
 procedure TDataDictEditor.CreateHandle;
@@ -557,7 +529,6 @@ end;
 
 procedure TDataDictEditor.NewField(AFieldName: String; TD: TDDTableDef);
 
-
 begin
   NewTableObject(AFieldName,TD,eotField);
 end;
@@ -570,7 +541,6 @@ end;
 
 procedure TDataDictEditor.NewForeignKey(AKeyName: String; TD: TDDTableDef);
 
-
 begin
   NewTableObject(AKeyName,TD,eotForeignKey);
 end;