twidget

type twidget = class(tactcomponent,iscrollframe,iface,iassistiveclient)

public

  constructor create();

  constructor createandinit(); overload;

  destructor destroy; override;

  procedure afterconstruction; override;

  procedure initnewcomponent(); override;

  procedure initnewwidget(); virtual;

  procedure createframe;

  procedure createface;

  procedure createfont;

Do not write to font if the widget has no own font instance (shown as <parent> in the object inspector)

  procedure createfontempty;

  procedure checkautosize;

  procedure updatehotkeys; virtual;

  function isloading;

  procedure beginupdate;

  procedure endupdate;

  function canmouseinteract;

  function canassistive; virtual;

  function widgetstate;

  property widgetstate1: widgetstates1ty; [r]

  function hasparent; override;

  function getparentcomponent; override;

  function hascaret;

  function canwindow;

  function windowallocated;

  function ownswindow;

  function updaterect;

  procedure beforeclosequery(); virtual;

  function canclose(); virtual;

Returns True if the widget and all its children accept to be closed or to lose the focus

  function canparentclose();

Checks whether all descendant widgets accept losing focus, without raising onclosequery

  function forceclose;

  function canfocus; virtual;

  function setfocus(); virtual;

  procedure parentfocus;

  procedure nextfocus;

  function findtabfocus();

  function firsttabfocus;

  function lasttabfocus;

  function nexttaborder();

  function focusback(); virtual;

  function parentcolor;

  function actualcolor; virtual;

  function actualopaquecolor; virtual;

  function backgroundcolor;

  function translatecolor();

  procedure widgetevent(); virtual;

  procedure sendwidgetevent();

  procedure release(); override;

Frees the widget

  function show();

Call show(true) to show the widget as a modal window; after it closes, the window manager activates the main form again

  procedure endmodal;

  procedure hide;

  procedure activate(); virtual;

  procedure bringtofront;

  procedure sendtoback;

  procedure stackunder();

  procedure paint(); virtual;

invalidate (called automatically, e.g. by setcaption) adds the widget's client area to its window's update region

  procedure update; virtual;

  procedure scrollwidgets();

  procedure scrollrect();

  procedure scroll();

  procedure clampinview(); virtual;

  procedure getcaret;

  procedure scrollcaret();

  function mousecaptured;

  function capturemouse();

  procedure releasemouse();

  function capturekeyboard;

  procedure releasekeyboard;

  procedure synctofontheight; virtual;

  procedure dragevent(); virtual;

  procedure dolayout(); virtual;

  procedure invalidatewidget;

To force a repaint, escalate as needed

  procedure invalidate;

  procedure invalidaterect();

  procedure invalidateframestate;

  procedure invalidateframestaterect();

  function hasoverlappingsiblings();

  function window;

  function rootwidget;

  function parentofcontainer;

  property parentwidget: twidget; [rw]

When reparenting into a widget that has its own container (e.g. a form or a panel), set parentwidget to that widget's container

  function getrootwidgetpath;

  function widgetcount;

  function parentwidgetindex;

  function indexofwidget();

  function checkdescendent();

  function checkancestor();

  function containswidget();

  property widgets []: twidget; [r]

  function widgetatpos();

  property container: twidget; [r]

A widget's own face (e.g. its fade) can be hidden by its container child widget, which paints in front of it

  function containeroffset;

  function childrencount; virtual;

  function visiblechildrencount;

  property children []: twidget; default; [r]

  function findtagchild();

  function findchild();

  function childatpos(); virtual;

  function gettaborderedwidgets;

  function getvisiblewidgets;

  function getcornerwidget();

  function getsortxchildren();

  function getsortychildren();

  function getlogicalchildren; virtual;

  procedure addlogicalchildren();

  function findlogicalchild();

  property focusedchild: twidget; [r]

The currently focused descendant of this widget

  property focusedchildbefore: twidget; [r]

  function enteredchild;

  function mouseeventwidget();

  procedure insertwidget();

Inserts awidget as a child, doing the same initialization as placing it in the form designer would

  function iswidgetclick();

  function iswidgetdblclick();

  function iswidgetdblclicked();

  function isclick();

  function isdblclick();

  function isdblclicked();

  function isleftbuttondown();

  function widgetmousepos();

  function rootpos;

  function rootwidgetrect;

  property screenpos: pointty; [rw]

  function clientpostowidgetpos();

  function widgetpostoclientpos();

  function widgetpostopaintpos();

  function paintpostowidgetpos();

  procedure scale(); virtual;

  property widgetrect: rectty; [rw]

