Source position: fpg_readonly.pas line 31
type TfpgOnChangeReadOnlyEvent = procedure(
pSender: TObject;
pReadOnly: Boolean
) of object;