C draw Drawing {gdiplusx} _SCREEN.System.Drawing M false 2008-09-30T00:00:00 VFPX _2H612DTG9 F Bmp Bitmap {gdiplusx} _SCREEN.System.Drawing.Bitmap.New M false 2008-09-30T00:00:00 VFPX _2H612DTGA F Brus Brush {gdiplusx} _SCREEN.System.Drawing.SolidBrush.New M false 2008-09-30T00:00:00 VFPX _2H612DTGB F Clr Color {gdiplusx} _SCREEN.System.Drawing.Color.FromRGB M false 2008-09-30T00:00:00 VFPX _2H612DTGC F Font Font {gdiplusx} _SCREEN.System.Drawing.Font.New M false 2008-09-30T00:00:00 VFPX _2H612DTGD F Gfx Graphics {gdiplusx} _SCREEN.System.Drawing.Graphics.FromImage M false 2008-09-30T00:00:00 VFPX _2H612DTGE F GfxH GraphicsH {gdiplusx} _SCREEN.System.Drawing.Graphics.FromHWnd M false 2008-09-30T00:00:00 VFPX _2HB1EHKAD F GfxI GraphicsI {gdiplusx} _SCREEN.System.Drawing.Graphics.FromImage M false 2008-09-30T00:00:00 VFPX _2HB1EHKAE F Img Image {gdiplusx} _SCREEN.System.Drawing.Image.FromFile M false 2008-09-30T00:00:00 VFPX _2H612DTGF F Matr Matrix {gdiplusx} _SCREEN.System.Drawing.Drawing2D.Matrix.New M false 2008-09-30T00:00:00 VFPX _2H612DTGG F Path GraphicsPath {gdiplusx} _SCREEN.System.Drawing.Drawing2D.GraphicsPath.New M false 2008-09-30T00:00:00 VFPX _2H612DTGH F Pen Pen {gdiplusx} _SCREEN.System.Drawing.Pen.New M false 2008-09-30T00:00:00 VFPX _2H612DTGI F Pnt Point {gdiplusx} _SCREEN.System.Drawing.Point.New M false 2008-09-30T00:00:00 VFPX _2H612DTGJ F Rect Rectangle {gdiplusx} _SCREEN.System.Drawing.Rectangle.New M false 2008-09-30T00:00:00 VFPX _2H612DTGK F Stre Stream {gdiplusx} _SCREEN.System.IO.MemoryStream.New M false 2008-09-30T00:00:00 VFPX _2H612DTGL F clrm ColorMatrix {gdiplusx} _SCREEN.System.Drawing.Imaging.ColorMatrix.New M false 2008-09-30T00:00:00 VFPX _2H612DTGM S gdiplusx LPARAMETER oFoxcode LOCAL lcfxtoollib, lnWinHdl, laEnv, lcStr, lcLastWord, lcReturn, lcWith lcfxtoollib = SYS(2004)+"FOXTOOLS.FLL" IF !FILE(lcfxtoollib) RETURN .F. ENDIF SET LIBRARY TO (m.lcfxtoollib) ADDITIVE lnWinHdl = _WONTOP() _wselect(lnWinHdl) DIMENSION laEnv[25] _EdGetEnv(lnWinHdl ,@laEnv) lcStr = _EDGETSTR(lnWinHdl , 0, laEnv[17]) lcWith = WithStr(lcStr) lcReturn = oFoxCode.Tip IF NOT EMPTY(lcWith) IF lcWith+"." == UPPER(LEFT(oFoxCode.Tip,LEN(lcWith)+1)) lcReturn = SUBSTR(oFoxCode.Tip, LEN(lcWith)+1) ENDIF ENDIF oFoxCode.ValueType = "V" RETURN lcReturn PROCEDURE WithStr(tcStr) LOCAL lcStr, lnLines, i, laLines, lcWord, lcReturn IF EMPTY(tcStr) RETURN "" ENDIF lcStr = tcStr lcReturn = "" DIMENSION laLines[1] lnLines = ALINES(laLines,lcStr) * Quick search backward to find a WITH FOR i = lnLines TO 1 STEP -1 lcWord = UPPER(ALLTRIM(GETWORDNUM(ALLTRIM(laLines[m.i]), 1))) IF LEN(lcWord)>3 AND lcWord=="ENDWITH" EXIT ENDIF IF LEN(lcWord)>3 AND lcWord=="WITH" lcWord = ALLTRIM(CHRTRAN(laLines[m.i],CHR(9)," ")) IF ATC(REPLICATE("&",2), lcWord) > 0 && strip out comments lcWord = ALLTRIM(LEFT(lcWord, ATC(REPLICATE("&",2),lcWord)-1) ) ENDIF IF ATC(" AS ", lcWord) > 0 && strip out AS lcWord = ALLTRIM(LEFT(lcWord, ATC(" AS ",lcWord)-1) ) ENDIF lcWord = ALLTRIM(STRTRAN(lcWord,"WITH ","",1,1,1)) lcReturn = UPPER(lcWord) EXIT ENDIF ENDFOR RETURN lcReturn ENDPROC M false 2008-09-30T00:00:00 VFPX _2H612DTGN