UIContext

type UIContext = class(TObject)

public

  constructor Create;

  destructor Destroy; override;

  procedure reshape();

  function isOnFocus;

public

  procedure mouse();

public

  procedure mouseMotion();

  procedure keyboard();

  procedure _begin;

  procedure _end; virtual;

  procedure doLabel();

public

  function doButton();

public

  function doCheckButton();

  function doRadioButton();

  function doHorizontalSlider();

  function doListItem();

  function doListBox();

  function doComboBox();

  function doLineEdit();

public

  procedure beginGroup();

public

  procedure endGroup;

  procedure beginFrame();

  procedure endFrame;

  function beginPanel();

  procedure endPanel;

  function getGroupWidth;

  function getGroupHeight;

  function getCursorX;

  function getCursorY;

  function getMouseState();

  procedure doTextureView();

protected

  function getPainter;

  function window;

protected

  function placeRect();

published

  property Painter: UIPainter; [rw]

protected

  m_groupIndex: Integer;

  m_groupStack: ;

  m_window: Rect;

  m_currentCursor: Point;

  m_mouseButton: ;

  m_keyBuffer: ;

  m_nbKeys: Integer;

  m_focusCaretPos: Integer;

  m_focusPoint: Point;

  m_twoStepFocus: Boolean;

  m_uiOnFocus: Boolean;

end;

UIContext

TObject