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

customdrawn: Corrects the Application.MessageBox result

Browse Source 
git-svn-id: trunk@34162 -
This commit is contained in:
sekelsenmat 2011-12-13 21:23:32 +00:00
parent cab34d03db
commit cebbdc9d4a
3 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/customdrawn/customdrawnint.pas
View File

@ -209,6 +209,8 @@ type
var var
CDWidgetSet: TCDWidgetSet absolute WidgetSet; CDWidgetSet: TCDWidgetSet absolute WidgetSet;
function CDMessageBoxFunction(Text, Caption : PChar; Flags : Longint) : Integer;
{$ifdef CD_WINDOWS} {$ifdef CD_WINDOWS}
function WindowProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam; function WindowProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam;
LParam: Windows.LParam): LResult; stdcall; LParam: Windows.LParam): LResult; stdcall;

5
lcl/interfaces/customdrawn/customdrawnobject.inc
View File

@ -151,4 +151,9 @@ begin
end; end;
function CDMessageBoxFunction(Text, Caption : PChar; Flags : Longint) : Integer;
begin
Result := CDWidgetset.MessageBox(0, Text, Caption, Flags);
end;
//------------------------------------------------------------------------ //------------------------------------------------------------------------

2
lcl/interfaces/customdrawn/customdrawnobject_android.inc
View File

@ -280,6 +280,8 @@ begin
{$ifdef VerboseCDApplication} {$ifdef VerboseCDApplication}
DebugLn('TCDWidgetSet.AppInit'); DebugLn('TCDWidgetSet.AppInit');
{$endif} {$endif}
Forms.MessageBoxFunction := @CDMessageBoxFunction;
end; end;
procedure TCDWidgetSet.AppRun(const ALoop: TApplicationMainLoop); procedure TCDWidgetSet.AppRun(const ALoop: TApplicationMainLoop);