1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:

procedure TForm1.GrossbildStartMitRandClick(Sender: TObject);
// Button zum Umschalten auf Form4 (Großbild) [b]mit Rand [/b]
begin // Bildschirm Normal
  Form4.BorderStyle := bsSizeable;
  Form4.FormStyle := fsNormal;
  Form4.Windowstate := wsMaximized;
  // SetBounds(oldX, oldY, oldW, oldH);
  Form4.Show;
  Form4.SetFocus;
end;

procedure TForm1.GrossbildStartOhneRandClick(Sender: TObject);
// Button zum Umschalten auf Form4 (Großbild) [b]ohne Rand [/b]
begin // Bildschirm VollBild
  Form4.BorderStyle := bsNone;
  Form4.FormStyle := fsStayOnTop;
  Form4.BoundsRect := Monitor.BoundsRect;
  Form4.Show;
  Form4.SetFocus;
end;

procedure TForm4.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
{Bilder anzeigen gemäß Stringgridliste. Es werden nur Bilder angezeigt.
 die in der StringgridListe Spalte 1 markiert sind >>>> }
var
  myRect: TGridRect;
begin
  Case Key of
    VK_Escape:  //Bendet Großbildschirm, zurück zum Hauptprogramm
      Begin // {esc=27}
        Form4.Close; //Form schließen
        Form1.Show;
        Form1.SetFocus;
      end;
    VK_Left:
      begin with Form1.StringGrid1 do
        begin
          NextBild := Row;
          repeat
            dec(NextBild);
            if (NextBild > 0) and (NextBild < RowCount-1) then
              Row := NextBild; // Zelle-1 markieren
          until(NextBild < 1) or (Cells[1,NextBild] = '>>>') {cSymb};
          if (NextBild < 1)   then
            begin Messagedlg('Ordneranfang erreicht oder keine Datei markiert' +
            #10 + 'Zum Beenden drücke Taste ESC', mtInformation, [mbOK], 0);
            exit;
            end
          else
          begin
            FiName := Cells[8,NextBild] + Cells[2,NextBild] +
                      Cells[3,NextBild];
// Hochformat wird nicht korrekt angezeigt
            Image1.Picture.LoadFromFile(FiName);
            Form4.Caption:= 'Form4 ' + FiName;
          end ;
        end;
      end;
    VK_Right:
      begin with Form1.Stringgrid1 do
        begin
          NextBild := Row;
          repeat
            inc(NextBild);
            if (NextBild > 0) and (NextBild < RowCount) then
              Row := NextBild; // Zelle+1 markieren
          until(NextBild > RowCount-1) or (Cells[1,NextBild] = '>>>') {cSymb};
          if (NextBild>=RowCount)   then
            begin Messagedlg('Ordnerende erreicht oder keine Datei markiert' +
            #10 + 'Zum Beenden drücke Taste ESC', mtInformation, [mbOK], 0);
            exit;
            end
          else
          begin
            FiName := Cells[8,NextBild] + Cells[2,NextBild] +
                      Cells[3,NextBild];
// Hochformat wird nicht korrekt angezeigt
            Image1.Picture.LoadFromFile(FiName);
            Form4.Caption:= 'Form4 ' + FiName;
          end ;
        end;
      end;
    else
      begin
       Key := 0;
      end;
  End;
end;                    

1:

TagIdWertAusrichtung:=ExifData.Sections[esGeneral].GetWordValue(ttOrientation,0);                    

1:
2:
3:
4:
5:

case TagIdWertAusrichtung of
  3: Image1.Bitmap.Rotate(180);
  6: Image1.Bitmap.Rotate(-90);
  8: Image1.Bitmap.Rotate(90);
end;