Undeclared Picture1 ?

[taktaky]

Hallo

warum muss ich Picture1 deklarieren ?

Delphi-Quellcode:

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
Image1.Picture.LoadFromFile('vorschau.bmp');
Image1.Height:=Picture1.Height * Image1.Height / Picture1.Width; // undeclared Picture1 !
Image1.Stretch  := true;
 end;
end;

Picture1 ist das Bild in Image1. warum Undeclaed ?

[toms]

Woher sollte der Compiler denn wissen, dass Picture1 zu Image1 gehört??

[DeddyH]

Zitat:

Picture1 ist das Bild in Image1.

Und woher soll Delphi das wissen?

[edit] Mal wieder zu spät [/edit]

[taktaky]

Wie kann ich ihn informieren?

[angos]

wenn du auf das picture von image1 zugreifen willst, musste dem das auch sagen ;)

Delphi-Quellcode:

Image1.Height:= Image1.Picture1.Height * Image1.Height / Image1.Picture1.Width;

[edit] wobei das so direkt auch nicht funktionieren wird... da du dividierst musst du auch das ganze runden!

[DeddyH]

Delphi-Quellcode:

Image1.Picture.Height

[Codewalker]

Überlege Dir, wo ein Object "Picture" oder "Picture1" definiert ist (von dir selbst) (ich verstehe nicht genau, was du vor hast).

Zitat:

Image1.Picture.LoadFromFile('vorschau.bmp');
Image1.Height:=Picture1.Height * Image1.Height / Picture1.Width; // undeclared Picture1 !

Edit: Mist zu langsam, wollte doch einen Denkanstoß geben, statt einer Lösung

[taktaky]

Es erscheint zu funktionieren so :

Delphi-Quellcode:

Image1.Height:= trunc(Image1.Picture.Height * Image1.Height / Image1.Picture.Width);

[DeddyH]

Wobei ich den Sinn darin auch noch nicht erkennen kann. Nimm doch AutoSize bzw. Stretch und Proportional. Wozu denn selbst herumrechnen?

[taktaky]

Zitat:

Zitat von DeddyH

Wobei ich den Sinn darin auch noch nicht erkennen kann. Nimm doch AutoSize bzw. Stretch und Proportional. Wozu denn selbst herumrechnen?

Du hast total Recht. In OI gibt es schon die Eigenschaft Proportional, die man beim Strecken aktivieren kann :thumb:
Ich brauche also die Sachen nicht rechnen :wink: Danke!

Gruß