paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 11:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 48878 #c9ad1bd666 from trunk:

Browse Source 
Packager: When adding a new component, update palette page only if there is one. Issue #27985
........

git-svn-id: branches/fixes_1_4@48907 -
This commit is contained in:
maxim 2015-04-29 21:40:44 +00:00
parent 1329963926
commit 4964caa738
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packager/addtopackagedlg.pas
View File

@ -1175,7 +1175,8 @@ begin
ClassNameEdit.Text:=IDEComponentPalette.CreateNewClassName(
fLastNewComponentAncestorType);
// choose the same page name
if (PalettePageCombobox.Text='') and (PkgComponent<>nil) then
if (PalettePageCombobox.Text='')
and (PkgComponent<>nil) and (PkgComponent.RealPage<>nil) then
PalettePageCombobox.Text:=PkgComponent.RealPage.PageName;
// filename
AutoCompleteNewComponentUnitName;