Class tcustomcaptionframe

Unit

msewidgets

Declaration

type tcustomcaptionframe = class(tcustomframe)

Description

Hierarchy

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

Overview

Fields

	ffont: tframefont;
	finfo: drawtextinfoty;
	fcaptiondist: integer;
	fcaptionoffset: integer;
	foptions: captionframeoptionsty;

Methods

	procedure settemplateinfo(const ainfo: frameinfoty); override;
	procedure parentfontchanged; override;
	procedure fontcanvaschanged; override;
	procedure visiblechanged; override;
	function updatetextflags(const aflags: textflagsty): textflagsty;
	procedure updaterects; override;
	procedure updatehotkeys() override;
	procedure dominsize(var asize: sizety);
	procedure checkminshrinksize(var asize: sizety) override;
	procedure defineproperties(filer: tfiler); override;
	procedure setdisabled(const value: boolean); override;
	procedure dopaintfocusrect(const canvas: tcanvas; const rect: rectty); override;
	function checkfocusshortcut(var info: keyeventinfoty): boolean; override;
	function needsfocuspaint: boolean; override;
	function haspaintrectfocus(): boolean; override;
	procedure updatemousestate(const sender: twidget; const info: mouseeventinfoty); override;
	procedure internalpaintoverlay(const canvas: tcanvas; const arect: rectty) override;
	function getassistivecaption(): msestring; override;
	constructor create(const aintf: icaptionframe);
	destructor destroy; override;
	procedure scale(const ascale: real); override;
	procedure createfont;
	function pointincaption(const point: pointty): boolean; override;
	procedure checkwidgetsize(var asize: sizety); override;

Properties

	property options: captionframeoptionsty read foptions write setoptions default defaultcaptionframeoptions;
	property caption: msestring read fcaption write setcaption;
	property captiontextflags: textflagsty read finfo.flags write setcaptiontextflags default [];
	property captionpos: captionposty read fcaptionpos write setcaptionpos default cp_topleft;
	property captiondist: integer read fcaptiondist write setcaptiondist stored iscaptiondiststored default 1;
	property captionoffset: integer read fcaptionoffset write setcaptionoffset stored iscaptionoffsetstored default 0 ;
	property font: tframefont read getfont write setfont stored isfontstored;

Description

Fields

	ffont: tframefont;

	finfo: drawtextinfoty;

	fcaptiondist: integer;

	fcaptionoffset: integer;

	foptions: captionframeoptionsty;

Methods

	procedure settemplateinfo(const ainfo: frameinfoty); override;

	procedure parentfontchanged; override;

	procedure fontcanvaschanged; override;

	procedure visiblechanged; override;

	function updatetextflags(const aflags: textflagsty): textflagsty;

	procedure updaterects; override;

	procedure updatehotkeys() override;

	procedure dominsize(var asize: sizety);

	procedure checkminshrinksize(var asize: sizety) override;

	procedure defineproperties(filer: tfiler); override;

	procedure setdisabled(const value: boolean); override;

	procedure dopaintfocusrect(const canvas: tcanvas; const rect: rectty); override;

	function checkfocusshortcut(var info: keyeventinfoty): boolean; override;

	function needsfocuspaint: boolean; override;

	function haspaintrectfocus(): boolean; override;

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

	procedure internalpaintoverlay(const canvas: tcanvas; const arect: rectty) override;

	function getassistivecaption(): msestring; override;

	constructor create(const aintf: icaptionframe);

	destructor destroy; override;

	procedure scale(const ascale: real); override;

	procedure createfont;

	function pointincaption(const point: pointty): boolean; override;

	procedure checkwidgetsize(var asize: sizety); override;

Properties

	property options: captionframeoptionsty read foptions write setoptions default defaultcaptionframeoptions;

	property caption: msestring read fcaption write setcaption;

	property captiontextflags: textflagsty read finfo.flags write setcaptiontextflags default [];

	property captionpos: captionposty read fcaptionpos write setcaptionpos default cp_topleft;

	property captiondist: integer read fcaptiondist write setcaptiondist stored iscaptiondiststored default 1;

	property captionoffset: integer read fcaptionoffset write setcaptionoffset stored iscaptionoffsetstored default 0 ;

	property font: tframefont read getfont write setfont stored isfontstored;