[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'Graphics' (#lcl)

# TGraphicsObject

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Primitive ancestor class, mainly for Delphi compatibility.

## Declaration

Source position: graphics.pp line 466

`type TGraphicsObject = class(TPersistent)`
`protected`
`procedure Changing; virtual;` |  | Changing - software emulation of OnChanging event.
`procedure Changed; virtual;` |  | Changed - software emulation of OnChange event.
`procedure Lock;` |  | Lock - method for locking the object, making it unavailable for changes.
`procedure UnLock;` |  | UnLock - method for releasing locked object.
`public`
`property OnChanging: TNotifyEvent; [rw]` |  | OnChanging - event handler for changing object.
`property OnChange: TNotifyEvent; [rw]` |  | OnChange - event handler for changed object.
`end;`

## Inheritance

`TGraphicsObject` |  | Primitive ancestor class, mainly for Delphi compatibility.
`TPersistent`
?
`TObject`

## Description

TGraphicsObject - In Delphi VCL this is the ancestor of TFont, TPen and TBrush. Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.