archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • to any printer works fine when the prog just started i e Printing to Printer1 then shutdown prog run again then print to Printer 2 works perfect Printing to a second printer AFTER printing to a first printer scales all fonts by Resolution Printer1 resolution Printer2 I have already tried the following without success Creation of the form that uses the printers unit at runtime AFTER printdialog execute to create

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0714b.txt (2016-02-14)
    Open archived version from archive


  • just copy the whole thing else with bm2 do Printing seperate pages copy each Rect Canvas CopyRect Rect 0 0 Width Height bm1 Canvas aBm1Rects iBm end function CalcBms integer var i integer iCw iCh integer Client iVw iVh integer Virtual iL iT iR iB integer Rect begin Calc the number of bitmaps required to print the virtual screen Fill aBm1Rect with the Rect values to be printed for each page if not bPrintMultiPage then Result 1 Just one page else begin with TfrmLadderProgram ActiveMDIChild do begin iCw ClientWidth Displayed screen iCh ClientHeight iVw HorzScrollBar Range Virtual screen iVh VertScrollBar Range end If iVx iCx then no scroll bars are needed The following iCx 1 ensures that the page will not be split iHbms iVw div iCw 1 1 Horz pages iVbms iVh div iCh 1 1 Vert pages Result iHbms iVbms Number of pages Fill aBm1Rects with the Rect sections of bm1 to print iL 0 iT 0 iR iVw div iHbms iB iVh div iVbms SetLength aBm1Rects Result for i 0 to Result 1 do begin aBm1Rects i Rect iL iT iR iB iL iR 1 Inc iR iVw div iHbms if iR iVw then begin wrap to next row iL 0 iR iVw div iHbms iT iB 1 Inc iB iVh div iVbms end end for i Size the bitmap with bm2 do begin Width iVw div iHbms Height iVh div iVbms if bPrintColor then PixelFormat pf8bit else PixelFormat pf1bit MonoChrome not bPrintCOlor end end end begin try with TfrmLadderProgram ActiveMDIChild do begin HorzScrollBar Position 0 Home the form VertScrollBar Position 0 DrawProgram False False nil bPrintColor Strip colors if MONO Create the main bitmap bm1 TBitMap Create Size the bitmap to the virtual screen size with bm1 do begin Width HorzScrollBar Range Height VertScrollBar Range if

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0512f.txt (2016-02-14)
    Open archived version from archive


  • SpoolFile const FileName PrinterName String Integer var Buffer record JobInfo record ADDJOB INFO 1 Path PCHAR JobID DWORD end PathBuffer array 0 255 of char end SizeNeeded DWORD Handle THandle PrtName String ok Boolean begin Flush job to printer PrtName PrinterName if PrtName then PrtName Printer Printers Printer PrinterIndex Default printer name ok false if OpenPrinter PChar PrtName Handle nil then if AddJob Handle 1 Buffer SizeOf Buffer SizeNeeded then

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0415a.txt (2016-02-14)
    Open archived version from archive


  • 56 11 Apr 2001 16 52 16 0700 Path dnews Xref dnews borland public delphi winapi 132386 Henrik Nedergaard skrev i en meddelelse news 3ad4bc44 1 2 dnews It seems like the WM SPOOLERSTATUS is missing in Windows 2000 anybody knows any thing about that Why not check MSDN yourself WM SPOOLERSTATUS This message is for informational purposes only This message is advisory and does not have guaranteed delivery semantics

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0411c.txt (2016-02-14)
    Open archived version from archive


  • X Trace dnews 1001152368 62 226 188 5 22 Sep 2001 02 52 48 0700 Lines 54 Path dnews Xref dnews borland public delphi winapi 147277 In article Samson Fu wrote We can stop and delete current printing job from Printer manager Can I do it in my code I want to STOP all print jobs and Delete them in my program Try the PurgeJobsOnCurrentPrinter procedure given below Not tested Uses Winspool printers GetCurrentPrinterHandle Retrieves the handle of the current printer Returns an API printer handle for the current printer Desc Uses WinSpool OpenPrinter to get a printer handle The caller takes ownership of the handle and must call ClosePrinter on it once the handle is no longer needed Failing to do that creates a serious resource leak Requires Printers and WinSpool in the Uses clause Raises EWin32Error if the OpenPrinter call fails Created 30 9 2000 by P Below Function GetCurrentPrinterHandle THandle Const Defaults TPrinterDefaults pDatatype nil pDevMode nil DesiredAccess PRINTER ACCESS USE or PRINTER ACCESS ADMINISTER Var Device Driver Port array 0 255 of char hDeviceMode THandle Begin GetCurrentPrinterHandle Printer GetPrinter Device Driver Port hDeviceMode If not OpenPrinter Device Result Defaults Then RaiseLastWin32Error End GetCurrentPrinterHandle Kill all pending

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0922.txt (2016-02-14)
    Open archived version from archive


  • To 100113 1101 compuXXserve com Newsgroups borland public delphi objectpascal In article Richey Delphi Box wrote is there an easy way without 3rd party components etc I just want to dump the contents to a printer without complicated formatting etc Here is a possible approach untested Procedure DumpTreeviewToTextfile Var F Textfile tree TTreeview Var node TreeNode Begin node tree Items GetFirstnode While node Nil Do Begin WriteLn F StringOfChar 2

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0825b.txt (2016-02-14)
    Open archived version from archive


  • 0 to 31 32 is already a printing character space These are also sometimes called non printing characters Just to complete Philippe s codes I got these off an old document I have ASCII codes from 00 1F Hex Dec Ctrl Code Description 00 0 NUL Null 01 1 A SOH Start of Header 02 2 B STX Start of Text 03 3 C ETX End of Text 04 4 D EOT End of Transmission 05 5 E ENQ Enquiry 06 6 F ACK Acknowledge 07 7 G BEL Bell 08 8 H BS Back space 09 9 I HT Horizontal tab 0A 10 J LF Line feed 0B 11 K VT Vertical tab 0C 12 L FF Form feed 0D 13 M CR Carriage return 0E 14 N SO Shift out 0F 15 O SI Shift in 10 16 P DLE Data link escape 11 17 Q DC1 Device control 1 Xon 12 18 R DC2 Device control 2 13 19 S DC3 Device control 3 Xoff 14 20 T DC4 Device control 4 15 21 U NAK Negative acknowledge 16 22 V SYN Sync 17 23 W ETB End of Transmission block 18 24 X CAN Cancel 19

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2000/0129.txt (2016-02-14)
    Open archived version from archive


  • style objects or recently short strings Both of these have more and more little bugs and fixing these doesn t seem to be high priority Short strings certainly shouldn t be done away with there is one big thing you can do with a short string that you can t with a long write a record containing it to disk As much as possible I like to store data internally

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2000/0606c.txt (2016-02-14)
    Open archived version from archive



  •