Miniautransicht von Bildern in Delphi? eine zusätzliche Komp

[Karstadt]

Hallo.

Bin auf der Suche nach eine Komponente die mir bestimmte Bilder in Miniaturansicht zeigt und das aktuelle Bild in einen etwas größeren Format.

Oder kann mand das ganz einfach in D7 Pro realisieren?

Dankeschön

[fkerber]

Hi!

Eine solche Komponente iss mir nicht bekannt - aber eigentlich kann man das recht gut umsetzen.
Es gibt auch einige Programme hier in diese Richtung...


Ciao Frederic

[Karstadt]

Ein Ansatz wäre :

Ein Image Objekt zur Laufzeit mehrere male erstellem (Anzahl von Bilder)

Beim OnClick wird das Bild an das Große Image objekt übergeben... richtig?

[fkerber]

Hi!

Der Ansatz ist in der Theorie gut. Man sollte halt bedenken, für wie viele Bilder das ganze klappen soll.
Bei 1000 Bildern im Ordner iss das vielleicht nicht mehr so toll. Aber sonst isses ganz ok.


Ciao Frederic

[alcaeus]

Zitat:

Zitat von Karstadt

Ein Image Objekt zur Laufzeit mehrere male erstellem (Anzahl von Bilder)

Beim OnClick wird das Bild an das Große Image objekt übergeben... richtig?

Oder ein DrawGrid "missbrauchen" und die Images in die einzelnen Cells reinzeichnen. Hat den Vorteil dass du das Ganze auf kleinem Raum hinstellen kannst, und automatisch schon Scrollleisten dabei sind :)
Im OnSelectCell zeichnest du dann einfach das entsprechende Bild im Grossformat ;)

Greetz
alcaeus

[Karstadt]

In meinen Situation sieht das etwas anders aus. Ich lese die Pfade von Bilder in eine TStringlist ein und übergeben die an "miniaturanicht"


Wie kann ich eine Objekt Createn und dann eine Onclik Ereignis zuweisen?

[Karstadt]

Zitat:

Oder ein DrawGrid "missbrauchen" und die Images in die einzelnen Cells reinzeichnen. Hat den Vorteil dass du das Ganze auf kleinem Raum hinstellen kannst, und automatisch schon Scrollleisten dabei sind Smile
Im OnSelectCell zeichnest du dann einfach das entsprechende Bild im Grossformat Wink

Werden die Bilder 800x600 automatisch in 640x480 verleinet? In Timage ja

[alcaeus]

Zitat:

Zitat von Karstadt

Werden die Bilder 800x600 automatisch in 640x480 verleinet? In Timage ja

Nein, aber genau fuer solche Faelle gibts StretchBlt()

Greetz
alcaeus

[Karstadt]

Zitat:

Zitat von alcaeus

Zitat:

Zitat von Karstadt

Werden die Bilder 800x600 automatisch in 640x480 verleinet? In Timage ja

Nein, aber genau fuer solche Faelle gibts StretchBlt()

Greetz
alcaeus

wie meist du das? wo kann ich diese Eigenschaft aktivieren?

[Karstadt]

bzw. kannst du mir zeigen wie ich ein Bild in DrawGrib reinbekommen

Delphi-Quellcode:

  with DrawGrib do
  begin
    //Pro Feld 
    Loadfromfile('C:\Bild.jpg'); ? :)
  end;