diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-05-13 12:07:57 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-05-13 12:07:57 +0100 |
| commit | ac0006ebe18c72ec077820717bc29fd0e2ff0170 (patch) | |
| tree | 5e1608dca71cca6980e076a39f5e73fe2452f8ab /src | |
| parent | 5a8e687d273fc1e6dbcebe3127f8b48a248b4613 (diff) | |
| download | fpGUI-ac0006ebe18c72ec077820717bc29fd0e2ff0170.tar.xz | |
Adds a new convenience function IsLoading to TfpgWidget
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/fpg_widget.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/corelib/fpg_widget.pas b/src/corelib/fpg_widget.pas index dc47702e..8d6bcc8f 100644 --- a/src/corelib/fpg_widget.pas +++ b/src/corelib/fpg_widget.pas @@ -161,6 +161,7 @@ type destructor Destroy; override; procedure AfterConstruction; override; function InDesigner: boolean; + function IsLoading: boolean; procedure InvokeHelp; virtual; procedure Realign; procedure SetFocus; @@ -432,6 +433,11 @@ begin Result := (FFormDesigner <> nil) end; +function TfpgWidget.IsLoading: boolean; +begin + Result := csLoading in ComponentState; +end; + procedure TfpgWidget.InvokeHelp; begin case HelpType of |