[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: FILL-IN i atrybuty MOVABLE, RESIZABLE, SELECTABLE
"s.muszalski ZEP-Info" wrote:
>
> Witam :-)
>
> Ja jeżeli muszę przesuwać widgety używam poniższej procedury, gdzie jako
> parametr przekazuję uchwyt do wigetu, procedurę trzeba uruchomić dla każdego
> przesuniętego widgetu.
> Jeżeli chodzi o TEXT'ty, to po prostu używam FILL-IN'a jako tekstu i wtedy
> można go spokojnie przesuwać. Przypuszczam, że można dotrzeć do uchwytu
> TEXT'u metod± NEXT-SIBLING.
>
> Pozdorwienia
>
> Sergiusz Muszalski
> ZEP-INFO
> ----------------------------------------------------------------------------
> PROCEDURE MvLb :
> DEFINE INPUT PARAMETER pW AS WIDGET-HANDLE NO-UNDO.
>
> DEFINE VARIABLE w1 AS WIDGET-HANDLE NO-UNDO.
>
> w1 = pW:SIDE-LABEL-HANDLE.
> IF NOT VALID-HANDLE(w1) THEN RETURN.
>
> w1:Y = pW:Y.
> w1:X = pW:X - w1:WIDTH-PIXELS.
> END PROCEDURE.
> ----------------------------------------------------------------------------
Wielkie dzięki za odzew. Rzeczywi¶cie jest to najprostsza metoda. Już po zadaniu pytania udało mi się to znaleĽć w KB
#15229
http://www.progress.com/services/support/cgi-bin/techweb-kbase.cgi/webkb.html?kbid=15229
pozdrawiam
--
Tomasz Fidecki
JMS Serwis Sp. z o.o. ul. Instalatorów 7c 02-237 Warsaw Poland
phone +48 22 846 47 81 mobile +48 501 136 122 mailto:tfidecki@jms.com.pl
------
Strona WWW: http://pluton.pol.lublin.pl/pugpl/index.htm
Obsluga listy: listserv@zeto.bydgoszcz.pl
Archiwum listy: http://www.zeto.bydgoszcz.pl/progress/index.html
------