paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 23:38:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

add delphi compatible property editor classnames

Browse Source 
git-svn-id: trunk@5075 -
This commit is contained in:
micha 2004-01-19 15:13:15 +00:00
parent 43ca43fc48
commit a38e93a1a7
1 changed files with 63 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
ideintf/propedits.pp
View File

@ -576,10 +576,10 @@ type
procedure SetValue(const NewValue: ansistring); override;
end;
{ TDateProperty
{ TDatePropertyEditor
Property editor for date portion of TDateTime type. }
TDateProperty = class(TPropertyEditor)
TDatePropertyEditor = class(TPropertyEditor)
function GetAttributes: TPropertyAttributes; override;
function GetValue: string; override;
procedure SetValue(const Value: string); override;
@ -798,6 +798,43 @@ type
procedure Edit; override;
end;
//==============================================================================
// Delphi Compatible Property Editor Classnames
type
TOrdinalProperty = TOrdinalPropertyEditor;
TIntegerProperty = TIntegerPropertyEditor;
TCharProperty = TCharPropertyEditor;
TEnumProperty = TEnumPropertyEditor;
TBoolProperty = TBoolPropertyEditor;
TInt64Property = TInt64PropertyEditor;
TFloatProperty = TFloatPropertyEditor;
TStringProperty = TStringPropertyEditor;
TNestedProperty = TNestedPropertyEditor;
TSetElementProperty = TSetElementPropertyEditor;
TSetProperty = TSetPropertyEditor;
TClassProperty = TClassPropertyEditor;
TMethodProperty = TMethodPropertyEditor;
TComponentProperty = TComponentPropertyEditor;
TComponentNameProperty = TComponentNamePropertyEditor;
// TFontNameProperty = TFontNamePropertyEditor;
// TFontCharsetProperty = TFontCharsetPropertyEditor;
// TImeNameProperty = TImeNamePropertyEditor;
// TColorProperty = TColorPropertyEditor;
// TBrushStyleProperty = TBrushStylePropertyEditor;
// TPenStyleProperty = TPenStylePropertyEditor;
TCursorProperty = TCursorPropertyEditor;
// TFontProperty = TFontPropertyEditor;
TModalResultProperty = TModalResultPropertyEditor;
TShortCutProperty = TShortCutPropertyEditor;
// TMPFilenameProperty = TMPFilenamePropertyEditor;
TTabOrderProperty = TTabOrderPropertyEditor;
TCaptionProperty = TCaptionPropertyEditor;
TDateProperty = TDatePropertyEditor;
TTimeProperty = TTimePropertyEditor;
TDateTimeProperty = TDateTimePropertyEditor;
//==============================================================================
{ RegisterPropertyEditor
@ -3730,14 +3767,14 @@ begin
PropertyHook.ComponentRenamed(TComponent(GetComponent(0)));
end;
{ TDateProperty }
{ TDatePropertyEditor }
function TDateProperty.GetAttributes: TPropertyAttributes;
function TDatePropertyEditor.GetAttributes: TPropertyAttributes;
begin
Result := [paMultiSelect, paRevertable];
end;
function TDateProperty.GetValue: string;
function TDatePropertyEditor.GetValue: string;
var
DT: TDateTime;
begin
@ -3748,7 +3785,7 @@ begin
Result := DateToStr(DT);
end;
procedure TDateProperty.SetValue(const Value: string);
procedure TDatePropertyEditor.SetValue(const Value: string);
var
DT: TDateTime;
begin