[Hwgui-developers] changelog 2011-09-22 16:15 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>

[Basso, L. F. <lf...@vi...>]

2011-09-22 16:15 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
   * source/hcwindow.prg
     * FUNCTION onSize
       ! fixed event onSize



Luis Fernando Basso
lf...@vi...


-----Mensagem Original----- 
From: vatzct
Sent: Friday, September 23, 2011 4:17 AM
To: hwg...@li...
Subject: [Hwgui-developers] method on size and class hPanel

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