added some resourcestrings for image list editor

git-svn-id: trunk@7342 -
This commit is contained in:
mattias 2005-07-13 17:27:17 +00:00
parent 733f344443
commit 4e16359646
2 changed files with 8 additions and 7 deletions

View File

@ -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;

View File

@ -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';