paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:19:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: Property editor for Strings in ValueListEditor. Does not work well yet.

Browse Source 
git-svn-id: trunk@44575 -
This commit is contained in:
juha 2014-04-01 00:12:59 +00:00
parent 234935f6bc
commit 18858b8e2d
3 changed files with 243 additions and 186 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

352
components/ideintf/ideintf.lpk
View File

@ -20,50 +20,50 @@
<Description Value="IDEIntf - the interface units for the Lazarus IDE"/> <Description Value="IDEIntf - the interface units for the Lazarus IDE"/>
<License Value="Modified LPGL2"/> <License Value="Modified LPGL2"/>
<Version Major="1"/> <Version Major="1"/>
<Files Count="73"> <Files Count="75">
<Item1> <Item1>
<Filename Value="actionseditor.lfm"/>
<Type Value="LFM"/>
</Item1>
<Item2>
<Filename Value="actionseditor.pas"/> <Filename Value="actionseditor.pas"/>
<UnitName Value="ActionsEditor"/> <UnitName Value="ActionsEditor"/>
</Item1>
<Item2>
<Filename Value="actionseditor.lfm"/>
<Type Value="LFM"/>
</Item2> </Item2>
<Item3> <Item3>
<Filename Value="actionseditorstd.lfm"/>
<Type Value="LFM"/>
</Item3>
<Item4>
<Filename Value="actionseditorstd.pas"/> <Filename Value="actionseditorstd.pas"/>
<UnitName Value="ActionsEditorStd"/> <UnitName Value="ActionsEditorStd"/>
</Item3>
<Item4>
<Filename Value="actionseditorstd.lfm"/>
<Type Value="LFM"/>
</Item4> </Item4>
<Item5> <Item5>
<Filename Value="baseideintf.pas"/> <Filename Value="baseideintf.pas"/>
<UnitName Value="BaseIDEIntf"/> <UnitName Value="BaseIDEIntf"/>
</Item5> </Item5>
<Item6> <Item6>
<Filename Value="checkgroupeditordlg.lfm"/>
<Type Value="LFM"/>
</Item6>
<Item7>
<Filename Value="checkgroupeditordlg.pas"/> <Filename Value="checkgroupeditordlg.pas"/>
<UnitName Value="CheckGroupEditorDlg"/> <UnitName Value="CheckGroupEditorDlg"/>
</Item6>
<Item7>
<Filename Value="checkgroupeditordlg.lfm"/>
<Type Value="LFM"/>
</Item7> </Item7>
<Item8> <Item8>
<Filename Value="checklistboxeditordlg.lfm"/>
<Type Value="LFM"/>
</Item8>
<Item9>
<Filename Value="checklistboxeditordlg.pas"/> <Filename Value="checklistboxeditordlg.pas"/>
<UnitName Value="CheckListboxEditorDlg"/> <UnitName Value="CheckListboxEditorDlg"/>
</Item8>
<Item9>
<Filename Value="checklistboxeditordlg.lfm"/>
<Type Value="LFM"/>
</Item9> </Item9>
<Item10> <Item10>
<Filename Value="collectionpropeditform.lfm"/>
<Type Value="LFM"/>
</Item10>
<Item11>
<Filename Value="collectionpropeditform.pas"/> <Filename Value="collectionpropeditform.pas"/>
<UnitName Value="CollectionPropEditForm"/> <UnitName Value="CollectionPropEditForm"/>
</Item10>
<Item11>
<Filename Value="collectionpropeditform.lfm"/>
<Type Value="LFM"/>
</Item11> </Item11>
<Item12> <Item12>
<Filename Value="columndlg.pp"/> <Filename Value="columndlg.pp"/>
@ -82,19 +82,19 @@
<UnitName Value="ComponentTreeView"/> <UnitName Value="ComponentTreeView"/>
</Item15> </Item15>
<Item16> <Item16>
<Filename Value="dbpropedits.pas"/> <Filename Value="compoptsintf.pas"/>
<UnitName Value="DBPropEdits"/> <UnitName Value="CompOptsIntf"/>
</Item16> </Item16>
<Item17> <Item17>
<Filename Value="fieldseditor.lfm"/> <Filename Value="dbpropedits.pas"/>
<Type Value="LFM"/> <UnitName Value="DBPropEdits"/>
</Item17> </Item17>
<Item18> <Item18>
<Filename Value="fieldseditor.pas"/> <Filename Value="fieldseditor.pas"/>
<UnitName Value="fieldseditor"/> <UnitName Value="fieldseditor"/>
</Item18> </Item18>
<Item19> <Item19>
<Filename Value="fieldslist.lfm"/> <Filename Value="fieldseditor.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item19> </Item19>
<Item20> <Item20>
@ -102,218 +102,226 @@
<UnitName Value="fieldslist"/> <UnitName Value="fieldslist"/>
</Item20> </Item20>
<Item21> <Item21>
<Filename Value="formeditingintf.pas"/> <Filename Value="fieldslist.lfm"/>
<UnitName Value="FormEditingIntf"/> <Type Value="LFM"/>
</Item21> </Item21>
<Item22> <Item22>
<Filename Value="frmselectprops.lfm"/> <Filename Value="filefilterpropeditor.pas"/>
<Type Value="LFM"/> <UnitName Value="FileFilterPropEditor"/>
</Item22> </Item22>
<Item23> <Item23>
<Filename Value="frmselectprops.pas"/> <Filename Value="filefilterpropeditor.lfm"/>
<UnitName Value="frmSelectProps"/> <Type Value="LFM"/>
</Item23> </Item23>
<Item24> <Item24>
<Filename Value="graphicpropedit.lfm"/> <Filename Value="formeditingintf.pas"/>
<Type Value="LFM"/> <UnitName Value="FormEditingIntf"/>
</Item24> </Item24>
<Item25> <Item25>
<Filename Value="graphicpropedit.pas"/> <Filename Value="frmselectprops.pas"/>
<UnitName Value="GraphicPropEdit"/> <UnitName Value="frmSelectProps"/>
</Item25> </Item25>
<Item26> <Item26>
<Filename Value="graphpropedits.pas"/> <Filename Value="frmselectprops.lfm"/>
<UnitName Value="GraphPropEdits"/> <Type Value="LFM"/>
</Item26> </Item26>
<Item27> <Item27>
<Filename Value="headercontrolpropedit.pp"/> <Filename Value="graphicpropedit.pas"/>
<UnitName Value="HeaderControlPropEdit"/> <UnitName Value="GraphicPropEdit"/>
</Item27> </Item27>
<Item28> <Item28>
<Filename Value="helpfpdoc.pas"/> <Filename Value="graphicpropedit.lfm"/>
<UnitName Value="HelpFPDoc"/> <Type Value="LFM"/>
</Item28> </Item28>
<Item29> <Item29>
<Filename Value="idecommands.pas"/> <Filename Value="graphpropedits.pas"/>
<UnitName Value="IDECommands"/> <UnitName Value="GraphPropEdits"/>
</Item29> </Item29>
<Item30> <Item30>
<Filename Value="idedialogs.pas"/> <Filename Value="headercontrolpropedit.pp"/>
<UnitName Value="IDEDialogs"/> <UnitName Value="HeaderControlPropEdit"/>
</Item30> </Item30>
<Item31> <Item31>
<Filename Value="ideexterntoolintf.pas"/> <Filename Value="helpfpdoc.pas"/>
<UnitName Value="IDEExternToolIntf"/> <UnitName Value="HelpFPDoc"/>
</Item31> </Item31>
<Item32> <Item32>
<Filename Value="idehelpintf.pas"/> <Filename Value="idecommands.pas"/>
<UnitName Value="IDEHelpIntf"/> <UnitName Value="IDECommands"/>
</Item32> </Item32>
<Item33> <Item33>
<Filename Value="ideimagesintf.pas"/> <Filename Value="idedialogs.pas"/>
<UnitName Value="IDEImagesIntf"/> <UnitName Value="IDEDialogs"/>
</Item33> </Item33>
<Item34> <Item34>
<Filename Value="idemsgintf.pas"/> <Filename Value="ideexterntoolintf.pas"/>
<UnitName Value="IDEMsgIntf"/> <UnitName Value="IDEExternToolIntf"/>
</Item34> </Item34>
<Item35> <Item35>
<Filename Value="ideoptionsintf.pas"/> <Filename Value="idehelpintf.pas"/>
<UnitName Value="IDEOptionsIntf"/> <UnitName Value="IDEHelpIntf"/>
</Item35> </Item35>
<Item36> <Item36>
<Filename Value="idetextconverter.pas"/> <Filename Value="ideimagesintf.pas"/>
<UnitName Value="IDETextConverter"/> <UnitName Value="IDEImagesIntf"/>
</Item36> </Item36>
<Item37> <Item37>
<Filename Value="idemsgintf.pas"/>
<UnitName Value="IDEMsgIntf"/>
</Item37>
<Item38>
<Filename Value="ideoptionsintf.pas"/>
<UnitName Value="IDEOptionsIntf"/>
</Item38>
<Item39>
<Filename Value="idetextconverter.pas"/>
<UnitName Value="IDETextConverter"/>
</Item39>
<Item40>
<Filename Value="ideutils.pas"/>
<UnitName Value="IDEUtils"/>
</Item40>
<Item41>
<Filename Value="idewindowintf.pas"/> <Filename Value="idewindowintf.pas"/>
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
<UnitName Value="IDEWindowIntf"/> <UnitName Value="IDEWindowIntf"/>
</Item37>
<Item38>
<Filename Value="imagelisteditor.lfm"/>
<Type Value="LFM"/>
</Item38>
<Item39>
<Filename Value="imagelisteditor.pp"/>
<UnitName Value="ImageListEditor"/>
</Item39>
<Item40>
<Filename Value="lazideintf.pas"/>
<UnitName Value="LazIDEIntf"/>
</Item40>
<Item41>
<Filename Value="lazstringgridedit.lfm"/>
<Type Value="LFM"/>
</Item41> </Item41>
<Item42> <Item42>
<Filename Value="lazstringgridedit.pas"/> <Filename Value="imagelisteditor.pp"/>
<UnitName Value="LazStringGridEdit"/> <UnitName Value="ImageListEditor"/>
</Item42> </Item42>
<Item43> <Item43>
<Filename Value="listviewpropedit.lfm"/> <Filename Value="imagelisteditor.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item43> </Item43>
<Item44> <Item44>
<Filename Value="listviewpropedit.pp"/> <Filename Value="keyvalpropeditdlg.pas"/>
<UnitName Value="ListViewPropEdit"/> <UnitName Value="KeyValPropEditDlg"/>
</Item44> </Item44>
<Item45> <Item45>
<Filename Value="macrointf.pas"/> <Filename Value="keyvalpropeditdlg.lfm"/>
<UnitName Value="MacroIntf"/> <Type Value="LFM"/>
</Item45> </Item45>
<Item46> <Item46>
<Filename Value="maskpropedit.lfm"/> <Filename Value="lazideintf.pas"/>
<Type Value="LFM"/> <UnitName Value="LazIDEIntf"/>
</Item46> </Item46>
<Item47> <Item47>
<Filename Value="maskpropedit.pas"/> <Filename Value="lazstringgridedit.pas"/>
<UnitName Value="MaskPropEdit"/> <UnitName Value="LazStringGridEdit"/>
</Item47> </Item47>
<Item48> <Item48>
<Filename Value="menuintf.pas"/> <Filename Value="lazstringgridedit.lfm"/>
<UnitName Value="MenuIntf"/> <Type Value="LFM"/>
</Item48> </Item48>
<Item49> <Item49>
<Filename Value="newfield.lfm"/> <Filename Value="listviewpropedit.pp"/>
<Type Value="LFM"/> <UnitName Value="ListViewPropEdit"/>
</Item49> </Item49>
<Item50> <Item50>
<Filename Value="newfield.pas"/> <Filename Value="listviewpropedit.lfm"/>
<UnitName Value="newfield"/> <Type Value="LFM"/>
</Item50> </Item50>
<Item51> <Item51>
<Filename Value="newitemintf.pas"/>
<UnitName Value="NewItemIntf"/>
</Item51>
<Item52>
<Filename Value="objectinspector.lfm"/>
<Type Value="LFM"/>
</Item52>
<Item53>
<Filename Value="objectinspector.pp"/>
<UnitName Value="ObjectInspector"/>
</Item53>
<Item54>
<Filename Value="objinspstrconsts.pas"/>
<UnitName Value="ObjInspStrConsts"/>
</Item54>
<Item55>
<Filename Value="packageintf.pas"/>
<UnitName Value="PackageIntf"/>
</Item55>
<Item56>
<Filename Value="projectintf.pas"/>
<UnitName Value="ProjectIntf"/>
</Item56>
<Item57>
<Filename Value="projectresourcesintf.pas"/>
<UnitName Value="ProjectResourcesIntf"/>
</Item57>
<Item58>
<Filename Value="propedits.pp"/>
<UnitName Value="PropEdits"/>
</Item58>
<Item59>
<Filename Value="propeditutils.pp"/>
<UnitName Value="PropEditUtils"/>
</Item59>
<Item60>
<Filename Value="srceditorintf.pas"/>
<UnitName Value="SrcEditorIntf"/>
</Item60>
<Item61>
<Filename Value="statusbarpropedit.pp"/>
<UnitName Value="StatusBarPropEdit"/>
</Item61>
<Item62>
<Filename Value="stringspropeditdlg.lfm"/>
<Type Value="LFM"/>
</Item62>
<Item63>
<Filename Value="stringspropeditdlg.pas"/>
<UnitName Value="StringsPropEditDlg"/>
</Item63>
<Item64>
<Filename Value="texttools.pas"/>
<UnitName Value="TextTools"/>
</Item64>
<Item65>
<Filename Value="treeviewpropedit.lfm"/>
<Type Value="LFM"/>
</Item65>
<Item66>
<Filename Value="treeviewpropedit.pas"/>
<UnitName Value="TreeViewPropEdit"/>
</Item66>
<Item67>
<Filename Value="compoptsintf.pas"/>
<UnitName Value="CompOptsIntf"/>
</Item67>
<Item68>
<Filename Value="oifavoriteproperties.pas"/>
<UnitName Value="OIFavoriteProperties"/>
</Item68>
<Item69>
<Filename Value="unitresources.pas"/>
<UnitName Value="UnitResources"/>
</Item69>
<Item70>
<Filename Value="macrodefintf.pas"/> <Filename Value="macrodefintf.pas"/>
<UnitName Value="MacroDefIntf"/> <UnitName Value="MacroDefIntf"/>
</Item51>
<Item52>
<Filename Value="macrointf.pas"/>
<UnitName Value="MacroIntf"/>
</Item52>
<Item53>
<Filename Value="maskpropedit.pas"/>
<UnitName Value="MaskPropEdit"/>
</Item53>
<Item54>
<Filename Value="maskpropedit.lfm"/>
<Type Value="LFM"/>
</Item54>
<Item55>
<Filename Value="menuintf.pas"/>
<UnitName Value="MenuIntf"/>
</Item55>
<Item56>
<Filename Value="newfield.pas"/>
<UnitName Value="newfield"/>
</Item56>
<Item57>
<Filename Value="newfield.lfm"/>
<Type Value="LFM"/>
</Item57>
<Item58>
<Filename Value="newitemintf.pas"/>
<UnitName Value="NewItemIntf"/>
</Item58>
<Item59>
<Filename Value="objectinspector.pp"/>
<UnitName Value="ObjectInspector"/>
</Item59>
<Item60>
<Filename Value="objectinspector.lfm"/>
<Type Value="LFM"/>
</Item60>
<Item61>
<Filename Value="objinspstrconsts.pas"/>
<UnitName Value="ObjInspStrConsts"/>
</Item61>
<Item62>
<Filename Value="oifavoriteproperties.pas"/>
<UnitName Value="OIFavoriteProperties"/>
</Item62>
<Item63>
<Filename Value="packageintf.pas"/>
<UnitName Value="PackageIntf"/>
</Item63>
<Item64>
<Filename Value="projectintf.pas"/>
<UnitName Value="ProjectIntf"/>
</Item64>
<Item65>
<Filename Value="projectresourcesintf.pas"/>
<UnitName Value="ProjectResourcesIntf"/>
</Item65>
<Item66>
<Filename Value="propedits.pp"/>
<UnitName Value="PropEdits"/>
</Item66>
<Item67>
<Filename Value="propeditutils.pp"/>
<UnitName Value="PropEditUtils"/>
</Item67>
<Item68>
<Filename Value="srceditorintf.pas"/>
<UnitName Value="SrcEditorIntf"/>
</Item68>
<Item69>
<Filename Value="statusbarpropedit.pp"/>
<UnitName Value="StatusBarPropEdit"/>
</Item69>
<Item70>
<Filename Value="stringspropeditdlg.pas"/>
<UnitName Value="StringsPropEditDlg"/>
</Item70> </Item70>
<Item71> <Item71>
<Filename Value="filefilterpropeditor.lfm"/> <Filename Value="stringspropeditdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item71> </Item71>
<Item72> <Item72>
<Filename Value="filefilterpropeditor.pas"/> <Filename Value="texttools.pas"/>
<UnitName Value="FileFilterPropEditor"/> <UnitName Value="TextTools"/>
</Item72> </Item72>
<Item73> <Item73>
<Filename Value="ideutils.pas"/> <Filename Value="treeviewpropedit.pas"/>
<UnitName Value="IDEUtils"/> <UnitName Value="TreeViewPropEdit"/>
</Item73> </Item73>
<Item74>
<Filename Value="treeviewpropedit.lfm"/>
<Type Value="LFM"/>
</Item74>
<Item75>
<Filename Value="unitresources.pas"/>
<UnitName Value="UnitResources"/>
</Item75>
</Files> </Files>
<LazDoc Paths="docs"/> <LazDoc Paths="docs"/>
<i18n> <i18n>

