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)

40
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 }
@@ -336,11 +333,11 @@ end;
{$IFNDEF LCL} {$IFNDEF LCL}
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore, RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpDateEdit,
'Version', TVpAboutProperty);
{$ENDIF} {$ENDIF}
RegisterPropertyEditor(TypeInfo(string), TVpFlexDataStore, RegisterPropertyEditor(TypeInfo(string), TVpFlexDataStore,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpDateEdit,
'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpBaseDialog, RegisterPropertyEditor(TypeInfo(string), TVpBaseDialog,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpPrintFormatComboBox, RegisterPropertyEditor(TypeInfo(string), TVpPrintFormatComboBox,
@@ -391,15 +388,19 @@ end;
TVpClock, TVpClock,
TVpCalendar, TVpCalendar,
TVpNavBar, TVpNavBar,
TVpBufDSDatastore,
TVpFlexDataStore, TVpFlexDataStore,
{$IFNDEF LCL} {$IFDEF DELPHI}
TVpBDEDataStore, // BDE is not available in Lazarus 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} {$ENDIF}
TVpControlLink, TVpControlLink,
TVpPrintPreview, TVpPrintPreview,
TVpPrintFormatComboBox, TVpPrintFormatComboBox,
TVpDateEdit,
TVpResourceCombo, TVpResourceCombo,
TVpDayView, TVpDayView,
TVpWeekView, TVpWeekView,
@@ -415,4 +416,5 @@ end;
TVpPrintFormatEditDialog, TVpPrintFormatEditDialog,
TVpPrintPreviewDialog]); TVpPrintPreviewDialog]);
end; end;
end. end.