Unit mseshapes

Description

 

Overview

Classes, Interfaces, Objects and Records

Name	Description
Record captioninfoty
Record shapeinfoty

Functions and Procedures

procedure updateedgerect(var arect: rectty; const awidth: integer; const hiddenedges: edgesty);

procedure draw3dframe(const canvas: tcanvas; const arect: rectty; level: integer; colorinfo: edgecolorpairinfoty; const hiddenedges: edgesty);

procedure drawimageframe(const canvas: tcanvas; const imagelist: timagelist; const imageoffs: int32; const dest: rectty; const hiddenedges: edgesty);

procedure drawfocusrect(const canvas: tcanvas; const arect: rectty);

procedure drawtoolbutton(const canvas: tcanvas; var info: shapeinfoty);

procedure drawbutton(const canvas: tcanvas; const info: shapeinfoty);

procedure drawmenubutton(const canvas: tcanvas; var info: shapeinfoty; const innerframe: pframety = nil);

procedure drawtab(const canvas: tcanvas; var info: shapeinfoty; const innerframe: pframety = nil);

function updatemouseshapestate(var info: shapeinfoty; const mouseevent: mouseeventinfoty; const widget: twidget; const aframe: tcustomframe; const infoarpo: pshapeinfoarty = nil; const canclick: boolean = true): boolean; overload;

function updatemouseshapestate(var infos: shapeinfoarty; const mouseevent: mouseeventinfoty; const widget: twidget; var focuseditem: integer; const aframe: tcustomframe = nil): boolean; overload;

function getmouseshape(const infos: shapeinfoarty): integer;

function updatewidgetshapestate(var info: shapeinfoty; const widget: twidget; const adisabled: boolean = false; const aframe: tcustomframe = nil): boolean;

function findshapeatpos(const infoar: shapeinfoarty; const apos: pointty; const rejectstates: shapestatesty = [shs_disabled,shs_invisible]): integer;

function pointinshape(const pos: pointty; const info: shapeinfoty): boolean;

procedure initshapeinfo(var ainfo: shapeinfoty);

procedure actioninfotoshapeinfo(var actioninfo: actioninfoty; var shapeinfo: shapeinfoty); overload;

procedure actioninfotoshapeinfo(const sender: twidget; var actioninfo: actioninfoty; var shapeinfo: shapeinfoty; const aoptions: buttonoptionsty);

procedure frameskinoptionstoshapestate(const aframe: tcustomframe; var dest: shapeinfoty);

function shapestatetoframestate(const aindex: integer; const ashapes: shapeinfoarty): framestateflagsty;

procedure checkbuttonhint(const awidget: twidget; info: mouseeventinfoty; var hintedbutton: integer; const cells: shapeinfoarty; const getbuttonhint: getbuttonhintty; const gethintpos: getbuttonhintposty);

procedure drawcaption(const acanvas: tcanvas; var ainfo: captioninfoty);

procedure initcaptioninfo(var ainfo: captioninfoty);

function calccaptionsize(const acanvas: tcanvas; const ainfo: captioninfoty; const captionframe: pframety = nil): sizety;

Types

buttonoptionty = (...);

buttonoptionsty = set of buttonoptionty;

buttonedgety = (...);

tagmouseprocty = procedure (const tag: integer; const info: mouseeventinfoty) of object;

pshapeinfoty = ˆshapeinfoty;

shapeinfoarty = array of shapeinfoty;

pshapeinfoarty = ˆshapeinfoarty;

getbuttonhintty = function(const aindex: integer): msestring of object;

getbuttonhintposty = function(const aindex: integer): rectty of object;

Constants

defaultbuttonoptions = [bo_executeonclick,bo_executeonkey, bo_executeonshortcut,bo_executedefaultonenterkey];

menuarrowwidth = 8;

menuarrowwidthhorz = 15;

menucheckboxwidth = 13;

menucheckboxheight = 13;

defaultshapecaptiondist = 2;

defaultshapefocusrectdist = 1;

defaultcaptiontextflags = [tf_left,tf_xcentered,tf_ycentered];

Description

Functions and Procedures

procedure updateedgerect(var arect: rectty; const awidth: integer; const hiddenedges: edgesty);

procedure draw3dframe(const canvas: tcanvas; const arect: rectty; level: integer; colorinfo: edgecolorpairinfoty; const hiddenedges: edgesty);

procedure drawimageframe(const canvas: tcanvas; const imagelist: timagelist; const imageoffs: int32; const dest: rectty; const hiddenedges: edgesty);

procedure drawfocusrect(const canvas: tcanvas; const arect: rectty);

procedure drawtoolbutton(const canvas: tcanvas; var info: shapeinfoty);

procedure drawbutton(const canvas: tcanvas; const info: shapeinfoty);

procedure drawmenubutton(const canvas: tcanvas; var info: shapeinfoty; const innerframe: pframety = nil);

procedure drawtab(const canvas: tcanvas; var info: shapeinfoty; const innerframe: pframety = nil);

function updatemouseshapestate(var info: shapeinfoty; const mouseevent: mouseeventinfoty; const widget: twidget; const aframe: tcustomframe; const infoarpo: pshapeinfoarty = nil; const canclick: boolean = true): boolean; overload;

function updatemouseshapestate(var infos: shapeinfoarty; const mouseevent: mouseeventinfoty; const widget: twidget; var focuseditem: integer; const aframe: tcustomframe = nil): boolean; overload;

function getmouseshape(const infos: shapeinfoarty): integer;

function updatewidgetshapestate(var info: shapeinfoty; const widget: twidget; const adisabled: boolean = false; const aframe: tcustomframe = nil): boolean;

function findshapeatpos(const infoar: shapeinfoarty; const apos: pointty; const rejectstates: shapestatesty = [shs_disabled,shs_invisible]): integer;

function pointinshape(const pos: pointty; const info: shapeinfoty): boolean;

procedure initshapeinfo(var ainfo: shapeinfoty);

procedure actioninfotoshapeinfo(var actioninfo: actioninfoty; var shapeinfo: shapeinfoty); overload;

procedure actioninfotoshapeinfo(const sender: twidget; var actioninfo: actioninfoty; var shapeinfo: shapeinfoty; const aoptions: buttonoptionsty);

procedure frameskinoptionstoshapestate(const aframe: tcustomframe; var dest: shapeinfoty);

function shapestatetoframestate(const aindex: integer; const ashapes: shapeinfoarty): framestateflagsty;

procedure checkbuttonhint(const awidget: twidget; info: mouseeventinfoty; var hintedbutton: integer; const cells: shapeinfoarty; const getbuttonhint: getbuttonhintty; const gethintpos: getbuttonhintposty);

procedure drawcaption(const acanvas: tcanvas; var ainfo: captioninfoty);

procedure initcaptioninfo(var ainfo: captioninfoty);

function calccaptionsize(const acanvas: tcanvas; const ainfo: captioninfoty; const captionframe: pframety = nil): sizety;

Types

buttonoptionty = (...);

Values bo_executeonclick bo_executeonkey bo_executeonshortcut bo_executedefaultonenterkey bo_asyncexecute bo_focusonshortcut bo_focusonactionshortcut bo_updateonidle bo_shortcutcaption bo_altshortcut bo_nodefaultframeactive bo_coloractive bo_ellipsemouse bo_nocandefocus bo_candefocuswindow bo_radioitem bo_radioitemcol bo_cantoggle bo_resetcheckedonrowexit bo_reversed bo_noassistivedisabled

buttonoptionsty = set of buttonoptionty;

buttonedgety = (...);

Values bedg_none bedg_right bedg_top bedg_left bedg_bottom

tagmouseprocty = procedure (const tag: integer; const info: mouseeventinfoty) of object;

pshapeinfoty = ˆshapeinfoty;

shapeinfoarty = array of shapeinfoty;

pshapeinfoarty = ˆshapeinfoarty;

getbuttonhintty = function(const aindex: integer): msestring of object;

getbuttonhintposty = function(const aindex: integer): rectty of object;

Constants

defaultbuttonoptions = [bo_executeonclick,bo_executeonkey, bo_executeonshortcut,bo_executedefaultonenterkey];

menuarrowwidth = 8;

menuarrowwidthhorz = 15;

menucheckboxwidth = 13;

menucheckboxheight = 13;

defaultshapecaptiondist = 2;

defaultshapefocusrectdist = 1;

defaultcaptiontextflags = [tf_left,tf_xcentered,tf_ycentered];

---

Generated by PasDoc 0.16.0.