Class tdbnavigator

Unit

msedbedit

Declaration

type tdbnavigator = class(tcustomtoolbar, idbnaviglink)

Description

Hierarchy

• TObject
• TPersistent
• tcomponent
• tmsecomponent
• tactcomponent
• twidget
• tactionwidget
• tactionpublishedwidgetnwr
• tpublishedwidgetnwr
• tpublishedwidget
• tcustomstepbox
• tcustomtoolbar
• tdbnavigator

Overview

Methods

	procedure inithints;
	procedure doexecute(const sender: tobject);
	procedure loaded; override;
	procedure internalshortcut(var info: keyeventinfoty; const sender: twidget);
	procedure doshortcut(var info: keyeventinfoty; const sender: twidget); override;
	procedure doasyncevent(var atag: integer); override;
	procedure dostatread(const reader: tstatreader); override;
	procedure dostatwrite(const writer: tstatwriter); override;
	procedure setactivebuttons(const abuttons: dbnavigbuttonsty; const afiltered: boolean);
	procedure setcheckedbuttons(const abuttons: dbnavigbuttonsty; const achecked: boolean);
	function getnavigoptions: dbnavigatoroptionsty;
	procedure dodialogexecute;
	constructor create(aowner: tcomponent); override;
	destructor destroy; override;
	function canclose(const newfocus: twidget = nil): boolean; override;
	procedure edit();
	function canautoedit(): boolean;
	procedure updatereadonly(const force: boolean = false);

Properties

	property statfile;
	property datasource: tdatasource read getdatasource write setdatasource;
	property visiblebuttons: dbnavigbuttonsty read fvisiblebuttons write setvisiblebuttons default defaultvisibledbnavigbuttons;
	property colorglyph: colorty read getcolorglyph write setcolorglyph default cl_default;
	property buttonface: tface read getbuttonface write setbuttonface;
	property buttonwidth: integer read getbuttonwidth write setbuttonwidth default 0;
	property buttonheight: integer read getbuttonheight write setbuttonheight default 0;
	property bounds_cx default defaultdbnavigatorwidth;
	property bounds_cy default defaultdbnavigatorheight;
	property shortcut_first: shortcutty read fshortcuts[dbnb_first] write fshortcuts[dbnb_first] default key_modctrl + ord(key_pageup);
	property shortcut_prior: shortcutty read fshortcuts[dbnb_prior] write fshortcuts[dbnb_prior] default ord(key_pageup);
	property shortcut_next: shortcutty read fshortcuts[dbnb_next] write fshortcuts[dbnb_next] default ord(key_pagedown);
	property shortcut_last: shortcutty read fshortcuts[dbnb_last] write fshortcuts[dbnb_last] default key_modctrl + ord(key_pagedown);
	property shortcut_insert: shortcutty read fshortcuts[dbnb_insert] write fshortcuts[dbnb_insert] default ord(key_none);
	property shortcut_delete: shortcutty read fshortcuts[dbnb_delete] write fshortcuts[dbnb_delete] default ord(key_none);
	property shortcut_copyrecord: shortcutty read fshortcuts[dbnb_copyrecord] write fshortcuts[dbnb_copyrecord] default ord(key_none);
	property shortcut_edit: shortcutty read fshortcuts[dbnb_edit] write fshortcuts[dbnb_edit] default ord(key_f2);
	property shortcut_post: shortcutty read fshortcuts[dbnb_post] write fshortcuts[dbnb_post] default ord(key_f2);
	property shortcut_cancel: shortcutty read fshortcuts[dbnb_cancel] write fshortcuts[dbnb_cancel] default ord(key_none);
	property shortcut_refresh: shortcutty read fshortcuts[dbnb_refresh] write fshortcuts[dbnb_refresh] default ord(key_none);
	property shortcut_filter: shortcutty read fshortcuts[dbnb_filter] write fshortcuts[dbnb_filter] default ord(key_none);
	property shortcut_filtermin: shortcutty read fshortcuts[dbnb_filtermax] write fshortcuts[dbnb_filtermin] default ord(key_none);
	property shortcut_filtermax: shortcutty read fshortcuts[dbnb_filtermax] write fshortcuts[dbnb_filtermax] default ord(key_none);
	property shortcut_filteronoff: shortcutty read fshortcuts[dbnb_filteronoff] write fshortcuts[dbnb_filteronoff] default ord(key_none);
	property shortcut_find: shortcutty read fshortcuts[dbnb_find] write fshortcuts[dbnb_find] default ord(key_none);
	property shortcut_autoedit: shortcutty read fshortcuts[dbnb_autoedit] write fshortcuts[dbnb_autoedit] default ord(key_none);
	property options: dbnavigatoroptionsty read foptions write setoptions default defaultdbnavigatoroptions;
	property autoedit: boolean read getautoedit write setautoedit default false;
	property dialogbutton: tdbnavigbutton read gettoolbutton write settoolbutton;
	property ondialogexecute: notifyeventty read fondialogexecute write fondialogexecute;
	property onreadonlychange: booleanchangedeventty read fonreadonlychange write fonreadonlychange;

