Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed a character encoding problem of Application.MessageBox method in Unicode Delphi (#146)

Browse Source
This commit is contained in:
SungDong Kim 2017-02-21 17:42:18 +09:00 committed by Carlo Kok
parent f4a25206ce
commit 5814bd027d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/uPSC_forms.pas
View File

@ -171,7 +171,11 @@ begin
{$IFDEF PS_PANSICHAR}
RegisterMethod('function MessageBox(Text,Caption: PAnsiChar; Flags: Word): Integer');
{$ELSE}
{$IFDEF UNICODE}
RegisterMethod('function MessageBox(Text,Caption: string; Flags: Word): Integer');
{$ELSE}
RegisterMethod('function MessageBox(Text,Caption: PChar; Flags: Word): Integer');
{$ENDIF}
{$ENDIF}
RegisterMethod('procedure Minimize');
RegisterMethod('procedure ProcessMessages');