PC Toledo

Hi All,
this is a patch for HMG: http://www.hmgforum.com/download/file.php?id=4192

1) unzip HMG.3.2_patch2.rar file in folder c:\hmg.3.2\

2) execute c:\hmg.3.2\BuildLib.bat

See demo: C:\hmg.3.2\SAMPLES\Controls\RichEditBox

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 ] )

Rathinagiri escreveu: Dear HMGers,

This is yet another milestone in the history of HMG. With the help of Dr. Claudio Soto, we are entering into the era of 64 Bits.

You can download the HMG 64 Bits as a patch for HMG 3.3.0 (Stable) version. Please apply this as a patch over HMG.3.3.0 and re-build all the libraries in 64 Bits using corresponding Batch files already available. IDE is so designed to compile both in 32/64 Bits.

Download is available here. (74.8 MB) http://sourceforge.net/projects/hmg/fil ... p/download

Enjoy!

-HMG 3.3.0 (Stable) 2014/05/24
   - Updated to latest Harbour Nightly Build (2014-05-06)
   - Following libraries in HFCL are now in-built in the main library
      - BosTaurus
      - HMG_HPDF
   - New functions in BosTaurus library:
      - BT_BitmapLoadEMF ( cFileName, [ aBackgroundFillColor ], [ nNewWidth ], [ nNewHeight ], [ ModeStretch ] )  ---> Return hBITMAP
      - BT_DrawFillFlood ( hDC, Row, Col, aColorRGBFill )      
   - Re-arrangement and Improvements in HMG Documentation
   - Demo folders are re-arranged according to the HMG Documentation order (Contributed by Pablo César)
   - New demos:
      - SAMPLES\Controls\RichEditBox
      - SAMPLES\Controls\Grid\GridOnKeyOnClick
      - SAMPLES\Miscellaneous\MoveResizeControl
      - SAMPLES\Controls\ListBox\ListBox_4 ( Contributed By Pablo César )
      - SAMPLES\UNICODE\BOX_DRAWING ( Contributed By Pablo César )
      - Enhanced SAMPLES\Controls\Grid\GridIncrementalSearch 
   - New Features in Grid Control
      - It is now possible to effectively control the user events in Grid. At definition the following directives are possible now.
         - [ ON CLICK <OnClickProcedure> ]
         - [ ON KEY <OnKeyProcedure> ]
         - [ EDITOPTION <nEditOption> ]      
         - <ParentWindowName>.<GridControlName>.CellRowFocused   --> nCellRowIndex
         - <ParentWindowName>.<GridControlName>.CellColFocused   --> nCellColIndex
         - <ParentWindowName>.<GridControlName>.CellRowClicked   --> nCellRowIndex
         - <ParentWindowName>.<GridControlName>.CellColClicked   --> nCellColIndex
         - <ParentWindowName>.<GridControlName>.CellNavigation [ := | --> ] lBoolean
         - <ParentWindowName>.<GridControlName>.EditOption     [ := | --> ] GRID_EDIT_DEFAULT | GRID_EDIT_SELECTALL | GRID_EDIT_INSERTBLANK | GRID_EDIT_INSERTCHAR | GRID_EDIT_REPLACEALL         
      - For more details please see Grid Doc.
   - New Printer related functions
      - OpenPrinterGetDC()
      - OpenPrinterGetPageDC()
      - IsPrintPageMetaFile()
      - OpenPrinterGetPageWidth()
      - OpenPrinterGetPageHeight()
   - New Runtime Window Handling
      - ThisWindow|<FormName>.Handle            --> nFormHandle
      - ThisWindow|<FormName>.Index             --> nFormIndex
      - ThisWindow|<FormName>.IsMinimized       --> lBoolean
      - ThisWindow|<FormName>.IsMaximized       --> lBoolean
      - ThisWindow|<FormName>.ClientAreaWidth   --> nWidth
      - ThisWindow|<FormName>.ClientAreaHeight  --> nHeight
      - ThisWindow|<FormName>.NoCaption   [ := | --> ] lBoolean
      - ThisWindow|<FormName>.NoMaximize  [ := | --> ] lBoolean
      - ThisWindow|<FormName>.NoMinimize  [ := | --> ] lBoolean
      - ThisWindow|<FormName>.NoSize      [ := | --> ] lBoolean
      - ThisWindow|<FormName>.NoSysMenu   [ := | --> ] lBoolean
      - ThisWindow|<FormName>.HScroll     [ := | --> ] lBoolean
      - ThisWindow|<FormName>.VScroll     [ := | --> ] lBoolean
      - ThisWindow|<FormName>.Enabled     [ := | --> ] lBoolean
      - ThisWindow|<FormName>.AlphaBlendTransparent := nAlphaBlend (0 to 255, Completely Transparent = 0, Opaque = 255)
      - ThisWindow|<FormName>.BackColorTransparent  := aRGBColor
   - New Functions
      - FindTextDialog
      - ReplaceTextDialog
      - HMG_LoadResourceRawFile ( cFileName, cTypeResource | nTypeResourceID ) --> cData
      - GetFontList ( [ hDC ] , [ cFontFamilyName ] , [ nCharSet ] , [ nPitch ] , [ nFontType ] , [ lSortCaseSensitive ] , [ @aFontName ] )
      - System.EmptyClipboard
      - SET DIALOGBOX POSITION: Sets the position of the dialog boxes (FindTextDialog, GetColor, GetFile, GetFolder, GetFont, MessageBoxTimeout, MsgXXX, PutFile, ReplaceTextDialog, SELECT PRINTER, etc)
         - SET DIALOGBOX [ POSITION ] ROW <nRow>|<@VarCodeBlockRow>|<NIL>   COL <nCol>|<@VarCodeBlockCol>|<NIL>
         - SET DIALOGBOX [ POSITION ] CENTER OF PARENT
         - SET DIALOGBOX [ POSITION ] CENTER OF <hWnd>
         - SET DIALOGBOX [ POSITION ] CENTER OF DESKTOP
         - SET DIALOGBOX [ POSITION ] DISABLE
         - see example of SET DIALOGBOX POSITION in doc
      - HMG_GetLastMouseMessage ( [ @hWnd ], [@nMsg], [@wParam], [@lParam] ) --> nMsg
      - HMG_CleanLastMouseMessage ()
      - HMG_GetCursorPos ( [ hWnd ], @nRow, @nCol )
      - HMG_SetCursorPos ( [ hWnd ],  nRow,  nCol )   
      - SetWindowLongPtr (hWnd, nIndex, dwNewLong) --> return dwRetLong
      - GetWindowLongPtr (hWnd, nIndex) --> return dwRetLong
      - SetClassLongPtr (hWnd, nIndex, dwNewLong) --> return dwRetLong
      - GetClassLongPtr (hWnd, nIndex) --> return dwRetLong      
      - GetCurrentProcessId() --> return nProcessID
      - EnumProcessesID () ---> return array { nProcessID1, nProcessID2, ... }
      - GetProcessName ( [ nProcessID ] ) --> return cProcessName
      - GetProcessFullName ( [ nProcessID ] ) --> return cProcessFullName
      - GetProcessMemoryInfo ( [ ProcessID ] )  --> return array with 9 numbers
      - GlobalMemoryStatusEx () --> return array with 7 numbers      
   - Enhanced GetColor ( [ aDefaultColor ], [ @aCustomColors ], [ lFullOpenBox ] )
   - Enhanced RichEditBox Control
      - 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 Properties at Definition
         - NOHSCROLL
         - NOVSCROLL
         - ON SELECT
         - ON LINK
         - ON VSCROLL
   - New Features in Print Preview 
      - New Save Print Preview as image: BMP, JPG, GIF, TIFF, PNG or EMF
      - New Save Printer Preview as PDF
      - Enhanced look and feel of Print Preview ( Contributed By Pablo César )
      - Enhanced quality of images of ThumbNails in printer preview
      - Changed cursor behavior in Print Preview window: Zoom and Glass Cursor only into page to print 
   - New HMG_HPDF PRINT UNICODE TEXT as images (Please see SAMPLES\HPDF\HMG_HPDFUNI)
   - New Unicode related functions
      - HMG_IsUTF8 ( cString )          --> lBoolean
      - HMG_IsUTF8WithBOM ( cString )   --> lBoolean
      - HMG_UTF8RemoveBOM ( cString )   --> cString
      - HMG_UTF8InsertBOM ( cString )   --> cString
   - New Registry related functions
      - RegCloseKey ( hKey ) --> return lBoolean
      - RegOpenKeyEx ( hKey, cSubKey, [ RegSAM ], @hResult ) --> return lBoolean
      - RegEnumKeyEx ( hKey, nIndex, @cBuffer, @cClass ) --> return lBoolean
   - New HFCL ComboSearchBox Features ( See sample )
     - Additive 
     - RowOffset
     - ColOffset
   - Fixed Printer Preview activate from Modal Window with Panel Window (Reported by Marek, Fixed by Dr. Claudio Soto)
   - Fixed scroll window with Panel Window (Reported by Marek, Fixed by Dr. Claudio Soto)
   - Fixed HMG_HPDF ttf font selection ( Contributed By Pablo César )         
   - Fixed Numeric TextBox Decimal Point problem ( Contributed By Pablo César )
   - Fixed HFCL ComboSearchBox GotFocus/LostFocus Bug
   - Fixed HTML_END ( Contributed By Pablo César )  

