forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added isDockable property to the widget base class

This commit is contained in:
Basile Burg 2015-02-19 03:17:43 +01:00
parent 1a9baafe30
commit 8995af337d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_widget.pas
View File

@ -35,6 +35,7 @@ type
procedure optget_UpdaterDelay(aWriter: TWriter); procedure optget_UpdaterDelay(aWriter: TWriter);
procedure optset_UpdaterDelay(aReader: TReader); procedure optset_UpdaterDelay(aReader: TReader);
protected protected
fDockable: boolean;
fID: string; fID: string;
// a descendant overrides to implementi a periodic update. // a descendant overrides to implementi a periodic update.
procedure UpdateByLoop; virtual; procedure UpdateByLoop; virtual;
@ -74,6 +75,8 @@ type
// //
// returns true if one of the three updater is processing. // returns true if one of the three updater is processing.
property updating: boolean read fUpdating; property updating: boolean read fUpdating;
// true by default, allow a widget to be docked.
property isDockable: boolean read fDockable;
end; end;
(** (**
@ -110,6 +113,7 @@ var
itm: TmenuItem; itm: TmenuItem;
begin begin
inherited; inherited;
fDockable := true;
fUpdaterAuto := TTimer.Create(self); fUpdaterAuto := TTimer.Create(self);
fUpdaterAuto.Interval := 70; fUpdaterAuto.Interval := 70;
fUpdaterAuto.OnTimer := @updaterAutoProc; fUpdaterAuto.OnTimer := @updaterAutoProc;