paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-17 15:22:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-CustomDrawn-Android: Now sending data to the Clipboard is working! Reading from it still fails if the data comes from Android

Browse Source 
git-svn-id: trunk@37226 -
This commit is contained in:
sekelsenmat 2012-05-09 08:37:20 +00:00
parent c229d7a370
commit d6d91e73dd
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -304,10 +304,15 @@ begin
lClipboardManagerObject := javaEnvRef^^.CallObjectMethodA(javaEnvRef, javaActivityObject, javaMethod_getSystemService, @lParams[0]);
// clipboard.setText
OnRequestProc(lTextFormatIndex, lStringStream);
lJavaString := javaEnvRef^^.NewStringUTF(javaEnvRef, PChar(lStringStream.DataString));
lParams[0].l := lJavaString;
javaEnvRef^^.CallVoidMethodA(javaEnvRef, lClipboardManagerObject, javaMethod_ClipboardManager_setText, @lParams[0]);
lStringStream := TStringStream.Create('');
try
OnRequestProc(lTextFormatIndex, lStringStream);
lJavaString := javaEnvRef^^.NewStringUTF(javaEnvRef, PChar(lStringStream.DataString));
lParams[0].l := lJavaString;
javaEnvRef^^.CallVoidMethodA(javaEnvRef, lClipboardManagerObject, javaMethod_ClipboardManager_setText, @lParams[0]);
finally
lStringStream.Free;
end;
end;
(*{------------------------------------------------------------------------------