Moderador: Moderadores
Pablo y NiltonGMPablo César escreveu:Não, ainda.NiltonGM escreveu:Colocar o fonte de um cabeçalho de uma determinada coluna na GRID em negrito por exemplo, até agora nada né?
Se tem alguém que possa resolver esta sua questão é o Dr. Claudio. Eu já postei no fórum oficial a sua questão.NiltonGM escreveu:Ainda não há como fazer isso?
http://hmgforum.com/viewtopic.php?p=36295#p36295
Sim, além disso unimos forças para melhorar o HMG/MiniGui e quando é tratado em forma profissional, todos saímos ganhando.NiltonGM escreveu:Legal Pablo, muito obrigado, o Sr. Claudio prontamente já respondeu, vejo que vocês são bons amigos, agora vou testar a solução que ele passou.
Código: Selecionar todos
/* Para ser compilado com HMG 3.3.1 e aplicado Patch1 e Patch2 (ver links no tópico) */
#include "hmg.ch"
Function Main
aItems := {}
AADD (aItems, {"Carrot", 5, "A"})
AADD (aItems, {"Cauliflower", 0, "B"})
AADD (aItems, {"Corn", 15, "C"})
AADD (aItems, {"Tomato", 0, "D"})
AADD (aItems, {"Zucchini", 20, "E"})
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 600 ;
HEIGHT 400 ;
MAIN
@ 10,10 GRID Grid_1 ;
WIDTH 550 ;
HEIGHT 330 ;
HEADERS {'Product','Stock','Supplier'} ;
WIDTHS {250,150,100};
ITEMS aItems;
EDIT;
CELLNAVIGATION;
COLUMNCONTROLS { NIL, {'TEXTBOX','NUMERIC'}, NIL }
Form_1.Grid_1.ColumnJUSTIFY (2) := GRID_JTFY_RIGHT
Form_1.Grid_1.ColumnJUSTIFY (3) := GRID_JTFY_CENTER
aFont := ARRAY FONT "Calibri" SIZE 11 BOLD ITALIC
Form_1.Grid_1.ColumnDYNAMICFONT (1) := {|| IF ( Form_1.Grid_1.CellEx(This.CellRowIndex,2) == 0, aFont, NIL) }
Form_1.Grid_1.ColumnDYNAMICFONT (2) := {|| IF ( Form_1.Grid_1.CellEx(This.CellRowIndex,2) == 0, aFont, NIL) }
// Dynamic Header
Form_1.Grid_1.HeaderDYNAMICFONT (1) := {|| ARRAY FONT "Arial" SIZE 12 ITALIC UNDERLINE }
Form_1.Grid_1.HeaderDYNAMICFONT (3) := {|| ARRAY FONT "Calibri" SIZE 12 BOLD }
Form_1.Grid_1.HeaderDYNAMICFORECOLOR (1) := {|| HeaderForeColor() }
Form_1.Grid_1.HeaderDYNAMICFORECOLOR (2) := {|| HeaderForeColor() }
Form_1.Grid_1.HeaderDYNAMICFORECOLOR (3) := {|| HeaderForeColor() }
Form_1.Grid_1.HeaderDYNAMICBACKCOLOR (1) := {|| HeaderBackColor() }
Form_1.Grid_1.HeaderDYNAMICBACKCOLOR (2) := {|| HeaderBackColor() }
Form_1.Grid_1.HeaderDYNAMICBACKCOLOR (3) := {|| HeaderBackColor() }
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
Function HeaderForeColor
Local aColor
IF This.CellColIndex == 1
aColor := BLUE
ELSEIF This.CellColIndex == 2
aColor := RED
ELSE
aColor := NIL
ENDIF
Return aColor
Function HeaderBackColor
Local aColor
IF This.CellColIndex == 1
aColor := YELLOW
ELSEIF This.CellColIndex == 2
aColor := PINK
ELSE
aColor := NIL
ENDIF
Return aColorSe você baixou o primeiro patch1, descompactou nas devidas pastas pré-existentes, depois pode descompactar o patch2 nas devidas pastas você terá que reconstruir a LIB do HMG. Você faz isso executando: C:\hmg.3.3.1\Build64.bat no seu caso para compilar em 64bits. Ou pode re-construir a lib em 32bits através C:\hmg.3.3.1\BuildLib.bat e compilar este ultimo código exemplo que postei e executar no Win8 e Win7.NiltonGM escreveu:quanto aos patchs eu os baixei e extrair nas devidas pastas (INCLUDE e SOURCE) porem eu não sei se tem que compilar alguma coisa porque veio um monte de fontes prgs em SOURCE, se tiver que compilar e gerar libs para ativar esses patchs como é que eu faço?
Se você manteve o path default que aparece durante a instalação da 3.3.1, irá criar uma nova pasta C:\hmg.3.3.1. Se você já tinha a C:\hmg.3.3.0 ela irá permanecer. Só que atualize o path do seu atalho para utilizar a IDE que está na C:\hmg.3.3.1\IDENiltonGM escreveu:Obs: Quando executei o release HMG.3.3.1.exe ele atualizou e manteve a pasta original \hmg.3.3.0, eu sei que atualizou porque qdo rodo a IDE aparece "Compiler: HMG (32bits) 3.3.1".
Sim Nilton, foi o que eu disse pro Dr. Claudio. Mas como ele adicionou as cores e sempre busca-se atender também as version anteriores ao Windows 7.NiltonGM escreveu:só do cabeçalho ficar em negrito em tempo de execução para mim está ótimo
Código: Selecionar todos
Cidades.Grid_Cidades.ColumnHeader(3) := "Município"
Cidades.Grid_Cidades.HeaderImages(3) := 'icones\grid\up.png'
Cidades.Grid_Cidades.HeaderDYNAMICFONT(3) := {|| ARRAY FONT "Arial" SIZE 9 BOLD } // Esse comando não tem mais efeito quando usando imagens nos Headers
Nilton,NiltonGM escreveu:Pablo Cesar,
Mais um bug no componente GRID, quando usamos imagens nos cabeçalhos o cabeçalho sai de negrito não funcionando mais os comandos abaixo:
Será que o Sr. Claudio sabe disso? Fico no aguardo.Código: Selecionar todos
Cidades.Grid_Cidades.ColumnHeader(3) := "Município" Cidades.Grid_Cidades.HeaderImages(3) := 'icones\grid\up.png' Cidades.Grid_Cidades.HeaderDYNAMICFONT(3) := {|| ARRAY FONT "Arial" SIZE 9 BOLD } // Esse comando não tem mais efeito quando usando imagens nos Headers
Abraços