Class TBitmapCompForm (unit BMP2RLE)

Inherits from

TForm

Constructors



Functions

procedure CompressBtnClick(Sender: TObject);

--- try to compress input image -> output image ------------------------------

procedure FormDestroy(Sender: TObject);

--- compressor form ----------------------------------------------------------

procedure InBrowseBtnClick(Sender: TObject);


procedure OutBrowseBtnClick(Sender: TObject);

show the bitmap and file size

procedure OutFilenameEditChange(Sender: TObject);


procedure QualityTrackBarChange(Sender: TObject);

now tidy up

procedure FreeStuff;

number of colours

Properties

Events

Variables

CompressBtn : TBitBtn;


CompUsingLabel : TLabel;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


InBrowseBtn : TBitBtn;


InFilenameEdit : TEdit;


InFilesizeLabel : TLabel;


InImage : TImage;


InScrollBox : TScrollBox;


Label1 : TLabel;


OpenPictureDialog : TOpenPictureDialog;


OutBrowseBtn : TBitBtn;


OutFilenameEdit : TEdit;


OutFilesizeLabel : TLabel;


OutImage : TImage;


OutScrollBox : TScrollBox;


PaletteCheckBox : TCheckBox;


Panel1 : TPanel;


QualityLabel : TLabel;


QualityTrackBar : TTrackBar;


SaveDialog : TSaveDialog;


Splitter1 : TSplitter;


InBitmap : P256Bitmap;


InColours : integer;

size of bitmap data

InDataSize : integer;

copy of filesize

InSize : integer;

copy of bitmap file


Constructors


Functions


procedure CompressBtnClick(Sender: TObject);

--- try to compress input image -> output image ------------------------------


procedure FormDestroy(Sender: TObject);

--- compressor form ----------------------------------------------------------


procedure InBrowseBtnClick(Sender: TObject);


procedure OutBrowseBtnClick(Sender: TObject);

show the bitmap and file size


procedure OutFilenameEditChange(Sender: TObject);


procedure QualityTrackBarChange(Sender: TObject);

now tidy up


procedure FreeStuff;

number of colours


Properties


Events


Variables


CompressBtn : TBitBtn;


CompUsingLabel : TLabel;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


InBrowseBtn : TBitBtn;


InFilenameEdit : TEdit;


InFilesizeLabel : TLabel;


InImage : TImage;


InScrollBox : TScrollBox;


Label1 : TLabel;


OpenPictureDialog : TOpenPictureDialog;


OutBrowseBtn : TBitBtn;


OutFilenameEdit : TEdit;


OutFilesizeLabel : TLabel;


OutImage : TImage;


OutScrollBox : TScrollBox;


PaletteCheckBox : TCheckBox;


Panel1 : TPanel;


QualityLabel : TLabel;


QualityTrackBar : TTrackBar;


SaveDialog : TSaveDialog;


Splitter1 : TSplitter;


InBitmap : P256Bitmap;


InColours : integer;

size of bitmap data


InDataSize : integer;

copy of filesize


InSize : integer;

copy of bitmap file