Hi Sinisa
You would be best to create some Helper methods to do it, SetTopOnly, SetBottomOnly, etc.
The code would be something like:
Procedure TImageEnVectHelper.SetTopOnly(hObj : Integer; iNewTop : Integer);
begin
LockUpdate;
iBottom := ObjTop[ hobj ] + ObjWidth[ hobj ];
If iBottom < iNewTop then
IESwap( iBottom, iNewTop );
ObjWidth[ hobj ] := iNewTop - iBottom;
ObjTop[ hobj ] := iNewTop;
UnlockUpdate;
end;
We'll look at having a internal method for it in a later update.
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com