paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 22:59:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Improve Up/Down button behavior in component palette options.

Browse Source 
git-svn-id: trunk@46893 -
This commit is contained in:
juha 2014-11-20 09:52:15 +00:00
parent 15239eb985
commit 530a72b248
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/frames/componentpalette_options.pas
View File

@ -71,6 +71,7 @@ type
private private
fLocalOptions: TCompPaletteOptions; fLocalOptions: TCompPaletteOptions;
fLocalUserOrder: TCompPaletteUserOrder; fLocalUserOrder: TCompPaletteUserOrder;
fPrevPageIndex: Integer;
procedure WritePages(cpo: TCompPaletteOptions); procedure WritePages(cpo: TCompPaletteOptions);
procedure WriteComponents(cpo: TCompPaletteOptions); procedure WriteComponents(cpo: TCompPaletteOptions);
procedure FillPages; procedure FillPages;
@ -140,6 +141,8 @@ begin
CompMoveUpBtn.Hint:=lisMoveSelectedUp; CompMoveUpBtn.Hint:=lisMoveSelectedUp;
CompMoveDownBtn.Hint:=lisMoveSelectedDown; CompMoveDownBtn.Hint:=lisMoveSelectedDown;
fPrevPageIndex := -1;
UpdateButtons; UpdateButtons;
UpdatePageMoveButtons(PagesListBox.ItemIndex); UpdatePageMoveButtons(PagesListBox.ItemIndex);
UpdateCompMoveButtons(ComponentsListView.ItemIndex); UpdateCompMoveButtons(ComponentsListView.ItemIndex);
@ -320,9 +323,12 @@ var
lb: TListBox; lb: TListBox;
begin begin
lb := Sender as TListBox; lb := Sender as TListBox;
if lb.ItemIndex = fPrevPageIndex then Exit;
FillComponents(lb.Items[lb.ItemIndex]); FillComponents(lb.Items[lb.ItemIndex]);
UpdateButtons; UpdateButtons;
UpdateCompMoveButtons(ComponentsListView.ItemIndex); UpdatePageMoveButtons(lb.ItemIndex);
UpdateCompMoveButtons(-1);
fPrevPageIndex := lb.ItemIndex;
end; end;
procedure TCompPaletteOptionsFrame.AddPageButtonClick(Sender: TObject); procedure TCompPaletteOptionsFrame.AddPageButtonClick(Sender: TObject);
@ -474,7 +480,8 @@ end;
procedure TCompPaletteOptionsFrame.ComponentsListViewChange(Sender: TObject; procedure TCompPaletteOptionsFrame.ComponentsListViewChange(Sender: TObject;
Item: TListItem; Change: TItemChange); Item: TListItem; Change: TItemChange);
begin begin
UpdateCompMoveButtons(ComponentsListView.ItemIndex); if Item.Selected then
UpdateCompMoveButtons(ComponentsListView.Items.IndexOf(Item));
end; end;
procedure TCompPaletteOptionsFrame.ComponentsListViewClick(Sender: TObject); procedure TCompPaletteOptionsFrame.ComponentsListViewClick(Sender: TObject);