paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 18:38:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: Fix "new action" button dropdown arrow.

Browse Source 
git-svn-id: trunk@55668 -
This commit is contained in:
wp 2017-08-16 16:00:52 +00:00
parent dbafc2dacb
commit a3f0b7435a
2 changed files with 17 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/ideintf/actionseditor.lfm
View File

@ -16,7 +16,7 @@ object ActionListEditor: TActionListEditor
OnKeyPress = ActionListEditorKeyPress OnKeyPress = ActionListEditorKeyPress
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7' LCLVersion = '1.9.0.0'
object PanelDescr: TPanel object PanelDescr: TPanel
Left = 0 Left = 0
Height = 26 Height = 26
@ -33,7 +33,7 @@ object ActionListEditor: TActionListEditor
Left = 6 Left = 6
Height = 15 Height = 15
Top = 6 Top = 6
Width = 67 Width = 59
Caption = 'Categories:' Caption = 'Categories:'
ParentColor = False ParentColor = False
end end
@ -41,7 +41,7 @@ object ActionListEditor: TActionListEditor
Left = 162 Left = 162
Height = 15 Height = 15
Top = 6 Top = 6
Width = 48 Width = 43
Caption = 'Actions:' Caption = 'Actions:'
ParentColor = False ParentColor = False
end end
@ -101,34 +101,28 @@ object ActionListEditor: TActionListEditor
Left = 1 Left = 1
Top = 0 Top = 0
Action = ActNew Action = ActNew
end
object btnAddMore: TToolButton
Left = 27
Top = 0
Caption = 'btnAddMore'
DropdownMenu = PopMenuToolBarActions DropdownMenu = PopMenuToolBarActions
ImageIndex = 0 Style = tbsDropDown
end end
object btnDelete: TToolButton object btnDelete: TToolButton
Left = 53 Left = 39
Top = 0 Top = 0
Action = ActDelete Action = ActDelete
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 79 Left = 65
Height = 26 Height = 26
Top = 0 Top = 0
Width = 5
Caption = 'ToolButton4' Caption = 'ToolButton4'
Style = tbsDivider Style = tbsDivider
end end
object btnUp: TToolButton object btnUp: TToolButton
Left = 84 Left = 70
Top = 0 Top = 0
Action = ActMoveUp Action = ActMoveUp
end end
object btnDown: TToolButton object btnDown: TToolButton
Left = 110 Left = 96
Top = 0 Top = 0
Action = ActMoveDown Action = ActMoveDown
end end

22
components/ideintf/actionseditor.pas
View File

@ -106,7 +106,6 @@ type
Splitter: TSplitter; Splitter: TSplitter;
ToolBar1: TToolBar; ToolBar1: TToolBar;
btnAdd: TToolButton; btnAdd: TToolButton;
btnAddMore: TToolButton;
btnDelete: TToolButton; btnDelete: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
btnUp: TToolButton; btnUp: TToolButton;
@ -391,7 +390,7 @@ begin
ActMoveDown.Hint := cActionListEditorMoveDownAction; ActMoveDown.Hint := cActionListEditorMoveDownAction;
ActPanelDescr.Caption := cActionListEditorPanelDescrriptions; ActPanelDescr.Caption := cActionListEditorPanelDescrriptions;
ActPanelToolBar.Caption := cActionListEditorPanelToolBar; ActPanelToolBar.Caption := cActionListEditorPanelToolBar;
btnAddMore.Hint := cActionListEditorNewAction; btnAdd.Hint := cActionListEditorNewAction;
mItemToolBarNewAction.Caption := cActionListEditorNewAction; mItemToolBarNewAction.Caption := cActionListEditorNewAction;
mItemToolBarNewStdAction.Caption := cActionListEditorNewStdAction; mItemToolBarNewStdAction.Caption := cActionListEditorNewStdAction;
mItemActListNewAction.Caption := cActionListEditorNewAction; mItemActListNewAction.Caption := cActionListEditorNewAction;
@ -413,21 +412,18 @@ end;
procedure TActionListEditor.FormCreate(Sender: TObject); procedure TActionListEditor.FormCreate(Sender: TObject);
var var
ImageSize: Integer; ImageSize: Integer;
Details: TThemedElementDetails;
begin begin
ImageSize := TIDEImages.ScaledSize; ImageSize := TIDEImages.ScaledSize;
ImageList1.Width := ImageSize; ImageList1.Width := ImageSize;
ImageList1.Height := ImageSize; ImageList1.Height := ImageSize;
TIDEImages.AddImageToImageList(ImageList1, 'btn_downarrow'); //imageindex 0 TIDEImages.AddImageToImageList(ImageList1, 'laz_add'); //imageindex 0
TIDEImages.AddImageToImageList(ImageList1, 'laz_add'); //imageindex 1 TIDEImages.AddImageToImageList(ImageList1, 'laz_delete'); //imageindex 1
TIDEImages.AddImageToImageList(ImageList1, 'laz_delete'); //imageindex 2 TIDEImages.AddImageToImageList(ImageList1, 'arrow_up'); //imadeindex 2
TIDEImages.AddImageToImageList(ImageList1, 'arrow_up'); //imadeindex 3 TIDEImages.AddImageToImageList(ImageList1, 'arrow_down'); //imageindex 3
TIDEImages.AddImageToImageList(ImageList1, 'arrow_down'); //imageindex 4 btnAdd.ImageIndex := 0;
btnAddMore.ImageIndex := 0; btnDelete.ImageIndex := 1;
btnAdd.ImageIndex := 1; btnUp.ImageIndex := 2;
btnDelete.ImageIndex := 2; btnDown.ImageIndex := 3;
btnUp.ImageIndex := 3;
btnDown.ImageIndex := 4;
end; end;
procedure TActionListEditor.FormShow(Sender: TObject); procedure TActionListEditor.FormShow(Sender: TObject);