Hallo *.*<BR>
<BR>
ich habe ein Problem mit GDI+. Ich möchte zwei Tif's mit einander<BR> verschmelzen. Das geht mit dem Source unten am Bildschirm ohne Probleme.<BR>
Aber wie kann ich diese Tif's jetzt wieder als neues Tif abspeichern.<BR>
<BR>
Und wenn wir gerade dabei sind: wie kann ich die Kompression G4 für das<BR>
neue Tif setzen?<BR>
<BR>
Danke für die Hilfe<BR>
<BR>
Mark<BR>
<BR>
<PRE>
procedure TForm1.Button1Click(Sender: TObject);
var
graphics : TGPGraphics;
Image: TGPImage;
Forground : TGPImage;
Rec : TRectF;
imAtt : TGPImageAttributes;
CLSID : TGUID;
begin
Rec.X := 0;
Rec.Y := 0;
Rec.Width := Image1.Width;
Rec.Height := Image1.Height;
graphics := TGPGraphics.Create(Image1.Canvas.Handle);
Image:= TGPImage.Create('.\Pic\Back.TIF');
Forground := TGPImage.Create('.\Pic\Forg.TIF');
graphics.DrawImage(image,
Rec,
0,
0,
2480,
3508,
UnitPixel,
nil,
nil,
nil);
imAtt := TGPImageAttributes.Create;
imAtt.SetColorKey(
MakeColor(255, 255, 255),
MakeColor(255, 255, 255),
ColorAdjustTypeBitmap);
graphics.DrawImage(Forground,
Rec,
0,
0,
2480,
3508,
UnitPixel,
imAtt,
nil,
nil);
GetEncoderClsid('image/tiff', clsid);
image.Save('.\Pic\MyNeu.tif', Clsid, Nil);
Forground.Save('.\Pic\MyNeu2.tif', Clsid, Nil);
imAtt.Free;
Image.Free;
Forground.Free;
graphics.Free;
end;
</PRE>
<BR>
ich habe ein Problem mit GDI+. Ich möchte zwei Tif's mit einander<BR> verschmelzen. Das geht mit dem Source unten am Bildschirm ohne Probleme.<BR>
Aber wie kann ich diese Tif's jetzt wieder als neues Tif abspeichern.<BR>
<BR>
Und wenn wir gerade dabei sind: wie kann ich die Kompression G4 für das<BR>
neue Tif setzen?<BR>
<BR>
Danke für die Hilfe<BR>
<BR>
Mark<BR>
<BR>
<PRE>
procedure TForm1.Button1Click(Sender: TObject);
var
graphics : TGPGraphics;
Image: TGPImage;
Forground : TGPImage;
Rec : TRectF;
imAtt : TGPImageAttributes;
CLSID : TGUID;
begin
Rec.X := 0;
Rec.Y := 0;
Rec.Width := Image1.Width;
Rec.Height := Image1.Height;
graphics := TGPGraphics.Create(Image1.Canvas.Handle);
Image:= TGPImage.Create('.\Pic\Back.TIF');
Forground := TGPImage.Create('.\Pic\Forg.TIF');
graphics.DrawImage(image,
Rec,
0,
0,
2480,
3508,
UnitPixel,
nil,
nil,
nil);
imAtt := TGPImageAttributes.Create;
imAtt.SetColorKey(
MakeColor(255, 255, 255),
MakeColor(255, 255, 255),
ColorAdjustTypeBitmap);
graphics.DrawImage(Forground,
Rec,
0,
0,
2480,
3508,
UnitPixel,
imAtt,
nil,
nil);
GetEncoderClsid('image/tiff', clsid);
image.Save('.\Pic\MyNeu.tif', Clsid, Nil);
Forground.Save('.\Pic\MyNeu2.tif', Clsid, Nil);
imAtt.Free;
Image.Free;
Forground.Free;
graphics.Free;
end;
</PRE>