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

tvplanit: Fix VpNavBar component editor crashing after adding an item if no image list is assigned.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6418 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-15 20:44:00 +00:00
parent fd634956fd
commit 8c17a2d31b
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -209,11 +209,9 @@ object frmNavBarEd: TfrmNavBarEd
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 4
BorderSpacing.Right = 4
ItemHeight = 13
ItemHeight = 0
OnClick = lbItemsClick
OnDrawItem = lbItemsDrawItem
OnMeasureItem = lbItemsMeasureItem
Style = lbOwnerDrawVariable
TabOrder = 0
end
object pnlItemBtns: TPanel

11
components/tvplanit/source/design/vpnabed.pas
View File

@ -536,8 +536,15 @@ begin
FBar := ABar;
FDesigner := ADesigner;
if FBar <> nil then
if FBar <> nil then begin
FBar.FreeNotification(self);
if FBar.Images = nil then
lbItems.Style := lbStandard
else begin
lbItems.ItemHeight := FBar.Images.Height + 2 * vITEMS_MARGIN;
lbItems.Style := lbOwnerDrawFixed;
end;
end;
PopulateFolderList;
PopulateImagesList;
@ -632,8 +639,8 @@ begin
(Rect.Top + Rect.Bottom - Bar.Images.Height) div 2,
btn.IconIndex
);
dec(Rect.Right, Bar.Images.Width + 2*delta);
end;
dec(Rect.Right, Bar.Images.Width + 2*delta);
// Draw text
ts := lb.Canvas.TextStyle;