Class TFormConvert (unit main)

Inherits from

TForm

----------------------------------------------------------------------------- Project: TGIFImage Image Converter Module: main Description: Convert images to GIF format Version: 2.0 Release: 3 Date: 26-APR-1998 Target: Win32, Delphi 3 Author(s): anme: Anders Melander, anders@melander.dk Copyright (c) 1997,98 by Anders Melander Formatting: 2 space indent, 8 space tabs, 80 columns. ----------------------------------------------------------------------------- This software is copyrighted as noted above. It may be freely copied, modified, and redistributed, provided that the copyright notice(s) is preserved on all copies. // There is no warranty or other guarantee of fitness for this software, it is provided solely "as is". Bug reports or fixes may be sent to the author, who may or may not act on them as he desires. // You may not include this software in a program or other software product without supplying the source, or without informing the end-user that the source is available for no extra charge. // If you modify this software, you should include a notice in the "Revision history" section giving the name of the person performing the modification, the date of modification, and the reason for such modification. ----------------------------------------------------------------------------- Note: To support Delphi 2, the TOpenPictureDialog component should either be removed or replaced with a TOpenDialog component. -----------------------------------------------------------------------------

Constructors



Functions

procedure FormClose(Sender: TObject; var Action: TCloseAction);

Do not use buffering.

procedure FormCreate(Sender: TObject);


procedure MenuFileExitClick(Sender: TObject);

Convert to GIF

procedure MenuFileOpenClick(Sender: TObject);

Use buffering since we have no control over the preview canvas.

procedure MenuFileOpenPreviewClick(Sender: TObject);


procedure MenuFileSaveAsClick(Sender: TObject);

Set filter to all supported image formats

procedure MenuViewRefreshClick(Sender: TObject);

Set default "save as" filename

procedure MenuViewStretchClick(Sender: TObject);


procedure DoOpenFile(Filename: string);

Private declarations

Properties

Events

Variables

ImageView : TImage;


MainMenu : TMainMenu;


MenuFile : TMenuItem;


MenuFileExit : TMenuItem;


MenuFileOpen : TMenuItem;


MenuFileOpenPreview : TMenuItem;


MenuFileSaveAs : TMenuItem;


MenuFileSep : TMenuItem;


MenuView : TMenuItem;


MenuViewRefresh : TMenuItem;


MenuViewStretch : TMenuItem;


OpenDialog : TOpenDialog;


OpenPictureDialog : TOpenPictureDialog;


SaveDialog : TSaveDialog;



Constructors


Functions


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Do not use buffering. This is safe since we have complete control over the TImage's canvas


procedure FormCreate(Sender: TObject);


procedure MenuFileExitClick(Sender: TObject);

Convert to GIF


procedure MenuFileOpenClick(Sender: TObject);

Use buffering since we have no control over the preview canvas.


procedure MenuFileOpenPreviewClick(Sender: TObject);


procedure MenuFileSaveAsClick(Sender: TObject);

Set filter to all supported image formats


procedure MenuViewRefreshClick(Sender: TObject);

Set default "save as" filename


procedure MenuViewStretchClick(Sender: TObject);


procedure DoOpenFile(Filename: string);

Private declarations


Properties


Events


Variables


ImageView : TImage;


MainMenu : TMainMenu;


MenuFile : TMenuItem;


MenuFileExit : TMenuItem;


MenuFileOpen : TMenuItem;


MenuFileOpenPreview : TMenuItem;


MenuFileSaveAs : TMenuItem;


MenuFileSep : TMenuItem;


MenuView : TMenuItem;


MenuViewRefresh : TMenuItem;


MenuViewStretch : TMenuItem;


OpenDialog : TOpenDialog;


OpenPictureDialog : TOpenPictureDialog;


SaveDialog : TSaveDialog;