Pixel in Millimiter umrechnen mit dieser Funktion ?

[thomas2009]

Hallo

ich wollte vor dem Drucken die Maße des Bildes in mm anschauen
ich möchte diese Funktion verwenden. Ich erhalte immer einen Fehler

wie rufe ich die Funktion auf ?
http://delphi.about.com/od/adptips2005/qt/pixel2mm.htm

[himitsu]

na du übergibst der Funktion dein Canvas (worauf zu zeichen willst),
bekommst die Pixel pro Millimeter zurück und verrechnest diese dann mit der Größe deines Bildes.

Delphi-Quellcode:

Var X, Y: Single;

PixelsPerMM(Canvas, X, Y);
MMWidth  := Bild.Witdh  / X;
MMHeight := Bild.Height / Y;

PS: mit SetMapMode könntest du auch z.B. dein Drucker-Canvas so umschalten, daß die Pixel "Millimetern" entsprechen

Delphi-Quellcode:

SetMapMode(Printer.Canvas.Handle, Modus);

// Modus = MM_HIMETRIC   // 1 Pixel = 0.01 Millimeter
//         MM_LOMETRIC   // 1 Pixel = 0.1  Millimeter

[edit] / und nicht *
[add] @Luckie: schneller

[Luckie]

Benutze die API-Funktion SetMapMode, dann kannst du alles direkt in zehntel Millimeter angeben.

[thomas2009]

Es klappt nicht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var X, Y: Single;
begin
PixelsPerMM(Canvas, X, Y);
Edit3.Text  := IntToStr(StrToInt(Edit1.Text) / X);
Edit4.Text  := IntToStr(StrToInt(Edit2.Text) /Y);

end;

[DeddyH]

Wieso ignorierst Du, was andere antworten? SetMapMode benutzen und Du hast Deine Milimeter.

[himitsu]

Zitat von thomas2009:

Es klappt nicht

was klappt nicht? (Fehlerbeschreibung!)

ich kann's mir zwar denken ... schau mal in die OH, was zu IntToStr steht und schau dir dann z.B. FloatToStr an.

[nuclearping]

Zitat von thomas2009:

Es klappt nicht [...]

Selbständiges denken und experimentieren ist, trotz vorzüglicher Hilfestellung in diesem Forum, immernoch sehr gern gesehen.

[thomas2009]

Es hat zwar geklappt aber keine gute Funktion
ich erhalte nicht die richtige Maße meines Bildschirms
Mein Bildschirm ist 1152 x 864 Pixels (etwas 37,6 cm)
aber mit der Funktion erhalte ich 32 cm !

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure PixelsPerMM(canvas: TCanvas; var x, y: Extended);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  myscreenWidth, myscreenHeight :Extended;

implementation

{$R *.dfm}

procedure TForm1.PixelsPerMM(canvas: TCanvas; var x, y: Extended);
var
    H:HDC;
    hres,vres,
    hsiz,vsiz:integer;
begin
    H:=canvas.handle;
    hres := GetDeviceCaps(H,HORZRES) ; {display width in pixels}
    vres := GetDeviceCaps(H,VERTRES) ; {display height in pixels}
    hsiz := GetDeviceCaps(H,HORZSIZE) ; {display width in mm}
    vsiz := GetDeviceCaps(H,VERTSIZE) ; {display height in mm}
    x := hres/hsiz;
    y := vres/vsiz;
    myscreenWidth:=screen.Width/x; // in mm
    myscreenheight:=screen.Width/y;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: Extended;
begin
  PixelsPerMM(Form1.Canvas, X, Y);
  Edit1.Text := FloatToStr(X); { the x value holds the pixels per mm horizontally }
  Edit2.Text := FloatToStr(Y); { the y value holds the pixels per mm vertically }

Edit3.Text:=FloatToStr(myscreenWidth);
Edit4.Text:=FloatToStr(myscreenheight);

  end;

end.

Kann jemand mir ein beispiel mit SetMapMode geben ?

[himitsu]

ist der DPI-Wert für deinen Monitor eigentlich richtig eingestellt?
(nicht daß da nur irgendwo 'ne falsche Angabe steht)

ich frag mich auch, was du mit myscreenWidth und myscreenHeight anstellst.

Delphi-Quellcode:

procedure TForm1.PixelsPerMM(canvas: TCanvas; var x, y: Extended);
var
    H:HDC;
    hres,vres,
    hsiz,vsiz:integer;
begin
    H:=canvas.handle;
    hres := GetDeviceCaps(H,HORZRES) ; {display width in pixels}
    vres := GetDeviceCaps(H,VERTRES) ; {display height in pixels}
    hsiz := GetDeviceCaps(H,HORZSIZE) ; {display width in mm}
    vsiz := GetDeviceCaps(H,VERTSIZE) ; {display height in mm}
    x := hres/hsiz;
    y := vres/vsiz;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: Extended;
begin
  PixelsPerMM(Form1.Canvas, X, Y);
  Edit1.Text := FloatToStr(X); { the x value holds the pixels per mm horizontally }
  Edit2.Text := FloatToStr(Y); { the y value holds the pixels per mm vertically }

  Edit3.Text := FloatToStr(screen.Width * X);
  Edit4.Text := FloatToStr(screen.Height * Y);
end;

und falls es dir noch nicht aufgefallen ist,
HORZSIZE und VERTSIZE geben bereits die größe in Millimetern an,
wozu willst du also noch rechnen?

(Pixel / 1 mm) * Pixel = mmFürAllePixel

Delphi-Quellcode:

// für jeden Monitor einzeln
var h: hDC;
  hsiz, vsiz: Integer;
begin
  // i = Index des Monitors
  // 0 >= i < Screen.MonitorCount

  h := GetDC(Screen.Monitors[i].Handle);
  hsiz := GetDeviceCaps(h, HORZSIZE);
  vsiz := GetDeviceCaps(h, VERTSIZE);
  ReleaseDC(Screen.Monitors[i].Handle, h);

  Edit1.Text := FloatToStr(hsiz) + 'mm';
  Edit2.Text := FloatToStr(vsiz) + 'mm';
end;


// für den Desktop
var h: hDC;
  hsiz, vsiz: Integer;
begin
  h := GetDC(GetDesktopWindow);
  hsiz := GetDeviceCaps(h, HORZSIZE);
  vsiz := GetDeviceCaps(h, VERTSIZE);
  ReleaseDC(GetDesktopWindow, h);

  Edit1.Text := FloatToStr(hsiz) + 'mm';
  Edit2.Text := FloatToStr(vsiz) + 'mm';
end;

[thomas2009]

Was meint er hier mit "Die Balken haben immer 5 cm Breite" ?