mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-23 04:39:36 +02:00
added TCheckGroup/TCheckListBox component editors from SALVATORE COPPOLA
git-svn-id: trunk@7297 -
This commit is contained in:
mattias
parent
8feeeb020d
commit
de2468df58
@ -26,7 +26,7 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, TypInfo, LCLProc, Forms, Controls, Menus, ExtCtrls,
|
||||
Graphics, Grids, Buttons, ComCtrls, Dialogs,
|
||||
Graphics, Grids, CheckLst, Buttons, ComCtrls, Dialogs, GraphType,
|
||||
PropEdits, ObjInspStrConsts;
|
||||
|
||||
type
|
||||
@ -265,6 +265,34 @@ type
|
||||
end;
|
||||
|
||||
|
||||
{ TCheckListBoxComponentEditor
|
||||
The default componenteditor for TCheckListBox }
|
||||
|
||||
TCheckListBoxComponentEditor = class(TDefaultComponentEditor)
|
||||
protected
|
||||
procedure DoShowEditor;
|
||||
procedure AssignCheck(dstCheck, srcCheck: TCheckListBox);
|
||||
public
|
||||
procedure ExecuteVerb(Index: Integer); override;
|
||||
function GetVerb(Index: Integer): string; override;
|
||||
function GetVerbCount: Integer; override;
|
||||
end;
|
||||
|
||||
|
||||
{ TCheckGroupComponentEditor
|
||||
The default componenteditor for TCheckGroup }
|
||||
|
||||
TCheckGroupComponentEditor = class(TDefaultComponentEditor)
|
||||
protected
|
||||
procedure DoShowEditor;
|
||||
procedure AssignCheck(dstCheck, srcCheck: TCheckGroup);//; Full: boolean);
|
||||
public
|
||||
procedure ExecuteVerb(Index: Integer); override;
|
||||
function GetVerb(Index: Integer): string; override;
|
||||
function GetVerbCount: Integer; override;
|
||||
end;
|
||||
|
||||
|
||||
{ TToolBarComponentEditor
|
||||
The default componenteditor for TToolBar }
|
||||
|
||||
@ -928,6 +956,501 @@ begin
|
||||
Result:=1;
|
||||
end;
|
||||
|
||||
{ TCheckListBoxEditorDlg }
|
||||
|
||||
Type
|
||||
TCheckListBoxEditorDlg=Class(TForm)
|
||||
private
|
||||
FCheck: TCheckListBox;
|
||||
FBtnAdd,FBtnDelete,FBtnUp,FBtnDown,FBtnModify:TButton;
|
||||
FBtnOK,FBtnCancel:TBitBtn;
|
||||
FPanelButtons:TPanel;
|
||||
FPanelOKCancel:TPanel;
|
||||
protected
|
||||
procedure AddItem(Sender:TObject);
|
||||
procedure DeleteItem(Sender:TObject);
|
||||
procedure MoveUpItem(Sender:TObject);
|
||||
procedure MoveDownItem(Sender:TObject);
|
||||
procedure ModifyItem(Sender:TObject);
|
||||
public
|
||||
constructor create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
property Check: TCheckListBox read FCheck write FCheck;
|
||||
end;
|
||||
|
||||
constructor TCheckListBoxEditorDlg.create(AOwner: TComponent);
|
||||
begin
|
||||
inherited create(AOwner);
|
||||
BorderStyle:=bsDialog;
|
||||
Position:=poScreenCenter;
|
||||
Caption:=clbCheckListBoxEditor;
|
||||
SetBounds(0,0,200,300);
|
||||
|
||||
FPanelButtons:=TPanel.Create(Self);
|
||||
with FPanelButtons do begin
|
||||
Parent:=Self;
|
||||
Align:=alTop;
|
||||
BevelInner:=bvLowered;
|
||||
BevelOuter:=bvSpace;
|
||||
Height:=25;
|
||||
end;
|
||||
|
||||
//Button Add
|
||||
FBtnAdd:=TButton.Create(self);
|
||||
with FBtnAdd do begin
|
||||
Parent:=FPanelButtons;
|
||||
Align:=alLeft;
|
||||
Width:=43;
|
||||
Caption:=oiscAdd;
|
||||
OnClick:=@AddItem;
|
||||
end;
|
||||
|
||||
//Button Delete
|
||||
FBtnDelete:=TButton.Create(self);
|
||||
with FBtnDelete do begin
|
||||
Parent:=FPanelButtons;
|
||||
Align:=alLeft;
|
||||
Width:=43;
|
||||
Caption:=oiscDelete;
|
||||
OnClick:=@DeleteItem;
|
||||
end;
|
||||
|
||||
//Button Up
|
||||
FBtnUp:=TButton.Create(self);
|
||||
with FBtnUp do begin
|
||||
Parent:=FPanelButtons;
|
||||
Align:=alLeft;
|
||||
Width:=43;
|
||||
Caption:=clbUp;
|
||||
OnClick:=@MoveUpItem;
|
||||
end;
|
||||
|
||||
//Button Down
|
||||
FBtnDown:=TButton.Create(self);
|
||||
with FBtnDown do begin
|
||||
Parent:=FPanelButtons;
|
||||
Align:=alLeft;
|
||||
Width:=43;
|
||||
Caption:=clbDown;
|
||||
OnClick:=@MoveDownItem;
|
||||
end;
|
||||
|
||||
//Button Modify
|
||||
FBtnModify:=TButton.Create(self);
|
||||
with FBtnModify do begin
|
||||
Parent:=FPanelButtons;
|
||||
Align:=alClient;
|
||||
ShowHint:=true;
|
||||
Hint:=clbModify;
|
||||
Caption:='...';
|
||||
OnClick:=@ModifyItem;
|
||||
end;
|
||||
|
||||
FCheck:=TCheckListBox.Create(Self);
|
||||
with FCheck do begin
|
||||
Parent:=Self;
|
||||
Align:=alClient;
|
||||
end;
|
||||
|
||||
FPanelOKCancel:=TPanel.Create(Self);
|
||||
with FPanelOKCancel do begin
|
||||
Parent:=Self;
|
||||
Align:=alBottom;
|
||||
BevelInner:=bvLowered;
|
||||
BevelOuter:=bvSpace;
|
||||
Height:=25;
|
||||
end;
|
||||
|
||||
//Bnt Ok
|
||||
FBtnOK:=TBitBtn.Create(self);
|
||||
with FBtnOK do begin
|
||||
Parent:=FPanelOKCancel;
|
||||
Align:=alLeft;
|
||||
Kind:=bkOk;
|
||||
end;
|
||||
|
||||
//Bnt Cancel
|
||||
FBtnCancel:=TBitBtn.Create(self);
|
||||
with FBtnCancel do begin
|
||||
Parent:=FPanelOKCancel;
|
||||
Align:=alRight;
|
||||
Kind:=bkCancel;
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TCheckListBoxEditorDlg.Destroy;
|
||||
begin
|
||||
FreeThenNil(FCheck);
|
||||
FreeThenNil(FBtnAdd);
|
||||
FreeThenNil(FBtnDelete);
|
||||
FreeThenNil(FBtnUp);
|
||||
FreeThenNil(FBtnDown);
|
||||
FreeThenNil(FBtnModify);
|
||||
FreeThenNil(FBtnOK);
|
||||
FreeThenNil(FBtnCancel);
|
||||
FreeThenNil(FPanelOKCancel);
|
||||
FreeThenNil(FPanelButtons);
|
||||
inherited Destroy
|
||||
end;
|
||||
|
||||
procedure TCheckListBoxEditorDlg.AddItem(Sender:TObject);
|
||||
var strItem:string;
|
||||
begin
|
||||
if InputQuery(clbCheckListBoxEditor, clbAdd, strItem) then
|
||||
FCheck.Items.Add(strItem);
|
||||
end;
|
||||
|
||||
procedure TCheckListBoxEditorDlg.DeleteItem(Sender:TObject);
|
||||
begin
|
||||
if FCheck.ItemIndex=-1 then exit;
|
||||
if MessageDlg(clbCheckListBoxEditor,Format(clbDelete,[FCheck.ItemIndex,FCheck.Items[FCheck.ItemIndex]]),
|
||||
mtConfirmation, mbYesNo, 0)=mrYes then
|
||||
FCheck.Items.Delete(FCheck.ItemIndex);
|
||||
end;
|
||||
|
||||
procedure TCheckListBoxEditorDlg.MoveUpItem(Sender:TObject);
|
||||
var itemtmp:string;
|
||||
checkedtmp:boolean;
|
||||
begin
|
||||
if (FCheck.Items.Count<=1)or(FCheck.ItemIndex<1) then exit;
|
||||
itemtmp:=FCheck.Items[FCheck.ItemIndex-1];
|
||||
checkedtmp:=FCheck.Checked[FCheck.ItemIndex-1];
|
||||
FCheck.Items[FCheck.ItemIndex-1]:=FCheck.Items[FCheck.ItemIndex];
|
||||
FCheck.Checked[FCheck.ItemIndex-1]:=FCheck.Checked[FCheck.ItemIndex];
|
||||
FCheck.Items[FCheck.ItemIndex]:=itemtmp;
|
||||
FCheck.Checked[FCheck.ItemIndex]:=checkedtmp;
|
||||
FCheck.ItemIndex:=FCheck.ItemIndex-1
|
||||
end;
|
||||
|
||||
procedure TCheckListBoxEditorDlg.MoveDownItem(Sender:TObject);
|
||||
var itemtmp:string;
|
||||
checkedtmp:boolean;
|
||||
begin
|
||||
if (FCheck.Items.Count<=1)or(FCheck.ItemIndex=FCheck.Items.Count-1)or(FCheck.ItemIndex=-1) then exit;
|
||||
itemtmp:=FCheck.Items[FCheck.ItemIndex+1];
|
||||
checkedtmp:=FCheck.Checked[FCheck.ItemIndex+1];
|
||||
FCheck.Items[FCheck.ItemIndex+1]:=FCheck.Items[FCheck.ItemIndex];
|
||||
FCheck.Checked[FCheck.ItemIndex+1]:=FCheck.Checked[FCheck.ItemIndex];
|
||||
FCheck.Items[FCheck.ItemIndex]:=itemtmp;
|
||||
FCheck.Checked[FCheck.ItemIndex]:=checkedtmp;
|
||||
FCheck.ItemIndex:=FCheck.ItemIndex+1
|
||||
end;
|
||||
|
||||
procedure TCheckListBoxEditorDlg.ModifyItem(Sender:TObject);
|
||||
begin
|
||||
if FCheck.ItemIndex=-1 then exit;
|
||||
FCheck.Items[FCheck.ItemIndex]:=InputBox(clbCheckListBoxEditor,clbModify,FCheck.Items[FCheck.ItemIndex]);
|
||||
end;
|
||||
|
||||
{ TCheckListBoxComponentEditor }
|
||||
|
||||
procedure TCheckListBoxComponentEditor.DoShowEditor;
|
||||
var Dlg : TCheckListBoxEditorDlg;
|
||||
Hook: TPropertyEditorHook;
|
||||
aCheck: TCheckListBox;
|
||||
begin
|
||||
Dlg:=TCheckListBoxEditorDlg.Create(nil);
|
||||
try
|
||||
if GetComponent is TCheckListBox then begin
|
||||
aCheck:=TCheckListBox(GetComponent);
|
||||
GetHook(Hook);
|
||||
|
||||
AssignCheck(Dlg.FCheck, aCheck);
|
||||
|
||||
//ShowEditor
|
||||
if Dlg.ShowModal=mrOK then begin
|
||||
//Apply the modifications
|
||||
AssignCheck(aCheck, Dlg.FCheck);
|
||||
Modified;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
Dlg.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCheckListBoxComponentEditor.AssignCheck(dstCheck, srcCheck: TCheckListBox);// Full: boolean);
|
||||
var i: integer;
|
||||
begin
|
||||
DstCheck.Items.Clear;
|
||||
DstCheck.Items:=srcCheck.Items;
|
||||
DstCheck.ItemHeight:=srcCheck.ItemHeight;
|
||||
for i:=0 to srcCheck.Items.Count-1 do begin
|
||||
if srcCheck.Items[i]<>dstCheck.Items[i] then
|
||||
dstCheck.Items[i]:=srcCheck.Items[i];
|
||||
dstCheck.Checked[i]:=srcCheck.Checked[i]
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCheckListBoxComponentEditor.ExecuteVerb(Index: Integer);
|
||||
begin
|
||||
doShowEditor;
|
||||
end;
|
||||
|
||||
function TCheckListBoxComponentEditor.GetVerb(Index: Integer): string;
|
||||
begin
|
||||
Result:=clbCheckListBoxEditor+' ...';
|
||||
end;
|
||||
|
||||
function TCheckListBoxComponentEditor.GetVerbCount: Integer;
|
||||
begin
|
||||
Result:=1;
|
||||
end;
|
||||
|
||||
{ TCheckGroupEditorDlg }
|
||||
|
||||
Type
|
||||
TCheckGroupEditorDlg=Class(TForm)
|
||||
private
|
||||
FCheck: TCheckGroup;
|
||||
FBtnAdd,FBtnDelete,FBtnUp,FBtnDown,FBtnModify:TButton;
|
||||
FBtnOK,FBtnCancel:TBitBtn;
|
||||
FPanelButtons:TPanel;
|
||||
FPanelOKCancel:TPanel;
|
||||
ItemIndex:integer;
|
||||
protected
|
||||
procedure AddItem(Sender:TObject);
|
||||
procedure DeleteItem(Sender:TObject);
|
||||
procedure MoveUpItem(Sender:TObject);
|
||||
procedure MoveDownItem(Sender:TObject);
|
||||
procedure ModifyItem(Sender:TObject);
|
||||
procedure ItemClick(Sender: TObject; Index: integer);
|
||||
public
|
||||
constructor create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
property Check: TCheckGroup read FCheck write FCheck;
|
||||
end;
|
||||
|
||||
constructor TCheckGroupEditorDlg.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited create(AOwner);
|
||||
BorderStyle:=bsDialog;
|
||||
Position:=poScreenCenter;
|
||||
Caption:=clbCheckGroupEditor;
|
||||
SetBounds(0,0,200,300);
|
||||
ItemIndex:=-1;
|
||||
|
||||
FPanelButtons:=TPanel.Create(Self);
|
||||
with FPanelButtons do begin
|
||||
Parent:=Self;
|
||||
Align:=alTop;
|
||||
BevelInner:=bvLowered;
|
||||
BevelOuter:=bvSpace;
|
||||
Height:=25;
|
||||
end;
|
||||
|
||||
//Button Add
|
||||
FBtnAdd:=TButton.Create(self);
|
||||
with FBtnAdd do begin
|
||||
Parent:=FPanelButtons;
|
||||
Align:=alLeft;
|
||||
Width:=43;
|
||||
Caption:=oiscAdd;
|
||||
OnClick:=@AddItem;
|
||||
end;
|
||||
|
||||
//Button Delete
|
||||
FBtnDelete:=TButton.Create(self);
|
||||
with FBtnDelete do begin
|
||||
Parent:=FPanelButtons;
|
||||
Align:=alLeft;
|
||||
Width:=43;
|
||||
Caption:=oiscDelete;
|
||||
OnClick:=@DeleteItem;
|
||||
end;
|
||||
|
||||
//Button Up
|
||||
FBtnUp:=TButton.Create(self);
|
||||
with FBtnUp do begin
|
||||
Parent:=FPanelButtons;
|
||||
Align:=alLeft;
|
||||
Width:=43;
|
||||
Caption:=clbUp;
|
||||
OnClick:=@MoveUpItem;
|
||||
end;
|
||||
|
||||
//Button Down
|
||||
FBtnDown:=TButton.Create(self);
|
||||
with FBtnDown do begin
|
||||
Parent:=FPanelButtons;
|
||||
Align:=alLeft;
|
||||
Width:=43;
|
||||
Caption:=clbDown;
|
||||
OnClick:=@MoveDownItem;
|
||||
end;
|
||||
|
||||
//Button Modify
|
||||
FBtnModify:=TButton.Create(self);
|
||||
with FBtnModify do begin
|
||||
Parent:=FPanelButtons;
|
||||
Align:=alClient;
|
||||
ShowHint:=true;
|
||||
Hint:=clbModify;
|
||||
Caption:='...';
|
||||
OnClick:=@ModifyItem;
|
||||
end;
|
||||
|
||||
FCheck:=TCheckGroup.Create(Self);
|
||||
with FCheck do begin
|
||||
Parent:=Self;
|
||||
Align:=alClient;
|
||||
OnItemClick:=@ItemClick;
|
||||
end;
|
||||
|
||||
FPanelOKCancel:=TPanel.Create(Self);
|
||||
with FPanelOKCancel do begin
|
||||
Parent:=Self;
|
||||
Align:=alBottom;
|
||||
BevelInner:=bvLowered;
|
||||
BevelOuter:=bvSpace;
|
||||
Height:=25;
|
||||
end;
|
||||
|
||||
//Bnt Ok
|
||||
FBtnOK:=TBitBtn.Create(self);
|
||||
with FBtnOK do begin
|
||||
Parent:=FPanelOKCancel;
|
||||
Align:=alLeft;
|
||||
Kind:=bkOk;
|
||||
end;
|
||||
|
||||
//Bnt Cancel
|
||||
FBtnCancel:=TBitBtn.Create(self);
|
||||
with FBtnCancel do begin
|
||||
Parent:=FPanelOKCancel;
|
||||
Align:=alRight;
|
||||
Kind:=bkCancel;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
destructor TCheckGroupEditorDlg.Destroy;
|
||||
begin
|
||||
FreeThenNil(FCheck);
|
||||
FreeThenNil(FBtnAdd);
|
||||
FreeThenNil(FBtnDelete);
|
||||
FreeThenNil(FBtnUp);
|
||||
FreeThenNil(FBtnDown);
|
||||
FreeThenNil(FBtnModify);
|
||||
FreeThenNil(FBtnOK);
|
||||
FreeThenNil(FBtnCancel);
|
||||
FreeThenNil(FPanelOKCancel);
|
||||
FreeThenNil(FPanelButtons);
|
||||
inherited Destroy
|
||||
end;
|
||||
|
||||
procedure TCheckGroupEditorDlg.AddItem(Sender:TObject);
|
||||
var strItem:string;
|
||||
begin
|
||||
if InputQuery(clbCheckGroupEditor, clbAdd, strItem) then
|
||||
FCheck.Items.Add(strItem);
|
||||
end;
|
||||
|
||||
procedure TCheckGroupEditorDlg.DeleteItem(Sender:TObject);
|
||||
begin
|
||||
if ItemIndex=-1 then exit;
|
||||
if MessageDlg(clbCheckGroupEditor,Format(clbDelete,[ItemIndex, FCheck.Items[ItemIndex]]),
|
||||
mtConfirmation, mbYesNo, 0)=mrYes then begin
|
||||
FCheck.Items.Delete(ItemIndex);
|
||||
if ItemIndex>FCheck.Items.Count-1 then
|
||||
ItemIndex:=FCheck.Items.Count-1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCheckGroupEditorDlg.MoveUpItem(Sender:TObject);
|
||||
var itemtmp:string;
|
||||
checkedtmp:boolean;
|
||||
begin
|
||||
if (FCheck.Items.Count<=1)or(ItemIndex<1) then exit;
|
||||
itemtmp:=FCheck.Items[ItemIndex-1];
|
||||
checkedtmp:=FCheck.Checked[ItemIndex-1];
|
||||
FCheck.Items[ItemIndex-1]:=FCheck.Items[ItemIndex];
|
||||
FCheck.Checked[ItemIndex-1]:=FCheck.Checked[ItemIndex];
|
||||
FCheck.Items[ItemIndex]:=itemtmp;
|
||||
FCheck.Checked[ItemIndex]:=checkedtmp;
|
||||
ItemIndex:=ItemIndex-1
|
||||
end;
|
||||
|
||||
procedure TCheckGroupEditorDlg.MoveDownItem(Sender:TObject);
|
||||
var itemtmp:string;
|
||||
checkedtmp:boolean;
|
||||
begin
|
||||
if (FCheck.Items.Count<=1)or(ItemIndex=FCheck.Items.Count-1)or(ItemIndex=-1) then exit;
|
||||
itemtmp:=FCheck.Items[ItemIndex+1];
|
||||
checkedtmp:=FCheck.Checked[ItemIndex+1];
|
||||
FCheck.Items[ItemIndex+1]:=FCheck.Items[ItemIndex];
|
||||
FCheck.Checked[ItemIndex+1]:=FCheck.Checked[ItemIndex];
|
||||
FCheck.Items[ItemIndex]:=itemtmp;
|
||||
FCheck.Checked[ItemIndex]:=checkedtmp;
|
||||
ItemIndex:=ItemIndex+1
|
||||
end;
|
||||
|
||||
procedure TCheckGroupEditorDlg.ModifyItem(Sender:TObject);
|
||||
begin
|
||||
if ItemIndex=-1 then exit;
|
||||
FCheck.Items[ItemIndex]:=InputBox(clbCheckGroupEditor,clbModify,FCheck.Items[ItemIndex]);
|
||||
end;
|
||||
|
||||
procedure TCheckGroupEditorDlg.ItemClick(Sender: TObject; Index: integer);
|
||||
begin
|
||||
ItemIndex:=Index;
|
||||
end;
|
||||
|
||||
{ TCheckGroupComponentEditor }
|
||||
|
||||
procedure TCheckGroupComponentEditor.DoShowEditor;
|
||||
var Dlg : TCheckGroupEditorDlg;
|
||||
Hook: TPropertyEditorHook;
|
||||
aCheck: TCheckGroup;
|
||||
begin
|
||||
Dlg:=TCheckGroupEditorDlg.Create(nil);
|
||||
try
|
||||
if GetComponent is TCheckGroup then begin
|
||||
aCheck:=TCheckGroup(GetComponent);
|
||||
GetHook(Hook);
|
||||
|
||||
AssignCheck(Dlg.FCheck, aCheck);
|
||||
|
||||
//ShowEditor
|
||||
if Dlg.ShowModal=mrOK then begin
|
||||
//Apply the modifications
|
||||
AssignCheck(aCheck, Dlg.FCheck);
|
||||
Modified;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
Dlg.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCheckGroupComponentEditor.AssignCheck(dstCheck, srcCheck: TCheckGroup);
|
||||
var i: integer;
|
||||
begin
|
||||
DstCheck.Items.Clear;
|
||||
DstCheck.Items:=srcCheck.Items;
|
||||
DstCheck.Caption:=srcCheck.Caption;
|
||||
for i:=0 to srcCheck.Items.Count-1 do begin
|
||||
if srcCheck.Items[i]<>dstCheck.Items[i] then
|
||||
dstCheck.Items[i]:=srcCheck.Items[i];
|
||||
dstCheck.Checked[i]:=srcCheck.Checked[i]
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCheckGroupComponentEditor.ExecuteVerb(Index: Integer);
|
||||
begin
|
||||
doShowEditor;
|
||||
end;
|
||||
|
||||
function TCheckGroupComponentEditor.GetVerb(Index: Integer): string;
|
||||
begin
|
||||
Result:=clbCheckGroupEditor+' ...';
|
||||
end;
|
||||
|
||||
function TCheckGroupComponentEditor.GetVerbCount: Integer;
|
||||
begin
|
||||
Result:=1;
|
||||
end;
|
||||
|
||||
{ TToolBarComponentEditor }
|
||||
|
||||
procedure TToolBarComponentEditor.ExecuteVerb(Index: Integer);
|
||||
@ -1033,6 +1556,8 @@ initialization
|
||||
RegisterComponentEditor(TCustomNotebook,TNotebookComponentEditor);
|
||||
RegisterComponentEditor(TCustomPage,TPageComponentEditor);
|
||||
RegisterComponentEditor(TStringGrid,TStringGridComponentEditor);
|
||||
RegisterComponentEditor(TCheckListBox,TCheckListBoxComponentEditor);
|
||||
RegisterComponentEditor(TCheckGroup,TCheckGroupComponentEditor);
|
||||
RegisterComponentEditor(TToolBar,TToolBarComponentEditor);
|
||||
RegisterComponentEditor(TFileDialog, TFileDialogComponentEditor);
|
||||
|
||||
|
||||
@ -81,6 +81,17 @@ resourcestring
|
||||
cesStringGridEditor2 = 'StringGrid Editor';
|
||||
oisCreateDefaultEvent = 'Create default event';
|
||||
|
||||
//checklistbox editor
|
||||
clbCheckListBoxEditor = 'CheckListBox Editor';
|
||||
clbUp = '&Up';
|
||||
clbDown = 'Do&wn';
|
||||
clbModify = 'Modify the Item';
|
||||
clbAdd = 'Add new Item';
|
||||
clbDelete = 'Delete the Item %d "%s"?';
|
||||
|
||||
//checkgroup editor
|
||||
clbCheckGroupEditor = 'CheckGroup Editor';
|
||||
|
||||
// Actions Editor
|
||||
cActionListEditorUnknownCategory = '(Unknown)';
|
||||
cActionListEditorAllCategory = '(All)';
|
||||
|
||||
Loading…
Reference in New Issue
Block a user