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

tvplanit: Make NavBar componente edit Hi-DPI aware (except for icons). Cleanup.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6385 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-04 14:26:36 +00:00
parent c5ed4281a9
commit 74675b1396
10 changed files with 113 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
components/tvplanit/source/design/vpnabed.lfm
View File

@ -13,7 +13,8 @@ object frmNavBarEd: TfrmNavBarEd
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
Position = poDefaultPosOnly
ShowHint = True
LCLVersion = '1.9.0.0'
object pnlFoldersAndItems: TPanel
Left = 0
@ -217,12 +218,12 @@ object frmNavBarEd: TfrmNavBarEd
AnchorSideLeft.Control = pnlItems
AnchorSideTop.Control = Panel4
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lbImages
AnchorSideRight.Control = btnUseImage
AnchorSideBottom.Control = Panel1
Left = 0
Height = 307
Top = 24
Width = 248
Width = 221
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 4
ItemHeight = 13
@ -393,11 +394,23 @@ object frmNavBarEd: TfrmNavBarEd
Width = 48
Anchors = [akTop, akRight, akBottom]
ItemHeight = 0
OnClick = lbImagesClick
OnDrawItem = lbImagesDrawItem
Style = lbOwnerDrawFixed
TabOrder = 3
end
object btnUseImage: TSpeedButton
AnchorSideTop.Control = lbImages
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lbImages
Left = 225
Height = 22
Hint = 'Use image in navigation bar'
Top = 166
Width = 23
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
OnClick = btnUseImageClick
end
end
object Bevel1: TBevel
AnchorSideLeft.Control = pnlFoldersAndItems