TImage - Größe ändern

[Daniel B]

Delphi-Quellcode:

procedure BoxesOnPaint(Sender: TPaintBox); 
var 
  PB: TPaintBox; 
  Bmp: TBitmap; 
begin 
  if Sender = PaintBox1 then begin 
    PB := PaintBox1; 
    Bmp := Bitmap1; 
  end else if Sender = PaintBox2 then begin 
    PB := PaintBox2; 
    Bmp := Bitmap2; 
  end else if Sender = PaintBox3 then begin 
    PB := PaintBox3; 
    Bmp := Bitmap3; 
  end else if Sender = PaintBox4 then begin 
    PB := PaintBox4; 
    Bmp := Bitmap4; 
  end else begin 
    ... 
    Exit; 
  end; 
  ... 
  PB.Canvas.CopyRect(R, Bmp.Canvas, R); // R = TRect

Von sakura!

Grüsse, Daniel