Class tcustomscrollboxframe

Unit

msewidgets

Declaration

type tcustomscrollboxframe = class(tcustomscrollframe, iscrollbox)

Description

Hierarchy

• TObject
• tpersistent
• tvirtualpersistent
• tnullinterfacedpersistent
• toptionalpersistent
• tcustomframe
• tcustomcaptionframe
• tcustomscrollframe
• tcustomscrollboxframe

Overview

Fields

fowner: twidget;

Methods

	procedure scrollpostoclientpos(var aclientrect: rectty); virtual;
	procedure checkminscrollsize(var asize: sizety); override;
	procedure checkminclientsize(var asize: sizety); override;
	function isdragstart(const sender: twidget; const info: mouseeventinfoty): boolean;
	procedure initinnerframe; virtual;
	function getscrollbarclass(vert: boolean): framescrollbarclassty; override;
	procedure updatevisiblescrollbars; override;
	procedure scrollevent(sender: tcustomscrollbar; event: scrolleventty); virtual;
	procedure dokeydown(var info: keyeventinfoty); override;
	function getclientpos: pointty;
	procedure setclientpos(apos: pointty);
	procedure setscrollpos(apos: pointty);
	procedure updatemousestate(const sender: twidget; const info: mouseeventinfoty); override;
	procedure defineproperties(filer: tfiler); override;
	function translatecolor(const acolor: colorty): colorty;
	procedure invalidaterect(const rect: rectty; const org: originty; const noclip: boolean = false);
	function getscrollsize: sizety;
	constructor create(const aintf: iscrollframe; const owner: twidget);
	procedure childmouseevent(const sender: twidget; var info: mouseeventinfoty); virtual;
	procedure domousewheelevent(var info: mousewheeleventinfoty; const pagingreversed: boolean); override;
	procedure updateclientrect; override;
	procedure showrect(const arect: rectty; const bottomright: boolean);

Properties

	property scrollpos: pointty read getclientpos write setscrollpos;
	property scrollpos_x: integer read getscrollpos_x write setscrollpos_x;
	property scrollpos_y: integer read getscrollpos_y write setscrollpos_y;
	property zoom: complexty read fzoom write setzoom;
	property zoomwidth: real read fzoom.re write setzoomwidth;
	property zoomheight: real read fzoom.im write setzoomheight;
	property zoomwidthstep: real read fzoomwidthstep write fzoomwidthstep stored false;
	property zoomheightstep: real read fzoomheightstep write fzoomheightstep stored false;
	property zoomwheelsensitivity: real read fzoomwheelsensitivity write fzoomwheelsensitivity stored false;
	property clientsize: sizety read fclientsize write setclientsize;
	property clientwidth: integer read fclientsize.cx write setclientwidth default 0;
	property clientheight: integer read fclientsize.cy write setclientheight default 0;
	property clientsizemin: sizety read fclientsizemin write setclientsizemin;
	property clientwidthmin: integer read fclientsizemin.cx write setclientwidthmin default 0;
	property clientheightmin: integer read fclientsizemin.cy write setclientheightmin default 0;
	property framei_left default 2;
	property framei_top default 2;
	property framei_right default 2;
	property framei_bottom default 2;
	property sbhorz: tscrollboxscrollbar read getsbhorz write setsbhorz;
	property sbvert: tscrollboxscrollbar read getsbvert write setsbvert;

Description

Fields

	fowner: twidget;

Methods

	procedure scrollpostoclientpos(var aclientrect: rectty); virtual;

	procedure checkminscrollsize(var asize: sizety); override;

	procedure checkminclientsize(var asize: sizety); override;

	function isdragstart(const sender: twidget; const info: mouseeventinfoty): boolean;

	procedure initinnerframe; virtual;

	function getscrollbarclass(vert: boolean): framescrollbarclassty; override;

	procedure updatevisiblescrollbars; override;

	procedure scrollevent(sender: tcustomscrollbar; event: scrolleventty); virtual;

	procedure dokeydown(var info: keyeventinfoty); override;

	function getclientpos: pointty;

	procedure setclientpos(apos: pointty);

	procedure setscrollpos(apos: pointty);

	procedure updatemousestate(const sender: twidget; const info: mouseeventinfoty); override;

	procedure defineproperties(filer: tfiler); override;

	function translatecolor(const acolor: colorty): colorty;

	procedure invalidaterect(const rect: rectty; const org: originty; const noclip: boolean = false);

	function getscrollsize: sizety;

	constructor create(const aintf: iscrollframe; const owner: twidget);

	procedure childmouseevent(const sender: twidget; var info: mouseeventinfoty); virtual;

	procedure domousewheelevent(var info: mousewheeleventinfoty; const pagingreversed: boolean); override;

	procedure updateclientrect; override;

	procedure showrect(const arect: rectty; const bottomright: boolean);

Properties

	property scrollpos: pointty read getclientpos write setscrollpos;

	property scrollpos_x: integer read getscrollpos_x write setscrollpos_x;

	property scrollpos_y: integer read getscrollpos_y write setscrollpos_y;

	property zoom: complexty read fzoom write setzoom;

	property zoomwidth: real read fzoom.re write setzoomwidth;

	property zoomheight: real read fzoom.im write setzoomheight;

	property zoomwidthstep: real read fzoomwidthstep write fzoomwidthstep stored false;

	property zoomheightstep: real read fzoomheightstep write fzoomheightstep stored false;

	property zoomwheelsensitivity: real read fzoomwheelsensitivity write fzoomwheelsensitivity stored false;

	property clientsize: sizety read fclientsize write setclientsize;

	property clientwidth: integer read fclientsize.cx write setclientwidth default 0;

	property clientheight: integer read fclientsize.cy write setclientheight default 0;

	property clientsizemin: sizety read fclientsizemin write setclientsizemin;

	property clientwidthmin: integer read fclientsizemin.cx write setclientwidthmin default 0;

	property clientheightmin: integer read fclientsizemin.cy write setclientheightmin default 0;

	property framei_left default 2;

	property framei_top default 2;

	property framei_right default 2;

	property framei_bottom default 2;

	property sbhorz: tscrollboxscrollbar read getsbhorz write setsbhorz;

	property sbvert: tscrollboxscrollbar read getsbvert write setsbvert;