You've already forked lazarus-ccr
51 lines
1.2 KiB
ObjectPascal
51 lines
1.2 KiB
ObjectPascal
|
unit JvCustomReg;
|
||
|
|
|
||
|
|
{$mode objfpc}{$H+}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils;
|
||
|
|
|
||
|
|
procedure Register;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R ../../resource/jvcustomreg.res}
|
||
|
|
|
||
|
|
uses
|
||
|
|
Classes, ImgList, Controls, PropEdits, GraphPropEdits, ComponentEditors,
|
||
|
|
JvDsgnConsts, JvOutlookBar, JvOutlookBarEditors,
|
||
|
|
JvTimeLine, JvTMTimeline, JvTimeLineEditor;
|
||
|
|
|
||
|
|
procedure Register;
|
||
|
|
begin
|
||
|
|
RegisterComponents(RsPaletteJvcl, [
|
||
|
|
TJvOutlookBar,
|
||
|
|
TJvTimeLine,
|
||
|
|
TJvTMTimeLine
|
||
|
|
]);
|
||
|
|
|
||
|
|
// Timeline
|
||
|
|
RegisterComponentEditor(TJvCustomTimeLine, TJvTimeLineEditor);
|
||
|
|
RegisterPropertyEditor(TypeInfo(TDate), TJvTimeLine, 'FirstVisibledate', TDatePropertyEditor);
|
||
|
|
|
||
|
|
// Outlookbar
|
||
|
|
(*
|
||
|
|
RegisterPropertyEditor(TypeInfo(TJvOutlookBarPages), TJvCustomOutlookBar,
|
||
|
|
'', TJvOutlookBarPagesProperty);
|
||
|
|
RegisterPropertyEditor(TypeInfo(TJvOutlookBarButtons), TJvOutlookBarPage,
|
||
|
|
'', TJvOutlookBarPagesProperty);
|
||
|
|
*)
|
||
|
|
RegisterPropertyEditor(TypeInfo(Integer), TJvCustomOutlookBar,
|
||
|
|
'ActivePageIndex', TJvOutlookBarActivePageProperty);
|
||
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvOutlookBarButton,
|
||
|
|
'ImageIndex', TJvOutlookBarButtonImageIndexProperty);
|
||
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvOutlookBarPage,
|
||
|
|
'ImageIndex', TJvOutlookBarPageImageIndexProperty);
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|