paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 02:17:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Bug fix: save custom data entered by the user.

Browse Source 
git-svn-id: trunk@57104 -
This commit is contained in:
balazs 2018-01-17 05:46:09 +00:00
parent 0bcb49ed21
commit afa1c5c035
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/onlinepackagemanager/opkman_createrepositorypackagefrm.pas
View File

@ -107,6 +107,7 @@ type
FDestDir: String;
FPackageOperation: TPackageOperation;
FTyp: Integer;
FFocusChanging: Boolean;
procedure VSTPackagesGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; {%H-}TextType: TVSTTextType; var CellText: String);
procedure VSTPackagesGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
@ -729,8 +730,9 @@ procedure TCreateRepositoryPackagesFrm.VSTPackagesFocusChanging(
Sender: TBaseVirtualTree; OldNode, NewNode: PVirtualNode; OldColumn,
NewColumn: TColumnIndex; var Allowed: Boolean);
begin
if (OldNode = nil) or (NewNode = nil) or (OldNode = NewNode) then
if (OldNode = nil) or (NewNode = nil) or (OldNode = NewNode) or (FFocusChanging) then
Exit;
FFocusChanging := True;
SaveExtraInfo(OldNode);
edCategories.Text := '';
edLazCompatibility.Text := '';
@ -751,6 +753,7 @@ var
PDData: PData;
Level: Integer;
begin
FFocusChanging := False;
if Node = nil then
Exit;
Level := FVSTPackages.GetNodeLevel(Node);