Unit AdvImage

**************************************************************************** TadvImage : use methode loadImage(filename : String) or property imagename := filename This is a BETA version... feel free to contribute! This software is Freeware. By Janick Fortin Send modifications,Bugs and comments fortin01@gel.ulaval.ca -Legal Notice------------------------------------------------------------------ TadvImage and TAdvOpenPictureDlg for Delphi 3 based on : GifImage mboler@flash.net Mark Boler TJpegImage Copyright (C) 1991-1996, Thomas G. Lane. All Rights Reserved except as specified below. Others Some code are Copyright of Borland Internationnal Before using the GIF and JPEG format in any commercial application be sure you know the legal issues for this format! History : 24 Dec 97 : release of 0.87B (TadvImage and TAdvOpenPictureDlg) 13 jan 98 : release of 0.93B (TadvImage) GDI bug corrected

Classes

TAboutAdvImage -
TAdvImage -

Functions

GetCenterView -
GetfileSize -
GetStretchRatio - getting file size
Register -

Types

TImageType

Constants

Variables


Functions


function GetCenterView(CtrlRec,PictureRect : TRect) : TRect;


function GetfileSize(filename : string) : integer;


function GetStretchRatio(CtrlWidth,CtrlHeight,PictureWidth,PictureHeight : Integer) : TRect;

getting file size

procedure Register;


Types


TImageType = (itBmp,itGif,itJpeg,itUnknown);

Constants


Variables