<div>
Thanks! But I see using Screen.Pixelperinch is more easy.
</div>


Thanks! But I see using Screen.Pixelperinch is more easy.

<div>
Thats fine, the only thing you have to watch out for is that delphi gets screen.pixelsperinch from a call to <br />
<br />
GetDeviceCaps(Screen.Handl<wbr />e,LogPixel<wbr />sY); <br />
<br />
now thats fine because in 99.999% of screens a pixel is square. However if you where to use the same code say to write to a printer, then its not always the case and its best to get individual measurements for X &amp;&nbsp;Y.<br />
<br />
But its fine for what your doing<br />
<br />
Good Luck<br />
<br />
<br />
<br />

</div>


Thats fine, the only thing you have to watch out for is that delphi gets screen.pixelsperinch from a call to

GetDeviceCaps(Screen.Handle,LogPixelsY);

now thats fine because in 99.999% of screens a pixel is square. However if you where to use the same code say to write to a printer, then its not always the case and its best to get individual measurements for X & Y.

But its fine for what your doing

Good Luck





<div>
<div class="content wysiwyg-content">
Dear EE!<br />
I want to convert a Object (like Mathtype Equation, ChemSketch Object) &nbsp;from Word to Bitmap.<br />
So I do these work: <br />
Copy Object to Clipboard (I do it manually). Then Use TMetafile to Redraw it (I do it by Delphi): TMetafile.Assign(Clipboard<wbr />) and then:<br />
TBitmap.Width:= TMetafile.Width; TBitmap.Height:= TMetaFile.Height;<br />
TBitmap.Canvas.Draw(0,0,TM<wbr />etaFile)<br />
But a problem: the size of the image(width x height) is changed (become smaller)<br />
Can you suggest me some enhanced Component or show me how to fix this problem?<br />
Thanks much!<br />

</div>
</div>


Dear EE!
I want to convert a Object (like Mathtype Equation, ChemSketch Object)  from Word to Bitmap.
So I do these work: 
Copy Object to Clipboard (I do it manually). Then Use TMetafile to Redraw it (I do it by Delphi): TMetafile.Assign(Clipboard) and then:
TBitmap.Width:= TMetafile.Width; TBitmap.Height:= TMetaFile.Height;
TBitmap.Canvas.Draw(0,0,TMetaFile)
But a problem: the size of the image(width x height) is changed (become smaller)
Can you suggest me some enhanced Component or show me how to fix this problem?
Thanks much!


Problem with TMetafile: The size is not kept!

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.