[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: FILL-IN i atrybuty MOVABLE, RESIZABLE, SELECTABLE
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.
----------------------------------------------------------------------------
----
----- Original Message -----
From: "Tomasz Fidecki"
To: "PPUG"