paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-09 18:18:20 +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; procedure SetValue(const NewValue: ansistring); override;
end; end;
{ TDateProperty { TDatePropertyEditor
Property editor for date portion of TDateTime type. } Property editor for date portion of TDateTime type. }
TDateProperty = class(TPropertyEditor) TDatePropertyEditor = class(TPropertyEditor)
function GetAttributes: TPropertyAttributes; override; function GetAttributes: TPropertyAttributes; override;
function GetValue: string; override; function GetValue: string; override;
procedure SetValue(const Value: string); override; procedure SetValue(const Value: string); override;
@ -798,6 +798,43 @@ type
procedure Edit; override; procedure Edit; override;
end; 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 { RegisterPropertyEditor
@ -3730,14 +3767,14 @@ begin
PropertyHook.ComponentRenamed(TComponent(GetComponent(0))); PropertyHook.ComponentRenamed(TComponent(GetComponent(0)));
end; end;
{ TDateProperty } { TDatePropertyEditor }
function TDateProperty.GetAttributes: TPropertyAttributes; function TDatePropertyEditor.GetAttributes: TPropertyAttributes;
begin begin
Result := [paMultiSelect, paRevertable]; Result := [paMultiSelect, paRevertable];
end; end;
function TDateProperty.GetValue: string; function TDatePropertyEditor.GetValue: string;
var var
DT: TDateTime; DT: TDateTime;
begin begin
@ -3748,7 +3785,7 @@ begin
Result := DateToStr(DT); Result := DateToStr(DT);
end; end;
procedure TDateProperty.SetValue(const Value: string); procedure TDatePropertyEditor.SetValue(const Value: string);
var var
DT: TDateTime; DT: TDateTime;
begin begin