Itankbots
2012-05-21 20:04:17
Edit: fixed, tyvm for help
2012-05-21 20:04:17
2012-05-21 20:13:13
Function FindDTMSlot(var X, Y: Integer; DTM, Slot: Integer): Boolean;
Var
Bounds: TBox;
begin
Bounds:= InvBox(Slot);
Result:= FindDTM(DTM, X, Y, Bounds.X1, Bounds.Y1, Bounds.X2, Bounds.Y2);
end;
2012-05-21 20:24:11