fpspreadsheet: Remove TsFontNameCombobox and TsFontSizeCombobox, use TsCellCombobox instead.

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

components/fpspreadsheet/examples/fpsctrls_no_install/main.lfm

@@ -4,7 +4,7 @@ object Form1: TForm1
   Top = 177
   Width = 874
   Caption = 'Form1'
-  ClientHeight = 508
+  ClientHeight = 503
   ClientWidth = 874
   Menu = MainMenu
   OnCreate = FormCreate
@@ -12,7 +12,7 @@ object Form1: TForm1
   object Panel1: TPanel
     Left = 0
     Height = 74
-    Top = 26
+    Top = 24
     Width = 874
     Align = alTop
     BevelOuter = bvNone
@@ -126,10 +126,10 @@ object Form1: TForm1
     end
     object CbLoader: TComboBox
       Left = 104
-      Height = 23
+      Height = 28
       Top = 8
       Width = 148
-      ItemHeight = 15
+      ItemHeight = 20
       ItemIndex = 1
       Items.Strings = (
         'Workbook'
@@ -142,17 +142,17 @@ object Form1: TForm1
     end
     object Label1: TLabel
       Left = 13
-      Height = 15
+      Height = 20
       Top = 11
-      Width = 58
+      Width = 73
       Caption = 'Loaded by:'
       ParentColor = False
     end
   end
   object InspectorTabControl: TTabControl
     Left = 577
-    Height = 408
-    Top = 100
+    Height = 405
+    Top = 98
     Width = 297
     OnChange = InspectorTabControlChange
     TabIndex = 0
@@ -167,17 +167,18 @@ object Form1: TForm1
   end
   object Splitter1: TSplitter
     Left = 572
-    Height = 408
-    Top = 100
+    Height = 405
+    Top = 98
     Width = 5
     Align = alRight
     ResizeAnchor = akRight
   end
   object ToolBar1: TToolBar
     Left = 0
-    Height = 26
+    Height = 24
     Top = 0
     Width = 874
+    AutoSize = True
     Caption = 'ToolBar1'
     Images = ImageList1
     TabOrder = 3

components/fpspreadsheet/fpspreadsheetctrls.pas

@@ -260,7 +260,6 @@ type
     procedure SetColorRectWidth(AValue: Integer);
     procedure SetFormatItem(AValue: TsCellFormatItem);
     procedure SetWorkbookSource(AValue: TsWorkbookSource);
-//    procedure UpdateCombo;
   protected
     procedure ApplyFormatToCell(ACell: PCell); virtual;
     procedure Change; override;
@@ -362,7 +361,7 @@ type
     property Visible;
   end;
 
-
+                      (*
   { TsCellFontCombobox }
 
   {@@ TsCellFontCombobox is a combobox for selecting various font properties }
@@ -465,7 +464,7 @@ type
     procedure Populate; override;
   public
     constructor Create(AOwner: TComponent); override;
-  end;
+  end;            *)
 
 
   { TsSpreadsheetInspector }
@@ -534,7 +533,7 @@ begin
   RegisterComponents('FPSpreadsheet', [
     TsWorkbookSource, TsWorkbookTabControl, TsWorksheetGrid,
     TsCellEdit, TsCellIndicator, TsCellCombobox,
-    TsFontNameCombobox, TsFontSizeCombobox,
+    //TsFontNameCombobox, TsFontSizeCombobox,
     TsSpreadsheetInspector
   ]);
 end;
@@ -2024,7 +2023,7 @@ begin
   }
 end;
     *)
-
+                 (*
 {------------------------------------------------------------------------------}
 {                             TsCellFontCombobox                               }
 {------------------------------------------------------------------------------}
@@ -2170,7 +2169,7 @@ begin
     Add('72');
   end;
 end;
-
+            *)
 
 {------------------------------------------------------------------------------}
 {                          TsSpreadsheetInspector                              }