Bild in Delphi öffnen/anzeigen

[Lill Jens]

Zitat von Matze:

Den Code habe ich bereits geschrieben, also sollte es funktionieren.

Muss also dann der Code so aussehen?

Delphi-Quellcode:

procedure TForm1.Label72Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
  Image3.LoadFromFile(OpenPictureDialog1.Filename)

end;

Allerdings kommt dann die Fehlermeldung:

[Fehler] u_Verwaltung.pas(5245): Undefinierter Bezeichner: 'LoadFromFile'
Sry für meine dummen Fragen bin eben noch neu auf dem Gebiet...

[mkinzler]

Welchen Typ hat image3?

[Blackheart]

Image.Picture.LoadFromFile();

[DeddyH]

Image3.Picture.LoadFromFile(OpenPictureDialog1.Filename)

//Edit: *Oops*, da war jemand schneller.

[Lill Jens]

Zitat von DeddyH:

Image3.Picture.LoadFromFile(OpenPictureDialog1.Filename)

Optimal Ihr seid die Besten

Danke für euere Hilfe

[Sandy123]

habe eine frage, und zwar wie kann ich ein externes bild in delphi als hintergrundbild einbinden?
mfg philip

[DeddyH]

Der ganz einfache Weg: pack ein TImage auf das Formular, Align auf alClient, und lad da wie gezeigt das Bild rein.

[mkinzler]

Wenn die JVCL verwendet wird: TJvBackground

[Bummi]

wenn die Jedi's noch nicht verwendet werden, dann doch lieber etwas in der Art s.u. um den Kram draussen zu halten.

Delphi-Quellcode:

  private
    FPicture:TPicture;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation
uses pngimage,jpeg;
{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
    FPicture:=TPicture.Create;
    FPicture.LoadFromFile('C:\Icons\IconCollection\ix_bd_all\128x128\shadow\address_book.png');
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
   FreeAndNil(FPicture);
end;

procedure TForm2.FormPaint(Sender: TObject);
  Function Faktor:Double;
    begin
       Result := ClientWidth / FPicture.Graphic.Width;
       if  (ClientHeight / FPicture.Graphic.Height) < Result then Result :=  ClientHeight / FPicture.Graphic.Height;
    end;
begin
   Canvas.StretchDraw(Rect(Round(ClientWidth - (Faktor * FPicture.Graphic.Width) ) div 2
                          ,Round(ClientHeight - (Faktor * FPicture.Graphic.Height) ) div 2
                          ,ClientWidth - Round(ClientWidth - (Faktor * FPicture.Graphic.Width) ) div 2
                          ,ClientHeight - Round(ClientHeight -(Faktor * FPicture.Graphic.Height) ) div 2
                          )
                          ,FPicture.Graphic);
end;

procedure TForm2.FormResize(Sender: TObject);
begin
  invalidate;
end;

[DeddyH]

Effizienter wäre es aber, Faktor als Variable zu deklarieren und einmalig zu berechnen. Dann muss nicht bei jedem OnPaint 4 Mal die Funktion durchlaufen werden.