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

tvplanit: Fix incorrect enable/disable state of command buttons in vpNavBar component editor after exchanging listbox items.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6382 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-04 12:40:53 +00:00
parent c599028a0c
commit b1084a5d3f
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -624,7 +624,6 @@ begin
Item.Index := Item.Index - 1; Item.Index := Item.Index - 1;
PopulateItemList; PopulateItemList;
UpdateBtnStates;
if Assigned(Designer) then begin if Assigned(Designer) then begin
GlobalDesignHook.SelectOnlyThis(nil); GlobalDesignHook.SelectOnlyThis(nil);
@ -632,6 +631,8 @@ begin
Designer.Modified; Designer.Modified;
end; end;
end; end;
UpdateBtnStates;
end; end;
procedure TfrmNavBarEd.btnItemDownClick(Sender: TObject); procedure TfrmNavBarEd.btnItemDownClick(Sender: TObject);
@ -645,7 +646,6 @@ begin
Item.Index := Item.Index + 1; Item.Index := Item.Index + 1;
PopulateItemList; PopulateItemList;
UpdateBtnStates;
if Assigned(Designer) then begin if Assigned(Designer) then begin
GlobalDesignHook.SelectOnlyThis(nil); GlobalDesignHook.SelectOnlyThis(nil);
@ -653,6 +653,8 @@ begin
Designer.Modified; Designer.Modified;
end; end;
end; end;
UpdateBtnStates;
end; end;
procedure TfrmNavBarEd.btnFolderUpClick(Sender: TObject); procedure TfrmNavBarEd.btnFolderUpClick(Sender: TObject);
@ -669,7 +671,6 @@ begin
PopulateFolderList; PopulateFolderList;
lbFolders.ItemIndex := SaveItemIndex - 1; lbFolders.ItemIndex := SaveItemIndex - 1;
UpdateBtnStates;
if Assigned(Designer) then begin if Assigned(Designer) then begin
GlobalDesignHook.SelectOnlyThis(nil); GlobalDesignHook.SelectOnlyThis(nil);
@ -677,6 +678,8 @@ begin
Designer.Modified; Designer.Modified;
end; end;
end; end;
UpdateBtnStates;
end; end;
procedure TfrmNavBarEd.btnFolderDownClick(Sender: TObject); procedure TfrmNavBarEd.btnFolderDownClick(Sender: TObject);
@ -691,7 +694,6 @@ begin
PopulateFolderList; PopulateFolderList;
lbFolders.ItemIndex := Folder.Index; lbFolders.ItemIndex := Folder.Index;
UpdateBtnStates;
if Assigned(Designer) then begin if Assigned(Designer) then begin
GlobalDesignHook.SelectOnlyThis(nil); GlobalDesignHook.SelectOnlyThis(nil);
@ -699,6 +701,8 @@ begin
Designer.Modified; Designer.Modified;
end; end;
end; end;
UpdateBtnStates;
end; end;
procedure TfrmNavBarEd.btnItemDeleteClick(Sender: TObject); procedure TfrmNavBarEd.btnItemDeleteClick(Sender: TObject);