22
components/ideintf/ideintf.pas
View File

@ -9,17 +9,17 @@ interface
uses uses
ActionsEditor, ActionsEditorStd, BaseIDEIntf, CheckGroupEditorDlg, ActionsEditor, ActionsEditorStd, BaseIDEIntf, CheckGroupEditorDlg,
CheckListboxEditorDlg, CollectionPropEditForm, ColumnDlg, ComponentEditors, CheckListboxEditorDlg, CollectionPropEditForm, ColumnDlg, ComponentEditors,
ComponentReg, ComponentTreeView, DBPropEdits, fieldseditor, fieldslist, ComponentReg, ComponentTreeView, CompOptsIntf, DBPropEdits, fieldseditor,
FormEditingIntf, frmSelectProps, GraphicPropEdit, GraphPropEdits, fieldslist, FileFilterPropEditor, FormEditingIntf, frmSelectProps,
HeaderControlPropEdit, HelpFPDoc, IDECommands, IDEDialogs, GraphicPropEdit, GraphPropEdits, HeaderControlPropEdit, HelpFPDoc,
IDEExternToolIntf, IDEHelpIntf, IDEImagesIntf, IDEMsgIntf, IDEOptionsIntf, IDECommands, IDEDialogs, IDEExternToolIntf, IDEHelpIntf, IDEImagesIntf,
IDETextConverter, IDEWindowIntf, ImageListEditor, LazIDEIntf, IDEMsgIntf, IDEOptionsIntf, IDETextConverter, IDEUtils, IDEWindowIntf,
LazStringGridEdit, ListViewPropEdit, MacroIntf, MaskPropEdit, MenuIntf, ImageListEditor, KeyValPropEditDlg, LazIDEIntf, LazStringGridEdit,
newfield, NewItemIntf, ObjectInspector, ObjInspStrConsts, PackageIntf, ListViewPropEdit, MacroDefIntf, MacroIntf, MaskPropEdit, MenuIntf, newfield,
ProjectIntf, ProjectResourcesIntf, PropEdits, PropEditUtils, SrcEditorIntf, NewItemIntf, ObjectInspector, ObjInspStrConsts, OIFavoriteProperties,
StatusBarPropEdit, StringsPropEditDlg, TextTools, TreeViewPropEdit, PackageIntf, ProjectIntf, ProjectResourcesIntf, PropEdits, PropEditUtils,
CompOptsIntf, OIFavoriteProperties, UnitResources, MacroDefIntf, SrcEditorIntf, StatusBarPropEdit, StringsPropEditDlg, TextTools,
FileFilterPropEditor, IDEUtils, LazarusPackageIntf; TreeViewPropEdit, UnitResources, LazarusPackageIntf;
implementation implementation

