home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 June / PCWorld_2002-06_cd.bin / Software / Komercni / xbase / express / exd17208.r04 / exp17 / Include / Dc3p.ch < prev    next >
Text File  |  2002-01-30  |  12KB  |  160 lines
  1. /*
  2.    Program..: DC3P.CH
  3.    Author...: Roger Donnay
  4.    Notice...: (c) DONNAY Software Designs 1987-2000
  5.    Date.....: Nov 11, 2000
  6.    Notes....: Special 3rdParty Commands
  7. */
  8.  
  9. #include "dcdialog.ch"
  10.  
  11. // #define GETLIST_KLMLE      200     // <= Moved to dcDialog.ch
  12.  
  13. // Thanks to Terry Wolfe for his contributions
  14.  
  15. #command  @ <nRow>,<nCol> DCKLMLE <uVar>                                    ;
  16.                 [PARENT <oParent>]                                          ;
  17.                 [VALID <bValid>]                                            ;
  18.                 [WHEN <bWhen>]                                              ;
  19.                 [HIDE <bHide>]                                              ;
  20.                 [EDITPROTECT <bProtect>]                                    ;
  21.                 [SIZE <nWidth>,<nHeight>]                                   ;
  22.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  23.                 [FONT <cFont>]                                              ;
  24.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  25.                 [HELPCODE <cHelpCode>]                                      ;
  26.                 [DATALINK <bLink>]                                          ;
  27.                 [OBJECT <oObject>]                                          ;
  28.                 [CARGO <xCargo>]                                            ;
  29.                 [<lNoWW:NOWORDWRAP>]                                        ;
  30.                 [<lNoB:NOBORDER>]                                           ;
  31.                 [<lNoV:NOVERTSCROLL>]                                       ;
  32.                 [<lNoH:NOHORIZSCROLL>]                                      ;
  33.                 [<lIgT:IGNORETAB>]                                          ;
  34.                 [<lRO:READONLY>]                                            ;
  35.                 [MAXLINES <nMaxLines> [MESSAGE <cMessage1>]]                ;
  36.                 [LINELENGTH <nLineLength> [MESSAGE <cMessage2>]]            ;
  37.                 [MAXCHARS <nMaxChars> [MESSAGE <cMessage3>]]                ;
  38.                 [EXITKEY <nExitKey>]                                        ;
  39.                 [PRESENTATION <aPres>]                                      ;
  40.                 [<p: PIXEL>]                                                ;
  41.                 [TOOLTIP <cToolTip>]                                        ;
  42.                 [<lCompat:COMPATIBILE,COMPATABILE,COMPATABLE,COMPATIBLE >]  ;
  43.                 [CURSOR <nCursor>]                                          ;
  44.                 [EVAL <bEval>]                                              ;
  45.                 [TITLE <cTitle>]                                            ;
  46.                 [RELATIVE <oRel>]                                           ;
  47.                 [ID <cId>]                                                  ;
  48.                 [ACCELKEY <nAccel>]                                         ;
  49.                 [GOTFOCUS <bGotFocus>]                                      ;
  50.                 [LOSTFOCUS <bLostFocus>]                                    ;
  51.                 [<lTabStop:TABSTOP>]                                        ;
  52.                 [<lNoTabStop:NOTABSTOP>]                                    ;
  53.                 [TABGROUP <nTabGroup>]                                      ;
  54.                 [<lVisible:VISIBLE>]                                        ;
  55.                 [<lInvisible:INVISIBLE>]                                    ;
  56.                 [GROUP <cGroup>]                                            ;
  57.                 [MAINDICT <cMainDict>]                                      ;
  58.                 [ADDONDICT <cAddOnDict>]                                    ;
  59.                 [SUGGESTFONT <cSuggestFont>]                                ;
  60.                 [ABOXPOS <aBoxPos>]                                         ;
  61.                 [SHORTSPELL <nShortSpell>]                                  ;
  62.                 [DELWORDKEY <nDelWordKey>]                                  ;
  63.                 [DELWORDFUN <nDelWordFun>]                                  ;
  64.                 [DELLINEKEY <nDelLineKey>]                                  ;
  65.                 [DELLINEFUN <nDelLineFun>]                                  ;
  66.                 [PRINTFONT <cPrtFont>]                                      ;
  67.                 [TOPMARGIN <nPrtTopMar>]                                    ;
  68.                 [LEFTMARGIN <nPrtLeftMar>]                                  ;
  69.                 [BOTTOMMARGIN <nPrtBotMar>]                                 ;
  70.                 [WORDDELIMITERS <cWrdDelimit>]                              ;
  71.                 [<lFindHiLgt:FINDHIGHLIGHT>]                                ;
  72.                 [<lMatchCase:MATCHCASE>]                                    ;
  73.                 [<lRememberFind:REMEMBERFIND>]                              ;
  74.                 [<lNoRememberFind:NOREMEMBERFIND>]                          ;
  75.                 [<lSearchWrap:SEARCHWRAP>]                                  ;
  76.                 [<lNoSearchWrap:NOSEARCHWRAP>]                              ;
  77.                 [FINDBOXPOS <aFindBoxPos>]                                  ;
  78.   =>                                                                        ;
  79.    AADD( DCGUI_GETLIST,                                                     ;
  80.     { GETLIST_KLMLE,                            /* nGETLIST_TYPE         */ ;
  81.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  82.       nil,                                      /* cGETLIST_CAPTION      */ ;
  83.       {DC_GetAnchorCB(@<uVar>,,,,<bLink>),                                  ;
  84.                       <(uVar)>,,,,<(bLink)>},   /* bGETLIST_VAR          */ ;
  85.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  86.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  87.       nil,                                      /* nGETLIST_ENDROW       */ ;
  88.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  89.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  90.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  91.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  92.       nil,                                      /* cGETLIST_PICTURE      */ ;
  93.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  94.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  95.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  96.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  97.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  98.       nil,                                      /* bGETLIST_ACTION       */ ;
  99.       nil,                                      /* oGETLIST_OBJECT       */ ;
  100.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  101.       {<.lNoWW.>,<.lNoB.>,<.lNoV.>,<.lNoH.>,                                ;
  102.        <.lIgT.>,<.lCompat.>,<.lRO.>,<nExitKey>,                             ;
  103.        <cMainDict>,<cAddOnDict>,                                            ;
  104.        <cSuggestFont>,<aBoxPos>,                                            ;
  105.        <nShortSpell>,<nDelWordKey>,                                         ;
  106.        <nDelWordFun>,<nDelLineKey>,                                         ;
  107.        <nDelLineFun>,<cPrtFont>,                                            ;
  108.        <nPrtTopMar>,<nPrtLeftMar>,                                          ;
  109.        <nPrtBotMar>,<cWrdDelimit>,                                          ;
  110.        <.lFindHiLgt.>,<.lMatchCase.>,                                       ;
  111.        [<.lRememberFind.>.AND.!<.lNoRememberFind.>],                        ;
  112.        [<.lSearchWrap.>.AND.!<.lNoSearchWrap.>],                            ;
  113.        <aFindBoxPos>},                          /* xGETLIST_OPTIONS      */ ;
  114.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  115.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<oMsg>,'O'}]},                  ;
  116.                                                 /* cGETLIST_MESSAGE      */ ;
  117.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  118.       <(uVar)>,                                 /* cGETLIST_VARNAME      */ ;
  119.       nil,                                      /* bGETLIST_READVAR      */ ;
  120.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  121.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  122.                        <(oObject)>,'O'}],       /* bGETLIST_GROUP        */ ;
  123.       nil,                                      /* nGETLIST_POINTER      */ ;
  124.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  125.                        <(oParent)>,'O'}],       /* bGETLIST_PARENT       */ ;
  126.       nil,                                      /* bGETLIST_REFVAR       */ ;
  127.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  128.       <.p.>,                                    /* lGETLIST_PIXEL        */ ;
  129.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  130.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  131.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  132.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  133.       {<nMaxLines>,<cMessage1>},                /* xGETLIST_OPTIONS2     */ ;
  134.       {<nLineLength>,<cMessage2>},              /* xGETLIST_OPTIONS3     */ ;
  135.       {<nMaxChars>,<cMessage3>},                /* xGETLIST_OPTIONS4     */ ;
  136.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  137.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  138.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  139.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  140.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  141.       nil,                                      /* cGETLIST_LEVEL        */ ;
  142.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  143.       nil,                                      /* cGETLIST_ACCESS       */ ;
  144.       nil,                                      /* bGETLIST_COMPILE      */ ;
  145.       <cId>,                                    /* cGETLIST_ID           */ ;
  146.       nil,                                      /* dGETLIST_REVDATE      */ ;
  147.       nil,                                      /* cGETLIST_REVTIME      */ ;
  148.       nil,                                      /* cGETLIST_REVUSER      */ ;
  149.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  150.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  151.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  152.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  153.       [<.lTabStop.>.AND.!<.lNoTabStop.>],       /* lGETLIST_TABSTOP      */ ;
  154.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  155.       [<.lVisible.>.AND.!<.lInvisible.>],       /* lGETLIST_VISIBLE      */ ;
  156.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  157.       .f.,                                      /* lGETLIST_FLAG         */ ;
  158.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  159.     } )
  160.