Class TGifImage (unit GifImg)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

TriggerStatusChangeEvent


Functions

destructor Destroy;

if not (FGifWritten and FGif.

procedure Loaded;

TGifImage

procedure GifChanged(Sender: TObject);

GifStatusChanged

procedure GifStatusChanged(Sender: TObject; Status: TGifStatus);

SetBorder

procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure Paint;

SetGif

procedure TriggerChangeEvent;

GifChanged

procedure TriggerStatusChangeEvent(Sender: TObject; Status: TGifStatus);


function GetBorder: Boolean;

Destroy

function GetFilename: TFilename;

TriggerChangeEvent

procedure SetBorder(newValue: Boolean);

GetBorder

procedure SetFilename(newValue: TFilename);

GetFilename

procedure SetGif(newValue: TGif);

SetFilename

Properties

property Align :


property Border : Boolean


property Color :


property DragCursor :


property DragMode :


property Enabled :


property Gif : TGif


property ParentColor :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Visible :


property Canvas :


Events

event OnChange : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStatusChange : TStatusChangeEvent


Variables

FBorder : Boolean;


FFilename : TFilename;


FGif : TGif;


FGifWritten : Boolean;


FOnChange : TNotifyEvent;


FOnStatusChange : TStatusChangeEvent;



Constructors


constructor Create(AOwner: TComponent);

TriggerStatusChangeEvent


Functions


destructor Destroy;

if not (FGifWritten and FGif.Empty) then SetGif(FGif);


procedure Loaded;

TGifImage


procedure GifChanged(Sender: TObject);

GifStatusChanged


procedure GifStatusChanged(Sender: TObject; Status: TGifStatus);

SetBorder


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure Paint;

SetGif


procedure TriggerChangeEvent;

GifChanged


procedure TriggerStatusChangeEvent(Sender: TObject; Status: TGifStatus);


function GetBorder: Boolean;

Destroy


function GetFilename: TFilename;

TriggerChangeEvent


procedure SetBorder(newValue: Boolean);

GetBorder


procedure SetFilename(newValue: TFilename);

GetFilename


procedure SetGif(newValue: TGif);

SetFilename


Properties


property Align :


property Border : Boolean


property Color :


property DragCursor :


property DragMode :


property Enabled :


property Gif : TGif


property ParentColor :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Visible :


property Canvas :


Events


event OnChange : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStatusChange : TStatusChangeEvent


Variables


FBorder : Boolean;


FFilename : TFilename;


FGif : TGif;


FGifWritten : Boolean;


FOnChange : TNotifyEvent;


FOnStatusChange : TStatusChangeEvent;