Grafik in TImage laden

[Venator]

Hallo,

ich habe recht lange nichts mehr mit Delphi gemacht.
Das letzte mal war es zu Schulzeiten und das ist nun
knapp 3 Jahre her.

Nichts desto mehr möchte ich gerne mal wieder was pro-
grammieren und habe auch schon nen bisschen was hin-
bekommen. Nun habe ich aber folgendes Problem:

Ich möchte einen Button "Datei öffnen" erstellen, mit
dessen Hilfe ich von der Platte eine Grafik (*.bmp, *.jpg etc)
auswählen kann, die dann in meiner Anwedung angezeigt wird
(in nem TImage, Panel oder sonstwo).
Kann mir bitte jemand helfen?

Grüße, V..

[dahead]

ja.

du kannst entweder den normalen TOpenDialog oder den TOpenPictureDialog verwenden.

das ganze funktioniert so ähnlich:

Delphi-Quellcode:

var
  OD: TOpenDialog;
begin
  OD := TOpenDialog.Create(Self);
  with OD do
   begin
    OD.Title := 'Datei auswählen...';
    OD.Filter := 'Bitmaps (*.bmp)|*.bmp|Jpeg-Dateien (*.jpg)|*.jpg'; // usw.
    OD.InitialDir := GetCurrentDir; // Öffnen-Pfad = Aktuelles Verzeichnis
    if OD.Execute then // Wenn geöffnet, dann
     Image1.Picture.LoadFromFile(Filename); // Bild in Image1 laden
   end;
  OD.Free; // Dialog wieder aus Speicher entfernen
end;

[Nils_13]

Oder du nimmst Shell, ist die elegantere Lösung.

[Venator]

Jo, das war mal ne Flotte und prima Hilfe. Danke!

Hab das ganze etwas abgeändert und in meinen Quelltext eingefügt.
Hab das ganze jetzt noch auf nen Menü umgelegt und bin ganz zu-
frieden. Jetzt habe ich noch nene anderes Problem. Ich würde gerne
das Programm auslesen lassen, wieviel % der Grafik Farbig
(also Farbe + Schwarz) bedeckt sind und wieviel % weiss sind.

Hat dabei jemand von euch eine Idee?
Kann man auch anzeigen lassen wie Groß die Grafik ist (Pixel breite
mal Höhe)?

Danke schonmal im vorraus, V..

[dahead]

Du solltest pro Frage einen Thread erstellen. Also lieber für deine o. g. Frage eine neuen.

Die Höhe und Breite kannst du mit Image1.Height bzw. Image1.Width anzeigen lassen. Dabei sollte AutoSize = True sein, ansonsten zeigt er nur die "geschrumpfte" Größe an.