Class TGoPhastPersistent

Unit

GoPhastTypes

Declaration

type TGoPhastPersistent = class(TPersistent)

Description

Hierarchy

• TPersistent
• TGoPhastPersistent

Overview

Fields

FModel: TBaseModel;

Methods

	procedure OnChangeEventHander(Sender: TObject);
	procedure InvalidateModel; virtual;
	procedure SetBooleanProperty(var AField: boolean; const NewValue: boolean);
	procedure SetIntegerProperty(var AField: integer; const NewValue: integer);
	procedure SetRealProperty(var AField: double; const NewValue: double);
	procedure SetAnsiStringProperty(var AField: AnsiString; const NewValue: AnsiString);
	procedure SetStringProperty(var AField: string; const NewValue: string);
	procedure SetPointProperty(var AField: TPoint; const NewValue: TPoint);
	procedure SetColorProperty(var AField: TColor; const NewValue: TColor);
	procedure SetDataTimeProperty(var AField: TDateTime; const NewValue: TDateTime);
	Constructor Create(Model: TBaseModel);

Properties

property Model: TBaseModel read FModel;

Description

Fields

	FModel: TBaseModel;

Methods

	procedure OnChangeEventHander(Sender: TObject);

	procedure InvalidateModel; virtual;

	procedure SetBooleanProperty(var AField: boolean; const NewValue: boolean);

	procedure SetIntegerProperty(var AField: integer; const NewValue: integer);

	procedure SetRealProperty(var AField: double; const NewValue: double);

	procedure SetAnsiStringProperty(var AField: AnsiString; const NewValue: AnsiString);

	procedure SetStringProperty(var AField: string; const NewValue: string);

	procedure SetPointProperty(var AField: TPoint; const NewValue: TPoint);

	procedure SetColorProperty(var AField: TColor; const NewValue: TColor);

	procedure SetDataTimeProperty(var AField: TDateTime; const NewValue: TDateTime);

	Constructor Create(Model: TBaseModel);

Properties

	property Model: TBaseModel read FModel;