You've already forked lazarus-ccr
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
This commit is contained in:
wp_xxyyzz
@ -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
|
||||
|
||||
@ -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)
|
||||
|
||||
@ -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,112 +304,117 @@ begin
|
||||
end;
|
||||
|
||||
{*** component registration ***}
|
||||
procedure Register;
|
||||
begin
|
||||
{ register component editors }
|
||||
RegisterComponentEditor(TVpNavBar, TVpNavBarEditor);
|
||||
RegisterComponentEditor(TVpControlLink, TVpPrtFmtPropertyEditor);
|
||||
RegisterComponentEditor(TVpFlexDataStore, TVpFlexDSEditor);
|
||||
procedure Register;
|
||||
begin
|
||||
{ register component editors }
|
||||
RegisterComponentEditor(TVpNavBar, TVpNavBarEditor);
|
||||
RegisterComponentEditor(TVpControlLink, TVpPrtFmtPropertyEditor);
|
||||
RegisterComponentEditor(TVpFlexDataStore, TVpFlexDSEditor);
|
||||
|
||||
{ register the About Box property editor for the Version properties }
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpCollectionItem,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpComponent,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpNavBar,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpCalendar,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpLEDLabel,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpClock,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpResourceCombo,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpCustomControl,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpControlLink,
|
||||
'Version', TVpAboutProperty);
|
||||
{$IFNDEF LCL}
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
|
||||
'Version', TVpAboutProperty);
|
||||
{$ENDIF}
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpFlexDataStore,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpDateEdit,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpBaseDialog,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpPrintFormatComboBox,
|
||||
'Version', TVpAboutProperty);
|
||||
{ register the About Box property editor for the Version properties }
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpCollectionItem,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpComponent,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpNavBar,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpCalendar,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpLEDLabel,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpClock,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpResourceCombo,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpCustomControl,
|
||||
'Version', TVpAboutProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpControlLink,
|
||||
'Version', TVpAboutProperty);
|
||||
{$IFNDEF LCL}
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
|
||||
'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}
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
|
||||
'AliasName', TAliasNameProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
|
||||
'DriverName', TDriverNameProperty);
|
||||
{$ENDIF}
|
||||
{register the BDE Alias and Driver properties }
|
||||
{$IFNDEF LCL}
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
|
||||
'AliasName', TAliasNameProperty);
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
|
||||
'DriverName', TDriverNameProperty);
|
||||
{$ENDIF}
|
||||
|
||||
// LCL: Registering next property editor inhibits that the DataStore
|
||||
// property combo of the DayView lists the available datastores.
|
||||
// LCL: Registering next property editor inhibits that the DataStore
|
||||
// property combo of the DayView lists the available datastores.
|
||||
|
||||
{register the DayView properties }
|
||||
//RegisterPropertyEditor(TypeInfo(TVpCustomDataStore), TVpDayView,
|
||||
// 'DataStore', TDataStoreProperty);
|
||||
{register the DayView properties }
|
||||
//RegisterPropertyEditor(TypeInfo(TVpCustomDataStore), TVpDayView,
|
||||
// 'DataStore', TDataStoreProperty);
|
||||
|
||||
{register the property editor for the DataStore's DefaultAlarmWav }
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpCustomDataStore,
|
||||
'DefaultEventSound', TWavFileProperty);
|
||||
{register the property editor for the DataStore's DefaultAlarmWav }
|
||||
RegisterPropertyEditor(TypeInfo(string), TVpCustomDataStore,
|
||||
'DefaultEventSound', TWavFileProperty);
|
||||
|
||||
RegisterPropertyEditor (TypeInfo (TDateTime),
|
||||
TVpPrintPreview,
|
||||
'StartDate',
|
||||
TVpDateProperty);
|
||||
RegisterPropertyEditor (TypeInfo (TDateTime),
|
||||
TVpPrintPreview,
|
||||
'EndDate',
|
||||
TVpDateProperty);
|
||||
RegisterPropertyEditor (TypeInfo (TDateTime),
|
||||
TVpPrintPreviewDialog,
|
||||
'StartDate',
|
||||
TVpDateProperty);
|
||||
RegisterPropertyEditor (TypeInfo (TDateTime),
|
||||
TVpPrintPreviewDialog,
|
||||
'EndDate',
|
||||
TVpDateProperty);
|
||||
RegisterPropertyEditor (TypeInfo (TDateTime),
|
||||
TVpPrintPreview,
|
||||
'StartDate',
|
||||
TVpDateProperty);
|
||||
RegisterPropertyEditor (TypeInfo (TDateTime),
|
||||
TVpPrintPreview,
|
||||
'EndDate',
|
||||
TVpDateProperty);
|
||||
RegisterPropertyEditor (TypeInfo (TDateTime),
|
||||
TVpPrintPreviewDialog,
|
||||
'StartDate',
|
||||
TVpDateProperty);
|
||||
RegisterPropertyEditor (TypeInfo (TDateTime),
|
||||
TVpPrintPreviewDialog,
|
||||
'EndDate',
|
||||
TVpDateProperty);
|
||||
|
||||
RegisterPropertyEditor (TypeInfo (string), TVpControlLink,
|
||||
'LocalizationFile', TVpLocalizeFileNameProperty);
|
||||
RegisterPropertyEditor (TypeInfo (string), TVpControlLink,
|
||||
'LocalizationFile', TVpLocalizeFileNameProperty);
|
||||
|
||||
{register Visual PlanIt components with the IDE}
|
||||
RegisterComponents('Visual PlanIt', [
|
||||
TVpLEDLabel,
|
||||
TVpClock,
|
||||
TVpCalendar,
|
||||
TVpNavBar,
|
||||
TVpFlexDataStore,
|
||||
{$IFDEF DELPHI}
|
||||
TVpBDEDataStore, // BDE is not available in Lazarus
|
||||
TVpDateEdit, // Does not work in Lazarus
|
||||
{$ENDIF}
|
||||
{$IFDEF LCL}
|
||||
TVpBufDSDatastore,
|
||||
//TVpSdfDatastore, // to do (maybe)...
|
||||
//TVpDbfDatastore, // to do...
|
||||
{$ENDIF}
|
||||
TVpControlLink,
|
||||
TVpPrintPreview,
|
||||
TVpPrintFormatComboBox,
|
||||
TVpResourceCombo,
|
||||
TVpDayView,
|
||||
TVpWeekView,
|
||||
TVpMonthView,
|
||||
TVpContactGrid,
|
||||
TVpContactButtonBar,
|
||||
TVpTaskList,
|
||||
TVpNotificationDialog,
|
||||
TVpResourceEditDialog,
|
||||
TVpEventEditDialog,
|
||||
TVpContactEditDialog,
|
||||
TVpTaskEditDialog,
|
||||
TVpPrintFormatEditDialog,
|
||||
TVpPrintPreviewDialog]);
|
||||
end;
|
||||
|
||||
{register Visual PlanIt components with the IDE}
|
||||
RegisterComponents('Visual PlanIt', [
|
||||
TVpLEDLabel,
|
||||
TVpClock,
|
||||
TVpCalendar,
|
||||
TVpNavBar,
|
||||
TVpBufDSDatastore,
|
||||
TVpFlexDataStore,
|
||||
{$IFNDEF LCL}
|
||||
TVpBDEDataStore, // BDE is not available in Lazarus
|
||||
{$ENDIF}
|
||||
TVpControlLink,
|
||||
TVpPrintPreview,
|
||||
TVpPrintFormatComboBox,
|
||||
TVpDateEdit,
|
||||
TVpResourceCombo,
|
||||
TVpDayView,
|
||||
TVpWeekView,
|
||||
TVpMonthView,
|
||||
TVpContactGrid,
|
||||
TVpContactButtonBar,
|
||||
TVpTaskList,
|
||||
TVpNotificationDialog,
|
||||
TVpResourceEditDialog,
|
||||
TVpEventEditDialog,
|
||||
TVpContactEditDialog,
|
||||
TVpTaskEditDialog,
|
||||
TVpPrintFormatEditDialog,
|
||||
TVpPrintPreviewDialog]);
|
||||
end;
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user