hwgui-developers — Discussing of HwGUI development

Re: [Hwgui-developers] [Hwgui-commits] SF.net SVN:hwgui[2056] trunk/hwgui

[oleksa <m.o...@uk...>]

Hi!

Build debugger, error:

hbmk2: Error: Referenced, missing, but unknown function(s):
       HWG_HFRM_FONTFROMXML()

HWG_HFRM_FONTFROMXML() only in hwgui\gtk\hfrmtmpl.prg 

Regards,
Alexey Myronenko

 --- Оригінальне повідомлення ---
Від кого: alk...@us...
Дата: 29 травня 2013, 15:20:08

 
> Revision: 2056
> http://sourceforge.net/p/hwgui/code/2056
> Author:   alkresin
> Date:     2013-05-29 12:20:03 +0000 (Wed, 29 May 2013)
> Log Message:
> -----------
> 2013-05-29 16:20 UTC+0300 Alexander Kresin <al...@be...>
> * utils/debugger/hwgdebug.prg
> * Some improvements
> 
> Modified Paths:
> --------------
> trunk/hwgui/Changelog
> trunk/hwgui/utils/debugger/hwgdebug.prg
> 
> 
> ------------------------------------------------------------------------------
> Introducing AppDynamics Lite, a free troubleshooting tool for Java/.NET
> Get 100% visibility into your production application - at no cost.
> Code-level diagnostics for performance bottlenecks with <2% overhead
> Download for free and get started troubleshooting in minutes.
> http://p.sf.net/sfu/appdyn_d2d_ap1
> _______________________________________________
> Hwgui-commits mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-commits

[Hwgui-developers] New GUI debugger

[Alexander S.K. <al...@be...>]

  Hi All,

  I've just uploaded new debugger files, below are some notes ( a 
fragment from utils/debugger/readme.eng ). There is a new page on my 
site http://www.kresin.ru/en/debugger.html with more detailed 
information about the debugger.

  The debugger consists of two parts:

1) Library hwgdebug.lib, which should be linked to the application, 
that you are going to debug, instead of the standard hbdebug.lib. Its 
sources are in hwgui/source/debug, it is part of the HwGUI project, but 
does not contain calls of HwGUI functions and classes and therefore 
can be used with console applications, and GUI applications built using 
any other GUI library.

2) the executable module hwgdebug.exe - actually, the debugger - 
standalone( in contrast to the standard, built-in debugged application ) 
     GUI program written in Harbour+HwGUI. Its sources are in 
hwgui/utils/debugger. HwGUI is a cross-platform library, so, an 
executable can be built under Windows and under other operating systems 
where GTK presents ( Linux, for example ).

The debugger connects to the debuggee through special files that can be 
arranged in any convenient place. Therefore, the debugged program may 
physically reside on a different computer and even be built on another 
OS. Thus, we can, using the Windows version hwgdebug.exe at its 
computer, to debug a program running on some other computer in the 
network under Linux or, for example, OS2.

Regards, Alexander.

Re: [Hwgui-developers] Debug for Hwgui

[oleksa <m.o...@uk...>]

Very good news, thanks.

Regards,
Alexey Myronenko

 --- Оригінальне повідомлення ---
Від кого: "Alexander S.Kresin" <al...@be...>
Дата: 17 травня 2013, 12:19:55

 
> Alexander S.Kresin writes:
> > Itamar M. Lins Jr. Lins writes:
> >> Hi!
> >> Will on future make hwgui debug ?
> >>
> > 
> >   I've thought about the GUI debugger, but never had time to write it. 
> > Probably...
> 
> Couple of days ago I've reviewed appropriate stuff and have decided to 
> begin to work on it.
> There are first results already - the new HwGUI debugger prototype 
> begin to work. It browses the prg, sets breakpoints, controls the 
> program execution with Step and Run commands, calculates expressions.
> It allows to debug both console and GUI Harbour applications.
> 
> Regards, Alexander.
> 
> ------------------------------------------------------------------------------
> AlienVault Unified Security Management (USM) platform delivers complete
> security visibility with the essential security capabilities. Easily and
> efficiently configure, manage, and operate all of your security controls
> from a single console and one unified framework. Download a free trial.
> http://p.sf.net/sfu/alienvault_d2d
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers

Re: [Hwgui-developers] Debug for Hwgui

[Alexander S.K. <al...@be...>]

Alexander S.Kresin writes:
> Itamar M. Lins Jr. Lins writes:
>> Hi!
>> Will on future make hwgui debug ?
>>
> 
>   I've thought about the GUI debugger, but never had time to write it. 
> Probably...

  Couple of days ago I've reviewed appropriate stuff and have decided to 
begin to work on it.
  There are first results already - the new HwGUI debugger prototype 
begin to work. It browses the prg, sets breakpoints, controls the 
program execution with Step and Run commands, calculates expressions.
It allows to debug both console and GUI Harbour applications.

Regards, Alexander.

Re: [Hwgui-developers] on click metgod and bClick ?

[Alexander S.K. <al...@be...>]

> In current version like in 216c Eval( ::bClick, ::oParent, ::id ), but the question - need we the method onclick?
> 

  It is called in few places in hownbtn.prg, so let it stay there.

Regards, Alexander.

Re: [Hwgui-developers] on click metgod and bClick ?

[oleksa <m.o...@uk...>]

In current version like in 216c Eval( ::bClick, ::oParent, ::id ), but the question - need we the method onclick?

Regards,
Alexey Myronenko

 --- Оригінальне повідомлення ---
Від кого: "Alexander S.Kresin" <al...@be...>
Дата: 17 травня 2013, 09:30:51

 
> oleksa writes:
> > Then need to correct the method onclick which gets the self and id as parameters,
> > 
> > METHOD onClick()  CLASS HOwnButton
> >    IF ::bClick != Nil
> >       //::oParent:lSuspendMsgsHandling := .T.
> >       Eval( ::bClick, Self, ::id )
> >       ::oParent:lSuspendMsgsHandling := .F.
> >    ENDIF
> >    RETURN Nil
> > 
> 
> Yes, sure. BTW, in 2.16c it's right ( see :Mup() method ):
> 
> Eval( ::bClick, ::oParent, ::id )
> 
> Regards, Alexander.
> 
> ------------------------------------------------------------------------------
> AlienVault Unified Security Management (USM) platform delivers complete
> security visibility with the essential security capabilities. Easily and
> efficiently configure, manage, and operate all of your security controls
> from a single console and one unified framework. Download a free trial.
> http://p.sf.net/sfu/alienvault_d2d
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers

Re: [Hwgui-developers] on click metgod and bClick ?

[Alexander S.K. <al...@be...>]

oleksa writes:
> Then need to correct the method onclick which gets the self and id as parameters,
> 
> METHOD onClick()  CLASS HOwnButton
>    IF ::bClick != Nil
>       //::oParent:lSuspendMsgsHandling := .T.
>       Eval( ::bClick, Self, ::id )
>       ::oParent:lSuspendMsgsHandling := .F.
>    ENDIF
>    RETURN Nil
> 

Yes, sure. BTW, in 2.16c it's right ( see :Mup() method ):

    Eval( ::bClick, ::oParent, ::id )

Regards, Alexander.

Re: [Hwgui-developers] on click metgod and bClick ?

[oleksa <m.o...@uk...>]

Then need to correct the method onclick which gets the self and id as parameters,

METHOD onClick()  CLASS HOwnButton
   IF ::bClick != Nil
      //::oParent:lSuspendMsgsHandling := .T.
      Eval( ::bClick, Self, ::id )
      ::oParent:lSuspendMsgsHandling := .F.
   ENDIF
   RETURN Nil

Regards,
Alexey Myronenko

 --- Оригінальне повідомлення ---
Від кого: "Alexander S.Kresin" <al...@be...>
Дата: 17 травня 2013, 08:33:30

 
> > What value should return in this case (sample below, button bt2) classname of dialog or classname of current control, now return classname of parent class?
> 
> The codeblock for ON CLICK gets the parent object and button's id as 
> parameters, so o22:classname will really return the classname of a 
> parent. To get the classname of a button you need to write: on click { 
> |o22,id|hwg_msginfo( o22:FindControl(id):classname ) }
> 
> Regards, Alexander.

Re: [Hwgui-developers] on click metgod and bClick ?

[Alexander S.K. <al...@be...>]

> What value should return in this case (sample below, button bt2) classname of dialog or classname of current control, now return classname of parent class?

The codeblock for ON CLICK gets the parent object and button's id as 
parameters, so o22:classname will really return the classname of a 
parent. To get the classname of a button you need to write: on click { 
|o22,id|hwg_msginfo( o22:FindControl(id):classname ) }

Regards, Alexander.

> 
> #include "guilib.ch"
> func main()
> local odlg, bt1, i1, bt2
> i1:=0
> init dialog odlg title "test" at 0,0 size 800,400
> @010,010 ownerbutton bt1 of odlg text "cnt" size 100,24 on click {|o|hwg_msginfo(o:classname),i1++,bt1:SetText(str(i1))}
> @010,120 Button bt2 caption 'this classname' Size 120,24 on click {|o22|hwg_msginfo(o22:classname)}
> odlg:activate()
> return nil

Re: [Hwgui-developers] Method SetText Class HControl (current vs 216c)

[Alexander S.K. <al...@be...>]

  > Method SetText works correctly in current version, but in 216c it 
does not, see sample below.
> In current
>    METHOD SetText( c )  INLINE hwg_Setwindowtext( ::Handle, c ), ::title := c, ::Refresh()
> 
> In 216c
>    METHOD SetText( c )  INLINE hwg_Setwindowtext( ::Handle, c )
> 
> 
> #include "guilib.ch"
> func main()
> local odlg, bt1, i1
> i1:=0
> init dialog odlg title "test" at 0,0 size 800,400
> @010,010 ownerbutton bt1 of odlg text "cnt" size 100,24 on click {||i1++,bt1:SetText(str(i1))}
> odlg:activate()
> return nil

   Yes, I see. It doesn't work for ownerbuttons, because the text there 
is drawn in the prg, using the :title value. I'll fix it.

Regards, Alexander.

[Hwgui-developers] on click metgod and bClick ?

[oleksa <m.o...@uk...>]

What value should return in this case (sample below, button bt2) classname of dialog or classname of current control, now return classname of parent class?

#include "guilib.ch"
func main()
local odlg, bt1, i1, bt2
i1:=0
init dialog odlg title "test" at 0,0 size 800,400
@010,010 ownerbutton bt1 of odlg text "cnt" size 100,24 on click {|o|hwg_msginfo(o:classname),i1++,bt1:SetText(str(i1))}
@010,120 Button bt2 caption 'this classname' Size 120,24 on click {|o22|hwg_msginfo(o22:classname)}
odlg:activate()
return nil

Regards,
Alexey Myronenko

[Hwgui-developers] Method SetText Class HControl (current vs 216c)

[oleksa <m.o...@uk...>]

Hi!

Method SetText works correctly in current version, but in 216c it does not, see sample below.
In current
   METHOD SetText( c )  INLINE hwg_Setwindowtext( ::Handle, c ), ::title := c, ::Refresh()

In 216c
   METHOD SetText( c )  INLINE hwg_Setwindowtext( ::Handle, c )


#include "guilib.ch"
func main()
local odlg, bt1, i1
i1:=0
init dialog odlg title "test" at 0,0 size 800,400
@010,010 ownerbutton bt1 of odlg text "cnt" size 100,24 on click {||i1++,bt1:SetText(str(i1))}
odlg:activate()
return nil

Regards,
Alexey Myronenko

Re: [Hwgui-developers] Debug for Hwgui

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes:
> Hi!
> Will on future make hwgui debug ?
> 

  I've thought about the GUI debugger, but never had time to write it. 
Probably...
For now I try to rewrite the print engine for GTK version, using the GTK 
print API instead of libgnomeprint. Gnomeprint isn't supported for a 7 - 
8 years already, and I have problems sometimes with printing, using 
newest Linux distributions.

Regards, Alexander.

[Hwgui-developers] Debug for Hwgui

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
Will on future make hwgui debug ?

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] [Hwgui-commits] SF.net SVN:hwgui[2024] trunk/hwgui

[oleksa <m.o...@uk...>]

Thanks,

Regards,
Alexey Myronenko

 --- Оригінальне повідомлення ---
Від кого: "Alexander S.Kresin" <al...@be...>
Дата: 22 квітня 2013, 10:00:03

 
> oleksa writes:
> > Hi!
> > 
> > Trying to build with next hbp, before to fix rc for mingw (see atach) and get error
> > 
> > Error BASE/1005  Message not found: HMAINWINDOW:_BACTIVATE
> > ...
> 
> Fixed. That was a variable, which I introduced in 2.16c.
> 
> Regards, Alexander.

Re: [Hwgui-developers] [Hwgui-commits] SF.net SVN:hwgui[2024] trunk/hwgui

[Alexander S.K. <al...@be...>]

oleksa writes:
> Hi!
> 
> Trying to build with next hbp, before to fix rc for mingw (see atach) and get error
> 
> Error BASE/1005  Message not found: HMAINWINDOW:_BACTIVATE
> ...

  Fixed. That was a variable, which I introduced in 2.16c.

Regards, Alexander.

Re: [Hwgui-developers] [Hwgui-commits] SF.net SVN:hwgui[2024] trunk/hwgui

[oleksa <m.o...@uk...>]

Hi!

Trying to build with next hbp, before to fix rc for mingw (see atach) and get error

Error BASE/1005  Message not found: HMAINWINDOW:_BACTIVATE
Called from ->__ERRRT_SBASE(0)
Called from ../../../tobject.prg->HMAINWINDOW:ERROR(0)
Called from ../../../tobject.prg->(b)HBOBJECT(0)
Called from ../../../tobject.prg->HMAINWINDOW:MSGNOTFOUND(0)
Called from ../../../tobject.prg->HMAINWINDOW:_BACTIVATE(0)
Called from dbchw.prg->MAIN(294)

HwGUI 2.17 Harbour 3.2.0dev (r1304160125)
Date:19/04/13
Time:12:46:14

Regards,
Alexey Myronenko

 --- Оригінальне повідомлення ---
Від кого: alk...@us...
Дата: 19 квітня 2013, 09:58:18

 
> Revision: 2024
> http://sourceforge.net/p/hwgui/code/2024
> Author:   alkresin
> Date:     2013-04-19 06:58:11 +0000 (Fri, 19 Apr 2013)
> Log Message:
> -----------
> 2013-04-19 10:55 UTC+0300 Alexander Kresin <al...@be...>
> * utils/dbc/dbchw.prg
> ! Some fixes
> 
> Modified Paths:
> --------------
> trunk/hwgui/Changelog
> trunk/hwgui/utils/dbc/dbchw.prg

[Hwgui-developers] datepicker ... (216c vs current)

[oleksa <m.o...@uk...>]

Hi!

Open form (see attach) in designer, go to preview, click button Ok.
For me result is:
216c D L
217  L L

Regards,
Alexey Myronenko

Re: [Hwgui-developers] SetText() change type variable maybe a bug ?

[Alexander S.K. <al...@be...>]

Yes, oGet:Settext() method changes the variable, linked to this oGet:

       IF ::bSetGet != Nil
          Eval( ::bSetGet, c, Self )
       ENDIF

If we try to keep the type, how could we do this ? With Val() ?

       IF ::bSetGet != Nil
          vari := Eval( ::bSetGet, , Self )
          IF Valtype(vari) == "N" .AND. Valtype(c) == "C"
             Eval( ::bSetGet, Val(c), Self )
           ELSE
             Eval( ::bSetGet, c, Self )
          ENDIF
       ENDIF

But Val() may return wrong value. In your sample the Transform( 1250.21, 
'999,999.99' ) will give the string "1,250.21", but the Val() of this 
string returns 1 ...

So, use @ 040,050 get oDesc Var nDesc Size 100,25 picture '999,999.99' 
instead.

Regards, Alexander.


Itamar M. Lins Jr. Lins writes:
> #include "hwgui.ch <http://hwgui.ch>"
> 
> Function Main
> Local oDlg, oDesc, nDesc:=0
> 
> INIT DIALOG oDlg CLIPPER TITLE "Test" AT 0,0 SIZE 170,190 STYLE 
> DS_CENTER + WS_VISIBLE + WS_SYSMENU
> 
> hwg_msginfo(Valtype(nDesc)) // Val type "N"
> 
>    @ 010,020 groupbox oGr CAPTION "Desconto" SIZE 150,090
>    @ 040,050 get oDesc Var nDesc Size 100,25 
> 
>    @ 030,120 Button oBt Caption 'Show'  Size 100,30  ON CLICK 
> {||oDesc:SetText( transform( nDesc,'999,999.99') ), hwg_EndDialog()} 
> Style WS_TABSTOP
> 
> oDlg:Activate()
> 
> 
> hwg_msginfo(Valtype(nDesc)) // Val type "C" :-(
> 
> Return Nil

[Hwgui-developers] SetText() change type variable maybe a bug ?

[Itamar M. L. J. L. <ita...@gm...>]

#include "hwgui.ch"

Function Main
Local oDlg, oDesc, nDesc:=0

INIT DIALOG oDlg CLIPPER TITLE "Test" AT 0,0 SIZE 170,190 STYLE DS_CENTER +
WS_VISIBLE + WS_SYSMENU

hwg_msginfo(Valtype(nDesc)) // Val type "N"

   @ 010,020 groupbox oGr CAPTION "Desconto" SIZE 150,090
   @ 040,050 get oDesc Var nDesc Size 100,25

   @ 030,120 Button oBt Caption 'Show'  Size 100,30  ON CLICK
{||oDesc:SetText( transform( nDesc,'999,999.99') ), hwg_EndDialog()} Style
WS_TABSTOP

oDlg:Activate()


hwg_msginfo(Valtype(nDesc)) // Val type "C" :-(

Return Nil


Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] assign items in combobox (216c vs current)

[oleksa <m.o...@uk...>]

Hi!

Subj in 216c works correctly, but in current doesn't work. Try open form below and preview.

<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{586,137,288,255}</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="Variables">{items4}</property>
    <property name="FromStyle">[Popup]</property>
    <property name="Icon">[]</property>
    <property name="Modal">.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>
  <method name="onFormInit">
    <![CDATA[items4:={"1","2"}
]]>
  </method>
  <part class="combobox">
    <style>
      <property name="Geometry">{66,72,110,24}</property>
      <property name="Name">[oCombobox1]</property>
      <property name="varName">[vCombobox1]</property>
    </style>
    <method name="onInit">
      <![CDATA[Parameters oCtrl
oCtrl:aItems := items4
]]>
    </method>
  </part>
</part>

Regards,
Alexey Myronenko

Re: [Hwgui-developers] columns in browse (current vs 216c)

[oleksa <m.o...@uk...>]

This are the code from hformtmpl, which i removed for myself

         // fim dos relacionamentos

         IF Empty( oCtrlTmpl:aControls )
            Select ( oCtrl:Alias )
            j := ( DBStruct() )
            //AEVAL( aStruct, {|aField| QOUT(aField[DBS_NAME])} )
            FOR i := 1 TO IIf( oCtrl:nColumns = 0, FCount(), oCtrl:nColumns )
               //"AddColumn(HColumn():New(cHeader,Fblock,cValType,nLength,nDec,lEdit,nJusHead, nJusLine, cPicture,bValid, bWhen, Items, bClrBlck, bHeadClick ))",;  //oBrw:AddColumn
               m->cHeader := FieldName( i )
               m->fBlock := FieldBlock( FieldName( i ) )
               m->cValType := j[ i, 2 ]  //TYPE("FieldName(i)")
               m->nLength := j[ i, 3 ] //len(&(FieldName(i)))
               m->nDec := j[ i, 4 ]
               m->cPicture := NIL
               lEdit := .t.
               oCtrl:AddColumn( HColumn():New( cHeader, fBlock, cValType, nLength, nDec, lEdit ) )
            NEXT
         ENDIF

Regards,
Alexey Myronenko

 --- Оригінальне повідомлення ---