55
components/ideintf/propedits.pp
View File

@ -30,10 +30,11 @@ uses
Classes, TypInfo, SysUtils, types, Forms, Controls, LCLProc, GraphType, Classes, TypInfo, SysUtils, types, Forms, Controls, LCLProc, GraphType,
FPCAdds, // for StrToQWord in older fpc versions FPCAdds, // for StrToQWord in older fpc versions
StringHashList, ButtonPanel, Graphics, StdCtrls, Buttons, Menus, LCLType, StringHashList, ButtonPanel, Graphics, StdCtrls, Buttons, Menus, LCLType,
ExtCtrls, ComCtrls, LCLIntf, Dialogs, EditBtn, PropertyStorage, ExtCtrls, ComCtrls, LCLIntf, Dialogs, EditBtn, PropertyStorage, ValEdit,
FileUtil, FileCtrl, ObjInspStrConsts, PropEditUtils, FileUtil, FileCtrl, ObjInspStrConsts, PropEditUtils,
// Forms with .lfm files // Forms with .lfm files
FrmSelectProps, StringsPropEditDlg, CollectionPropEditForm, FileFilterPropEditor; FrmSelectProps, StringsPropEditDlg, KeyValPropEditDlg, CollectionPropEditForm,
FileFilterPropEditor;
const const
MaxIdentLength: Byte = 63; MaxIdentLength: Byte = 63;
@ -791,7 +792,7 @@ type
{ TStringsPropertyEditor { TStringsPropertyEditor
PropertyEditor editor for the TStrings properties. PropertyEditor editor for the TStrings properties.
Brings up the dialog for entering text. } Brings up a dialog with a Memo for entering text. }
TStringsPropEditorDlg = class; TStringsPropEditorDlg = class;
@ -803,6 +804,20 @@ type
end; end;
{ TValueListPropertyEditor
PropertyEditor editor for the TStrings property of TValueListEditor.
Brings up a dialog with a ValueListEditor for entering keys and values. }
TKeyValPropEditorDlg = class;
TValueListPropertyEditor = class(TClassPropertyEditor)
public
procedure Edit; override;
function CreateDlg(s: TStrings): TKeyValPropEditorDlg; virtual;
function GetAttributes: TPropertyAttributes; override;
end;
{ TCursorPropertyEditor { TCursorPropertyEditor
PropertyEditor editor for the TCursor properties. PropertyEditor editor for the TCursor properties.
Displays cursor as constant name if exists, otherwise an integer. } Displays cursor as constant name if exists, otherwise an integer. }
@ -1464,6 +1479,11 @@ type
Editor: TPropertyEditor; Editor: TPropertyEditor;
end; end;
TKeyValPropEditorDlg = class(TKeyValPropEditorFrm)
public
Editor: TPropertyEditor;
end;
{ TCustomShortCutGrabBox } { TCustomShortCutGrabBox }
TCustomShortCutGrabBox = class(TCustomPanel) TCustomShortCutGrabBox = class(TCustomPanel)
@ -4997,6 +5017,34 @@ begin
Result := [paMultiSelect, paDialog, paRevertable, paReadOnly]; Result := [paMultiSelect, paDialog, paRevertable, paReadOnly];
end; end;
{ TValueListPropertyEditor }
procedure TValueListPropertyEditor.Edit;
var
TheDialog: TKeyValPropEditorDlg;
begin
TheDialog := CreateDlg(TStrings(GetObjectValue));
try
if (TheDialog.ShowModal = mrOK) then
SetPtrValue(TheDialog.ValueListEdit.Strings);
finally
TheDialog.Free;
end;
end;
function TValueListPropertyEditor.CreateDlg(s: TStrings): TKeyValPropEditorDlg;
begin
Result := TKeyValPropEditorDlg.Create(Application);
Result.Editor := Self;
Result.ValueListEdit.Strings.Assign(s);
Result.ValueListEdit.Invalidate;
end;
function TValueListPropertyEditor.GetAttributes: TPropertyAttributes;
begin
Result := [paMultiSelect, paDialog, paRevertable, paReadOnly];
end;
{ TStringMultilinePropertyEditor } { TStringMultilinePropertyEditor }
procedure TStringMultilinePropertyEditor.Edit; procedure TStringMultilinePropertyEditor.Edit;
@ -6821,6 +6869,7 @@ begin
RegisterPropertyEditor(TypeInfo(AnsiString), TFilterComboBox, 'Filter', TFileDlgFilterProperty); RegisterPropertyEditor(TypeInfo(AnsiString), TFilterComboBox, 'Filter', TFileDlgFilterProperty);
RegisterPropertyEditor(TypeInfo(AnsiString), TFileNameEdit, 'Filter', TFileDlgFilterProperty); RegisterPropertyEditor(TypeInfo(AnsiString), TFileNameEdit, 'Filter', TFileDlgFilterProperty);
RegisterPropertyEditor(TypeInfo(AnsiString), TCustomPropertyStorage, 'Filename', TFileNamePropertyEditor); RegisterPropertyEditor(TypeInfo(AnsiString), TCustomPropertyStorage, 'Filename', TFileNamePropertyEditor);
RegisterPropertyEditor(TypeInfo(TStrings), TValueListEditor, '', TValueListPropertyEditor);
RegisterPropertyEditor(TypeInfo(TAnchorSide), TControl, 'AnchorSideLeft', THiddenPropertyEditor); RegisterPropertyEditor(TypeInfo(TAnchorSide), TControl, 'AnchorSideLeft', THiddenPropertyEditor);
RegisterPropertyEditor(TypeInfo(TAnchorSide), TControl, 'AnchorSideTop', THiddenPropertyEditor); RegisterPropertyEditor(TypeInfo(TAnchorSide), TControl, 'AnchorSideTop', THiddenPropertyEditor);
RegisterPropertyEditor(TypeInfo(TAnchorSide), TControl, 'AnchorSideRight', THiddenPropertyEditor); RegisterPropertyEditor(TypeInfo(TAnchorSide), TControl, 'AnchorSideRight', THiddenPropertyEditor);