autosize funktioniert nicht bei TImage

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