TOPIC:

function Java_com_pascal_lclproject_LCLActivity_LCLOnConfigurationChanged(
  env:PJNIEnv; this:jobject; ANewDPI, ANewWidth: jint): jint; cdecl;
var
  lForm: TCDNonNativeForm;
  lOldDPI, lNewDPI, lOldFormWidth, lNewFormWidth: Integer;
  i: Integer;
begin
  for i := 0 to GetFormCount()-1 do
  begin
    lForm := GetForm(i);

    if lForm.LayoutAutoAdjusted then lOldDPI := Screen.PixelsPerInch
    else lOldDPI := lForm.LCLForm.DesignTimePPI;
    lNewDPI := ANewDPI;
    lOldFormWidth := lForm.LCLForm.Width;
    lNewFormWidth := ANewWidth;
    DebugLn(Format('[LCLOnConfigurationChanged] i=%d lOldDPI=%d lNewDPI=%d lOldFormWidth=%d lNewFormWidth=%d',
      [i, lOldDPI, lNewDPI, lOldFormWidth, lNewFormWidth]));

    //-- GFCG. The following function rises error
    lForm.LCLForm.AutoAdjustLayout(lapAutoAdjustWithoutHorizontalScrolling,
      lOldDPI, lNewDPI, lOldFormWidth, lNewFormWidth);
  end;

  // Update the font size
  CDWidgetset.DefaultFontAndroidSize := Round(16 * (ANewDPI / 125));
end;

class procedure TCDWSCustomForm.ShowHide(const AWinControl: TWinControl);
var
  lForm: TCDNonNativeForm;
begin
  {$ifdef VerboseCDForms}
  DebugLn(Format(':>[TCDWSCustomForm.ShowHide] AWinControl=%x Handle=%x',
    [PtrInt(AWinControl), PtrInt(AWinControl.Handle)]));
  {$endif}
  lForm := TCDNonNativeForm(AWinControl.Handle);
  if AWinControl.Visible then
  begin
    {$ifdef VerboseCDForms}
    DebugLn(':<[TCDWSCustomForm.ShowHide] Showed');
    {$endif}
    ShowForm(lForm);

    // if this is the first time we are showing the form adjust its layout
    if not lForm.LayoutAutoAdjusted then
    begin
      DebugLn(Format('[TCDWSCustomForm.ShowHide] First form layout adjustment '
       + 'lOldDPI=%d lNewDPI=%d lOldFormWidth=%d lNewFormWidth=%d',
       [lForm.LCLForm.DesignTimePPI, Screen.PixelsPerInch, lForm.LCLForm.Width, Screen.Width]));
      lForm.LayoutAutoAdjusted := True;

          //-- GFCG. The following code rises error
      lForm.LCLForm.AutoAdjustLayout(lapAutoAdjustWithoutHorizontalScrolling,
        lForm.LCLForm.DesignTimePPI,
        Screen.PixelsPerInch, lForm.LCLForm.Width, Screen.Width);
      LCLIntf.InvalidateRect(HWND(lForm), nil, False);


      // if necessary adjust the form coordinates
      if not (lForm.LCLForm.BorderStyle in [bsDialog, bsNone]) then
      begin
        lForm.LCLForm.Left := 0;
        lForm.LCLForm.Top := 0;
      end;
    end;
  end
  else
  begin
    HideForm(lForm);
    {$ifdef VerboseCDForms}
    DebugLn(':<[TCDWSCustomForm.ShowHide] Hided');
    {$endif}
  end;
end;