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

RxFPC:fix rxtoolbar config dialog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6759 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-12-17 07:52:47 +00:00
parent 84934d02c9
commit ca80c68d6b
1 changed files with 19 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
components/rx/trunk/rxcontrols/rxtbrsetup.pas
View File

@ -82,6 +82,7 @@ type
private private
procedure FillItems(List:TStrings; AVisible:boolean); procedure FillItems(List:TStrings; AVisible:boolean);
procedure UpdateStates; procedure UpdateStates;
procedure UpdateButtonIndex;
procedure Localize; procedure Localize;
public public
FToolPanel:TToolPanel; FToolPanel:TToolPanel;
@ -254,6 +255,20 @@ begin
cbShowCaption.Enabled:=false; cbShowCaption.Enabled:=false;
end; end;
procedure TToolPanelSetupForm.UpdateButtonIndex;
var
P: TToolbarItem;
i: Integer;
begin
FToolPanel.DisableAlign;
for i:=0 to ListBtnVisible.Items.Count-1 do
begin
P:=TToolbarItem(ListBtnVisible.Items.Objects[i]);
P.Index:=i;
end;
FToolPanel.EnableAlign;
end;
procedure TToolPanelSetupForm.Localize; procedure TToolPanelSetupForm.Localize;
begin begin
Caption:=sToolPanelSetup; Caption:=sToolPanelSetup;
@ -311,29 +326,29 @@ end;
procedure TToolPanelSetupForm.btnLeftClick(Sender: TObject); procedure TToolPanelSetupForm.btnLeftClick(Sender: TObject);
begin begin
BoxMoveSelectedItems(ListBtnAvaliable, ListBtnVisible); BoxMoveSelectedItems(ListBtnAvaliable, ListBtnVisible);
UpdateButtonIndex;
UpdateStates; UpdateStates;
FToolPanel.ReAlign;
end; end;
procedure TToolPanelSetupForm.btnLeft2Click(Sender: TObject); procedure TToolPanelSetupForm.btnLeft2Click(Sender: TObject);
begin begin
BoxMoveAllItems(ListBtnAvaliable, ListBtnVisible); BoxMoveAllItems(ListBtnAvaliable, ListBtnVisible);
UpdateButtonIndex;
UpdateStates; UpdateStates;
FToolPanel.ReAlign;
end; end;
procedure TToolPanelSetupForm.btnRightClick(Sender: TObject); procedure TToolPanelSetupForm.btnRightClick(Sender: TObject);
begin begin
BoxMoveSelectedItems(ListBtnVisible, ListBtnAvaliable); BoxMoveSelectedItems(ListBtnVisible, ListBtnAvaliable);
UpdateButtonIndex;
UpdateStates; UpdateStates;
FToolPanel.ReAlign;
end; end;
procedure TToolPanelSetupForm.btnRight2Click(Sender: TObject); procedure TToolPanelSetupForm.btnRight2Click(Sender: TObject);
begin begin
BoxMoveAllItems(ListBtnVisible, ListBtnAvaliable); BoxMoveAllItems(ListBtnVisible, ListBtnAvaliable);
UpdateButtonIndex;
UpdateStates; UpdateStates;
FToolPanel.ReAlign;
end; end;
procedure TToolPanelSetupForm.btnUpClick(Sender: TObject); procedure TToolPanelSetupForm.btnUpClick(Sender: TObject);
@ -352,7 +367,6 @@ begin
UpdateStates; UpdateStates;
FToolPanel.ReAlign; FToolPanel.ReAlign;
FToolPanel.ReAlign;
end; end;
constructor TToolPanelSetupForm.CreateSetupForm(AToolPanel: TToolPanel); constructor TToolPanelSetupForm.CreateSetupForm(AToolPanel: TToolPanel);