delphi - Decimal rounding and printer selection -

-

I use with Delphi RAD Studio 2010 and DecimalRounding_JH1.pas.

This works fine, but I do not know why, in some old machines (Pentium IV with Windows XP SP3), the round fails after the use of the printer. Printersandx I have checked that this problem is not Windows XP because it works with this OS in other machines.

I have created a simple project, with an expanded value of DecimalRounding_JH1 (drHalfUp 1.11) with two decimal (1, 105 -> decimals) but if I teach the printer. Printersandx, then 1.105 rounds 1.10).

I thought it could be "FDIV bug", but does not resolve the compilation problem with "FDIV Safe".

Code: 

  var d1, d2: extended; I: integer; Starting D1: = 1.105; D2: = DecimalRounding_JH1.DecimalRoundExt (d1,2, drHalfUp); Memo1.lines.add (FloatToStr (D2)); // -> Show 1.11 (OK) i: = Printer.printerindex; D2: = DecimalRounding_JH1.DecimalRoundExt (d1,2, drHalfUp); Memo1.lines.add (FloatToStr (D2)); // -> Show 1.10 (error !!!) ...

I know that this is very strange, but I have tested it and as I said it. What can i do

Edit: If I printer.printerindex: = 1; (for example) i: Then this works fine. Reading the printer unit, whether to execute the difference "SetToDefaultPrinter": 

  function TPrinter.GetPrinterIndex: integer; If FPrinterIndex = 1 then SetToDefaultPrinter; Results: = FPrinterIndex; End;

Thanks in advance.

Parts of the system printers have a dirty habit of modifying 8087 control words with libraries 

  Set8087CW (Default8087CW);

Comments in my codebase suggest that you only have to do the VCL printer code after the first time it is started. So you can face it at the startup of your program. Read Printer.PrinterIndex and then set the control word immediately to your desired value.


Comments

Post a Comment

Popular posts from this blog

import - Python ImportError: No module named wmi -

-
I followed the instructions for downloading WMI for Python When I try to run the code for C.Win32_Service (StartMode = "Auto", state = "Stopped") import wmi c = wmi.WMI (): if Raw_input ("restart% s?"% S.Caption) .upper () == "Y": s.StartService () I got the error traceback (most recent call end): file ". \", Line 1, edit: I am using Python 2.7.6 EDIT2: I am running 64-bit Windows 2008 R2, and I've downloaded WMI-1.4.9.zip (md5). I removed the content and put it in D: Python \ Tools \ Scripts I executed dragon setup.py.install I said D : \ Python \ tools \ scripts to% PATH% and when I execute the code for C.Win32_Service (StartMode = "Auto", state = "Stopped") import wmi c = Wmi.WMI (): If raw_input ("Restart% s?"% S. Caption). () == "Y": s.StartService () error me Gets traceback (most recent call final): File ". See \", line 1, & lt; Modu...
Read more

Editing Python Class in Shell and SQLAlchemy -

-
I am working on the terminal on a shell script after this tutorial SQLAlchemy tutorial. I need to type gt; & Gt; & Gt; Sqlalchemy import column, integer, string & gt; & Gt; & Gt; Class user (base): __tablename__ = 'users' id = column (integer, primary_key = true) name = column (string) absolute name = column (string) password = column (string) def __repr __ (self): return "& lt ; User (name = '% s', absolute name = '% s', password = '% s') & gt; "% (Self.name, self.fullname, self.password) After the problem I have typed the password = column (string) I hit twice and changed .... >> I then took everything back but then an error was thrown because the class already exists ... I am not completely sure how to fix it. How do I open that slip in the shell script and edit it (Add DF to DRR) The error thrown below: / user / giripeters / TFSQLLX / Lib / python2.7 / site-packages / sqlalchemy / ext / decla...
Read more

lua - HowTo create a fuel bar -

-
I would like to create a fuel bar (empty with full tank). When the user touches the screen, the fuel once Dairejh these is my code: lifeBar = display.newImage ( "fuel_bar1.png") lifeBar.anchorX = 0 lifeboats. ======================== Lifetime Y = 37 screens Group: The Insert function (called Laifbar) However, I fuel Kansmoshn (equivalent to "pressed" variable to reduce the fuel tank "true") Have used. When pressed == is true, it means that the user is touching the screen: processed (fuel) processed () if life & gt; 0 and pressed == true remains = life - life 1 Life = life =. Wide-1 remains Value.text = string.format ("% d", life) End of this This function is active as the entrance event: runtime: addEventListener ( "Antrfrem" fuel Snsadna) it is very well, but my question is: pressed variable each time 5 seconds (once = = True) How is it possible to reduce the vitality width? I tried to add it to my touch even...
Read more