| Class TGifImage (unit GifImg) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Loaded;
procedure GifChanged(Sender: TObject);
procedure GifStatusChanged(Sender: TObject; Status: TGifStatus);
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure Paint;
procedure TriggerChangeEvent;
procedure TriggerStatusChangeEvent(Sender: TObject; Status: TGifStatus);
function GetBorder: Boolean;
function GetFilename: TFilename;
procedure SetBorder(newValue: Boolean);
procedure SetFilename(newValue: TFilename);
procedure SetGif(newValue: TGif);| 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;