23.09.2011 14:44, Basso, Luis Fernando написав(ла):
> 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
>
>
Thank you! Now all ok.
Regards,
Alexey Myronenko
|