Description

Methods

	procedure inithints;

	procedure doexecute(const sender: tobject);

	procedure loaded; override;

	procedure internalshortcut(var info: keyeventinfoty; const sender: twidget);

	procedure doshortcut(var info: keyeventinfoty; const sender: twidget); override;

	procedure doasyncevent(var atag: integer); override;

	procedure dostatread(const reader: tstatreader); override;

	procedure dostatwrite(const writer: tstatwriter); override;

	procedure setactivebuttons(const abuttons: dbnavigbuttonsty; const afiltered: boolean);

	procedure setcheckedbuttons(const abuttons: dbnavigbuttonsty; const achecked: boolean);

	function getnavigoptions: dbnavigatoroptionsty;

	procedure dodialogexecute;

	constructor create(aowner: tcomponent); override;

	destructor destroy; override;

	function canclose(const newfocus: twidget = nil): boolean; override;

	procedure edit();

	function canautoedit(): boolean;

	procedure updatereadonly(const force: boolean = false);

Properties

	property statfile;

	property datasource: tdatasource read getdatasource write setdatasource;

	property visiblebuttons: dbnavigbuttonsty read fvisiblebuttons write setvisiblebuttons default defaultvisibledbnavigbuttons;

	property colorglyph: colorty read getcolorglyph write setcolorglyph default cl_default;

	property buttonface: tface read getbuttonface write setbuttonface;

	property buttonwidth: integer read getbuttonwidth write setbuttonwidth default 0;

	property buttonheight: integer read getbuttonheight write setbuttonheight default 0;

	property bounds_cx default defaultdbnavigatorwidth;

	property bounds_cy default defaultdbnavigatorheight;

	property shortcut_first: shortcutty read fshortcuts[dbnb_first] write fshortcuts[dbnb_first] default key_modctrl + ord(key_pageup);

	property shortcut_prior: shortcutty read fshortcuts[dbnb_prior] write fshortcuts[dbnb_prior] default ord(key_pageup);

	property shortcut_next: shortcutty read fshortcuts[dbnb_next] write fshortcuts[dbnb_next] default ord(key_pagedown);

	property shortcut_last: shortcutty read fshortcuts[dbnb_last] write fshortcuts[dbnb_last] default key_modctrl + ord(key_pagedown);

	property shortcut_insert: shortcutty read fshortcuts[dbnb_insert] write fshortcuts[dbnb_insert] default ord(key_none);

	property shortcut_delete: shortcutty read fshortcuts[dbnb_delete] write fshortcuts[dbnb_delete] default ord(key_none);

	property shortcut_copyrecord: shortcutty read fshortcuts[dbnb_copyrecord] write fshortcuts[dbnb_copyrecord] default ord(key_none);

	property shortcut_edit: shortcutty read fshortcuts[dbnb_edit] write fshortcuts[dbnb_edit] default ord(key_f2);

	property shortcut_post: shortcutty read fshortcuts[dbnb_post] write fshortcuts[dbnb_post] default ord(key_f2);

	property shortcut_cancel: shortcutty read fshortcuts[dbnb_cancel] write fshortcuts[dbnb_cancel] default ord(key_none);

	property shortcut_refresh: shortcutty read fshortcuts[dbnb_refresh] write fshortcuts[dbnb_refresh] default ord(key_none);

	property shortcut_filter: shortcutty read fshortcuts[dbnb_filter] write fshortcuts[dbnb_filter] default ord(key_none);

	property shortcut_filtermin: shortcutty read fshortcuts[dbnb_filtermax] write fshortcuts[dbnb_filtermin] default ord(key_none);

	property shortcut_filtermax: shortcutty read fshortcuts[dbnb_filtermax] write fshortcuts[dbnb_filtermax] default ord(key_none);

	property shortcut_filteronoff: shortcutty read fshortcuts[dbnb_filteronoff] write fshortcuts[dbnb_filteronoff] default ord(key_none);

	property shortcut_find: shortcutty read fshortcuts[dbnb_find] write fshortcuts[dbnb_find] default ord(key_none);

	property shortcut_autoedit: shortcutty read fshortcuts[dbnb_autoedit] write fshortcuts[dbnb_autoedit] default ord(key_none);

	property options: dbnavigatoroptionsty read foptions write setoptions default defaultdbnavigatoroptions;

	property autoedit: boolean read getautoedit write setautoedit default false;

	property dialogbutton: tdbnavigbutton read gettoolbutton write settoolbutton;

	property ondialogexecute: notifyeventty read fondialogexecute write fondialogexecute;

	property onreadonlychange: booleanchangedeventty read fonreadonlychange write fonreadonlychange;