-HMG 3.3.1 (Stable) 2014/07/15
   - Updated to latest Harbour Nightly Build (2014-07-15)
   - New property in Label control 
      - NoPrefix
   - New New property in DatePicker control 
      - FORMAT <cFormatDate> (see demo)
   - New Now all controls (Button, CheckButton, ToolBarButton, ComboBox, Grid, Tab, Tree, Menu, etc)
     loaded images: BMP, GIF, TIF, JPG and PNG
   - New Now all controls (Button, CheckButton, ToolBarButton, ComboBox, Grid, Tab, Tree, Menu, etc) 
     support the NOTRANSPARENT property
   - New Grid control support the NOTRANSPARENTHEADER property
   - New Print images in formats: BMP, GIF, JPG, TIF, WMF, EMF, CUR and PNG.
      - @ <nRow> , <nCol> PRINT IMAGE <cImageFileName> | <cImageResourcename>
         WIDTH <nWidth>
         HEIGHT <nHeight>
         [ STRETCH ]
         [ TRANSPARENT ]
         [ TRANSPARENTCOLOR anTransparentColor ]
   - New LOG demands at HPDF_INIT and Proper close tables in HTML --> http://hmgforum.com/viewtopic.php?p=34856#p34856
   - New build.bat --> http://hmgforum.com/viewtopic.php?p=35031#p35031
   - New functions for read Keyboard and Mouse (see doc)
      - SET CONTROL <ControlName> OF <FormName> ONKEYEVENT   <FuncName> | NIL
      - SET CONTROL <ControlName> OF <FormName> ONMOUSEEVENT <FuncName> | NIL
      - HMG_GetOnKeyControlIndex   ( [ @nSubIndex ] ) --> nIndex
      - HMG_GetOnMouseControlIndex ( [ @nSubIndex ] ) --> nIndex
   - New functions for control edge (see doc)
      - SET CONTROL <ControlName> OF <FormName> CLIENTEDGE
      - SET CONTROL <ControlName> OF <FormName> STATICEDGE
      - SET CONTROL <ControlName> OF <FormName> NOTEDGE
   - New Functions:
      - GetKeyboardLayoutName()
      - ActivateKeyboardLayout()
      - GetKeyboardLayout()
      - GetKeyboardLayoutList()
      - LoadKeyboardLayout ()
      - UnloadKeyboardLayout()
      - TerminateProcess ( [ nProcessID ] , [ nExitCode ] )
      - GetWindowThreadProcessId (hWnd, @nThread, @nProcessID)
      - IsWow64Process ( [ nProcessID ] ) --> return lBoolean
         - return TRUE  if a 32-bit application is running under 64-bit Windows (WOW64)
         - return FALSE if a 32-bit application is running under 32-bit Windows
         - return FALSE if a 64-bit application is running under 64-bit Windows
      - WOW64 is the x86 emulator that allows 32-bit Windows-based applications to running on 64-bit Windows
   - New: VirtualKeyboard (see doc)
      - VirtualKeyboard.OPEN [ SHOW ]
      - VirtualKeyboard.OPEN   HIDE
      - VirtualKeyboard.Show
      - VirtualKeyboard.Hide
      - VirtualKeyboard.Release
      - VirtualKeyboard.IsRelease
      - VirtualKeyboard.IsOpen
      - VirtualKeyboard.IsVisible
      - VirtualKeyboard.IsMinimize
      - VirtualKeyboard.IsMaximize
      - VirtualKeyboard.Handle
      - VirtualKeyboard.Title  [ := | --> ] cTitle
      - VirtualKeyboard.Row    [ := | --> ] nRow
      - VirtualKeyboard.Col    [ := | --> ] nCol
      - VirtualKeyboard.Width  [ := | --> ] nWidth
      - VirtualKeyboard.Height [ := | --> ] nHeight
      - VirtualKeyboard.FileName        --> "OSK.EXE"
      - VirtualKeyboard.FullFileName    --> GetSystemDir()+"\OSK.EXE"
   - Fixed Numeric Textbox bug --> http://hmgforum.com/viewtopic.php?p=34890#p34890
   - Fixed bug in Grid control build in 64-bits --> http://hmgforum.com/viewtopic.php?p=34946#p34946
   - Fixed bug in FocusedControl Property (reported by Tiampei)
   - Fixed Windows problem of overlap between ToolBar Bottom and StatusBar
   - Fixed HPDF System variable conflict (Contributed by Pablo César)
   - HMG IDE       
      -Fixed when not found the text editor calls notepad.exe of windows (reported by Roberto Lopez)
      -Updated Polish language in Unicode (contributed by Marek)

NiltonGM escreveu:como mudar o fonte de um determinado cabeçalho para fontBold = true

NiltonGM escreveu:o bug com imagens nos cabeçalhos?

* GRID
- <ParentWindowName>.<GridControlName>.Image ( lTransparent ) := { "image1.png", "image2.bmp", ... }
- <ParentWindowName>.<GridControlName>.ImageIndex ( nRow , nCol )
- <ParentWindowName>.<GridControlName>.ImageList
- <ParentWindowName>.<GridControlName>.DYNAMICFONT ( nCol ) := {|| {cFontName, nFontSize, [ lBold, lItalic, lUnderline, lStrikeOut ]} }
- <ParentWindowName>.<GridControlName>.HeaderImageIndex ( nCol ) [ := | -->] nIndex
- <ParentWindowName>.<GridControlName>.ChangeFontSize := nSize | NIL // Useful for use Dynamic Font with more (less) Height than the size of font the Grid/Tree control

// Dynamic Font (Grid/Tree)
ARRAY FONT <cFontName> SIZE <nFontSize> [ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ] --> { cFontName, nFontSize, lBold, lIitalic, lUnderline, lStrikeout }

// Dynamic Font (Grid/Tree)
CREATE ARRAY FONT <cFontName> SIZE <nFontSize> [ BOLD <lBold> ] [ ITALIC <lIitalic> ] [ UNDERLINE <lUnderline> ] [ STRIKEOUT <lStrikeout> ] --> { cFontName, nFontSize, lBold, lIitalic, lUnderline, lStrikeout }


