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

tvplanit: Fix list-index-out-of-bounds error of freshly created NavBar (issue #33670)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6368 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-02 04:49:38 +00:00
parent 06000dcd6c
commit 44ec7c690b
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/languages/vpsr.fi.po
View File

@@ -452,9 +452,10 @@ msgid "Error: Failure while creating Task."
msgstr "" msgstr ""
#: vpsr.rsfalse #: vpsr.rsfalse
#, fuzzy
msgctxt "vpsr.rsfalse" msgctxt "vpsr.rsfalse"
msgid "F" msgid "F"
msgstr "" msgstr "P"
#: vpsr.rsfirstnamelbl #: vpsr.rsfirstnamelbl
msgid "First name:" msgid "First name:"

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

@@ -3071,6 +3071,9 @@ var
folder: TVpNavFolder; folder: TVpNavFolder;
TR: TRect; TR: TRect;
begin begin
if FActiveFolder = -1 then
exit;
{For container style folders...} {For container style folders...}
{Hide the containers for all inactive folders} {Hide the containers for all inactive folders}