mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-07 04:18:48 +02:00
ideintf: redo collection editor form to use actions + shortcuts
git-svn-id: trunk@24948 -
This commit is contained in:
paul
parent
84f083d83e
commit
f766d27054
@ -1,11 +1,10 @@
|
||||
object CollectionPropertyEditorForm: TCollectionPropertyEditorForm
|
||||
Left = 176
|
||||
Left = 742
|
||||
Height = 300
|
||||
Top = 232
|
||||
Width = 190
|
||||
HorzScrollBar.Page = 189
|
||||
VertScrollBar.Page = 299
|
||||
ActiveControl = CollectionListBox
|
||||
BorderStyle = bsSizeToolWin
|
||||
Caption = 'CollectionPropertyEditorForm'
|
||||
ClientHeight = 300
|
||||
@ -30,33 +29,37 @@ object CollectionPropertyEditorForm: TCollectionPropertyEditorForm
|
||||
object AddButton: TToolButton
|
||||
Left = 1
|
||||
Top = 2
|
||||
Caption = 'Add'
|
||||
OnClick = AddButtonClick
|
||||
Action = actAdd
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
end
|
||||
object DeleteButton: TToolButton
|
||||
Left = 45
|
||||
Top = 2
|
||||
Caption = 'Delete'
|
||||
OnClick = DeleteButtonClick
|
||||
Action = actDel
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 89
|
||||
Top = 2
|
||||
Width = 3
|
||||
Width = 4
|
||||
Caption = 'ToolButton3'
|
||||
Style = tbsDivider
|
||||
end
|
||||
object MoveUpButton: TToolButton
|
||||
Left = 92
|
||||
Left = 93
|
||||
Top = 2
|
||||
Caption = 'Up'
|
||||
OnClick = MoveUpButtonClick
|
||||
Action = actMoveUp
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
end
|
||||
object MoveDownButton: TToolButton
|
||||
Left = 136
|
||||
Left = 137
|
||||
Top = 2
|
||||
Caption = 'Down'
|
||||
OnClick = MoveDownButtonClick
|
||||
Action = actMoveDown
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
end
|
||||
end
|
||||
object CollectionListBox: TListBox
|
||||
@ -69,4 +72,26 @@ object CollectionPropertyEditorForm: TCollectionPropertyEditorForm
|
||||
OnClick = CollectionListBoxClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
left = 61
|
||||
top = 109
|
||||
object actAdd: TAction
|
||||
Caption = 'Add'
|
||||
OnExecute = actAddExecute
|
||||
ShortCut = 45
|
||||
end
|
||||
object actDel: TAction
|
||||
Caption = 'Del'
|
||||
OnExecute = actDelExecute
|
||||
ShortCut = 46
|
||||
end
|
||||
object actMoveUp: TAction
|
||||
Caption = 'Up'
|
||||
OnExecute = actMoveUpExecute
|
||||
end
|
||||
object actMoveDown: TAction
|
||||
Caption = 'Down'
|
||||
OnExecute = actMoveDownExecute
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -5,12 +5,17 @@ unit CollectionPropEditForm;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Forms, ComCtrls, StdCtrls;
|
||||
Classes, SysUtils, Forms, ComCtrls, StdCtrls, ActnList, LCLType;
|
||||
|
||||
type
|
||||
{ TCollectionPropertyEditorForm }
|
||||
|
||||
TCollectionPropertyEditorForm = class(TForm)
|
||||
actAdd: TAction;
|
||||
actDel: TAction;
|
||||
actMoveUp: TAction;
|
||||
actMoveDown: TAction;
|
||||
ActionList1: TActionList;
|
||||
CollectionListBox: TListBox;
|
||||
ToolBar1: TToolBar;
|
||||
AddButton: TToolButton;
|
||||
@ -18,13 +23,13 @@ type
|
||||
ToolButton3: TToolButton;
|
||||
MoveUpButton: TToolButton;
|
||||
MoveDownButton: TToolButton;
|
||||
procedure AddButtonClick(Sender: TObject);
|
||||
procedure actAddExecute(Sender: TObject);
|
||||
procedure actDelExecute(Sender: TObject);
|
||||
procedure actMoveDownExecute(Sender: TObject);
|
||||
procedure actMoveUpExecute(Sender: TObject);
|
||||
procedure CollectionListBoxClick(Sender: TObject);
|
||||
procedure DeleteButtonClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure MoveDownButtonClick(Sender: TObject);
|
||||
procedure MoveUpButtonClick(Sender: TObject);
|
||||
private
|
||||
FCollection: TCollection;
|
||||
FOwnerPersistent: TPersistent;
|
||||
@ -57,14 +62,21 @@ uses
|
||||
procedure TCollectionPropertyEditorForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
ToolBar1.Images := IDEImages.Images_16;
|
||||
AddButton.Caption := oiColEditAdd;
|
||||
DeleteButton.Caption := oiColEditDelete;
|
||||
MoveUpButton.Caption := oiColEditUp;
|
||||
MoveDownButton.Caption := oiColEditDown;
|
||||
AddButton.ImageIndex := IDEImages.LoadImage(16, 'laz_add');
|
||||
DeleteButton.ImageIndex := IDEImages.LoadImage(16, 'laz_delete');
|
||||
MoveUpButton.ImageIndex := IDEImages.LoadImage(16, 'arrow_up');
|
||||
MoveDownButton.ImageIndex := IDEImages.LoadImage(16, 'arrow_down');
|
||||
actAdd.Caption := oiColEditAdd;
|
||||
actDel.Caption := oiColEditDelete;
|
||||
actMoveUp.Caption := oiColEditUp;
|
||||
actMoveDown.Caption := oiColEditDown;
|
||||
actAdd.ImageIndex := IDEImages.LoadImage(16, 'laz_add');
|
||||
actDel.ImageIndex := IDEImages.LoadImage(16, 'laz_delete');
|
||||
actMoveUp.ImageIndex := IDEImages.LoadImage(16, 'arrow_up');
|
||||
actMoveDown.ImageIndex := IDEImages.LoadImage(16, 'arrow_down');
|
||||
actMoveUp.ShortCut := scCtrl or VK_UP;
|
||||
actMoveDown.ShortCut := scCtrl or VK_DOWN;
|
||||
|
||||
actAdd.Hint := oiColEditAdd;
|
||||
actDel.Hint := oiColEditDelete;
|
||||
actMoveUp.Hint := oiColEditUp;
|
||||
actMoveDown.Hint := oiColEditDown;
|
||||
end;
|
||||
|
||||
procedure TCollectionPropertyEditorForm.FormDestroy(Sender: TObject);
|
||||
@ -73,41 +85,14 @@ begin
|
||||
GlobalDesignHook.RemoveAllHandlersForObject(Self);
|
||||
end;
|
||||
|
||||
procedure TCollectionPropertyEditorForm.MoveDownButtonClick(Sender: TObject);
|
||||
var
|
||||
I: Integer;
|
||||
procedure TCollectionPropertyEditorForm.CollectionListBoxClick(Sender: TObject);
|
||||
begin
|
||||
if Collection = nil then Exit;
|
||||
|
||||
I := CollectionListBox.ItemIndex;
|
||||
if I >= Collection.Count - 1 then Exit;
|
||||
|
||||
Collection.Items[I].Index := I + 1;
|
||||
CollectionListBox.ItemIndex := I + 1;
|
||||
|
||||
FillCollectionListBox;
|
||||
SelectInObjectInspector(True, False);
|
||||
Modified;
|
||||
UpdateButtons;
|
||||
UpdateCaption;
|
||||
SelectInObjectInspector(False, False);
|
||||
end;
|
||||
|
||||
procedure TCollectionPropertyEditorForm.MoveUpButtonClick(Sender: TObject);
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
if Collection = nil then Exit;
|
||||
|
||||
I := CollectionListBox.ItemIndex;
|
||||
if I < 0 then Exit;
|
||||
|
||||
Collection.Items[I].Index := I - 1;
|
||||
CollectionListBox.ItemIndex := I - 1;
|
||||
|
||||
FillCollectionListBox;
|
||||
SelectInObjectInspector(True, False);
|
||||
Modified;
|
||||
end;
|
||||
|
||||
procedure TCollectionPropertyEditorForm.AddButtonClick(Sender: TObject);
|
||||
procedure TCollectionPropertyEditorForm.actAddExecute(Sender: TObject);
|
||||
begin
|
||||
if Collection = nil then Exit;
|
||||
Collection.Add;
|
||||
@ -121,14 +106,7 @@ begin
|
||||
Modified;
|
||||
end;
|
||||
|
||||
procedure TCollectionPropertyEditorForm.CollectionListBoxClick(Sender: TObject);
|
||||
begin
|
||||
UpdateButtons;
|
||||
UpdateCaption;
|
||||
SelectInObjectInspector(False, False);
|
||||
end;
|
||||
|
||||
procedure TCollectionPropertyEditorForm.DeleteButtonClick(Sender: TObject);
|
||||
procedure TCollectionPropertyEditorForm.actDelExecute(Sender: TObject);
|
||||
var
|
||||
I : Integer;
|
||||
NewItemIndex: Integer;
|
||||
@ -180,6 +158,40 @@ begin
|
||||
UpdateCaption;
|
||||
end;
|
||||
|
||||
procedure TCollectionPropertyEditorForm.actMoveDownExecute(Sender: TObject);
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
if Collection = nil then Exit;
|
||||
|
||||
I := CollectionListBox.ItemIndex;
|
||||
if I >= Collection.Count - 1 then Exit;
|
||||
|
||||
Collection.Items[I].Index := I + 1;
|
||||
CollectionListBox.ItemIndex := I + 1;
|
||||
|
||||
FillCollectionListBox;
|
||||
SelectInObjectInspector(True, False);
|
||||
Modified;
|
||||
end;
|
||||
|
||||
procedure TCollectionPropertyEditorForm.actMoveUpExecute(Sender: TObject);
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
if Collection = nil then Exit;
|
||||
|
||||
I := CollectionListBox.ItemIndex;
|
||||
if I < 0 then Exit;
|
||||
|
||||
Collection.Items[I].Index := I - 1;
|
||||
CollectionListBox.ItemIndex := I - 1;
|
||||
|
||||
FillCollectionListBox;
|
||||
SelectInObjectInspector(True, False);
|
||||
Modified;
|
||||
end;
|
||||
|
||||
procedure TCollectionPropertyEditorForm.UpdateCaption;
|
||||
var
|
||||
NewCaption: String;
|
||||
@ -207,10 +219,10 @@ var
|
||||
I: Integer;
|
||||
begin
|
||||
I := CollectionListBox.ItemIndex;
|
||||
AddButton.Enabled := Collection <> nil;
|
||||
DeleteButton.Enabled := I > -1;
|
||||
MoveUpButton.Enabled := I > 0;
|
||||
MoveDownButton.Enabled := (I >= 0) and (I < Collection.Count - 1);
|
||||
actAdd.Enabled := Collection <> nil;
|
||||
actDel.Enabled := I > -1;
|
||||
actMoveUp.Enabled := I > 0;
|
||||
actMoveDown.Enabled := (I >= 0) and (I < Collection.Count - 1);
|
||||
end;
|
||||
|
||||
procedure TCollectionPropertyEditorForm.ComponentRenamed(AComponent: TComponent);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user