LAMW jcanvas setfont
lazarus / 43-Android

----------------------------------------------------------------------
Mongkey · 2023-12-09 11:37

i got error on setting this up:
java code
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i        
public void SetFont(String _fontName) {                Typeface
customfont = Typeface.createFromAsset( controls.activity.getAssets(),
_fontName);                paint.setTypeface(customfont);        } 
on widget
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
SetFont(_fontName: string); procedure jCanvas.SetFont(_fontName:
string);begin  //in designing component state: set value here...  if
FInitialized then     jCanvas_SetFont(gApp.jni.jEnv, FjObject,
_fontName);end; 
on bridge
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
jCanvas_SetFont(env: PJNIEnv; _jcanvas: JObject; _fontName:
string); procedure jCanvas_SetFont(env: PJNIEnv; _jcanvas: JObject;
_fontName: string);var  jParams: array[0..0] of jValue;  jMethod:
jMethodID=nil;  jCls: jClass=nil;label  _exceptionOcurred;begin   if
(env = nil) or (_jcanvas = nil) then exit;  jCls:=
env^.GetObjectClass(env, _jcanvas);  if jCls = nil then goto
_exceptionOcurred;  jMethod:= env^.GetMethodID(env, jCls, 'SetFont',
'(Ljava/lang/String;)V');  if jMethod = nil then begin
env^.DeleteLocalRef(env, jCls); goto _exceptionOcurred; end;  
jParams[0].l:= env^.NewStringUTF(env, PChar(_fontName));  
env^.CallVoidMethodA(env, _jcanvas, jMethod,
@jParams);env^.DeleteLocalRef(env,jParams[0].l);  
env^.DeleteLocalRef(env, jCls);   _exceptionOcurred:
jni_ExceptionOccurred(env);end; 
thank you