pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Unregister TVpDateButton from laz_visualplanit package.

Browse Source 
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
2016-06-12 10:57:47 +00:00
parent 58b8bc5409
commit d3a8c84314
3 changed files with 130 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/tvplanit/source/vpdatepropedit.lfm
View File

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

3
components/tvplanit/source/vpdatepropedit.pas
View File

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

234
components/tvplanit/source/vpreg.pas
View File

@ -45,23 +45,14 @@ uses
Dialogs, Dialogs,
{$IFDEF VERSION6} {$IFDEF VERSION6}
{$IFNDEF LCL} {$IFNDEF LCL}
DesignIntf, DesignIntf, DesignEditors, VCLEditors,
DesignEditors,
VCLEditors,
{$ELSE} {$ELSE}
PropEdits, PropEdits, LazarusPackageIntf, FieldsEditor, ComponentEditors,
LazarusPackageIntf,
FieldsEditor,
ComponentEditors,
{$ENDIF} {$ENDIF}
{$ELSE} {$ELSE}
DsgnIntf, DsgnIntf,
{$ENDIF} {$ENDIF}
Classes, Classes, Controls, TypInfo, Forms, SysUtils,
Controls,
TypInfo,
Forms,
SysUtils,
VpDatePropEdit; VpDatePropEdit;
type type
@ -128,14 +119,20 @@ uses
VpCalendar, { Calendar Component } VpCalendar, { Calendar Component }
VpNavBar, { Navigation Bar Component } VpNavBar, { Navigation Bar Component }
VpBaseDS, { Base DataStore Classes } VpBaseDS, { Base DataStore Classes }
// VpBDEDS, { DataStore Component }
VpDayView, { Day View Component } VpDayView, { Day View Component }
VpWeekView, { Week View Component } VpWeekView, { Week View Component }
VpMonthView, { Month View Component } VpMonthView, { Month View Component }
VpContactGrid, { ContactGrid Component } VpContactGrid, { ContactGrid Component }
VpDateEdit, { DateEdit Component }
VpTaskList, { Task List Component } VpTaskList, { Task List Component }
{$IFDEF DELPHI}
VpBDEDS, { DataStore Component }
VpDateEdit, { DateEdit Component }
{$ENDIF}
{$IFDEF LCL}
VpBufDS, { Datastore for TBufDataset } VpBufDS, { Datastore for TBufDataset }
// VpSdfDS { Datastore for TSdfDataset }
// VpDbfDS, { Datastore for dbase files }
{$ENDIF}
VpFlxDS, { Flexible DataStore } VpFlxDS, { Flexible DataStore }
VpContactEditDlg, { Contact Edit Dialog Component } VpContactEditDlg, { Contact Edit Dialog Component }
VpTaskEditDlg, { Task Edit Dialog Component } VpTaskEditDlg, { Task Edit Dialog Component }
@ -256,13 +253,13 @@ end;
function TVpDateProperty.GetValue : string; function TVpDateProperty.GetValue : string;
begin begin
Result := FormatDateTime ('ddddd', GetFloatValue); Result := FormatDateTime('ddddd', GetFloatValue);
end; end;
{=====} {=====}
procedure TVpDateProperty.SetValue (const Value : string); procedure TVpDateProperty.SetValue (const Value : string);
begin begin
SetFloatValue (StrToDate (Value)); SetFloatValue(StrToDate (Value));
end; end;
{=====} {=====}
@ -307,112 +304,117 @@ begin
end; end;
{*** component registration ***} {*** component registration ***}
procedure Register; procedure Register;
begin begin
{ register component editors } { register component editors }
RegisterComponentEditor(TVpNavBar, TVpNavBarEditor); RegisterComponentEditor(TVpNavBar, TVpNavBarEditor);
RegisterComponentEditor(TVpControlLink, TVpPrtFmtPropertyEditor); RegisterComponentEditor(TVpControlLink, TVpPrtFmtPropertyEditor);
RegisterComponentEditor(TVpFlexDataStore, TVpFlexDSEditor); RegisterComponentEditor(TVpFlexDataStore, TVpFlexDSEditor);
{ register the About Box property editor for the Version properties } { register the About Box property editor for the Version properties }
RegisterPropertyEditor(TypeInfo(string), TVpCollectionItem, RegisterPropertyEditor(TypeInfo(string), TVpCollectionItem,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpComponent, RegisterPropertyEditor(TypeInfo(string), TVpComponent,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpNavBar, RegisterPropertyEditor(TypeInfo(string), TVpNavBar,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpCalendar, RegisterPropertyEditor(TypeInfo(string), TVpCalendar,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpLEDLabel, RegisterPropertyEditor(TypeInfo(string), TVpLEDLabel,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpClock, RegisterPropertyEditor(TypeInfo(string), TVpClock,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpResourceCombo, RegisterPropertyEditor(TypeInfo(string), TVpResourceCombo,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpCustomControl, RegisterPropertyEditor(TypeInfo(string), TVpCustomControl,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpControlLink, RegisterPropertyEditor(TypeInfo(string), TVpControlLink,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
{$IFNDEF LCL} {$IFNDEF LCL}
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore, RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
{$ENDIF} RegisterPropertyEditor(TypeInfo(string), TVpDateEdit,
RegisterPropertyEditor(TypeInfo(string), TVpFlexDataStore, 'Version', TVpAboutProperty);
'Version', TVpAboutProperty); {$ENDIF}
RegisterPropertyEditor(TypeInfo(string), TVpDateEdit, RegisterPropertyEditor(TypeInfo(string), TVpFlexDataStore,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpBaseDialog, RegisterPropertyEditor(TypeInfo(string), TVpBaseDialog,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpPrintFormatComboBox, RegisterPropertyEditor(TypeInfo(string), TVpPrintFormatComboBox,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
{register the BDE Alias and Driver properties } {register the BDE Alias and Driver properties }
{$IFNDEF LCL} {$IFNDEF LCL}
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore, RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
'AliasName', TAliasNameProperty); 'AliasName', TAliasNameProperty);
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore, RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
'DriverName', TDriverNameProperty); 'DriverName', TDriverNameProperty);
{$ENDIF} {$ENDIF}
// LCL: Registering next property editor inhibits that the DataStore // LCL: Registering next property editor inhibits that the DataStore
// property combo of the DayView lists the available datastores. // property combo of the DayView lists the available datastores.
{register the DayView properties } {register the DayView properties }
//RegisterPropertyEditor(TypeInfo(TVpCustomDataStore), TVpDayView, //RegisterPropertyEditor(TypeInfo(TVpCustomDataStore), TVpDayView,
// 'DataStore', TDataStoreProperty); // 'DataStore', TDataStoreProperty);
{register the property editor for the DataStore's DefaultAlarmWav } {register the property editor for the DataStore's DefaultAlarmWav }
RegisterPropertyEditor(TypeInfo(string), TVpCustomDataStore, RegisterPropertyEditor(TypeInfo(string), TVpCustomDataStore,
'DefaultEventSound', TWavFileProperty); 'DefaultEventSound', TWavFileProperty);
RegisterPropertyEditor (TypeInfo (TDateTime), RegisterPropertyEditor (TypeInfo (TDateTime),
TVpPrintPreview, TVpPrintPreview,
'StartDate', 'StartDate',
TVpDateProperty); TVpDateProperty);
RegisterPropertyEditor (TypeInfo (TDateTime), RegisterPropertyEditor (TypeInfo (TDateTime),
TVpPrintPreview, TVpPrintPreview,
'EndDate', 'EndDate',
TVpDateProperty); TVpDateProperty);
RegisterPropertyEditor (TypeInfo (TDateTime), RegisterPropertyEditor (TypeInfo (TDateTime),
TVpPrintPreviewDialog, TVpPrintPreviewDialog,
'StartDate', 'StartDate',
TVpDateProperty); TVpDateProperty);
RegisterPropertyEditor (TypeInfo (TDateTime), RegisterPropertyEditor (TypeInfo (TDateTime),
TVpPrintPreviewDialog, TVpPrintPreviewDialog,
'EndDate', 'EndDate',
TVpDateProperty); TVpDateProperty);
RegisterPropertyEditor (TypeInfo (string), TVpControlLink, RegisterPropertyEditor (TypeInfo (string), TVpControlLink,
'LocalizationFile', TVpLocalizeFileNameProperty); '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. end.