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

  • Gauges ComCtrls type TMainform class TForm Button1 TButton msLabel1 TLabel Label2 TLabel Animate1 TAnimate Image1 TImage procedure Button1Click Sender TObject private Private declarations public Public declarations end var Mainform TMainform implementation R DFM procedure TMainform Button1Click Sender TObject var Bitmap TBitmap i x Integer begin 1 aviFindFolder 2 aviFindFile 3 aviFindComputer 4 aviCopyFiles 5 aviCopyFile 6 aviRecycleFile 7 aviEmptyRecycle 8 aviDeleteFile for x 1 to 8 do only eight common

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



  • dnews Xref dnews borland public delphi graphics 46278 Hi Jim Kueneman wrote That fixed it Thanks you I strongly recommend that DIB Pattern Brush should be used for Printing Some printers does not properly draw pattern brush which is created by using DDB The code for converting Bitmaps to DIB Memory Handle is as follows You can use DIB Handle to call CreateDIBPatternBrush API function BitmapToDIBHandle Bitmap TBitmap THandle var

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


  • delphi graphics This procedure assumes b is an already populated valid TBitmap SPD is a TSavePictureDialog procedure TForm1 Button2Click Sender TObject var e TMetaFile ec TMetaFileCanvas begin if SPD Execute then begin e TMetaFile Create e Width b Width e Height b Height e Enhanced TRUE This is true by default ec TMetaFileCanvas Create e 0 ec Draw 0 0 b ec Free e SaveToFile SPD FileName Image1 Picture Assign

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


  • second memset strhdr 0 sizeof strhdr strhdr fccType streamtypeVIDEO stream type strhdr fccHandler 0 strhdr dwScale 1 strhdr dwRate NumberEditFps Value 15 fps strhdr dwSuggestedBufferSize pB biSizeImage SetRect strhdr rcFrame 0 0 rectangle for stream int pB biWidth int pB biHeight And create the stream hr AVIFileCreateStream pfile file pointer ps returned stream pointer strhdr stream header if hr AVIERR OK goto AviError memset opts 0 sizeof opts if AVISaveOptions Handle 0 1 ps LPAVICOMPRESSOPTIONS FAR aopts goto AviError hr AVIMakeCompressedStream psCompressed ps opts NULL if hr AVIERR OK goto AviError hr AVIStreamSetFormat psCompressed 0 pB stream format pB biSize format size pB biClrUsed sizeof RGBQUAD if hr AVIERR OK goto AviError Now write out each video frame along with a text label The video frames are 2 3 of a second apart which is 10 in the video time scale and 40 in the text stream s time scale hr AVIStreamWrite psCompressed stream pointer nWrote time of this frame 1 number to write LPBYTE pB pointer to data pB biSize pB biClrUsed sizeof RGBQUAD pB biSizeImage size of this frame AVIIF KEYFRAME flags NULL NULL GlobalUnlock pB GlobalFree h if hr AVIERR OK goto AviError do pTable Next if pTable Eof h MakeDib pImage Picture Bitmap Handle 24 pB LPBITMAPINFOHEADER GlobalLock h hr AVIStreamWrite psCompressed stream pointer nWrote time of this frame 1 number to write LPBYTE pB pointer to data pB biSize pB biClrUsed sizeof RGBQUAD pB biSizeImage size of this frame AVIIF KEYFRAME flags NULL NULL GlobalUnlock pB GlobalFree h pW StepIt if pW bWantCancel break if hr AVIERR OK break while pTable RecNo nExpStop pTable Eof AviError if pW delete pW Now close the file if ps AVIStreamClose ps if psCompressed AVIStreamClose psCompressed if psText AVIStreamClose psText if pfile AVIFileClose pfile AVIFileExit if hr NOERROR ErrorBox

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


  • integer IconInfo TIconInfo IconBitmap MaskBitmap TBitmap x y Integer TransparentColor TColor begin IconSizeX GetSystemMetrics SM CXICON IconSizeY GetSystemMetrics SM CYICON IconBitmap TBitmap Create IconBitmap Width IconSizeX IconBitmap Height IconSizeY IconBitmap Canvas StretchDraw Rect 0 0 IconSizeX IconSizeY Bitmap IconBitmap TransparentColor Bitmap TransparentColor TransparentColor IconBitmap TransparentColor and FFFFFF MaskBitmap TBitmap Create MaskBitmap Assign IconBitmap for y 0 to IconSizeY 1 do for x 0 to IconSizeX 1 do if IconBitmap Canvas

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


  • 3 45 PM Peter Vostinic wrote in message news 8c0f9e 8pe2 bornews borland com Could someone tell me way of saving an TImage as JPEG Try this USES JPEG Save TBitmap in TImage to a JPEG file procedure TForm1 ButtonBMPinImageToJPGClick Sender TObject VAR JPEG TJPEGImage begin JPEG TJPEGImage Create TRY JPEG CompressionQuality 65 you pick JPEG Assign Image Picture Graphic JPEG SaveToFile NEW JPG FINALLY JPEG Free END end efg

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



  •