Images and Logo's - urgent help required

Please discuss general Delphi programming topics here.

Images and Logo's - urgent help required

Postby DJ ChunkeeZee » November 13th, 2003, 9:48 am

Hi All,
I require a routing to overlay/alphabland a Transparent GIF onto a JPEG and save as JPEG, the Gif is a Company Logo (transparent) and the JPEG the photo, I need to produce a batch routine to place this logo on all my images.

I am new to graphics programming, any help would be appreciated.
Thanks in advance.
DJ ChunkeeZee
Member
Member
 
Posts: 1
Joined: November 13th, 2003, 9:45 am
Location: UK

Postby Kambiz » November 18th, 2003, 11:33 am

Code: Select all
procedure Watermark(Image: TJPEGImage; X, Y: Integer; Stamp: TGraphic);
var
  Bitmap: TBitmap;
begin
  Stamp.Transparent := True;
  Bitmap := TBitmap.Create;
  try
    Bitmap.Assign(Image);
    Bitmap.Canvas.Draw(X, Y, Stamp);
    Image.Assign(Bitmap);
    Image.JPEGNeeded;
  finally
    Bitmap.Free;
  end;
end;
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2421
Joined: March 7th, 2003, 7:10 pm


Return to Delphi Programming

Who is online

Users browsing this forum: No registered users and 1 guest

cron