HMGforum.com

Code: Select all

PROCEDURE EditForm(aStruc)
LOCAL i, iMax, cObj, cLabel
LOCAL cText, cType, nSize,nDec

   iMax := LEN(aStruc)

   DEFINE WINDOW Browse_Edit ;
              AT 0,0 ;
              WIDTH 300 ;
              HEIGHT 600 ;
              VIRTUAL WIDTH 999 ;
              VIRTUAL HEIGHT 9999 ;
              TITLE "" ;
              ICON NIL ;
              CURSOR NIL ;
              ON INIT Nil ;
              ON RELEASE Nil ;
              ON INTERACTIVECLOSE Nil ;
              ON MOUSECLICK Nil ;
              ON MOUSEDRAG Nil ;
              ON MOUSEMOVE Nil ;
              ON SIZE NIL ;
              ON MAXIMIZE NIL ;
              ON MINIMIZE Nil ;
              ON PAINT Nil ;
              BACKCOLOR { 7, 7, 7 } ;
              NOTIFYICON NIL ;
              NOTIFYTOOLTIP NIL ;
              ON NOTIFYCLICK Nil ;
              ON GOTFOCUS Nil ;
              ON LOSTFOCUS Nil ;
              ON SCROLLUP Nil ;
              ON SCROLLDOWN Nil ;
              ON SCROLLLEFT Nil ;
              ON SCROLLRIGHT Nil ;
              ON HSCROLLBOX Nil ;
              ON VSCROLLBOX Nil

   FOR i := 1 TO iMax

      cLabel := "LABEL"+STRZERO(i,3)
      cObj := "TEXT_"+STRZERO(i,3)
      nRow := 32 * (i-1)
      nSize := aStruc[i][DBS_LEN]*11

      cFIELD := aStruc[i][DBS_NAME]

      DEFINE LABEL &cLabel
         ROW nRow
         COL 10
         VALUE cFIELD
         WIDTH 80
         HEIGHT 30
         BACKCOLOR { 0, 0, 0 }
         FONTCOLOR { 0, 220, 220 }
      END LABEL

      cFIELD := "FIELD->" + aStruc[i][DBS_NAME]

      DO CASE
         CASE aStruc[i][DBS_TYPE] = "C"

      DEFINE TEXTBOX &cObj
         ROW nRow
         COL 100
         HEIGHT 30
         FIELD &(cFIELD)
         READONLY .F.
         VALUE NIL
         WIDTH nSize
         INPUTMASK Nil
         FORMAT Nil
         FONTNAME "Arial"
         FONTSIZE 10
         FONTBOLD .F.
         FONTITALIC .F.
         FONTUNDERLINE .F.
         FONTSTRIKEOUT .F.
         TOOLTIP ""
         BACKCOLOR { 0, 0, 0 }
         FONTCOLOR { 0, 220, 220 }
         DISABLEDBACKCOLOR Nil
         DISABLEDFONTCOLOR Nil
         DATATYPE CHARACTER
         CASECONVERT NONE
         ONCHANGE Nil
         ONGOTFOCUS Nil
         ONLOSTFOCUS Nil
         ONENTER Nil
         RIGHTALIGN .F.
         VISIBLE .T.
         TABSTOP .T.
         HELPID Nil
      END TEXTBOX

         CASE aStruc[i][DBS_TYPE] = "N"

      DEFINE TEXTBOX &cObj
         ROW nRow
         COL 100
         HEIGHT 30
         FIELD &(cFIELD)
         READONLY .F.
         VALUE NIL
         WIDTH nSize
         INPUTMASK Nil
         FORMAT Nil
         FONTNAME "Arial"
         FONTSIZE 10
         FONTBOLD .F.
         FONTITALIC .F.
         FONTUNDERLINE .F.
         FONTSTRIKEOUT .F.
         TOOLTIP ""
         BACKCOLOR { 0, 0, 0 }
         FONTCOLOR { 0, 220, 220 }
         DISABLEDBACKCOLOR Nil
         DISABLEDFONTCOLOR Nil
         DATATYPE NUMERIC
         CASECONVERT NONE
         ONCHANGE Nil
         ONGOTFOCUS Nil
         ONLOSTFOCUS Nil
         ONENTER Nil
         RIGHTALIGN .F.
         VISIBLE .T.
         TABSTOP .T.
         HELPID Nil
      END TEXTBOX

         CASE aStruc[i][DBS_TYPE] = "D"
      DEFINE TEXTBOX &cObj
         ROW nRow
         COL 100
         HEIGHT 30
         FIELD &(cFIELD)
         READONLY .F.
         VALUE NIL
         WIDTH nSize
         FORMAT Nil
         FONTNAME "Arial"
         FONTSIZE 10
         BACKCOLOR { 0, 0, 0 }
         FONTCOLOR { 0, 220, 220 }
         DATATYPE DATE
         CASECONVERT NONE
         ONCHANGE Nil
         ONGOTFOCUS Nil
         ONLOSTFOCUS Nil
         ONENTER Nil
         RIGHTALIGN .F.
         VISIBLE .T.
         TABSTOP .T.
         HELPID Nil
      END TEXTBOX

         CASE aStruc[i][DBS_TYPE] = "L"

      DEFINE CHECKBOX &cObj
         ROW nRow
         COL 100
         CAPTION ""
         HEIGHT 30
         FIELD &(cFIELD)
         WIDTH 50
         BACKCOLOR { 0, 0, 0 }
         FONTCOLOR { 0, 220, 220 }
         VISIBLE .T.
         TABSTOP .T.
      END CHECKBOX

      ENDCASE

   NEXT
   END WINDOW


   ON KEY ESCAPE OF Browse_Edit ACTION Browse_Edit.Release
   CENTER WINDOW Browse_Edit

   ACTIVATE WINDOW Browse_Edit

RETURN