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

  • BD ED Cmd TheMonth TheYear TheEndMonth TheEndYear string begin try TheMonth Trim Request QueryFields Values beginmonth if TheMonth then TheMonth 01 except TheMonth 01 end try TheYear Trim Request QueryFields Values beginyear if TheYear then TheYear 2000 except TheYear 2000 end try TheEndMonth Trim Request QueryFields Values endmonth if TheEndMonth then TheEndMonth 12 except TheEndMonth 12 end try TheEndYear Trim Request QueryFields Values endyear if TheEndYear then TheEndYear 2010 except TheEndYear 2010 end try BD Trim Request QueryFields Values BeginDate if BD then BD 01 01 2000 except BD 01 01 2000 end try ED Trim Request QueryFields Values EndDate if ED then ED 01 01 2010 except ED 01 01 2010 end tq TChart Create self with tq do begin Width 800 Height 400 Gradient StartColor clWhite Gradient EndColor clWhite Gradient Visible True LeftWall Color clSilver LeftWall Pen Style psDash Title Font Charset ANSI CHARSET Title Font Color clBlack Title Font Height 11 Title Font Name Tahoma BackColor clWhite LeftAxis Title Caption Total Number of New Registrations LeftAxis Title Font Charset ANSI CHARSET LeftAxis Title Font Color clBlack LeftAxis Title Font Height 11 LeftAxis Title Font Name Tahoma Legend TextStyle ltsPlain Legend Visible False View3DOptions Elevation 315 View3DOptions Perspective

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


  • Message
    jMax j Canvas TextHeight Text Text END OutText This doesnt draw rotatable 3D text but it does place text in 3D space on the screen good enough for me now I am going to check out the Hershey font routines too looks interesting Thanks Earl Chris Original Message From Earl F Glynn mailto efg2 efg2 com Sent Monday May 20 2002 1 42 AM To Campbell C C E12 Subject Re PantoGraph Question Many of the vector routines in TPantograph were written before Windows existed along with the Windows API calls such as TextOut What I m trying to say is that TPantograph doesn t know anything about TextOut and doesn t attempt to do 2D 3D operations on TextOut The TPantograph writes on a Canvas and TextOut can write on a canvas but there s no connection at all To work with text with TPantograph you need to create your own stroke fonts that draw each character as a set of 2D or 3D vectors The only example of this with TPantograph is the football field example http www efg2 com Lab Graphics football htm You can find some stroke font characters here http www efg2 com Lab OtherProjects

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


  • I once saw Create a new application add a button to the form and add the following code for the button s onclock event var bih TBitmapInfo i j Byte ptrBits ptrTemp Pointer begin Initialise BITMAPINFO structure ZeroMemory bih SizeOf bih with bih bmiHeader do begin biSize SizeOf TBitmapInfoHeader biWidth 256 biHeight 256 biPlanes 1 biBitCount 24 biSizeImage 256 256 3 end with Allocate memory for pixel data ptrBits GlobalAllocPtr

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


  • a very interesting effect I first tried your code in a FormCreate but saw nothing Your code works fine from a ButtonClick method but will need to be moved to an OnPaint for persistence Code using Scanline IMHO is easier to understand and like your code will also work in D3 D6 procedure TFormXOReffect ButtonScanlineMethodClick Sender TObject TYPE TRGBTripleArray ARRAY WORD OF TRGBTriple pRGBTripleArray TRGBTripleArray VAR Bitmap TBitmap i BYTE

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


  • NNTP Posting Host 195 101 221 6 Message ID X Trace dnews 1006132267 195 101 221 6 18 Nov 2001 17 11 07 0800 Path dnews Xref dnews borland public delphi graphics 43681 Pretty cool I played around with it for a few minutes and came up with a very subtle gradient effect Shade Bmp Canvas Brush Color clBlack Bmp Canvas FillRect Rect 0 0 Bmp Width 1 Bmp Height

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


  • Express 6 00 2600 0000 X Mimeole Produced By Microsoft MimeOLE V6 00 2600 0000 NNTP Posting Host 195 101 221 6 Message ID X Trace dnews 1006138874 195 101 221 6 18 Nov 2001 19 01 14 0800 Path dnews Xref dnews borland public delphi graphics 43686 I like that one too And if you add now gray scale it row i rgbtRed row i rgbtRed Row i rgbtGreen

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


  • of the XOR j s to XOR i then it does another nice gradient effect begin row i rgbtBlue row i rgbtBlue XOR i row i rgbtGreen row i rgbtGreen XOR i row i rgbtRed row i rgbtRed XOR j end Paul Nicholls Delphi 5 Professional If time is water computer games are a sponge Paul Nicholls HomePage www southcom com au phantom Email paul f nicholls hotmail com Stan

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


  • FUNCTION ControlToBitmap CONST Control TControl TBitmap public Public declarations end var FormControlBitmap TFormControlBitmap implementation R DFM Based on UseNet Posting on 3 Feb 2001 by Peter Below to borland public delphi objectpascal The Control must be visible for this to work The calling routine is responsible for freeing the bitmap that is returned FUNCTION TFormControlBitmap ControlToBitmap CONST Control TControl TBitmap BEGIN RESULT TBitmap Create RESULT Width Control Width RESULT Height Control Height RESULT PixelFormat pf24bit avoid palettes RESULT Canvas Lock TRY Control Perform WM PAINT RESULT Canvas Handle 0 FINALLY RESULT Canvas Unlock END END ControlToBitmap procedure TFormControlBitmap ButtonLabelClick Sender TObject VAR Bitmap TBitmap begin Bitmap ControlToBitmap Label1 TRY Image1 Picture Graphic Bitmap FINALLY Bitmap Free END end procedure TFormControlBitmap ButtonBitBtnClick Sender TObject VAR Bitmap TBitmap begin Bitmap ControlToBitmap BitBtn1 TRY Image1 Picture Graphic Bitmap FINALLY Bitmap Free END end procedure TFormControlBitmap ButtonPanelClick Sender TObject VAR Bitmap TBitmap begin Bitmap ControlToBitmap Panel1 TRY Image1 Picture Graphic Bitmap FINALLY Bitmap Free END end procedure TFormControlBitmap ButtonPageControlClick Sender TObject VAR Bitmap TBitmap BEGIN Bitmap TBitmap Create TRY Bitmap Width PageControl1 Width Bitmap Height PageControl1 Height Bitmap PixelFormat pf24bit avoid palettes Bitmap Canvas Lock TRY What Windows message paints this area Bitmap Canvas

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