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
