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

Patch from bug #24358 invalid messagebox buttons

Browse Source 
git-svn-id: trunk@46731 -
This commit is contained in:
sekelsenmat 2014-10-31 16:38:04 +00:00
parent 070e902387
commit c4a1f0c0e8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/customdrawn/customdrawnwinapi_android.inc
View File

@ -4796,11 +4796,11 @@ begin
javaEnvRef^^.SetIntField(javaEnvRef, javaActivityObject, JavaField_lclbutton1, -1);
javaEnvRef^^.SetIntField(javaEnvRef, javaActivityObject, JavaField_lclbutton2, -1);
javaEnvRef^^.SetIntField(javaEnvRef, javaActivityObject, JavaField_lclbutton3, -1);
case utype of
case utype and $F of
MB_OK:
begin
// button1
BtnText := RemoveAccelChars(rsMbYes);
BtnText := RemoveAccelChars(rsMbOK);
lJavaString :=javaEnvRef^^.NewStringUTF(javaEnvRef, PChar(BtnText));
javaEnvRef^^.SetObjectField(javaEnvRef, javaActivityObject, JavaField_lclbutton1str, lJavaString);
javaEnvRef^^.SetIntField(javaEnvRef, javaActivityObject, JavaField_lclbutton1, IDOK);
@ -4808,7 +4808,7 @@ begin
MB_OKCANCEL:
begin
// button1
BtnText := RemoveAccelChars(rsMbYes);
BtnText := RemoveAccelChars(rsMbOK);
lJavaString :=javaEnvRef^^.NewStringUTF(javaEnvRef, PChar(BtnText));
javaEnvRef^^.SetObjectField(javaEnvRef, javaActivityObject, JavaField_lclbutton1str, lJavaString);
javaEnvRef^^.SetIntField(javaEnvRef, javaActivityObject, JavaField_lclbutton1, IDOK);