Na ja, soweit ist das System klar, aber als Delphi
wiederanfänger bin ich damit nen stückweit derzeit
überfordert.
Delphi-Quellcode:
procedure TDeckungsgradberechner.Grafikoeffnen1Click(Sender: TObject);
var OD: TOpenDialog;
begin
OD := TOpenDialog.Create(Self);
with OD do
begin
OD.Title := 'Datei auswählen...';
OD.Filter := 'Jpeg-Dateien (*.jpg)|*.jpg|Bitmaps (*.bmp)|*.bmp'; // Dateityp-Festlegung
OD.InitialDir := GetCurrentDir; // Öffnen-Pfad = Aktuelles Verzeichnis
if OD.Execute then // Wenn geöffnet, dann ...
Grafikplatz.Picture.LoadFromFile(Filename); // Bild wird in Grafikplatz geladen
end;
OD.Free; // Dialog wieder aus Speicher entfernen
end;
end.