paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL:

Browse Source 
* Application sets SysUtils.OnGetApplicationName callback
* ApplicationName is default MessageDialog Caption

git-svn-id: trunk@11317 -
This commit is contained in:
vincents 2007-06-13 11:34:17 +00:00
parent 2ae22b6cfe
commit a7e79f00ce
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/application.inc
View File

@ -73,6 +73,13 @@ begin
end;
end;
// Callback function for SysUtils.OnGetApplicationName;
function GetApplicationName: string;
begin
if Assigned(Application) then
Result := Application.Title;
end;
{------------------------------------------------------------------------------
TApplication Constructor
------------------------------------------------------------------------------}
@ -107,6 +114,8 @@ begin
FOldExitProc:=ExitProc;
ExitProc:=@BeforeFinalization;
OnGetApplicationName := @GetApplicationName;
end;
{------------------------------------------------------------------------------
@ -151,6 +160,7 @@ begin
// restore exception handling
CaptureExceptions:=false;
LCLProc.SendApplicationMessageFunction:=nil;
OnGetApplicationName := nil;
end;
{------------------------------------------------------------------------------

2
lcl/include/lclintf.inc
View File

@ -346,7 +346,7 @@ end;
function PromptUser(const DialogMessage : String; DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint;
begin
Result := WidgetSet.PromptUser('', DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult);
Result := WidgetSet.PromptUser(ApplicationName, DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult);
end;
function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint;