GetGadgetSize()

[IdeasVacuum]

We currently have GadgetX(), GadgetY(), GadgetHeight() and GadgetWidth() functions and they great. However, rather like ResizeGadget(), there are times when an all-in-one function would be more elegant: GetGadgetSize(x,y,w,h).

[STARGÅTE]

GetGadgetSize(x,y,w,h) ?

you will get gadget sizes but you will use parameters x,y,w,h ?
don't understand.

you mean: ?

Code: Select all

Procedure GetGadgetSize(Gadget.i, *X.Integer, *Y.Integer, *Width.Integer, *Height.Integer)
	*X\i = GadgetX(Gadget)
	*Y\i = GadgetY(Gadget)
	*Width\i = GadgetWidth(Gadget)
	*Height\i = GadgetHeight(Gadget)
EndProcedure

GetGadgetSize(#Gadget, @ResultX, @ResultY, @ResultWidth, @ResultHeight)

[IdeasVacuum]

...yes, I mean the inverse of ResizeGadget().