diff options
| -rw-r--r-- | extras/tiopf/gui/tiListMediators.pas | 2 | ||||
| -rw-r--r-- | src/corelib/fpg_msgqueue.inc | 4 | ||||
| -rw-r--r-- | src/gui/messagedialog.inc | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/extras/tiopf/gui/tiListMediators.pas b/extras/tiopf/gui/tiListMediators.pas index 2e2c9d6f..8dd08cb6 100644 --- a/extras/tiopf/gui/tiListMediators.pas +++ b/extras/tiopf/gui/tiListMediators.pas @@ -15,7 +15,6 @@ uses tiBaseMediator, fpg_listview, fpg_grid, - fpg_listbox, tiObject; type @@ -458,6 +457,7 @@ end; procedure TStringGridMediator.RebuildList; begin +// writeln('--- TStringGridMediator.RebuildList'); { This rebuilds the whole list. Not very efficient. } View.BeginUpdate; try diff --git a/src/corelib/fpg_msgqueue.inc b/src/corelib/fpg_msgqueue.inc index b78eadef..80e0be96 100644 --- a/src/corelib/fpg_msgqueue.inc +++ b/src/corelib/fpg_msgqueue.inc @@ -129,7 +129,7 @@ begin p^.Params := aparams; end else - Writeln('THE MESSAGE QUEUE IS FULL.'); + raise Exception.Create('THE fpGUI MESSAGE QUEUE IS FULL.'); finally fpgApplication.Unlock; end; @@ -153,7 +153,7 @@ begin p^.Stop := False; end else - Writeln('THE MESSAGE QUEUE IS FULL.'); + raise Exception.Create('THE fpGUI MESSAGE QUEUE IS FULL.'); finally fpgApplication.Unlock; end; diff --git a/src/gui/messagedialog.inc b/src/gui/messagedialog.inc index da0f453d..82aeb97e 100644 --- a/src/gui/messagedialog.inc +++ b/src/gui/messagedialog.inc @@ -367,7 +367,7 @@ var begin dlg := TfpgMessageDialog.Create(nil); try - dlg.FDialogType := mtWarning; + dlg.FDialogType := mtError; dlg.FButtons := AButtons; dlg.Text := ATitle; dlg.InformativeText := AText; |