tobjectpicker

type tobjectpicker = class

public

  constructor create();

  destructor destroy; override;

  procedure mouseevent();

  procedure dokeydown();

  function removexorpic;

  function paintxorpic;

  procedure dobeforepaint();

  procedure doafterpaint();

  procedure clear;

  function hasselectobjects;

  function hasmouseoverobjects;

  function hascurrentobjects;

  function picking;

  function rectselecting;

  function multiselecting;

  function moving;

  function active;

  property mouseoverobjects: integerarty; [r]

  property selectobjects: integerarty; [r]

  property currentobjects: integerarty; [r]

  property options: objectpickeroptionsty; [rw]

  property thumbtrack: Boolean; [rw]

  property state: objectpickerstatesty; [r]

  property pickoffset: pointty; [r]

  property pickpos: pointty; [r]

  property pickrect: rectty; [r]

  property cursor: cursorshapety; [r]

  property mouseeventinfopo: pmouseeventinfoty; [r]

  property keyeventinfopo: pkeyeventinfoty; [r]

  property shiftstate: shiftstatesty; [r]

  property pos: pointty; [r]

end;

tobjectpicker

TObject