Class TSubImageDialog (unit FmSubImg)

Inherits from

TForm

Imports ShowExtension

Constructors


constructor Create(SubImages: TList);

Public declarations


Functions

procedure CancelBtnClick(Sender: TObject);

TSubImageDialog.

procedure ExtensionsButtonClick(Sender: TObject);

TSubImageDialog.

procedure InterlacedBoxClick(Sender: TObject);

TSubImageDialog.

procedure OKBtnClick(Sender: TObject);

TSubImageDialog.

procedure TabSetChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);

TSubImageDialog.

procedure ShowSubImage(SubImage: TGifSubImage);

TSubImageDialog.

Properties

Events

Variables

BitsPerPixelEdit : TSpinEdit;


CancelBtn : TButton;


ExtensionsButton : TButton;


GroupBox1 : TGroupBox;


HasLocalColormapBox : TCheckBox;


HeightEdit : TSpinEdit;


Image : TImage;


InterlacedBox : TCheckBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label8 : TLabel;


LeftEdit : TSpinEdit;


NoColorsEdit : TSpinEdit;


OKBtn : TButton;


PackedFieldsEdit : TSpinEdit;


TabSet : TTabSet;


TopEdit : TSpinEdit;


TransparentBox : TCheckBox;


WidthEdit : TSpinEdit;


FCurrentSubImage : TGifSubImage;


FSubImages : TList;

Private declarations


Constructors


constructor Create(SubImages: TList);

Public declarations


Functions


procedure CancelBtnClick(Sender: TObject);

TSubImageDialog.OKBtnClick


procedure ExtensionsButtonClick(Sender: TObject);

TSubImageDialog.CancelBtnClick


procedure InterlacedBoxClick(Sender: TObject);

TSubImageDialog.ShowSubImage


procedure OKBtnClick(Sender: TObject);

TSubImageDialog.TabSetChange


procedure TabSetChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);

TSubImageDialog.InterlacedBoxClick


procedure ShowSubImage(SubImage: TGifSubImage);

TSubImageDialog.Create


Properties


Events


Variables


BitsPerPixelEdit : TSpinEdit;


CancelBtn : TButton;


ExtensionsButton : TButton;


GroupBox1 : TGroupBox;


HasLocalColormapBox : TCheckBox;


HeightEdit : TSpinEdit;


Image : TImage;


InterlacedBox : TCheckBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label8 : TLabel;


LeftEdit : TSpinEdit;


NoColorsEdit : TSpinEdit;


OKBtn : TButton;


PackedFieldsEdit : TSpinEdit;


TabSet : TTabSet;


TopEdit : TSpinEdit;


TransparentBox : TCheckBox;


WidthEdit : TSpinEdit;


FCurrentSubImage : TGifSubImage;


FSubImages : TList;

Private declarations