Udskrive et billede der er loadet i en bestemt størrelse

kan jeg da nok godt lave. Men billederne vil altid have samme højde ?

anyway skal jeg bruge din hvis jeg får lavet det og skal sende det.

ok du tager 3 * imagecomponent i sætter på din form.

Image1 skal have en af billederne.
Image2 skal have billed 2

Image3 bliver resultatet.

procedure TForm1.Button1Click(Sender: TObject);
var
  destrect, sourcerect: TRect;
begin
//se om de har samme størrelse
  if Image1.Picture.Height = Image2.Picture.Height then
  begin
    destrect := Rect(0,0, Image1.Picture.Width, Image1.Picture.Height);
    sourcerect := Rect(0,0, Image1.Picture.Width, Image1.Picture.Height);
    Image3.Canvas.CopyRect(destrect, Image1.Canvas, sourcerect);

    destrect := Rect(Image1.Picture.Width,0, Image1.Picture.Width+Image2.Picture.Width, Image2.Picture.Height);
    sourcerect := Rect(0,0, Image2.Picture.Width, Image2.Picture.Height);
    Image3.Canvas.CopyRect(destrect, Image2.Canvas, sourcerect);
  end else
    showmessage('Billederne skal have samme højde!');
end;

så skal de bare udskrives.
dkn

>>j-johansen
I bogen Delphi 4 Programmering af Per Amdal Steffensen er der et godt eksempel på hvordan man udskriver billeder, hvis du mangler printer-kode...

lukker spørgsmål