paintbox "fixieren"

[Christian Seehase]

Moin Stephan,

ein kleines Beispiel:

Code:

[b]var[/b]
  Form1: TForm1;
  bmpWork : TBitmap;

[b]implementation[/b]

[color=#000080]{$R *.DFM}[/color]

[b]procedure[/b] TForm1.PaintBox1Paint(Sender: TObject);
[b]begin[/b]
  PaintBox1.Canvas.Draw(0,0,bmpWork);
[b]end[/b];

[b]initialization[/b]
[b]begin[/b]
  bmpWork := TBitmap.Create;
  bmpWork.LoadFromFile('c:\nvidia\setup.bmp');
[b]end[/b];

[b]finalization[/b]
[b]begin[/b]
  FreeAndNil(bmpWork);
[b]end[/b];

Ist jetzt nicht ideal, weil es die Grösse der Bitmap/Paintbox nicht berücksichtigt, funktioniert vom Ablauf her aber.