Sup ice.
Dunno if this works on 3.0 because I still haven't gotten it yet, but this is what I did on the old version.
SCAR Code:
FormPic : integer;//include this in global variables
procedure SafePaint;
var Canvas : TCanvas;
begin
Canvas := GetBitmapCanvas(FormPic);
SafeCopyCanvas(canvas, frmdesign.Canvas, 0,0,318,310,0,0,318,310);//you need to adjust the numbers at the end to fit your form size
end;
Procedure PaintForm(sender:TObject);
begin
SafePaint;
end;
frmDesign.OnPaint:= @PaintForm;//this goes in your init form procedure. kinda like @buttonclick
begin//main loop
FormPic := LoadBitmap('picture.bmp');//I suppose this could go anywhere, I just put it here
end.
Also, note that you can do the bitmap to string thing for small images. However, I did that once before I realized how big they are, and got 10,000+ lines of bitmap string
it crashed.