| Class TBitmapCompForm (unit BMP2RLE) |
TForm
| Constructors |
| Functions |
procedure CompressBtnClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure InBrowseBtnClick(Sender: TObject);
procedure OutBrowseBtnClick(Sender: TObject);
procedure OutFilenameEditChange(Sender: TObject);
procedure QualityTrackBarChange(Sender: TObject);
procedure FreeStuff;| 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;
InDataSize : integer;
InSize : integer;| 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