Class TImageModel

Unit

idCore

Declaration

type TImageModel = class(TXOMObject)

Description

TImageModel

Hierarchy

• TXOMObject
• TImageModel

Overview

Methods

	procedure AfterConstruction; override;
	procedure BeforeDestruction; override;
	procedure BuildNewGUIDs;
	procedure Clear;
	function FindItem (AGalleryGUID, ACollectionGUID, AItemGUID: String): TImageItem;
	procedure EnumImagesForPeriod (APeriod: TPeriod; var ACollection: TImageCollection);
	procedure EnumCollectionsForImage (AImage: TImageItem; var ACollections: TImageCollections);
	function FindFileName (const AFileName: WideString; const AMediumType: TMediumType; const AMediumName: WideString; const AMediumSerial: Integer): TImageItem;
	procedure EnumAllImages (ACollection: TImageCollection);
	function UniqueGalleryName (AGallery: TImageGallery): WideString;
	function FindCollection (ACollectionGUID: String): TImageCollection;
	function FindGallery (AGalleryGUID: String): TImageGallery;
	function ContainsGUID (AGUID: String): Boolean;
	procedure UpdateFileName (AOldItem: TImageItem; const ANewFileName: WideString);
	procedure UpdateFolderName (const AOldName, ANewName: WideString);
	procedure DeleteFileName (const AFileName: WideString);
	function ValidatePassword: Boolean;
	procedure LockModel;
	function IsLocked: Boolean;
	function Protect: Boolean;

Properties

	property FilledGalleries: Integer read GetFilledGalleries;
	property FileName: WideString read FFileName;
	property Image: TDataMemoryStream read FImage;
	property PhotoCount: Integer read FPhotoCount write FPhotoCount;
	property GUID : String read FGUID write FGUID;
	property CreatedAt : TDateTime read FCreatedAt write FCreatedAt;
	property ModelName : WideString read FModelName write FModelName;
	property ManualOrder: Integer read FManualOrder write FManualOrder;
	property Password : WideString read FPassword write FPassword;
	property Collections: TImageCollections read FCollections write FCollections;
	property Galleries : TImageGalleries read FGalleries write FGalleries;
	property LastUsedTemplate: WideString read FLastUsedTemplate write FLastUsedTemplate;
	property LastUsedTargetDir: WideString read FLastUsedTargetDir write FLastUsedTargetDir;
	property LastUsedFTPDir: String read FLastUsedFTPDir write FLastUsedFTPDir;
	property Description: WideString read FDescription write FDescription;
	property Accessibility: TCatalogPropAccessibility read FAccessibility write FAccessibility;
	property ShowInCatalogFilter: Boolean read FShowInCatalogFilter write FShowInCatalogFilter;

Description

Methods

	procedure AfterConstruction; override;

	procedure BeforeDestruction; override;

	procedure BuildNewGUIDs;

	procedure Clear;

	function FindItem (AGalleryGUID, ACollectionGUID, AItemGUID: String): TImageItem;

	procedure EnumImagesForPeriod (APeriod: TPeriod; var ACollection: TImageCollection);

	procedure EnumCollectionsForImage (AImage: TImageItem; var ACollections: TImageCollections);

	function FindFileName (const AFileName: WideString; const AMediumType: TMediumType; const AMediumName: WideString; const AMediumSerial: Integer): TImageItem;

	procedure EnumAllImages (ACollection: TImageCollection);

	function UniqueGalleryName (AGallery: TImageGallery): WideString;

	function FindCollection (ACollectionGUID: String): TImageCollection;

	function FindGallery (AGalleryGUID: String): TImageGallery;

	function ContainsGUID (AGUID: String): Boolean;

	procedure UpdateFileName (AOldItem: TImageItem; const ANewFileName: WideString);

	procedure UpdateFolderName (const AOldName, ANewName: WideString);

	procedure DeleteFileName (const AFileName: WideString);

	function ValidatePassword: Boolean;

	procedure LockModel;

	function IsLocked: Boolean;

	function Protect: Boolean;

Properties

	property FilledGalleries: Integer read GetFilledGalleries;

	property FileName: WideString read FFileName;

	property Image: TDataMemoryStream read FImage;

	property PhotoCount: Integer read FPhotoCount write FPhotoCount;

	property GUID : String read FGUID write FGUID;

	property CreatedAt : TDateTime read FCreatedAt write FCreatedAt;

	property ModelName : WideString read FModelName write FModelName;

	property ManualOrder: Integer read FManualOrder write FManualOrder;

	property Password : WideString read FPassword write FPassword;

	property Collections: TImageCollections read FCollections write FCollections;

	property Galleries : TImageGalleries read FGalleries write FGalleries;
for backwards compatibility with 1.5.0

	property LastUsedTemplate: WideString read FLastUsedTemplate write FLastUsedTemplate;

	property LastUsedTargetDir: WideString read FLastUsedTargetDir write FLastUsedTargetDir;

	property LastUsedFTPDir: String read FLastUsedFTPDir write FLastUsedFTPDir;

	property Description: WideString read FDescription write FDescription;

	property Accessibility: TCatalogPropAccessibility read FAccessibility write FAccessibility;

	property ShowInCatalogFilter: Boolean read FShowInCatalogFilter write FShowInCatalogFilter;