mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 21:18:20 +02:00
ideintf: Fix "new action" button dropdown arrow.
git-svn-id: trunk@55668 -
This commit is contained in:
parent
dbafc2dacb
commit
a3f0b7435a
@ -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
|
||||||
|
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user