TImage größe in cm angeben

[Sharky]

Hai,
ich stehe etwas auf dem Schlauch Ich möchte die Größe eine TImage in cm angeben.
Wenn ich das so mache

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
 inch = 2.54;
var
  ppi : Integer;
begin
  ppi := Screen.PixelsPerInch;
  Image1.Width := Round (ppi * 13 / inch);  // 13 cm breit
  Image1.Height := Round (ppi * 10 / inch); // 10 cm hoch
end;

geht es auch sollange ich meine Auflösung von 1280x1024 eingestellt habe. Wenn ich diese aber ändere simmt die größe nicht mehr.

Hat jemand einen kleinen Tipp für mich?

[Luckie]

Dioe Größe von TImages kannst du nicht direkt in cm angeben. Aber du kannst in Millimetern draufzeichnen, in dem du den entsprechenden MapMode setzt mit SetMapMode. Da ein TImage ja so wie so nur auf dem Bildschirm ausgegeben werden kann ist die Angabe in Zentimetren so wie so nicht sinnvoll.

[Sharky]

Hai Luckie,

danke für den Tip mit dem MapMode. Werde ich mir mal ansehen.

Zitat von Luckie:

.... ist die Angabe in Zentimetren so wie so nicht sinnvoll.

Doch
Dadurch sehe ich nämlich auf dem Bildschirm das Bild in der Größe wie es nach dem Entwickeln auf dem Photo aussieht. Das ist interessant wenn es darum geht ob z.B. eine Person vernünftig auf einem Photo mit 10x13 zu sehen ist.