Bildereffekt

[Sebastian Nintemann]

Hallo S2B,
ich habe mal das gemacht was ich im meinem letzten Beitrag meinte:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp,bmpblur: TBitmap;
begin
  bmp := TBitmap.Create;
  bmpblur := TBitmap.Create;
  try
    bmp.LoadFromFile('C:\test.BMP');
    bmpblur.Width := bmp.Width + 10;  //5 Pixel Rand auf jeder Seite
    bmpblur.Height := bmp.Height + 10;
    bmpblur.Canvas.Brush.Color := Form1.Color;
    bmpblur.Canvas.FillRect(rect(0,0,bmpblur.Width,bmpblur.Height)); //Hintergrund des neuen Bildes mit Hintergrundfarbe füllen
    bmpblur.Canvas.Draw(5,5,bmp); //Altes bitmap in die Mitte des neuen setzen
    BmpGBlur(bmpblur,5);  //Effekt 
    Canvas.Draw(10,15,bmp);
    Canvas.Draw(bmp.Width+15,10,bmpBlur); //beide nebeneinander zeichnen um den Vergleich zu sehen
  finally
    FreeAndNil(bmpblur);
    FreeAndNil(bmp);
  end;
end;

Die Prozedur BmpGBlur muss natürlich irgendwo implementiert sein.

In der Anlage ein Screenshot des Ergebnisses. Sieht doch fast so aus wie das Bild das du gepostet hast.

Viele Grüße, Sebastian


//EDIT VERDAMMT jetzt bist du schon fertig bevor ich gepostet hab