You've already forked lazarus-ccr
fb0f6f8032
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7296 8e941d3f-bd1b-0410-a28a-d453659cc2b4
69 lines
2.1 KiB
ObjectPascal
69 lines
2.1 KiB
ObjectPascal
unit JvCustomReg;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
{$R ../../resource/jvcustomreg.res}
|
|
|
|
uses
|
|
Classes, ImgList, Controls, LResources, PropEdits, GraphPropEdits, ComponentEditors,
|
|
JvDsgnConsts,
|
|
JvValidateEdit,
|
|
JvGammaPanel,
|
|
JvOutlookBar, JvOutlookBarEditors,
|
|
// JvTabBar, JvTabBarXPPainter,
|
|
JvThumbImage, JvThumbnails, JvThumbViews,
|
|
JvTimeLine, JvTMTimeLine, JvTimeLineEditor,
|
|
JvImagesViewer, JvImageListViewer, JvOwnerDrawViewer;
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterComponents(RsPaletteJvclVisual, [
|
|
TJvValidateEdit,
|
|
// TJvTabBar, TJvModernTabBarPainter, TJvTabBarXPPainter, // moved to PageComps
|
|
TJvOutlookBar,
|
|
TJvThumbView, TJvThumbnail, TJvThumbImage,
|
|
TJvTimeLine, TJvTMTimeLine,
|
|
TJvGammaPanel,
|
|
TJvImagesViewer, TJvImageListViewer, TJvOwnerDrawViewer
|
|
]);
|
|
|
|
// Timeline
|
|
RegisterComponentEditor(TJvCustomTimeLine, TJvTimeLineEditor);
|
|
RegisterPropertyEditor(TypeInfo(TDate), TJvTimeLine,
|
|
'FirstVisibledate', TDatePropertyEditor);
|
|
|
|
// OutlookBar
|
|
{RegisterPropertyEditor(TypeInfo(TJvOutlookBarPages), TJvCustomOutlookBar,
|
|
'', TJvOutlookBarPagesProperty);}
|
|
RegisterPropertyEditor(TypeInfo(Integer), TJvCustomOutlookBar,
|
|
'ActivePageIndex', TJvOutlookBarActivePageProperty);
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvOutlookBarButton,
|
|
'ImageIndex', TJvOutlookBarButtonImageIndexProperty);
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvOutlookBarPage,
|
|
'ImageIndex', TJvOutlookBarPageImageIndexProperty);
|
|
RegisterPropertyEditor(TypeInfo(TCaption), TJvOutlookBarPage,
|
|
'Caption', TJvOutlookBarCaptionProperty);
|
|
RegisterPropertyEditor(TypeInfo(TCaption), TJvOutlookBarButton,
|
|
'Caption', TJvOutlookBarCaptionProperty);
|
|
RegisterComponentEditor(TJvCustomOutlookBar, TJvOutlookBarEditor);
|
|
|
|
// Thumbnails
|
|
RegisterPropertyEditor(TypeInfo(String), TJvThumbView,
|
|
'Filter', TFileDlgFilterProperty);
|
|
RegisterPropertyToSkip(TJvThumbnail, 'ClientWidth', 'Redundant', '');
|
|
RegisterPropertyToSkip(TJvThumbnail, 'ClientHeight', 'Redundant', '');
|
|
|
|
end;
|
|
|
|
end.
|
|
|