Delphi-Quellcode:
type
TForm1 = class(TForm)
Image1: TImage;
private
procedure WMEraseBkgnd (var Msg:TMessage); message WM_ERASEBKGND;
//..
procedure TForm1.WMEraseBkGnd;
var Rect : TRect;
MyBrush : THandle;
begin
Rect.Left :=0;
Rect.Top :=0;
Rect.Right :=ClientWidth;
Rect.Bottom:=ClientHeight;
MyBrush:=CreatePatternBrush(Image1.Picture.Bitmap.Handle);
FillRect(Canvas.Handle,Rect,MyBrush);
DeleteObject(MyBrush);
Msg.Result:=0
end;
Nur getippt, nicht getestet.
Anmerkung: Dein Bild muss in Image1 verfügbar sein. Zum Füllen von Hintergründen werden aber besser kleine Bitmaps verwendet, die mehrfach nebeneinander eingeblendet werden können, deren Muster also zueinander passen müssen. Ob der Vorschlag für
ein großes Bild taugt, probiere bitte selbst aus.