14. september 2002 - 22:42
Der er
3 kommentarer og
1 løsning
Udskrive et billede der er loadet i en bestemt størrelse
Jeg vil lave et program der kan loade 1 billede (faktisk 2 - og så sætte dem sammer, meeen..) strække det, så det fylder en bestemt del af skærmen, og når man trykker på en udskriv-knap udskriver den i fx 14x14cm.
Som der står i parantesen skal den kunne loade to billeder og sætte dem sammen i udskriften så det samlede billede altså bliver fx 28x14cm
source please........................!!!!!!!!!!!! :-)
15. september 2002 - 17:32
#2
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
15. september 2002 - 18:23
#3
>>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...
