TvPlanIt: Improved inplace editor. Scaling of event images in Category combobox if they are too high

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8897 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/examples/dayview_wrapstyle/dvwsmain.lfm

@@ -132,13 +132,14 @@ object Form1: TForm1
     Printer.Granularity = gr30Min
     Printer.MarginUnits = imAbsolutePixel
     Printer.PrintFormats = <>
-    Left = 147
-    Top = 66
+    Left = 248
+    Top = 118
   end
   object VpIniDatastore1: TVpIniDatastore
     CategoryColorMap.Category0.Description = 'Category 0'
     CategoryColorMap.Category0.ImageIndex = 0
     CategoryColorMap.Category1.Description = 'Category 1'
+    CategoryColorMap.Category1.ImageIndex = 9
     CategoryColorMap.Category2.Description = 'Category 2'
     CategoryColorMap.Category3.Description = 'Category 3'
     CategoryColorMap.Category4.Description = 'Category 4'
@@ -152,11 +153,11 @@ object Form1: TForm1
     Images = ImageList2
     AutoConnect = True
     FileName = 'data.ini'
-    Left = 147
-    Top = 120
+    Left = 248
+    Top = 184
   end
   object ImageList1: TImageList
-    Left = 256
+    Left = 344
     Top = 118
     Bitmap = {
       4C7A0400000010000000100000003E0300000000000078DAED574D485451143E
@@ -191,8 +192,8 @@ object Form1: TForm1
   object ImageList2: TImageList
     Height = 24
     Width = 24
-    Left = 216
-    Top = 228
+    Left = 344
+    Top = 184
     Bitmap = {
       4C7A040000001800000018000000960500000000000078DAED595D685C45143E
       F5A7E2BF2F2A8AE243157D525111C420C67F04ADD65A412CF82A1524B6D4DF87

components/tvplanit/examples/fulldemo/bufdsdatamodule.lfm

@@ -5,33 +5,21 @@ object DemoDM: TDemoDM
   VerticalOffset = 519
   Width = 277
   object Datastore: TVpBufDSDataStore
-    CategoryColorMap.Category0.Color = clNavy
     CategoryColorMap.Category0.Description = 'Category 0'
-    CategoryColorMap.Category1.Color = clRed
     CategoryColorMap.Category1.Description = 'Category 1'
-    CategoryColorMap.Category2.Color = clYellow
     CategoryColorMap.Category2.Description = 'Category 2'
-    CategoryColorMap.Category3.Color = clLime
     CategoryColorMap.Category3.Description = 'Category 3'
-    CategoryColorMap.Category4.Color = clPurple
     CategoryColorMap.Category4.Description = 'Category 4'
-    CategoryColorMap.Category5.Color = clTeal
     CategoryColorMap.Category5.Description = 'Category 5'
-    CategoryColorMap.Category6.Color = clFuchsia
     CategoryColorMap.Category6.Description = 'Category 6'
-    CategoryColorMap.Category7.Color = clOlive
     CategoryColorMap.Category7.Description = 'Category 7'
-    CategoryColorMap.Category8.Color = clAqua
     CategoryColorMap.Category8.Description = 'Category 8'
-    CategoryColorMap.Category9.Color = clMaroon
     CategoryColorMap.Category9.Description = 'Category 9'
-    EnableEventTimer = True
-    PlayEventSounds = True
+    HiddenCategories.BackgroundColor = clSilver
+    HiddenCategories.Color = clGray
     AutoConnect = True
-    AutoCreate = True
-    DayBuffer = 31
     Directory = 'data'
-    left = 87
-    top = 32
+    Left = 87
+    Top = 32
   end
 end

components/tvplanit/examples/fulldemo/bufdsdatamodule.pas

@@ -5,7 +5,7 @@ unit bufdsdatamodule;
 interface
 
 uses
-  Classes, SysUtils, FileUtil, VpBufDS;
+  Classes, SysUtils, Controls, VpBufDS;
 
 type