635ebf4a4e
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@995 8e941d3f-bd1b-0410-a28a-d453659cc2b4
44 lines
789 B
ObjectPascal
44 lines
789 B
ObjectPascal
unit ImgForm;
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, {$ENDIF}
|
|
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
ExtCtrls;
|
|
|
|
type
|
|
TImageForm = class(TForm)
|
|
Image1: TImage;
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
ImageFormBitmap: TBitmap;
|
|
end;
|
|
|
|
var
|
|
ImageForm: TImageForm;
|
|
|
|
implementation
|
|
|
|
{$IFNDEF LCL}
|
|
{$R *.DFM}
|
|
{$ENDIF}
|
|
|
|
procedure TImageForm.FormShow(Sender: TObject);
|
|
begin
|
|
Image1.Picture.Bitmap := ImageFormBitmap;
|
|
Width := Image1.Width + 30; {makes for better fit}
|
|
ClientHeight := Image1.Height;
|
|
ClientWidth := Image1.Width;
|
|
end;
|
|
|
|
initialization
|
|
{$IFDEF LCL}
|
|
{$I ImgForm.lrs} {Include form's resource file}
|
|
{$ENDIF}
|
|
|
|
end.
|