Class TCustomVisualPropertyEditor (unit Peedit)

Inherits from

TWinControl

Constructors


Constructor Create(AOwner : TComponent);



Functions

Procedure CommitChange(Commit : Boolean);


Destructor Destroy;


Procedure Edit;


Procedure FinishedEdit(Sender : TObject);


Procedure RemoveFocus;

RemoveFocus;

Procedure Renew;


Procedure SetOnEditSubProperties(Value : TNotifyEvent);

Causes visual value to be updated

Procedure CheckKey(Sender : TObject; var Key : Char);


Procedure DoubleClicked;


Procedure EditSubProperties(Sender : TObject);


Procedure FreePropertyEditor;


Function GetChanged : Boolean;


Function GetEditValue : String;

writes edit value back, and makes sure they match if error

Procedure GetFocus(Sender : TObject);


Procedure PartialEdit(Sender : TObject);


Procedure ReleasePropertyEditor;


Procedure SetChanged(Value : Boolean);

SAMFIX?? is this done by edit?

Procedure SetEditValue(Value : String);

returns current edited value

Procedure SetPropertyEditor(Value : TPropertyEditor);

sets current editing value

Procedure WMLButtonDblClk(Var Message : TWMLButtonDblClk);


Procedure WMSize(Var Message : TWMSize);


Procedure WriteValue;

called each time item changes

Properties

property Changed : Boolean


property EditValue : String


property PropertyEditor : TPropertyEditor


property Slave : Boolean


Events

event OnEditSubProperties : TNotifyEvent

called at the end of a change

Variables

FChanged : Boolean;


FOnEditSubProperties : TNotifyEvent;


FPropertyEditor : TPropertyEditor;


FPropertyType : TPropertyAttributes;


FSlave : Boolean;


FVisualEditor : TControl;



Constructors


Constructor Create(AOwner : TComponent);


Functions


Procedure CommitChange(Commit : Boolean);


Destructor Destroy;


Procedure Edit;


Procedure FinishedEdit(Sender : TObject);


Procedure RemoveFocus;

RemoveFocus;


Procedure Renew;


Procedure SetOnEditSubProperties(Value : TNotifyEvent);

Causes visual value to be updated


Procedure CheckKey(Sender : TObject; var Key : Char);


Procedure DoubleClicked;


Procedure EditSubProperties(Sender : TObject);


Procedure FreePropertyEditor;


Function GetChanged : Boolean;


Function GetEditValue : String;

writes edit value back, and makes sure they match if error


Procedure GetFocus(Sender : TObject);


Procedure PartialEdit(Sender : TObject);


Procedure ReleasePropertyEditor;


Procedure SetChanged(Value : Boolean);

SAMFIX?? is this done by edit?


Procedure SetEditValue(Value : String);

returns current edited value


Procedure SetPropertyEditor(Value : TPropertyEditor);

sets current editing value


Procedure WMLButtonDblClk(Var Message : TWMLButtonDblClk);


Procedure WMSize(Var Message : TWMSize);


Procedure WriteValue;

called each time item changes


Properties


property Changed : Boolean


property EditValue : String


property PropertyEditor : TPropertyEditor


property Slave : Boolean


Events


event OnEditSubProperties : TNotifyEvent

called at the end of a change


Variables


FChanged : Boolean;


FOnEditSubProperties : TNotifyEvent;


FPropertyEditor : TPropertyEditor;


FPropertyType : TPropertyAttributes;


FSlave : Boolean;


FVisualEditor : TControl;