mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 21:39:11 +02:00
added some resourcestrings for image list editor
git-svn-id: trunk@7342 -
This commit is contained in:
parent
733f344443
commit
4e16359646
@ -392,7 +392,7 @@ begin
|
|||||||
//Enabled :=False;
|
//Enabled :=False;
|
||||||
Enabled :=True;
|
Enabled :=True;
|
||||||
//Caption :=sccsILBtnClear;
|
//Caption :=sccsILBtnClear;
|
||||||
Caption := 'Move Up';
|
Caption := cActionListEditorMoveUpAction;
|
||||||
OnClick := @OnClickMoveUp;
|
OnClick := @OnClickMoveUp;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -407,42 +407,42 @@ begin
|
|||||||
//Enabled :=False;
|
//Enabled :=False;
|
||||||
Enabled :=True;
|
Enabled :=True;
|
||||||
//Caption :=sccsILBtnClear;
|
//Caption :=sccsILBtnClear;
|
||||||
Caption := 'Move Down';
|
Caption := cActionListEditorMoveDownAction;
|
||||||
OnClick := @OnClickMoveDown;
|
OnClick := @OnClickMoveDown;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
FmnuLVPopupAdd := TMenuItem.Create(Self);
|
FmnuLVPopupAdd := TMenuItem.Create(Self);
|
||||||
With FmnuLVPopupAdd do
|
With FmnuLVPopupAdd do
|
||||||
begin
|
begin
|
||||||
Caption := 'Add';
|
Caption := ilesAdd;
|
||||||
OnClick := @OnClickAdd;
|
OnClick := @OnClickAdd;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
FmnuLVPopupDelete := TMenuItem.Create(Self);
|
FmnuLVPopupDelete := TMenuItem.Create(Self);
|
||||||
With FmnuLVPopupDelete do
|
With FmnuLVPopupDelete do
|
||||||
begin
|
begin
|
||||||
Caption := 'Delete';
|
Caption := oisDelete;
|
||||||
OnClick := @OnClickDel;
|
OnClick := @OnClickDel;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
FmnuLVPopupClear := TMenuItem.Create(Self);
|
FmnuLVPopupClear := TMenuItem.Create(Self);
|
||||||
With FmnuLVPopupClear do
|
With FmnuLVPopupClear do
|
||||||
begin
|
begin
|
||||||
Caption := 'Clear';
|
Caption := sccsILBtnClear;
|
||||||
OnClick := @OnClickClear;
|
OnClick := @OnClickClear;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
FmnuLVPopupMoveUp := TMenuItem.Create(Self);
|
FmnuLVPopupMoveUp := TMenuItem.Create(Self);
|
||||||
With FmnuLVPopupMoveUp do
|
With FmnuLVPopupMoveUp do
|
||||||
begin
|
begin
|
||||||
Caption := 'Move Up';
|
Caption := cActionListEditorMoveUpAction;
|
||||||
OnClick := @OnClickMoveUp;
|
OnClick := @OnClickMoveUp;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
FmnuLVPopupMoveDown := TMenuItem.Create(Self);
|
FmnuLVPopupMoveDown := TMenuItem.Create(Self);
|
||||||
With FmnuLVPopupMoveDown do
|
With FmnuLVPopupMoveDown do
|
||||||
begin
|
begin
|
||||||
Caption := 'Move Down';
|
Caption := cActionListEditorMoveDownAction;
|
||||||
OnClick := @OnClickMoveDown;
|
OnClick := @OnClickMoveDown;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -125,6 +125,7 @@ resourcestring
|
|||||||
cActionListEditorNewAction = 'New Action';
|
cActionListEditorNewAction = 'New Action';
|
||||||
cActionListEditorNewStdAction = 'New Standard Action';
|
cActionListEditorNewStdAction = 'New Standard Action';
|
||||||
cActionListEditorMoveDownAction = 'Move Down';
|
cActionListEditorMoveDownAction = 'Move Down';
|
||||||
|
ilesAdd = 'Add';
|
||||||
cActionListEditorMoveUpAction = 'Move Up';
|
cActionListEditorMoveUpAction = 'Move Up';
|
||||||
cActionListEditorDeleteActionHint = 'Delete Action';
|
cActionListEditorDeleteActionHint = 'Delete Action';
|
||||||
cActionListEditorDeleteAction = 'Delete';
|
cActionListEditorDeleteAction = 'Delete';
|
||||||
|
Loading…
Reference in New Issue
Block a user