Einzelnen Beitrag anzeigen

Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#3

Re: bei klick auf bild dieses neu in originalgroesse oeffnen

  Alt 19. Dez 2009, 13:07
Als Anregung:
Du setzt auf das Form, das die große Anzeige bewerkstelligen soll, ein TImage. Positionierst es auf 0,0 (obere linke Ecke) und stellst die Eigenschaft Autosize auf True.
Nach dem Laden des Bildes (Image1.Picture.LoadfromFile('irgendwas.jpg')) setzt du die Abmessungen des Forms auf die jetzigen neuen Abmessungen des Bildes (Form1.ClientWidth:=Image1.Width; Form1.ClientHeight:=Image1.Heigh.
So hast du schonmal die Größe des Forms dem Bild angepasst.
Dann noch Form1.Position:=poScreenCenter und es ist zentriert.
Das wäre eine Variante, wie man das bewerkstelligen kann.

Edit: Ups, da war jemand schneller
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat