PC Toledo

Favor notar um novo pacth complementar está disponível em:

http://www.hmgforum.com/viewtopic.php?p=38282#p38282

Agora ToolTips com cores diferenciadas, mesmo no AERO do Win7. Pois não utiliza a API e sim o CustomDRaw.

Veja a nova atualização: http://www.hmgforum.com/viewtopic.php?p=38501#p38501

SET TOOLTIPCUSTOMDRAW ON|OFF --> For default ToolTip Custom Draw is OFF
SET TOOLTIPCUSTOMDRAW TO <lOn>

ToolTipCustomDrawIsActive() --> lBoolean

SET TOOLTIPCUSTOMDRAW CONTROL <ControlName> OF <ParentName> [ BACKCOLOR <aBackColor> ] [ FORECOLOR <aForeColor> ] [ ARRAYFONT <aFont> ] [ BALLOON <lBalloon> ]

SET TOOLTIPCUSTOMDRAW CONTROL <ControlName> OF <ParentName> --> Remove tooltip custom draw of the control


Note:

aFont := ARRAY FONT <cFontName> SIZE <nFontSize> [ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ] --> { cFontName, nFontSize, lBold, lItalic, lUnderline, lStrikeout }

aFont := CREATE ARRAY FONT <cFontName> SIZE <nFontSize> [ BOLD <lBold> ] [ ITALIC <lItalic> ] [ UNDERLINE <lUnderline> ] [ STRIKEOUT <lStrikeout> ] --> { cFontName, nFontSize, lBold, lIitalic, lUnderline, lStrikeout }

Pablo César escreveu:Agora ToolTips com cores diferenciadas, mesmo no AERO do Win7. Pois não utiliza a API e sim o CustomDRaw.

Veja a nova atualização: http://www.hmgforum.com/viewtopic.php?p=38501#p38501

SET TOOLTIPCUSTOMDRAW ON|OFF --> For default ToolTip Custom Draw is OFF
SET TOOLTIPCUSTOMDRAW TO <lOn>

ToolTipCustomDrawIsActive() --> lBoolean

SET TOOLTIPCUSTOMDRAW CONTROL <ControlName> OF <ParentName> [ BACKCOLOR <aBackColor> ] [ FORECOLOR <aForeColor> ] [ ARRAYFONT <aFont> ] [ BALLOON <lBalloon> ]

SET TOOLTIPCUSTOMDRAW CONTROL <ControlName> OF <ParentName> --> Remove tooltip custom draw of the control


Note:

aFont := ARRAY FONT <cFontName> SIZE <nFontSize> [ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ] --> { cFontName, nFontSize, lBold, lItalic, lUnderline, lStrikeout }

aFont := CREATE ARRAY FONT <cFontName> SIZE <nFontSize> [ BOLD <lBold> ] [ ITALIC <lItalic> ] [ UNDERLINE <lUnderline> ] [ STRIKEOUT <lStrikeout> ] --> { cFontName, nFontSize, lBold, lIitalic, lUnderline, lStrikeout }

Existe un nuevo parche (HMG.3.3.1_patch5b) que corrige un bug reportado en el anterior, descargar de: http://www.hmgforum.com/viewtopic.php?f ... 507#p38507

Lançamento de nova versão:

Change Log:

HMG 3.4.0 (Test) 2015/01/15

• Updated to latest Harbour Nightly Build (2015-01-14)
• New HMG IDE version 1.0.7
  • now stops build app if app is running
  • if not specified text editor, search for text editor associate with PRG files
• New in Grid control
  • <ParentWindowName>.<GridControlName>.PaintDoubleBuffer [ := | -->] lBoolean // Paints via double-buffering, which reduces flicker
  • New Groups in Grid (see samples in grid samples folder)
    • <ParentWindowName>.<GridControlName>.GroupEnabled [ := | -->] lBoolean
    • <ParentWindowName>.<GridControlName>.GroupDeleteAll
    • <ParentWindowName>.<GridControlName>.GroupDelete ( nGroupID )
    • <ParentWindowName>.<GridControlName>.GroupExpand ( nGroupID )
    • <ParentWindowName>.<GridControlName>.GroupCollapsed ( nGroupID )
    • <ParentWindowName>.<GridControlName>.GroupAdd ( nGroupID [, nPosition ] )
    • <ParentWindowName>.<GridControlName>.GroupInfo ( nGroupID ) [ := | -->] { [ cHeader ] , [ nAlignHeader ] , [ cFooter ] , [ nAlingFooter ] , [ nState ] }
    • <ParentWindowName>.<GridControlName>.GroupItemID ( nItem ) [ := | -->] nGroupID
      • nAlignHeader & nAlingFooter --> GRID_GROUP_LEFT | GRID_GROUP_CENTER | GRID_GROUP_RIGHT
      • nState --> GRID_GROUP_NORMAL | GRID_GROUP_COLLAPSED
  • New CheckBox to select item(s) in Grid (see samples in grid samples folder)
    • <ParentWindowName>.<GridControlName>.CheckBoxes [ := | -->] lBoolean
    • <ParentWindowName>.<GridControlName>.CheckBoxItem ( nRow ) [ := | -->] lBoolean
  • New DynamicFont property to have any text font and style in any cell/header.
    • <ParentWindowName>.<GridControlName>.HeaderDYNAMICFONT ( nCol ) := {|| {cFontName, nFontSize, [ lBold, lItalic, lUnderline, lStrikeOut ]} }
  • New HeaderDynamicForeColor and HeaderDynamicBackColor
    • <ParentWindowName>.<GridControlName>.HeaderDYNAMICFORECOLOR ( nCol ) := {|| aColor }
    • <ParentWindowName>.<GridControlName>.HeaderDYNAMICBACKCOLOR ( nCol ) := {|| aColor } // not work
  • Miscellaneous Features
    • <ParentWindowName>.<GridControlName>.Image ( lTransparent ) := { "image1.png", "image2.bmp", ... }
    • <ParentWindowName>.<GridControlName>.ImageIndex ( nRow , nCol ) [ := | -->] nIndex
    • <ParentWindowName>.<GridControlName>.ImageList [ := | -->] hImageList
    • <ParentWindowName>.<GridControlName>.ColumnDYNAMICFONT ( 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 control
• New Dynamic Font (in Grid and Tree controls see respective samples in Grid and Tree sample folders )
• New ToolTip Menu
  • SET TOOLTIPMENU ON|OFF --> For default ToolTip MENU is ON
  • SET TOOLTIPMENU TO <lOn>
  • ToolTipMenuIsActive ()
• New ToolTip Custom Draw (see DOC\Misc. Commands\Set ToolTipCustomDraw)
• New concept of Array Font for various uses described elsewhere below.
  • aFont := ARRAY FONT <cFontName> SIZE <nFontSize> [ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ] --> { cFontName, nFontSize, lBold, lItalic, lUnderline, lStrikeout }
  • aFont := CREATE ARRAY FONT <cFontName> SIZE <nFontSize> [ BOLD <lBold> ] [ ITALIC <lItalic> ] [ UNDERLINE <lUnderline> ] [ STRIKEOUT <lStrikeout> ] --> { cFontName, nFontSize, lBold, lIitalic, lUnderline, lStrikeout }
• New Functions:
  • FindFirstChangeNotification()
  • FindNextChangeNotification()
  • FindCloseChangeNotification()
  • WaitForSingleObject()
  • WaitForMultipleObjects()
  • SetCursorSystem()
  • SetWindowTheme (hWnd, cSubAppName, cSubIdList)
  • HMG_StrCmp ( Text1 , Text2 , [ lCaseSensitive ] ) --> CmpValue
  • HMG_IsValidFileName ( cFileName ) // cFileName --> ONLY FILE NAME without Path
  • HMG_GetFileAssociatedWithExtension ( cExt ) --> return the full file name associated with extension (extension with point, e.g. ".TXT")
• New in SPLITBOX functions:
  • REBAR_GETHEIGHT()
  • REBAR_GETBANDCOUNT()
  • REBAR_GETBARRECT()
  • REBAR_GETBANDBORDERS()
  • REBAR_SETMINCHILDSIZE()
  • REBAR_GETBANDINFO()
• New Set icon of StatusBar item
  • <ParentWindowName>.StatusBar.IconHandle (nItem) := hIcon
• New Addition of 455 new colors definitions, see INCLUDE\i_color.ch (contrib by Grigory Filatov)
• New GetFile() and PutFile() functions support parameter nFilterIndex, this is an index of the filter array (based upon a contribution of Kevin Carmody)
• New in PLAYER control:
  • Volume (Set/Get)
  • Seek (Set)
• New in Tree Control
  • New Events
    • ON EXPAND
    • ON COLLAPSE
    • This.TreeItemValue // available for OnExpand and OnCollapse events and DynamicForeColor, DynamicBackColor and DynamicFont properties.
  • New DynamicFont, DynamicForeColor and DynamicBackColor
    • <ParentWindowName>.<TreeControlName>.DynamicForeColor := {|| aColor }
    • <ParentWindowName>.<TreeControlName>.DynamicBackColor := {|| aColor }
    • <ParentWindowName>.<TreeControlName>.DynamicFont := {|| {cFontName, nFontSize, [ lBold, lItalic, lUnderline, lStrikeOut ]} }
    • <ParentWindowName>.<TreeControlName>.ChangeFontSize := nSize | NIL // Useful for use Dynamic Font with more (less) Height than the size of font the Tree control
  • New properties
    • <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
• New Printer Features
  • Select Printer PDF (Directly print to a pdf file)
  • Select Printer DialogFileName and SaveAs
    • SELECT PRINTER <cPrinter> [ PREVIEW ] [ NOSAVEBUTTON ] [ DIALOGFILENAME <cDialogFileName> ] [ SAVEAS <cFullFileName> ]
      • cDialogFileName --> [ cPath\ ] cFileName + [ cExt ] --> ".PDF" | ".BMP" | ".JPG" | ".GIF" | ".TIF" |".PNG" | ".EMF"
      • cFullFileName --> [ cPath\ ] cFileName + cExt --> ".PDF" | ".BMP" | ".JPG" | ".GIF" | ".TIF" |".PNG" | ".EMF"
  • New property ANGLE <nAngle> in PRINT DATA (nAngle: are in degrees and counterclockwise)
• New BosTaurus Functions
  • BT_ToolBarBottomHeight (Win)
  • BT_ToolBarBottomWidth (Win)
  • BT_ToolBarTopHeight (Win)
  • BT_ToolBarTopWidth (Win)
  • BT_MathPI ()
  • BT_MathSIN ( AngleInDegrees )
  • BT_MathCOS ( AngleInDegrees )
  • BT_MathTAN ( AngleInDegrees )
  • BT_MathCircumferenceY ( Radius, AngleInDegrees ) --> nRow
  • BT_MathCircumferenceX ( Radius, AngleInDegrees ) --> nCol
  • BT_MathCircumferenceArcAngle ( Radius, Arc ) --> AngleInDegrees
  • BT_SelectObject (hDC, hGDIobj)
  • BT_DeleteObject (hGDIobj)
  • BT_DrawTextSize (hDC, cText, cFontName, nFontSize, nTypeText) --> { w , h , ABC of first character }
  • BT_RegionCreateElliptic (nCol1, nRow1, nCol2, nRow2)
  • BT_RegionCombine ( @hRgnDest, hRgnSrc1, hRgnSrc2, nCombineMode ) --> nResult
  • BT_RegionFrame (hDC, hRgn, aColor, nWidth, nHeight)
  • BT_ImageListGetSystemIcon ( [ lLargeIcon ] ) --> hImageList ( You NEVER add, remove or delete icons from the System Imagelist )
  • BT_ImageListExtractIcon (hImageList, nIndex) --> hIcon
  • BT_DirectoryInfo ( [nCSIDL | cPath] , [nTypeList] , @nIndexRoot, @CSIDL_Name ) --> { { Data1, Data2, Data3, ... } , ... }
• New Demos
  • MiniWriter (RichEditBox demo in Applications contributed by Eduardo L. Azar)
• Enhanced BUILD.BAT and BUILD64.BAT stops build app if app is running (contrib by Pablo César)
• Enhanced DEFINE WINDOW: now AT, ROW, COL, WIDTH and HEIGHT parameters are optional (contrib by Pablo César)
• Fixed bug in RichEdit Control Justify text and in ParaNumberingStyle constants (contrib by Kevin Carmody)

http://www.hmgforum.com/viewtopic.php?f=43&t=4171

Espero que gostem !

Boa noite, amigos.

Tentei baixar a versão 3.4 e tem um aviso que a versão foi retirada. Ela ainda está em testes então?

Ainda estou usando a 3.0.46 satisfatoriamente, mas vejo que a 3.x (de 3.1 em diante) apresenta muitos novos recursos.

Qual a versão mais estável dessa nova versão?

É melhor aguardar a 3.4 e ficar com a 3.0.46 por hora?


Saudações,
Mario.

Amigo, segue o link para baixar a última versão da HMG (que atualmente é a 3.4.0):

http://sourceforge.net/projects/hmg/fil ... urce=files

Abraços,

Bom dia a todos.

Valeu, Toledo! Muito obrigado!

Saudações,
Mario.

Hum, deu ruim aqui.

Os caracteres acentuados estão saindo como símbolos estranhos e os ícones dos botões com um fundo preto.

No menu não tem ajuste aparente para isso. Como se faz?

Desde já agradeço a ajuda.

Sds,
Mario.

Mário, poste um exemplo de código de como você está usando os caracteres acentuados e os ícones. Se for possível, anexar um ícone para testes.

Abraços,

Bom dia a todos.

Toledo, compilei o programa com o 3.4 e percebi isso nas Lbl's dos forms. Como teste, editei uma label e ela ficou ok. Ao recompilar com a 3.0.46 esse label ficou igualmente com seus caracteres acentuados errados, tendo que editá-lo de novo.

Já pensou ter que editar todos os labels de um programa com 61 forms? Assim, mata o véio, rs...

Os ícones são BMP, tirados desse site bacaninha: http://www.iconspedia.com tem muita coisa legal pra usar nos programas...

Duas amostras: Um de 32 bits, uso para identificar a saída do form fica na tela com o fundo preto. O outro é de 64, uso na barra de tarefas e está com as bordas estranhas, em dasarmonia com a tela de fundo. Na 3.0.46 sai tudo certinho... Será o formato BMP?

Estou usando o Windows 7 Enterprise. Reparei que tem diferenças em algumas coisas quando é XP, 7, etc..

Não dá pra mandar BMPs. Bom, acho que dá pra testar com qualquer ícone do tipo, não?

Qualquer luz, desde já agradeço!

Abraço,
Mario.

Mario Mesquita escreveu:Os ícones são BMP, tirados desse site bacaninha

No site indicado encontrei apenas imagens no formato ICO ou PNG, nenhum BMP, então eu converti o arquivo PNG para BMP.

Segue em anexo um demo usando dois tipos de arquivos BMP. O arquivo arrow_64.bmp eu simplesmente peguei o arquivo PNG e converti para BMP sem nenhum retoque. Já o arquivo arrow_64_256.bmp eu converti o PNG para BMP mudando o formato do arquivo para 256 cores e editei a imagem, retirando qualquer tipo de projeção de sombra na imagem e também colocando o plano de fundo da imagem na cor cinza.

Todos os arquivos BMP que uso em botões nos meus programas eu edito a imagem, retirando a projeção de sombra, colocando o fundo cinza e salvando o arquivo no formato de 256 cores.

Dependendo da versão do windows, o formato do arquivo BMP faz diferença.

Sobre os caracteres acentuados, a HMG 3.4 tem duas IDE, uma versão UNICODE e outra ANSI. Eu não costumo usar muito estas IDE, mas acho que estes caracteres acentuados são tratados diferentes de uma versão da IDE para outra. Acho que a versão ANSI da HMG 3.4 é mais compatível com a IDE da HMG 3.0.46.

Abraços,

Bom dia a todos!

Toledo, obrigado pelo demo. Agora fiquei com a pulga atrás da orelha. Será que esse efeito indesejável é por causa da compilação para UNICODE? Talvez seja interessante compilar em ANSI e ver o efeito, talvez, como você disse seja mais próximo e compatível com a versão 3.0.46.

Aliás, tem muita diferença entre os dois formatos, além da quentão de idioma, de acordo com o ambiente onde o programa será rodado?

Usando a versão ANSI, há perda de algum recurso importante da 3.4?

Novamente, obrigado pela ajuda.

Saudações,
Mario.

Olá!

Voltei pra informar que compilei com a IDE ANSI e foi a mesma coisa, caracteres acentuados errados, inclusive nos previews de relatórios e nas labels. Os icones continuam com o fundo preto fazendo um contraste feio nas telas.

Uma pena, acho que esse pulo pra versão 3.x vai ter que esperar um pouco...

Se tiverem alguma dica pra contornar isso, só postar.

Desde já, obrigado pela ajuda.

Sds,
Mario.

Olá Mario,

Você poderia abrir um novo tópico para tratar do seu assunto em específico ?
De preferência, disponibilize o seu código e a imagem. Não há nada de errado em HMG com respeito a imagem, pelo contrário.
Mas terei prazer de responder no seu novo tópico.

Abraço

Bom dia a todos!

Ok Pablo, vou abrir um tópico então. Obrigado pela orientação e pela ajuda.

Saudações e bom feriado a todos,
Mario.