autosize funktioniert nicht bei TImage

[blubber443]

hey, ich wollt die imagegröße der bild größe anpassen, das heißt das ein 10*10 bild mit 10*10 pixel angezeigt wird und ein 40*40 bild mit 40*40pixeln obwohl mein image 50*30 pixel ist. mit labels funktioniert autosize problemlos aber irgendwie nicht bei meinem image

[himitsu]

Bei mir hatte das bis jetzt immer funktioniert.

Wie kommt denn das Bild dort rein?

[jaenicke]

Wie merkst du das denn? Zur Laufzeit sieht man doch die Größe der TImage Komponente gar nicht mehr, weil die um das Bild herum durchsichtig ist.

[freeway]

autosize passt das Bild innerhalb des TImages an
wenn du die TImagesgrösse anpassen möchtest --> TImages.widht := pic.width & TImages.height := pic.height

[DeddyH]

Nee, andersherum.

Zitat:

Mit AutoSize legen Sie fest, ob das Steuerelement seine Größe automatisch anpasst. Hat AutoSize den Wert True, wird das Steuerelement automatisch angepasst, wenn sich sein Inhalt ändert.

[himitsu]

Daran, bis wohin das Image auf die Maus reagiert. (OnClick/OnMouseMove)

Oder laß'es dir anzeigen.

Delphi-Quellcode:

procedure TForm9.Timer1Timer(Sender: TObject);
begin
  //Shape1.Brush.Style := bsClear;
  //Shape1.Parent := Image1.Parent;
  Shape1.BoundsRect := Image1.BoundsRect;
end;

procedure TForm9.Timer1Timer(Sender: TObject);
var
  R: TRect;
begin
  //Shape1.Brush.Style := bsClear;
  //Shape1.Parent := Image1.Parent;
  R := Image1.BoundsRect;
  R.Inflate(1, 1);
  Shape1.BoundsRect := R; // um das Image drumrum
end;