Hintergrundfarbe bei StretchBlt

[Andifeatable]

Schönen guten Morgen
Folgendes Problem: Ich brauch ein Programm mit dem man Passbilder "zuschneiden" kann...so weit funktioniert auch alles! Einzig der Rand bei Fotos die dünner (bzw. breiter) als die Vorlage sind ist ein schwarzer Rand. Schwarz geht leider nicht sondern der Rand sollte grau sein!

Ich benutze StretchBlt für das "Ausschneiden" aus dem Originalbild.

Hier mal der entsprechende Code (Ich hoffe der is halbwegs lesbar ^^)

Delphi-Quellcode:

function TfrmBildMain.StretchJpeg(Open: AnsiString; Img: Timage): Boolean;
var
  Jpg : TJpegImage;
  Bmp: TBitmap;

  OriUrsprung, Ursprung, StartPortrait, EndPortrait: TPoint;
  Faktor, FaktorX, FaktorY: Real;
  RectToFill: TRect;
  Rectlength: integer;
begin
  Result:= false;
  if FileExists(Open) then
  begin
    Jpg := TJpegImage.Create;
    Bmp:= TBitmap.Create;
    try
      Jpg.LoadFromFile(Open);
      Bmp.PixelFormat:= pf24bit;
      Bmp.Assign(Jpg);
      Img.Picture.Bitmap.Width:= Img.Width;
      Img.Picture.Bitmap.Height:= Img.Height;
      SetStretchBltMode(Img.Picture.Bitmap.Canvas.Handle, STRETCH_HALFTONE);
      SetBrushOrgEx(Img.Picture.Bitmap.Canvas.Handle, 0, 0, nil);

      OriUrsprung.X := imgGesicht.Picture.Width div 2;
      OriUrsprung.Y := imgGesicht.Picture.Height div 2;
      Ursprung.X := imgGesicht.Width div 2;
      Ursprung.Y := imgGesicht.Height div 2;

      StartPortrait.X := (imgGesicht.ClientOrigin.X + Ursprung.X) - imgSchablone.ClientOrigin.X;
      StartPortrait.Y := (imgGesicht.ClientOrigin.Y + Ursprung.Y) - imgSchablone.ClientOrigin.Y;

      EndPortrait.X := (imgSchablone.ClientOrigin.X + imgSchablone.Width) - (imgGesicht.ClientOrigin.X + imgGesicht.Width div 2);
      EndPortrait.Y := (imgSchablone.ClientOrigin.Y + imgSchablone.Height) - (imgGesicht.ClientOrigin.Y + imgGesicht.Height div 2);

      FaktorX := imgGesicht.Picture.Width / imgGesicht.Width;
      FaktorY := imgGesicht.Picture.Height / imgGesicht.Height;

      if FaktorX > FaktorY then
        Faktor := FaktorX
      else
        Faktor := FaktorY;

      StretchBlt(Img.Picture.Bitmap.Canvas.Handle,
                 0, 0,
                 Img.Width, Img.Height,
                 Bmp.Canvas.Handle,
                 // Nicht 0, 0 sondern angaben lt. imgSchablone/imgVorschau
                 (OriUrsprung.X - Round(StartPortrait.X * Faktor)), (OriUrsprung.Y - Round(StartPortrait.Y * Faktor)),
                 // Nicht komplette BMP Höhe/Breite sondern nur Teil!
                 // Immer ein Quadrat 176 x 176...
                 Round(Faktor * 176), Round(Faktor * 176),
                 srccopy);

      Jpg.Assign(Img.Picture.Bitmap);
      Jpg.CompressionQuality:= 95;
      Jpg.Compress;
      Result:= true;
    finally
      Bmp.Free;
      Jpg.Free;
    end;
  end;
end;

Weiss echt nimma weiter...Canvas bemalen vor StretchBlt funktioniert nicht (StretchBlt macht anscheinend automatisch ein schwarzes Bild und befüllt das dann), Canvas bemalen nach StretchBlt is doof weil dann das Bild flöten geht
Vor StretchBlt aus "img" ein 177x177 großes graues Bild zu machen und dann wieder kleiner machen funktioniert auch nicht wirklich (qualität ist seltsamerweise dann nicht tragbar), etc.

Ich hoffe ich hab das Problem halbwegs verständlich erklärt...
Hier noch ein Screenshot von dem Programm: http://mxs.info/andi/diverse/Foto%20zuschneiden.jpg
Also der schwarze Streifen rechts (=Vorschau ) sollte grau sein...

Hat jemand Ideen oder so?
Bitte, Danke, lg Andi