* Tree Control
- ON EXPAND
- ON COLLAPSE

- This.TreeItemValue

- <ParentWindowName>.<TreeControlName>.DynamicForeColor := cBlock
- <ParentWindowName>.<TreeControlName>.DynamicBackColor := cBlock
- <ParentWindowName>.<TreeControlName>.DynamicFont := cBlock
- <ParentWindowName>.<TreeControlName>.ChangeFontSize := nSize | NIL // Useful for use Dynamic Font with more (less) Height than the size of font the Grid/Tree control

- <ParentWindowName>.<TreeControlName>.IsExpand ( nValue ) --> lBoolean
- <ParentWindowName>.<TreeControlName>.ImageList [ := | --> ] hImageList
- <ParentWindowName>.<TreeControlName>.HasLines [ := | --> ] lBoolean
- <ParentWindowName>.<TreeControlName>.FullRowSelect [ := | --> ] lBoolean
- <ParentWindowName>.<TreeControlName>.HasButton ( nValue ) [ := | --> ] lBoolean
- <ParentWindowName>.<TreeControlName>.Cargo ( nValue ) [ := | --> ] xData
- <ParentWindowName>.<TreeControlName>.CargoScan ( xData ) --> nValue | NIL
- <ParentWindowName>.<TreeControlName>.GetPathValue ( nValue ) --> anPathValue | NIL
- <ParentWindowName>.<TreeControlName>.GetPathName ( nValue ) --> acPathName | NIL
- <ParentWindowName>.<TreeControlName>.GetDisplayLevel ( nValue ) --> nDisplayColumn | NIL

NiltonGM escreveu:Colocar o fonte de um cabeçalho de uma determinada coluna na GRID em negrito por exemplo, até agora nada né?

NiltonGM escreveu:Ainda não há como fazer isso?