diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-10-15 11:02:45 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-10-15 11:02:45 +0000 |
| commit | de9dda5d746c0e6e3287c2dccad6e67437d5d305 (patch) | |
| tree | a90265563992fd966b9ebf63252e70e4f9595d58 /extras/tiopf | |
| parent | 67f8fcc69fec98c12d2dac11980ed97d12d380c6 (diff) | |
| download | fpGUI-de9dda5d746c0e6e3287c2dccad6e67437d5d305.tar.xz | |
All tiAppXXX methods now have a ATitle parameter.
Diffstat (limited to 'extras/tiopf')
| -rw-r--r-- | extras/tiopf/gui/tiDialogs.pas | 24 | ||||
| -rw-r--r-- | extras/tiopf/tiOPFfpGUI.lpk | 4 |
2 files changed, 14 insertions, 14 deletions
diff --git a/extras/tiopf/gui/tiDialogs.pas b/extras/tiopf/gui/tiDialogs.pas index 374c17b2..5147ae5c 100644 --- a/extras/tiopf/gui/tiDialogs.pas +++ b/extras/tiopf/gui/tiDialogs.pas @@ -31,14 +31,14 @@ uses // Show the contents of a stream procedure tiShowStream(const AValue: TStream; const pHeading: string = 'Show stream'); // Show a <Yes>, <No> dialog box, and return true if <Yes> was selected - function tiAppConfirmation(const AMessage: string): boolean; overload; + function tiAppConfirmation(const AMessage: string; ATitle: string = ''): boolean; overload; function tiAppConfirmation(const AMessage: string; const AValues: array of const): boolean; overload; // Show a message - procedure tiAppMessage(const AMessage: string); + procedure tiAppMessage(const AMessage: string; ATitle: string = ''); // Show a warning - procedure tiAppWarning(const AMessage: string); + procedure tiAppWarning(const AMessage: string; ATitle: string = ''); // Show a error message - procedure tiAppError(const AMessage: string); + procedure tiAppError(const AMessage: string; ATitle: string = ''); implementation @@ -150,9 +150,9 @@ begin end; end; -function tiAppConfirmation(const AMessage: string): boolean; +function tiAppConfirmation(const AMessage: string; ATitle: string = ''): boolean; begin - Result := TfpgMessageDialog.Question('', AMessage) = mbYes + Result := TfpgMessageDialog.Question(ATitle, AMessage) = mbYes end; function tiAppConfirmation(const AMessage: string; @@ -161,19 +161,19 @@ begin Result := tiAppConfirmation(Format(AMessage, AValues)); end; -procedure tiAppMessage(const AMessage: string); +procedure tiAppMessage(const AMessage: string; ATitle: string = ''); begin - TfpgMessageDialog.Information('', AMessage); + TfpgMessageDialog.Information(ATitle, AMessage); end; -procedure tiAppWarning(const AMessage: string); +procedure tiAppWarning(const AMessage: string; ATitle: string = ''); begin - TfpgMessageDialog.Warning('', AMessage); + TfpgMessageDialog.Warning(ATitle, AMessage); end; -procedure tiAppError(const AMessage: string); +procedure tiAppError(const AMessage: string; ATitle: string = ''); begin - TfpgMessageDialog.Critical('', AMessage); + TfpgMessageDialog.Critical(ATitle, AMessage); end; end. diff --git a/extras/tiopf/tiOPFfpGUI.lpk b/extras/tiopf/tiOPFfpGUI.lpk index 074f3a39..8da8b588 100644 --- a/extras/tiopf/tiOPFfpGUI.lpk +++ b/extras/tiopf/tiOPFfpGUI.lpk @@ -18,8 +18,8 @@ <Other> <CustomOptions Value="-dLINK_CSVx -dLINK_TABx --dLINK_FBLx --dLINK_SQLDB_IB +-dLINK_FBL +-dLINK_SQLDB_IBx -dLINK_SQLDB_PQx -dLINK_SQLDB_Oraclex -dLINK_SQLDB_SQLLite3x |