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".

  • begin emf TMetaFile Create emc TMetaFileCanvas Create emf 0 emc TextOut 0 0 Aaaabbbb emc Ellipse 10 10 200 100 emc TextOut 100 90 123 456 789 emc Free emf SaveToFile e emf emf Canvas Draw 0 0 emf emf Free end function EnumProc DC HDC lpHTable PHANDLETABLE EMFR PENHMETARECORD nObj lpData Integer Integer stdcall var ws WideString rec PEMRExtTextOut r Trect p Tpoint begin if EMFR iType EMR EXTTEXTOUTW then begin rec PEMRExtTextOut EMFR setlength ws rec emrtext nChars p rec emrtext ptlReference r rec rclBounds Form1 Memo1 Lines Add Format BasePoint d d p x p y Form1 Memo1 Lines Add Format BoundsRect d d d d r left r top r right r bottom Move Pointer 2 Cardinal rec emrtext rec emrtext offString div 2 ws 1 Length ws 2 Form1 Memo1 Lines Add String ws if ws 1 A then SetTextColor form1 canvas Handle clLime end PlayEnhMetafileRecord Form1 Canvas Handle lpHTable emfr nobj Result 1 end procedure TForm1 Button2Click Sender TObject var emf TMetaFile r Trect begin refresh emf TMetaFile Create emf LoadFromFile e emf emf Canvas Draw 0 0 emf r Rect 0 0 1 1 EnumEnhMetaFile 0 emf Handle EnumProc nil r emf free

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



  • 50 4522 1200 NNTP Posting Host 24 17 126 157 Message ID X Trace dnews 987189486 24 17 126 157 13 Apr 2001 12 18 06 0700 Path dnews Xref dnews borland public delphi graphics 38020 Someone has an example how I can access single object in a metafile Below is an example of getting metafile information and enumerating each metafile record enjoy Joe John Kaster is cycling to cure cancer Lets help him out http homepages borland com jkaster tnt function MyEnhMetaFileProc DC HDC handle to device context lpHTable PHANDLETABLE pointer to metafile handle table lpEMFR PENHMETARECORD pointer to metafile record nObj integer count of objects TheForm TForm1 integer stdcall begin draw the metafile record PlayEnhMetaFileRecord dc lpHTable lpEMFR nObj set to zero to stop metafile enumeration result 1 end procedure TForm1 Button1Click Sender TObject var MyMetafile TMetafile lpENHMETAHEADER PENHMETAHEADER extra metafile info lpENHMETAHEADERSIZE DWORD NumMetaRecords DWORD begin Create a metafile MyMetafile TMetafile Create with TMetafileCanvas Create MyMetafile 0 do try Brush Color clRed Ellipse 0 0 100 100 Ellipse 100 100 200 200 Ellipse 200 200 300 300 Ellipse 300 300 400 400 Ellipse 400 400 500 500 Ellipse 500 500 600 600 finally Free end we might

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


  • Trace dnews 987048548 65 64 124 231 11 Apr 2001 21 09 08 0700 Path dnews Xref dnews borland public delphi graphics 37984 Earl F Glynn wrote in message news 3ad468ca 2 dnews There is part of a chapter about FIF in Danny Thorpe s Delphi Component Design book which is out of print I ll check tonight to see what that book has about FIF my copy of the book is at home I haven t looked at the disk that came with the book yet It s possible the source for FIF is proprietary and Iterated Systems never made it public Here s what s on the CD related to FIF there s no source code for FIF itself File List DECO 32 DLL Fractal Decompression run time library DECO 32 H Fractal Decompression header file ISIERROR H header file containing ISI error codes DECO 32B LIB Fractal Decompression library for linking with Borland C 4 5 DECO 32M LIB Fractal Decompression library for linking with Microsoft Visual C 4 0 DECO 32W LIB Fractal Decompression library for linking with Watcom C 10 5 FIFVIEW EXE Sample application program FIFVIEW Source for FIFVIEW EXE FIFDEC32 HLP Fractal Decoder

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


  • com borland public delphi graphics 52388 Try this private Private declarations procedure GifOnEndPaint Sender TObject implementation R DFM procedure TFormNative FormCreate Sender TObject begin ImageGIF Picture Assign FormMain ImageBackground Picture ImageGIF Picture Graphic as TGIFImage OnEndPaint GifOnEndPaint end procedure TFormNative GifOnEndPaint Sender TObject begin ImageGIF Picture Graphic as TGIFImage Animate False ImageGIF Picture Graphic as TGIFImage Animate True Play it again Sam end Finn Tolderlund Bill skrev i en meddelelse

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


  • the need for the AlignBytes variable AlignBytes ABitmap Width mod 2 Calculate the size of the bitmap image data ImageSize ABitmap Height ABitmap Width ABitmap Height AlignBytes Set up the bitmap file header FileHeader bfType 4d42 FileHeader bfSize SizeOf TBitmapInfoHeader SizeOf TBitmapInfo ImageSize FileHeader bfReserved1 0 FileHeader bfReserved2 0 FileHeader bfOffBits SizeOf TBitmapFileHeader SizeOf TBitmapInfo Now set up the bitmap info header InfoHeader bmiHeader biSize SizeOf TBitmapInfoHeader InfoHeader bmiHeader biWidth

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/Graphics/RobertPoyntz_GraphicUtils.PAS.TXT (2016-02-14)
    Open archived version from archive


  • TBitmap begin bmask TBitmap Create bcolr TBitmap Create MyIcon TIcon Create try bmask Width Image1 Width bmask Height Image1 Height bcolr Width Image1 Width bcolr Height Image1 Height bcolr Canvas StretchDraw RECT 0 0 bcolr Width bcolr Height Image1 Picture Graphic bmask Canvas Brush Color clBlack bmask Canvas FillRect RECT 0 0 bmask Width bmask Height ico fIcon TRUE ico hbmColor bcolr Handle ico hbmMask bmask Handle ico xHotspot 0

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


  • PLC http www atlantic coast com va Organization My Company Message ID Subject Re is there any way to get the jpg DPI value From Bob Villiers Reply To bob villiers lineone net References NNTP Posting Host 80 225 34 183 X Trace dnews 1015087686 80 225 34 183 2 Mar 2002 08 48 06 0800 Lines 14 Path dnews Xref dnews borland public delphi graphics 46738 Interrogate the file

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


  • xResolution WORD yResolution WORD begin IF OpenDialog Execute THEN BEGIN FileStream TFileStream Create OpenDialog FileName fmOpenRead OR fmShareDenyNone TRY SetLength Buffer BufferSize FileStream Read buffer 1 BufferSize index POS JFIF 00 buffer IF index 0 THEN BEGIN FileStream Seek index

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



  •