The widget's nested rectangles, each a subset of the previous one

  function widgetscreenrect;

  function widgetclientrect;

  property pos: pointty; [rw]

Every widget has a pos property (corresponding to widgetrect.pos), which shadows system.pos

  property size: sizety; [rw]

  property minsize: sizety; [rw]

  function widgetminsize;

  function widgetmaxsize;

  property maxsize: sizety; [rw]

  function maxclientsize; virtual;

  function minscrollsize;

  function minshrinksize;

  property bounds_x: Integer; [rw]

  property bounds_y: Integer; [rw]

  property bounds_cx: Integer; [rws]

  property bounds_cy: Integer; [rws]

  property bounds_cxmin: Integer; [rw]

Set bounds_cxmin/bounds_cymin and bounds_cxmax/ bounds_cymax to constrain a widget's (e.g. a modal form's) resizing

  property bounds_cymin: Integer; [rw]

  property bounds_cxmax: Integer; [rw]

  property bounds_cymax: Integer; [rw]

  property left: Integer; [rw]

  property right: Integer; [rw]

  property top: Integer; [rw]

  property bottom: Integer; [rw]

  property width: Integer; [rw]

  property height: Integer; [rw]

  procedure setclippedwidgetrect();

  property anchors: anchorsty; [rw]

Controls how the widget's position and size follow the resizing of its parent, independently for each edge (an_left, an_top, an_right, an_bottom)

  property defaultfocuschild: twidget; [rw]

  function framedim;

  function framedimnoscrollbar;

  function clientframewidth;

  function innerclientframewidth;

  function innerframewidth;

  function framerect;

  function framepos;

  property framesize: sizety; [rw]

  property framewidth: Integer; [rw]

  property frameheight: Integer; [rw]

  function frameinnerrect;

  function paintrect;

  function paintclientrect;

  function paintpos;

  property paintsize: sizety; [rw]

  property paintwidth: Integer; [rw]

  property paintheight: Integer; [rw]

  function clippedpaintrect;

  function innerpaintrect;

  procedure setanchordwidgetsize();

  function widgetsizerect;

  function paintsizerect;

  function clientsizerect;

  function containerclientsizerect;

  property clientrect: rectty; [r]

  procedure changeclientsize();

  property clientsize: sizety; [rw]

  property clientwidth: Integer; [rw]

  property clientheight: Integer; [rw]

  property clientpos: pointty; [r]

  function clientwidgetrect;

  function clientwidgetpos;

  function clientparentpos;

  property parentclientpos: pointty; [rw]

  function paintparentrect;

  function paintparentpos;

  function parentpaintpos;

  function refpos();

  function paintrectparent;

  function clientrectparent;

  function innerparentrect;

  function innerwidgetrect;

  function innerclientrect;

  function innerclientsize;

  function innerclientpos;

  function innerclientframe;

  function innerclientpaintpos;

  function innerclientwidgetpos;

  procedure innertopaintsize();

  procedure outertopaintsize();

  procedure painttowidgetsize();

  procedure widgettopaintsize();

  property frame: tcustomframe; [rw]

Every widget has a frame and a face, both nil until instantiated

  property face: tcustomface; [rw]

  function getcanvas();

  function showing;

  function isenabled;

  function active;

  function entered;

  function activeentered;

  function activefocused;

  function focused;

  function clicked;

  procedure changedirection(); virtual;

  procedure placexorder();

MSEgui has no built-in layout manager

  procedure placeyorder();

  function alignx();

  function aligny();

  property optionswidget: optionswidgetty; [rw]

  property optionswidget1: optionswidget1ty; [rw]

  property optionsskin: optionsskinty; [rw]

  function actualcursor(); virtual;

  property cursor: cursorshapety; [rw]

  property color: colorty; [rw]

  property visible: Boolean; [rw]

  property enabled: Boolean; [rw]

False disallows the widget, and its contained widgets, to receive mouse and keyboard events, including shortcuts

  property taborder: Integer; [rw]

  property hint: msestring; [rws]

  property zorder: Integer; [rw]

published

  property onnavigrequest: navigrequesteventty; [rw]

  property skingroup: Integer; [rw]

  property onbeforeupdateskin: notifyeventty;

  property onafterupdateskin: notifyeventty;

end;

twidget

tactcomponent,iscrollframe,iface,iassistiveclient

tmsecomponent,iactivatorclient

Extends the FPC tcomponent with object linking facilities and the like; base of every MSEgui component

tcomponent,ievent,iificommand,iificlient

tpersistent

TObject