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

TvPlanIt: Fix drag-and-drop in TNavBar.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8916 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-08-07 13:32:47 +00:00
parent 110ffd365b
commit ab24065d59
4 changed files with 92 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/examples/navbar/project1.lpi
View File

@ -61,11 +61,6 @@
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>

5
components/tvplanit/examples/navbar/unit1.lfm
View File

@ -135,6 +135,7 @@ object Form1: TForm1
SelectedItemFont.Style = [fsBold]
ShowButtons = True
SoundAlias = 'c:\windows\media\tada.wav'
OnFolderClick = VpNavBar1FolderClick
OnItemClick = VpNavBar1ItemClick
OnFolderChanged = VpNavBar1FolderChanged
Align = alLeft
@ -678,8 +679,8 @@ object Form1: TForm1
object Images: TImageList
Height = 32
Width = 32
Left = 400
Top = 32
Left = 48
Top = 360
Bitmap = {
4C7A0A0000002000000020000000492E00000000000078DAED5D075815C7DADE
5C35E5BF496E921B4D4CEED514D3AE2651D3ED1A5B9AB1C4DE638D8A26D8B10B

18
components/tvplanit/examples/navbar/unit1.pas
View File

@ -67,6 +67,8 @@ type
procedure GbIconClick(Sender: TObject);
procedure RbBkColorChange(Sender: TObject);
procedure VpNavBar1FolderChanged(Sender: TObject; Index: Integer);
procedure VpNavBar1FolderClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; Index: Integer);
procedure VpNavBar1ItemClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; Index: Integer);
private
@ -251,6 +253,8 @@ begin
EdBkImage.ButtonWidth := EdBkImage.Height;
EdSoundFile.ButtonWidth := EdSoundFile.Height;
VpNavBar1.DragMarkerColor := clWhite;
end;
procedure TForm1.IconsLinkClick(Sender: TObject);
@ -310,10 +314,18 @@ procedure TForm1.VpNavBar1FolderChanged(Sender: TObject; Index: Integer);
var
folder: TVpNavFolder;
begin
// GbIcon.OnClick := nil;
folder := VpNavBar1.Folders[Index];
cmbIconSize.ItemIndex := ord(folder.IconSize);
// GbIcon.OnClick := @RgIconSizeClick;
end;
procedure TForm1.VpNavBar1FolderClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; Index: Integer);
var
folder: TVpNavFolder;
begin
folder := VpNavBar1.Folders[Index];
Label1.Caption := Format('Folder "%s" clicked.', [folder.Caption]);
end;
procedure TForm1.VpNavBar1ItemClick(Sender: TObject; Button: TMouseButton;
@ -324,7 +336,7 @@ var
begin
folder := VpNavBar1.Folders[VpNavBar1.ActiveFolder];
item := folder.Items[Index];
Label1.Caption := Format('Item "%s" clicked', [item.Caption]);
Label1.Caption := Format('Item "%s" clicked.', [item.Caption]);
end;
end.