tvplanit: Unregister TVpDateButton from laz_visualplanit package.

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

components/tvplanit/source/vpdatepropedit.lfm

@@ -1,29 +1,29 @@
 object frmDatePropertyEditor: TfrmDatePropertyEditor
   Left = 349
-  Height = 193
+  Height = 201
   Top = 233
-  Width = 219
+  Width = 231
   HorzScrollBar.Page = 218
   VertScrollBar.Page = 192
   BorderStyle = bsDialog
   Caption = 'Select Date'
-  ClientHeight = 193
-  ClientWidth = 219
+  ClientHeight = 201
+  ClientWidth = 231
   Position = poDefaultPosOnly
   LCLVersion = '1.7'
   object Button1: TButton
-    Left = 56
+    Left = 69
     Height = 25
-    Top = 160
+    Top = 168
     Width = 75
     Caption = 'OK'
     ModalResult = 1
     TabOrder = 0
   end
   object Button2: TButton
-    Left = 136
+    Left = 149
     Height = 25
-    Top = 160
+    Top = 168
     Width = 75
     Caption = 'Cancel'
     ModalResult = 2
@@ -31,9 +31,9 @@ object frmDatePropertyEditor: TfrmDatePropertyEditor
   end
   object VpCalendar1: TVpCalendar
     Left = 8
-    Height = 140
+    Height = 152
     Top = 8
-    Width = 200
+    Width = 216
     ParentFont = False
     BorderStyle = bsNone
     Colors.ActiveDay = clRed

components/tvplanit/source/vpdatepropedit.pas

@@ -37,7 +37,8 @@ uses
   Windows,
   {$ENDIF}
   Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, VpEdPop, VpDateEdit, VpBase, VpBaseDS, VpCalendar;
+  StdCtrls, //VpEdPop, VpDateEdit, VpBase, VpBaseDS,
+  VpCalendar;
 
 type
   TfrmDatePropertyEditor = class(TForm)

components/tvplanit/source/vpreg.pas

@@ -45,23 +45,14 @@ uses
   Dialogs,
   {$IFDEF VERSION6}
   {$IFNDEF LCL}
-  DesignIntf,
-  DesignEditors,
-  VCLEditors,
+  DesignIntf, DesignEditors, VCLEditors,
   {$ELSE}
-  PropEdits,
-  LazarusPackageIntf,
-  FieldsEditor,
-  ComponentEditors,
+  PropEdits, LazarusPackageIntf, FieldsEditor,  ComponentEditors,
   {$ENDIF}
   {$ELSE}
   DsgnIntf,
   {$ENDIF}
-  Classes,
-  Controls,
-  TypInfo,
-  Forms,
-  SysUtils,
+  Classes, Controls, TypInfo, Forms, SysUtils,
   VpDatePropEdit;
 
 type
@@ -128,14 +119,20 @@ uses
   VpCalendar,                 { Calendar Component                           }
   VpNavBar,                   { Navigation Bar Component                     }
   VpBaseDS,                   { Base DataStore Classes                       }
-//  VpBDEDS,                    { DataStore Component                          }
   VpDayView,                  { Day View Component                           }
   VpWeekView,                 { Week View Component                          }
   VpMonthView,                { Month View Component                         }
   VpContactGrid,              { ContactGrid Component                        }
-  VpDateEdit,                 { DateEdit Component                           }
   VpTaskList,                 { Task List Component                          }
+ {$IFDEF DELPHI}
+  VpBDEDS,                    { DataStore Component                          }
+  VpDateEdit,                 { DateEdit Component                           }
+ {$ENDIF}
+ {$IFDEF LCL}
   VpBufDS,                    { Datastore for TBufDataset                    }
+  //  VpSdfDS                     { Datastore for TSdfDataset                    }
+  //  VpDbfDS,                    { Datastore for dbase files                    }
+ {$ENDIF}
   VpFlxDS,                    { Flexible DataStore                           }
   VpContactEditDlg,           { Contact Edit Dialog Component                }
   VpTaskEditDlg,              { Task Edit Dialog Component                   }
@@ -256,13 +253,13 @@ end;
 
 function TVpDateProperty.GetValue : string;
 begin
-  Result := FormatDateTime ('ddddd', GetFloatValue);
+  Result := FormatDateTime('ddddd', GetFloatValue);
 end;
 {=====}
 
 procedure TVpDateProperty.SetValue (const Value : string);
 begin
-  SetFloatValue (StrToDate (Value));
+  SetFloatValue(StrToDate (Value));
 end;
 {=====}
 
@@ -307,8 +304,8 @@ begin
 end;
 
 {*** component registration ***}
-  procedure Register;
-  begin
+procedure Register;
+begin
   { register component editors }
   RegisterComponentEditor(TVpNavBar, TVpNavBarEditor);
   RegisterComponentEditor(TVpControlLink, TVpPrtFmtPropertyEditor);
@@ -333,21 +330,21 @@ end;
     'Version', TVpAboutProperty);
   RegisterPropertyEditor(TypeInfo(string), TVpControlLink,
     'Version', TVpAboutProperty);
-  {$IFNDEF LCL}
+{$IFNDEF LCL}
   RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
     'Version', TVpAboutProperty);
-  {$ENDIF}
-    RegisterPropertyEditor(TypeInfo(string), TVpFlexDataStore,
-      'Version', TVpAboutProperty);
   RegisterPropertyEditor(TypeInfo(string), TVpDateEdit,
     'Version', TVpAboutProperty);
+{$ENDIF}
+  RegisterPropertyEditor(TypeInfo(string), TVpFlexDataStore,
+    'Version', TVpAboutProperty);
   RegisterPropertyEditor(TypeInfo(string), TVpBaseDialog,
     'Version', TVpAboutProperty);
   RegisterPropertyEditor(TypeInfo(string), TVpPrintFormatComboBox,
     'Version', TVpAboutProperty);
 
   {register the BDE Alias and Driver properties                             }
-  {$IFNDEF LCL}
+{$IFNDEF LCL}
   RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
     'AliasName', TAliasNameProperty);
   RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
@@ -391,15 +388,19 @@ end;
     TVpClock,
     TVpCalendar,
     TVpNavBar,
-      TVpBufDSDatastore,
     TVpFlexDataStore,
-  {$IFNDEF LCL}
+{$IFDEF DELPHI}
     TVpBDEDataStore,    // BDE is not available in Lazarus
-  {$ENDIF}
+    TVpDateEdit,        // Does not work in Lazarus
+{$ENDIF}
+{$IFDEF LCL}
+    TVpBufDSDatastore,
+    //TVpSdfDatastore,       // to do (maybe)...
+    //TVpDbfDatastore,       // to do...
+{$ENDIF}
     TVpControlLink,
     TVpPrintPreview,
     TVpPrintFormatComboBox,
-      TVpDateEdit,
     TVpResourceCombo,
     TVpDayView,
     TVpWeekView,
@@ -414,5 +415,6 @@ end;
     TVpTaskEditDialog,
     TVpPrintFormatEditDialog,
     TVpPrintPreviewDialog]);
-  end;
+end;
+
 end.