Mit Bildern arbeiten

[Matze]

Delphi-Quellcode:

procedure TForm1.ResizePicture(dir: string; width, height: integer);
var bmp:TBitmap;
    jpeg:TJpegImage;
begin
  Jpeg:=TJpegImage.Create;
  try
    jpeg.LoadFromFile(dir);
    bmp:=TBitmap.Create;
      try
        If jpeg.width>jpeg.Height then
        begin
          bmp.width:=width;
          bmp.height:=height; 
        end else
        begin
          bmp.width:=height;
          bmp.Height:=width; 
        end;
        bmp.canvas.StretchDraw(Rect(0,0,bmp.width,bmp.height),jpeg);
        Image1.Canvas.Draw(0,0,bmp);
      finally
        bmp.free;
      end;
  finally
    jpeg.free;
  end;
end;

Alle Angaben ohne Gewähr!

[billi]

Hallo,
vielen, vielen Dank, jetzt gehts super. Nur zwei Sachen interessieren mich noch:
1.) TImage.center:= true hat jetzt keinen Erfolg mehr, wie kann man das ändern? (muss ich das jetzt auch manuell über die Koordinaten ausrechen, oder gibts da ne bessere Lösung?)
2.) Wenn ich in dem TImage jetzt mehrere Bilder öffne, legen die sich übereinander, was ja nicht so gut aussieht... und nochwas, wie bestimme ich die Hintergrundfarbe?
gruß
billi

[Tonic1024]

Moin...

Wenn du die Bilder an einer anderen stelle haben willst, musst du sie schon berechnen lassen... die Stelle Natürlich Und wenn dur sie eh berechnest, kannst du sie auch gleich zentrieren...

Welche Hintergrundfarbe?

Willst du sie setzen oder auslesen? Arbeitest du mit Transparenz?

bis denne...

[billi]

als Hintergrundfarbe würd ich gerne die vom Form nutzen, bzw. ich würd dann halt die Farbe setzen.

[XeRo]

Form1.Color:=clRed; //Farbe von Form auf Rot gesetzt
Image1.Transparent:=True; //Jene Fareb, die am Rand desl Bildes ist wird durchsichtig

Nun wird die Randfarbe des Bildes durchsichtig und die nun rote Form scheint durch.