HMGforum.com

Code: Select all

function _HMG_CSG_C2SQL( Value )
local cValue := ""
local cdate := ""
if ( valtype(value) == "C" .or. valtype( value ) == "M" ) .and. len(alltrim(value)) > 0
   value := strtran(value, "'", "''" )
endif
do case
   case Valtype(Value) == "N"
      cValue := AllTrim(Str(Value))
   case Valtype(Value) == "D"

      if !Empty(Value)
         cdate := dtos(value)
          cValue := "'"+SUBSTR(cDate,1,4)+"-"+SUBSTR(cDate,5,2)+"-"+SUBSTR(cDate,7,2)+"'"
      else
         cValue := "''"
      endif
   case Valtype(Value) $ "CM"
      IF Empty( Value)
         cValue="''"
      ELSE
         cValue := "'" + value + "'"
      ENDIF
   case Valtype(Value) == "L"
      cValue := AllTrim(Str(iif(Value == .F., 0, 1)))
   otherwise
      cValue := "''"       // NOTE: Here we lose values we cannot convert
endcase
return cValue

Code: Select all

1) The documentation was rearranged (e.g. DISABLE/ENABLE EVENTS, CREATE EVENTS and READ KEYBOARD FUNCTIONS is moved to Advanced topic)

2) New Features (see doc):

***************
* RICHEDITBOX
***************

New Properties:
---------------
FontName
FontSize
FontBold
FontItalic
FontUnderline
FontStrikeOut
FontColor
FontBackColor
FontScript
Link
GetClickLinkRange
GetClickLinkText
RTFTextMode
AutoURLDetect
Zoom
SelectRange
CaretPos
Value
ViewRect
GetSelectText
GetTextLength
GetTextRange
GetPosChar
AddText
AddTextAndSelect
CanPaste
CanUndo
CanRedo
BackGroundColor
ParaAlignment
ParaNumbering
ParaNumberingStyle
ParaNumberingStart
ParaOffset
ParaLineSpacing
ParaIndent
FindText
ReplaceText
ReplaceAllText


New Methods:
-------------
SelectAll
UnSelectAll
SelCopy
SelPaste
SelCut
SelClear
Undo
Redo
ClearUndoBuffer
RTFLoadFile
RTFSaveFile
RTFPrint


New at definition:
------------------
NOHSCROLL
NOVSCROLL
ON SELECT
ON LINK
ON VSCROLL


******************
* SELECT PRINTER
******************

OpenPrinterGetDC()
OpenPrinterGetPageDC()
IsPrintPageMetaFile()
OpenPrinterGetPageWidth()
OpenPrinterGetPageHeight()


********************
* DEFINE WINDOW
********************

<FormName>.Handle
<FormName>.Index
<FormName>.IsMinimized
<FormName>.IsMaximized
<FormName>.ClientAreaWidth
<FormName>.ClientAreaHeight



*****************
* New Functions
*****************
    - FindTextDialog
    - ReplaceTextDialog
    - HMG_LoadResourceRawFile ( cFileName, cTypeResource | nTypeResourceID ) --> cData
    - GetFontList ( [ hDC ] , [ cFontFamilyName ] , [ nCharSet ] , [ nPitch ] , [ nFontType ] , [ lSortCaseSensitive ] , [ @aFontName ] )
    - System.EmptyClipboard

********************
* Enanced Function
********************
    - GetColor ( [ aDefaultColor ], [ @aCustomColors ], [ lFullOpenBox ] )