Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Neue Btmap in Millimiter statt in Pixel erstellen ? (https://www.delphipraxis.net/128752-neue-btmap-millimiter-statt-pixel-erstellen.html)

thomas2009 5. Feb 2009 11:40


Neue Btmap in Millimiter statt in Pixel erstellen ?
 
Hallo

ich erstelle ein neues Bitmap in Pixel nur
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
Bitmap:=tBitmap.Create;
Bitmap.PixelFormat:=pf32bit;
Bitmap.width:=800;
Bitmap.height:= 500;
image1.picture.Bitmap.assign(Bitmap);
Bitmap.free;
end;
Nun möchte ich das neue Bitmap in mm erstellen

wie kann ich mit Hilfe der Bildschirm-Auflösung (pixel/mm) meine
Bitmap exakt erstellen ?

DeddyH 5. Feb 2009 11:45

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
Kannst Du mal genauer erklären, was Du vorhast? Eine Bitmap besteht nunmal aus Pixeln, wie das in Milimetern ausgegeben wird, hängt ja von der Auflösung des Ausgabegerätes ab.

taaktaak 5. Feb 2009 11:52

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
Vermute mal, dass du das Image mit einer definierten cm-Größe darstellen willst?! Dann bestimme die Abmessung des Images und setze die Image-Eigenschaft Stretch auf true, dann passt sich das Bitmap an.

thomas2009 5. Feb 2009 12:10

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
Zitat:

Zitat von taaktaak
Vermute mal, dass du das Image mit einer definierten cm-Größe darstellen willst?! Dann bestimme die Abmessung des Images und setze die Image-Eigenschaft Stretch auf true, dann passt sich das Bitmap an.

Nicht genau, was ich meine. Das Beispiel oben war mit Pixel
Ich möchte nun eine neue genauso erstellen aber in mm zum Beispiel 200 mm x 300 mm
Also die image.width und image.Height (in Pixel) sind noch nicht bekannt nur in mm haben wir die Maße

taaktaak 5. Feb 2009 12:17

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
Hmm, habe den Eindruck, wir reden etwas aneinander vorbei:
Das (sichtbare) Image soll doch eine definierte Cm-Größe besitzen. Die Pixel-Größe des Bitmaps kann dabei doch zunächst einmal als sekundär betrachtet werden, da du (in gewissen Grenzen) jede Bitmapgröße im in der exakten Soll-Abmessung dargestellten Image() anzeigen kannst.

SirThornberry 5. Feb 2009 12:23

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
die Einheit für Canvas kannst du mit SetMapMode setzen. Geht es um die Darstellung auf dem Bildschirm so gibt es nichts wirklich zuverlässiges da der Rechner nicht weiß wie man zum Beispiel am Röhrenmonitor das Bild verzogen hat.

Sunlight7 5. Feb 2009 12:48

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
Dazu müßte man beim Programmstart den -User bitten, mal den sichtbaren Bereich des Monitors abzumessen :mrgreen:

mr_emre_d 5. Feb 2009 13:51

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
Lol, dass sind ja wunderbare / hilfreiche Antworten :P

hier mal n Codeschnipsel:
Delphi-Quellcode:
function CmToPixel(Cm: Single): Single;
var
  DC : Cardinal;
  DPI: Cardinal;
//  Info: DPI 72:
//  1 cm = 28.35 Pixel;
begin
  Result := 0;
  DC := GetDC(GetDesktopWindow());
  DPI := GetDeviceCaps(DC,LOGPIXELSY);
  ReleaseDC(DC,GetDesktopWindow());
  if DPI = 0 then
    Exit;
  Result := CM * 28.35 / 72 * DPI;
end;

DeddyH 5. Feb 2009 13:53

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
Da sind anscheinend ein paar Threads an Dir vorübergegangen :mrgreen:

mr_emre_d 5. Feb 2009 13:55

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
Lol ich weiß nicht was los ist heute mit mir .. sorry leute .. ich glaube ich schreibe heute nichts mehr :P

EDIT:
Obwohl,
Bitmap.Width := Round( CmToPixel(1) );
bzw
Bitmap.Width := Round( CmToPixel(0.5) );
- müsste doch stimmen ?

Falls das wieder Bullshit war sorry. Heut ist nicht mein Tag.

MfG

nuclearping 5. Feb 2009 19:38

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
Auf einem 17" Monitor ist ein cm in Pixeln anders, wie auf einem 19" Monitor, 21", ... ;)

rollstuhlfahrer 6. Feb 2009 12:17

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
HI,

wenn du das Bild auf dem Schirm anzeigen willst, kommst du vor größere Probleme. Da gibts sogar Bildschirme, die rechteckige Pixel haben. Normale Bildschirme haben glaub ich eine DPI-Rate von 72.

Wenn du das Bild drucken willst, benötigst du die Auflösung des Druckers und die Papiergröße. Daraus kannst du dann deinen Milimeter errechnen.

Bernhard

guidok 6. Feb 2009 12:32

Re: Neue Btmap in Millimiter statt in Pixel erstellen ?
 
Zitat:

Zitat von thomas2009
wie kann ich mit Hilfe der Bildschirm-Auflösung (pixel/mm) meine
Bitmap exakt erstellen ?


Das ist einfache Mathematik. Du kannst die Bitmap mit Hilfe der Bildschirm-Auflösung (pixel/mm) erstellen, indem du dir die Pixelzahl ausrechnest.

GewünschteBreiteInPixel = GewünschteBreiteInMM * BildschirmAuflösungInPixelProMM

Das ist die Theorie, wir schon alle Vorredner geschrieben haben, hängt die tatsächliche Größe des Bitmap von der Form der Bildschirmpixel, der Bildschirmverzerrung, usw. ab. Es wird also nichts gescheites dabei rauskommen. Bei der Druckausgabe sieht das schon besser aus. Aus dem DPI-Wert (Druckauflösung in Pixel pro Inch) kannst du sehr wohl recht genau skalieren.


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:17 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz