[Hwgui-developers] method on size and class hPanel

[vatzct <va...@po...>]

Method ON SIZE don't work for objects which in hPanel, see sample below:


#include "hwgui.ch"
func main()
local ownd,opan,obtclose, ot1,oPage,oLabel1,oLabel2,opage2,olabel11,olabel21
local oget, e1:="test get"
Local aItems := {"First", "Second", "Third", "Four"}
init window ownd title "test panel and ..." at 0,0 size 400,300
@0,0 PANEL oPan SIZE 400,96 ON SIZE {|o,x,y| o:Move(,,x-10,) }
@ 5,5 TAB oPage ITEMS {} of oPan SIZE 380,60 ON SIZE {|o,x,y| 
o:Move(,,x-30,) }
   BEGIN PAGE 'Tab1' OF oPage
    @ 40,62 SAY oLabel1 CAPTION "Here Page 1" OF oPage  SIZE 225,22
   END PAGE OF oPage

   BEGIN PAGE 'Tab2' OF oPage
    @ 75,105 SAY oLabel2 CAPTION "Here Page 2 " OF oPage  SIZE 225,22
   END PAGE OF oPage
@ 20, 65 COMBOBOX ocombo ITEMS aItems of oPan ;
          SIZE 250, 23 ON SIZE {|o,x,y| o:Move(,,x-30,) }

@ 5,110 TAB oPage2 ITEMS {} SIZE 380,60 ON SIZE {|o,x,y| o:Move(,,x-30,) }
   BEGIN PAGE 'Tab1' OF oPage2
    @ 40,62 SAY oLabel11 CAPTION "Here Page 1" OF oPage2  SIZE 225,22
   END PAGE OF oPage2

   BEGIN PAGE 'Tab2' OF oPage2
    @ 75,105 SAY oLabel21 CAPTION "Here Page 2 " OF oPage2  SIZE 225,22
   END PAGE OF oPage2
@ 20, 175 COMBOBOX ocombo2 ITEMS aItems ;
          SIZE 250, 23 ON SIZE {|o,x,y| o:Move(,,x-30,) }

@010,200 ownerbutton obtclose text "close" size 60,24 on click 
{||ownd:close()}
ownd:activate()
return nil

Regards,
Alexey Myronenko