diff options
| -rw-r--r-- | extras/tiopf/gui/tiCompositeMediators.pas | 2 | ||||
| -rw-r--r-- | src/gui/messagedialog.inc | 25 |
2 files changed, 25 insertions, 2 deletions
diff --git a/extras/tiopf/gui/tiCompositeMediators.pas b/extras/tiopf/gui/tiCompositeMediators.pas index be729568..3ab6b960 100644 --- a/extras/tiopf/gui/tiCompositeMediators.pas +++ b/extras/tiopf/gui/tiCompositeMediators.pas @@ -517,7 +517,6 @@ begin begin if TtiObject(FView.Objects[1, i]) = AValue then begin - FView.FocusRow := i; Exit; //==> end; @@ -532,7 +531,6 @@ begin BeginUpdate; try FShowDeleted := AVAlue; - RebuildStringGrid; finally EndUpdate; diff --git a/src/gui/messagedialog.inc b/src/gui/messagedialog.inc index 1c20343d..ddfae403 100644 --- a/src/gui/messagedialog.inc +++ b/src/gui/messagedialog.inc @@ -1178,10 +1178,22 @@ begin Canvas.DrawImage(13, 13, logo); logo.free; end; + mtError: begin Canvas.DrawImage(12, 12, fpgImages.GetImage('stdimg.dlg.critical')); end; + + mtConfirmation: + begin + Canvas.DrawImage(12, 12, fpgImages.GetImage('stdimg.dlg.help')); + end; + + mtWarning: + begin + Canvas.DrawImage(12, 12, fpgImages.GetImage('stdimg.dlg.warning')); + end; + else begin // default to Information Canvas.DrawImage(12, 12, fpgImages.GetImage('stdimg.dlg.info')); @@ -1241,8 +1253,21 @@ end; class function TfpgMessageDialog.Question(const ATitle: string; const AText: string; AButtons: TfpgMsgDlgButtons; ADefaultButton: TfpgMsgDlgBtn): TfpgMsgDlgBtn; +var + dlg: TfpgMessageDialog; begin writeln('** Implement TfpgMessageDialog.Question'); +{ + dlg := TfpgMessageDialog.Create(nil); + try + dlg.FDialogType := mtConfirmation; + dlg.Text := AText; + dlg.WindowTitle := ATitle; + Result := dlg.ShowModal; + finally + dlg.Free; + end; +} end; class function TfpgMessageDialog.Warning(const ATitle: string; |