Reply to TImage automatisch vergroessern lassen on Sat, 18 Nov 2006 19:06:07 GMT

Meep Meep — Sat, 18 Nov 2006 19:06:07 GMT

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

Reply to TImage automatisch vergroessern lassen on Sun, 19 Nov 2006 09:49:31 GMT

Jansen — Sun, 19 Nov 2006 09:49:31 GMT

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);