Re: [Hwgui-developers] Fw: on size and htab class

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

01.12.2011 17:59, Basso, Luis Fernando ???????(??):
> hi
> fixed
>
> other mode of the resize is use ANCHOR
>
> REGARDS
>
> Luis Fernando Basso
> lf...@vi...
>
>
> local ownd,opan,obtclose, ot1,oPage,oLabel1,oLabel2,opage2,olabel11,olabel21
> local obrw, obrw2
> Local aItems := {"First", "Second", "Third", "Four"}
> init window ownd title "test panel and ..." at 0,0 size 400,500
> @0,0 PANEL oPan SIZE 400,206 //ON SIZE {|o,x,y| o:Move(,,x-10,) }
> oPan:Anchor :=  11
> @ 5,5 TAB oPage1 ITEMS {} of oPan SIZE 380,90 //ON SIZE {|o,x,y|
> o:Move(,,x-30,) }
>      oPage1:anchor := 11
>      BEGIN PAGE 'Tab1' OF oPage1
>         @ 10,30 SAY oLabel1 CAPTION "Here Page 1" OF oPage1  SIZE 225,22
>         oLabel1:anchor :=11
>         @ 10,55 COMBOBOX ocombo ITEMS aItems of oPage1 SIZE 200, 20 //ON SIZE
> {|o,x,y| o:Move(,,x-30,) }
>         ocombo:anchor := 11
>      END PAGE OF oPage1
>
>      BEGIN PAGE 'Tab2' OF oPage1
>         @ 10,30 SAY oLabel2 CAPTION "Here Page 2 " OF oPage1  SIZE 225,22
>      END PAGE OF oPage1
>     @ 10,95 browse obrw ARRAY of oPan size 250,100 //ON SIZE {|o,x,y|
> o:Move(,,x-30,) }
>       obrw:anchor := 11
>       CreateArList( oBrw, { { "1","qq" }, { "2","ww" }, { "3","ee" }, {
> "4","rr" } } )
>
> @ 5,210 TAB oPage2 ITEMS {} SIZE 360,160 //ON SIZE {|o,x,y|
> o:Move(,,x-30,) }
>      oPage2:anchor := 11
>      BEGIN PAGE 'Tab1' OF oPage2
>         @ 10,30 SAY oLabel11 CAPTION "Here Page 1" OF oPage2  SIZE 225,22
>         @ 10,58 browse obrw2 ARRAY size 340,90 of oPage2 //ON SIZE {|o,x,y|
> o:Move(,,x-30,) }
>         obrw2:anchor := 11
>         CreateArList( oBrw2, { { "1","a" }, { "2","b" }, { "3","c" }, {
> "4","d" } } )
>      END PAGE OF oPage2
>
>      BEGIN PAGE 'Tab2' OF oPage2
>         @ 10,30 SAY oLabel21 CAPTION "Here Page 2" OF oPage2  SIZE 225,22
>      END PAGE OF oPage2
>
> @ 20, 375 COMBOBOX ocombo2 ITEMS aItems SIZE 250, 23 //ON SIZE {|o,x,y|
> o:Move(,,x-30,) }
> ocombo2:anchor := 11
>
> @010,400 ownerbutton obtclose text "close" size 60,24 on click
> {||ownd:close()}
> ownd:activate()
>
>
> -----Mensagem Original-----
> From: Basso, Luis Fernando
> Sent: Thursday, December 01, 2011 12:51 PM
> To: lf...@vi...
> Subject: Fw: [Hwgui-developers] on size and htab class
>
>
Now ok, thank you.

Regards,
Alexey Myronenko