> with bitmap do begin
> Width := MyJPEG.Width;
> Height := MyJPEG.Height;
> Canvas.Draw(0, 0, MyJPEG);
> end;
Why do you draw to a Bitmap and then draw the bitmap to the form.
Can't you just draw the JPEG direct to the form since in both cases
you're drawing to a TCanvas. Hide the form borders (Should the form
Clientwidth or Width be set to match the JPEG).
Something like {Untested code}
var
JPG :TJPEGImage;
Frm :TForm;
begin
JPG := TJPEGImage.Create;
Frm := TForm.Create(nil);
with Frm do try
BorderStyle := boNone;
Position := poScreenCenter;
JPG.LoadFromFile('TheImage.Jpg');
ClientWidth := JPG.Width;
ClientHeight := JPG.Height;
Show;
Canvas.Draw(0,0,JPG);
{Do stuff here}
finally
if JPG<>nil then JPG.Free;
if FRM<>nil then FRM.Release;
end;
end;
> try form.Free; except ; end;
I always thought you were supposed to use Form.Release not
Form.Free to handle any pending messages before closing (EG
user clicked on the form during heavy processing leaving these
click messages unprocessed whent he form is destroyed - which
I think might raise an exception).
--
Aaron Scott-Boddendijk
Jump Productions
(07) 838-3371 Voice
(07) 838-3372 Fax
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