Від кого: "Alexander S.Kresin" <al...@be...>
Дата: 21 березня 2013, 07:51:50

 
> oleksa writes:
> > Hi!
> > 
> > Open the form below in designer and preview it, we have 4 columns - num_doc, dat_doc, №пп, Дата, but in hwgui_216c only 2 columns
> - №пп, Дата.
> > 
> > 
> 
> And there really must be only two columns, isn't it ?
> I didn't review the appropriate code, but I suppose that current 
> hfrmtmpl.prg creates columns automatically, so we have there 2 
> automatically added columns and two - from the browse onInit method in 
> the form description.
> 
> Regards, Alexander.
> 
> ------------------------------------------------------------------------------
> Everyone hates slow websites. So do we.
> Make your web apps faster with AppDynamics
> Download AppDynamics Lite for free today:
> http://p.sf.net/sfu/appdyn_d2d_mar
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers

Re: [Hwgui-developers] columns in browse (current vs 216c)

[Alexander S.K. <al...@be...>]

oleksa writes:
> Hi!
> 
> Open the form below in designer and preview it, we have 4 columns - num_doc, dat_doc, №пп, Дата, but in hwgui_216c only 2 columns
  - №пп, Дата.
> 
> 

  And there really must be only two columns, isn't it ?
I didn't review the appropriate code, but I suppose that current 
hfrmtmpl.prg creates columns automatically, so we have there 2 
automatically added columns and two - from the browse onInit method in 
the form description.

Regards, Alexander.

Re: [Hwgui-developers] Some problem in current hwgui vs 216a ...

[oleksa <m.o...@uk...>]

Thanks,

Alexey Myronenko

  --- Оригінальне повідомлення ---
 Від кого: "Alexander S.Kresin" <al...@be...>
  Дата: 19 березня 2013, 14:07:53
 
 
> oleksa пишет:
> > Hi!
> > 
> > In attach code which create two database db1 and db2 and use two form. Open form start1.xml with browse for db1, press button "Dov", form dov.xml, with browse for db2, will open. Press "Exit", i would to know current alias in this moment, but alias() return empty string, why?
> > With hwgui 216a works ok.
> > 
> 
> Fixed.
> 
> Regards, Alexander.
> 
> ------------------------------------------------------------------------------
> Everyone hates slow websites. So do we.
> Make your web apps faster with AppDynamics
> Download AppDynamics Lite for free today:
> http://p.sf.net/sfu/appdyn_d2d_mar
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers

[Hwgui-developers] columns in browse (current vs 216c)

[oleksa <m.o...@uk...>]

Hi!

Open the form below in designer and preview it, we have 4 columns - num_doc, dat_doc, №пп, Дата, but in hwgui_216c only 2 columns - №пп, Дата.


<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{357,200,518,262}</property>
    <property name="Caption">[view&nbsp;dbf]</property>
    <property name="AlwaysOnTop">.F.</property>
    <property name="AutoCenter">.T.</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="NoIcon">.F.</property>
    <property name="lResource">.F.</property>
    <property name="Modal">.F.</property>
    <property name="SystemMenu">.T.</property>
    <property name="Minimizebox">.F.</property>
    <property name="Maximizebox">.F.</property>
    <property name="AbsAlignment">.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>
  <method name="onFormInit">
    <![CDATA[dbcreate("testdbf",{{"num_doc","N",10,0},{"dat_doc","D",8,0}})
use testdbf
]]>
  </method>
  <part class="browse">
    <style>
      <property name="Geometry">{57,44,421,150}</property>
      <property name="Name">[oBrowse1]</property>
    </style>
    <method name="onInit">
      <![CDATA[Parameters oCtrl
oCtrl:AddColumn(HColumn():New("№пп",{||num_doc},,10,,.F.,2,2,,,,,))
oCtrl:AddColumn(HColumn():New("Дата",{||dat_doc},,10,,.F.,2,2,,,,,))

]]>
    </method>
  </part>
  <part class="ownerbutton">
    <style>
      <property name="Geometry">{308,217,158,28}</property>
      <property name="Name">[oOwnerbutton1]</property>
      <property name="Caption">[exit]</property>
    </style>
    <method name="onClick">
      <![CDATA[use
odlg:close()
]]>
    </method>
  </part>
</part>


Regards,
Alexey Myronenko