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

jvcllaz: Fix scrolling of JvThumbView.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6268 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-03-23 18:43:14 +00:00
parent 3f3ac1cae3
commit 889742d83f
4 changed files with 105 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
components/jvcllaz/design/JvPageComps/JvPageCompsReg.pas
View File

@ -14,14 +14,17 @@ implementation
{$R ..\..\resource\jvpagecompsreg.res}
uses
ImgList, PropEdits,
ImgList,
PropEdits, ComponentEditors,
JvDsgnConsts,
JvNavigationPane, JvNavPaneEditors;
JvNavigationPane, JvNavPaneEditors,
JvPageList,JvPageListEditors, JvPageListTreeView;
procedure Register;
const
cImageIndex = 'ImageIndex';
begin
// JvNavigationPanel
RegisterComponents(RsPaletteJvcl, [ // was: RsPaletteNavPane
TJvNavigationPane,
TJvNavIconButton,
@ -29,10 +32,37 @@ begin
TJvOutlookSplitter,
TJvNavPaneStyleManager, TJvNavPaneToolPanel
]);
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavPanelPage, cImageIndex, TJvNavPanePageImageIndexProperty);
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavPanelHeader, cImageIndex, TJvNavPanelHeaderImageIndexProperty);
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavPanelButton, cImageIndex, TJvNavPanelButtonImageIndexProperty);
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavIconButton, cImageIndex, TJvNavIconButtonImageIndexProperty);
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavPanelPage, cImageIndex,
TJvNavPanePageImageIndexProperty);
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavPanelHeader, cImageIndex,
TJvNavPanelHeaderImageIndexProperty);
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavPanelButton, cImageIndex,
TJvNavPanelButtonImageIndexProperty);
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvNavIconButton, cImageIndex,
TJvNavIconButtonImageIndexProperty);
// JvPageList
RegisterComponents(RsPaletteJvcl, [ // was: RsPaletteListComboTree
TJvPageList]);
RegisterClasses([TJvPageList, TJvStandardPage]);
RegisterComponentEditor(TJvCustomPageList, TJvCustomPageListEditor); // was: TJvCustomPageEditor
RegisterComponentEditor(TJvCustomPage, TJvCustomPageEditor);
RegisterPropertyEditor(TypeInfo(TJvShowDesignCaption), nil, '',
TJvShowDesignCaptionProperty);
{
RegisterPropertyEditor(TypeInfo(TJvCustomPage),
TJvCustomPageList, cActivePage, TJvActivePageProperty);
}
// JvPageTree
RegisterComponents(RsPaletteJvcl, [ // was: TsPaletteListComboTree
TJvSettingsTreeView, TJvPageListTreeView
]);
RegisterClasses([TJvSettingsTreeView, TJvPageListTreeView]);
RegisterPropertyEditor(TypeInfo(TImageIndex), TJvSettingsTreeImages, '',
TJvSettingsTreeImagesProperty);
end;
end.