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

tvplanit/Drag&Drop: Introduce DragMarkerColor.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8915 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-08-07 11:55:05 +00:00
parent 43558032e7
commit 110ffd365b
2 changed files with 55 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpnavbar.pas
View File

@ -181,6 +181,8 @@ type
TVpMouseOverItemEvent = procedure(Sender: TObject; Item: TVpNavBtnItem) of object;
TVpCustomNavBar = class(TVpCustomControl)
private
FDragMarkerColor: TColor;
protected {private}
{property variables}
FActiveFolder: Integer;
@ -409,6 +411,7 @@ type
property ActiveItem: Integer read FActiveItem;
property Containers[Index: Integer]: TVpFolderContainer read GetContainer;
property DragMarkerColor: TColor read FDragMarkerColor write FDragMarkerColor default clBlack;
property Folders[Index: Integer]: TVpNavFolder read GetFolder;
property FolderCount: Integer read GetFolderCount;
property PreviousFolder : Integer read FPreviousFolder;
@ -428,6 +431,7 @@ type
property BackgroundMethod;
property BorderStyle default bsNone;
property ButtonHeight;
property DragMarkerColor;
property DrawingStyle;
property FolderCollection;
property Images;
@ -1103,6 +1107,7 @@ begin
FBackgroundColor := clWindow;
FBackgroundImage := TBitmap.Create;
FBackgroundMethod := bmNormal;
FDragMarkerColor := clBlack;
// FBorderStyle := bsSingle;
FButtonHeight := 0;
FActiveFolder := -1;