procedure TFmMain.FormPaint(Sender: TObject);
var
Bitmap: TBitmap;
Rect: TRect;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('D:/POS/POSBackOffice/Release/x.bmp');
Rect := Canvas.ClipRect;
Canvas.Brush.Bitmap := Bitmap;
Canvas.FillRect(Rect);
end;
var
Bitmap: TBitmap;
Rect: TRect;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('D:/POS/POSBackOffice/Release/x.bmp');
Rect := Canvas.ClipRect;
Canvas.Brush.Bitmap := Bitmap;
Canvas.FillRect(Rect);
end;