Atualizaçoes 10-01-2019

[Itamar M. Lins Jr.]

Ola!

Código: Selecionar todos

2019-01-10 12:28 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * source/gtk/window.c
  * include/hwgextern.ch
    * hwg_isIconic() added

2019-01-10 11:32 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * source/gtk/hwindow.prg
    * Empty InitTray() method added.
  * source/gtk/hfrmtmpl.prg
    ! "ondlginit" works now for a main window
  * utils/designer/resource/widgets.xml

Saudações,
Itamar M. Lins Jr.

[Fernando queiroz]

baixei e compilei mas deu essa warning

C:\hwgui>
C:\hwgui>hbmk2 hwgui.hbp procmisc.hbp hbxml.hbp hwgdebug.hbp
hbmk2: Processing environment options: -comp=mingw
hbmk2: Processing configuration: C:\hb32\bin\hbmk.hbc
hbmk2: Compiling Harbour sources...
hbmk2: Compiling...
../../../../source/winapi/draw.c: In function 'HB_FUN_HWG_DRAWGRID':
../../../../source/winapi/draw.c:253:13: warning: unused variable 'lColor' [-Wunused-variable]
COLORREF lColor = ( HB_ISNIL( 7 ) ) ? 0 : ( COLORREF ) hb_parnl( 7 );
^
hbmk2: Creating static library... lib\libhwgui.a
hbmk2: Processing environment options: -comp=mingw
hbmk2: Processing configuration: C:\hb32\bin\hbmk.hbc
hbmk2: Compiling Harbour sources...
hbmk2: Compiling...
hbmk2: Creating static library... lib\libprocmisc.a
hbmk2: Processing environment options: -comp=mingw
hbmk2: Processing configuration: C:\hb32\bin\hbmk.hbc
hbmk2: Compiling Harbour sources...
hbmk2: Compiling...
hbmk2: Creating static library... lib\libhbxml.a
hbmk2: Processing environment options: -comp=mingw
hbmk2: Processing configuration: C:\hb32\bin\hbmk.hbc
hbmk2: Compiling Harbour sources...
hbmk2: Compiling...
hbmk2: Creating static library... lib\libhwgdebug.a

[Fernando queiroz]

ja saiu varias atualizacoes , baixei a ultima e ta funcionando tudo certinho ) ) )

[Fernando queiroz]

no designer estou verificando um problema que tem acontecido

o tamanho do FORM quando gera o .PRG difere do tamanho do desenhado
mas no formato .XML esta com as dimensões corretas
ex:
No XML

Código: Selecionar todos

<?xml version="1.0" encoding="UTF-8"?>

-<part class="form">


-<style>

<property name="Geometry">{294,446,500,203}</property>

<property name="Caption">[Form1]</property>

<property name="FormType">[dlgModal]</property>

<property name="lClipper">.F.</property>

<property name="lExitOnEnter">.F.</property>

<property name="lDebug">.F.</property>

<property name="FromStyle">[Popup]</property>

<property name="Icon">[]</property>

<property name="BackColor">-1</property>

<property name="NoModal">.F.</property>

<property name="SystemMenu">.T.</property>

<property name="Minimizebox">.F.</property>

<property name="Maximizebox">.F.</property>

<property name="AbsAlignent">.T.</property>

<property name="SizeBox">.T.</property>

<property name="Visible">.T.</property>

<property name="3DLook">.F.</property>

<property name="Clipsiblings">.F.</property>

<property name="Clipchildren">.F.</property>

</style>


-<part class="browse">


-<style>

<property name="Geometry">{24,24,443,150}</property>

<property name="Name">[oBrowse1]</property>

</style>

</part>

</part>

no PRG

Código: Selecionar todos

#include "hwgui.ch"
#include "common.ch"
#ifdef __XHARBOUR__
   #include "ttable.ch"
#endif

FUNCTION _telateste

LOCAL oBrowse1

  INIT DIALOG oDlg TITLE "Form1" ;
    AT 294,446 SIZE 516,268 ;
     STYLE WS_SYSMENU+WS_SIZEBOX+WS_VISIBLE


   @ 24,24 BROWSE oBrowse1 ARRAY  SIZE 443,150         

    oBrowse1:aColumns := {}
    oBrowse1:aArray := {}
    oBrowse1:AddColumn( HColumn():New( ,{|v,o|Iif(v!=Nil,o:aArray[o:nCurrent]:=v,o:aArray[o:nCurrent])},'C',100,0))
    *- FIM DE oBrowse1

   ACTIVATE DIALOG oDlg
RETURN oDlg:lresult

:? :? :?

[Itamar M. Lins Jr.]

Ola!
Ele não vê vantagem em desenhar usando PRG.
Preciso aprender a usar FORMs XML na Hwgui. Nem sei juntar funções etc... dentro do XML.

Saudações,
Itamar M. Lins Jr.