TImage automatisch vergroessern lassen

Meep Meep

hola leute

hab ein TImage auf ein TabSheet gelegt und habe alle Anchorswerte auf true gesetzt. beim OnResize vom TabSheet hab ich dann folgenden code:

image->Canvas->Pen->Color = clBlack;
   image->Canvas->Brush->Color = clWhite;
   image->Canvas->Rectangle(image->ClientRect);

das gezeichnete weiße rechteck bleibt beim vergroessern aber immer gleich groß. nur beim verkleinern passt es sich richtig an.
woran kann das liegen ?

Meep Meep

Jansen

Beim Verkleinern passt es sich auch nicht an, die überstehenden Ränder sind einfach nicht sichtbar.
Das Bitmap des Image wird nicht automatisch an die Imagegrösse angepasst, das
musst du von Hand machen.

image->Picture->Bitmap->Width = image->ClientWidth;
image->Picture->Bitmap->Height = image->ClientHeight;
...
image->Canvas->Rectangle(image->ClientRect);