ocpn_platform.cpp

Go to the documentation of this file.

/**************************************************************************
 *   Copyright (C) 2015 by David S. Register                               *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU General Public License for more details.                          *
 *                                                                         *
 *   You should have received a copy of the GNU General Public License     *
 *   along with this program; if not, see <https://www.gnu.org/licenses/>. *
 **************************************************************************/
 
#include <cstdlib>
#include <string>
#include <vector>
 
#ifndef __WXMSW__
#include <signal.h>
#include <setjmp.h>
#endif
 
#include "gl_headers.h"  // Must be included before anything using GL stuff
 
#ifdef __WXMSW__
#undef IPV6STRICT  // mingw FTBS fix:  missing struct ip_mreq
#include <windows.h>
#include <winioctl.h>
#include <initguid.h>
#include "setupapi.h"  // presently stored in opencpn/src
#endif
 
#include <wx/wxprec.h>
 
#ifndef WX_PRECOMP
#include <wx/wx.h>
#endif  // precompiled headers
 
#include <wx/app.h>
#include <wx/apptrait.h>
#include <wx/stdpaths.h>
#include <wx/filename.h>
#include <wx/tokenzr.h>
#include <wx/textfile.h>
#include <wx/jsonval.h>
#include <wx/jsonreader.h>
 
#include "config.h"
 
#include "model/ais_decoder.h"
#include "model/ais_state_vars.h"
#include "model/base_platform.h"
#include "model/cmdline.h"
#include "model/config_vars.h"
#include "model/conn_params.h"
#include "model/cutil.h"
#include "model/gui_vars.h"
#include "model/idents.h"
#include "model/logger.h"
#include "model/ocpn_utils.h"
#include "model/plugin_cache.h"
#include "model/plugin_paths.h"
#include "model/select.h"
 
#include "about_frame_impl.h"
#include "about.h"
#include "displays.h"
#include "font_mgr.h"
#include "gui_lib.h"
#include "navutil.h"
#include "ocpn_platform.h"
#include "options.h"
#include "s52s57.h"
#include "snd_config.h"
#include "std_filesystem.h"
#include "styles.h"
#include "top_frame.h"
 
#ifdef __ANDROID__
#include "androidUTIL.h"
#endif
 
#ifdef ocpnUSE_GL
#include "gl_chart_canvas.h"
#endif
 
// Include CrashRpt Header
#ifdef OCPN_USE_CRASHREPORT
#include "CrashRpt.h"
#endif
#ifdef __MSVC__
#include <new.h>
#endif
 
#ifdef LINUX_CRASHRPT
#include "crashprint.h"
#endif
 
#ifdef __WXOSX__
#include "model/macutils.h"
#endif
 
OCPNPlatform *g_Platform;
 
wxArrayString g_locale_catalog_array;
 
class MyApp;
DECLARE_APP(MyApp)
 
void appendOSDirSlash(wxString *pString);
 
#ifndef __WXMSW__
struct sigaction sa_all;
struct sigaction sa_all_old;
sigjmp_buf env;  // the context saved by sigsetjmp();
#endif
 
#ifdef ocpnUSE_GL
extern ocpnGLOptions g_GLOptions;
#endif
#if wxUSE_XLOCALE || !wxCHECK_VERSION(3, 0, 0)
extern wxLocale *plocale_def_lang;
#endif
 
#ifdef __ANDROID__
extern PlatSpec android_plat_spc;
#endif
 
#ifdef ocpnUSE_GL
OCPN_GLCaps *GL_Caps = nullptr;
#endif
 
static const char *const DEFAULT_XDG_DATA_DIRS =
    "~/.local/share:/usr/local/share:/usr/share";
 
#ifdef __WXMSW__
static const char PATH_SEP = ';';
#else
static const char PATH_SEP = ':';
#endif
 
#ifdef __ANDROID__
constexpr int kStatFieldCount = 2;
#else
constexpr int kStatFieldCount = 5;
#endif
 
static bool checkIfFlatpacked() {
  wxString id;
  if (!wxGetEnv("FLATPAK_ID", &id)) {
    return false;
  }
  return id == "org.opencpn.OpenCPN";
}
 
OCPNPlatform::OCPNPlatform() {
  m_pt_per_pixel = 0;  // cached value
  m_bdisableWindowsDisplayEnum = false;
  m_monitorWidth = m_monitorHeight = 0;
  EnumerateMonitors();
  for (size_t i = 0; i < g_monitor_info.size(); i++) {
    m_displaySizeMMOverride.push_back(0);
  }
  m_pluginDataPath = "";
}
 
OCPNPlatform::~OCPNPlatform() {
#ifdef ocpnUSE_GL
  if (GL_Caps) {
    delete GL_Caps;
  }
#endif
}
 
//--------------------------------------------------------------------------
//      Per-Platform Initialization support
//--------------------------------------------------------------------------
#ifdef __WXMSW__
int MyNewHandler(size_t size) {
  //  Pass to wxWidgets Main Loop handler
  throw std::bad_alloc();
 
  return 0;
}
#endif
 
//-----------------------------------------------------------------------
//      Signal Handlers
//-----------------------------------------------------------------------
#ifndef __WXMSW__
 
// These are the signals possibly expected
//      SIGUSR1
//      Raised externally to cause orderly termination of application
//      Intended to act just like pushing the "EXIT" button
 
//      SIGSEGV
//      Some undefined segfault......
 
int s_inhup;
 
void catch_signals(int signo) {
  switch (signo) {
    case SIGUSR1:
      quitflag++;  // signal to the timer loop
      break;
 
    case SIGSEGV:
      siglongjmp(env, 1);  // jump back to the setjmp() point
      break;
 
    case SIGHUP:
      if (!s_inhup) {
        s_inhup++;  // incase SIGHUP is closely followed by SIGTERM
        top_frame::Get()->FastClose();
      }
      break;
 
    case SIGTERM:
      if (!s_inhup) {
        s_inhup++;  // incase SIGHUP is closely followed by SIGTERM
        top_frame::Get()->FastClose();
      }
 
      break;
 
    default:
      break;
  }
}
#endif
 
#ifdef OCPN_USE_CRASHREPORT
// Define the crash callback
int CALLBACK CrashCallback(CR_CRASH_CALLBACK_INFO *pInfo) {
  wxLog::GetActiveTarget()->Flush();  //  Flush log file
  return CR_CB_DODEFAULT;
}
#endif
 
//  Called from MyApp() immediately upon entry to MyApp::OnInit()
void OCPNPlatform::Initialize_1() {
#ifdef OCPN_USE_CRASHREPORT
#ifndef _DEBUG
  // Install Windows crash reporting
 
  CR_INSTALL_INFO info;
  memset(&info, 0, sizeof(CR_INSTALL_INFO));
  info.cb = sizeof(CR_INSTALL_INFO);
  info.pszAppName = L"OpenCPN";
 
  info.pszAppVersion = wxString(VERSION_FULL).c_str();
 
  int type = MiniDumpNormal;
 
  // This results in the inclusion of global variables
  type |= MiniDumpWithDataSegs;
 
  // If this flag is specified, the contents of every readable and writeable
  // private memory page will be included into the minidump. type |=
  // MiniDumpWithPrivateReadWriteMemory;
 
  // If this flag is specified, MiniDumpWriteDump function will scan the stack
  // memory of every thread looking for pointers that point to other readable
  // memory pages in the process' address space. type |=
  // MiniDumpWithIndirectlyReferencedMemory;
 
  info.uMiniDumpType = (MINIDUMP_TYPE)type;
 
  // Install all available exception handlers....
  info.dwFlags = CR_INST_ALL_POSSIBLE_HANDLERS;
 
  //  Except memory allocation failures
  info.dwFlags &= ~CR_INST_NEW_OPERATOR_ERROR_HANDLER;
 
  //  Allow user to attach files
  info.dwFlags |= CR_INST_ALLOW_ATTACH_MORE_FILES;
 
  //  Allow user to add more info
  info.dwFlags |= CR_INST_SHOW_ADDITIONAL_INFO_FIELDS;
 
  // URL for sending error reports over HTTP.
 
  if (g_bEmailCrashReport) {
    info.pszUrl = L"https://bigdumboat.com/crashrpt/ocpn_crashrpt.php";
    info.uPriorities[CR_HTTP] = 3;  // First try send report over HTTP
  } else {
    info.dwFlags |= CR_INST_DONT_SEND_REPORT;
    info.uPriorities[CR_HTTP] = CR_NEGATIVE_PRIORITY;  // don't send at all
  }
 
  info.uPriorities[CR_SMTP] =
      CR_NEGATIVE_PRIORITY;  // Second try send report over SMTP
  info.uPriorities[CR_SMAPI] =
      CR_NEGATIVE_PRIORITY;  // Third try send report over Simple MAPI
 
  wxStandardPaths &crash_std_path = g_Platform->GetStdPaths();
 
  wxString crash_rpt_save_locn = crash_std_path.GetConfigDir();
  if (g_bportable) {
    wxFileName exec_path_crash(crash_std_path.GetExecutablePath());
    crash_rpt_save_locn =
        exec_path_crash.GetPath(wxPATH_GET_VOLUME | wxPATH_GET_SEPARATOR);
  }
 
  wxString locn = crash_rpt_save_locn + "\\CrashReports";
 
  if (!wxDirExists(locn)) wxMkdir(locn);
 
  if (wxDirExists(locn)) {
    wxCharBuffer buf = locn.ToUTF8();
    wchar_t wlocn[256];
    if (buf && (locn.Length() < sizeof(wlocn))) {
      MultiByteToWideChar(0, 0, buf.data(), -1, wlocn, sizeof(wlocn) - 1);
      info.pszErrorReportSaveDir = (LPCWSTR)wlocn;
    }
  }
 
  // Provide privacy policy URL
  wxFileName exec_path_crash(crash_std_path.GetExecutablePath());
  wxString policy_file =
      exec_path_crash.GetPath(wxPATH_GET_VOLUME | wxPATH_GET_SEPARATOR);
  policy_file += "PrivacyPolicy.txt";
  policy_file.Prepend("file:");
 
  info.pszPrivacyPolicyURL = policy_file.c_str();
  ;
 
  int nResult = crInstall(&info);
  if (nResult != 0) {
    TCHAR buff[256];
    crGetLastErrorMsg(buff, 256);
    // MessageBox(NULL, buff, "crInstall error, Crash Reporting disabled.",
    // MB_OK);
  }
 
  if (nResult == 0) {  // Complete the installation
    // Establish the crash callback function
    crSetCrashCallback(CrashCallback, NULL);
 
    // Take screenshot of the app window at the moment of crash
    crAddScreenshot2(CR_AS_PROCESS_WINDOWS | CR_AS_USE_JPEG_FORMAT, 95);
 
    //  Mark some files to add to the crash report
    wxString home_data_crash = crash_std_path.GetConfigDir();
    if (g_bportable) {
      wxFileName f(crash_std_path.GetExecutablePath());
      home_data_crash = f.GetPath();
    }
    appendOSDirSlash(&home_data_crash);
 
    wxString config_crash = "opencpn.ini";
    config_crash.Prepend(home_data_crash);
    crAddFile2(config_crash.c_str(), NULL, NULL,
               CR_AF_MISSING_FILE_OK | CR_AF_ALLOW_DELETE);
 
    wxString log_crash = "opencpn.log";
    log_crash.Prepend(home_data_crash);
    crAddFile2(log_crash.c_str(), NULL, NULL,
               CR_AF_MISSING_FILE_OK | CR_AF_ALLOW_DELETE);
  }
#endif
#endif
 
#ifdef LINUX_CRASHRPT
#if wxUSE_ON_FATAL_EXCEPTION
  // fatal exceptions handling
  wxHandleFatalExceptions(true);
#endif
#endif
 
#ifdef __MSVC__
  //  Invoke my own handler for failures of malloc/new
  _set_new_handler(MyNewHandler);
  //  configure malloc to call the New failure handler on failure
  _set_new_mode(1);
#endif
 
#if 0
#ifdef __WXMSW__
    //    On MSW, force the entire process to run on one CPU core only
    //    This resolves some difficulty with wxThread syncronization
    //Gets the current process handle
    HANDLE hProc = GetCurrentProcess();
    DWORD procMask;
    DWORD sysMask;
    HANDLE hDup;
    DuplicateHandle( hProc, hProc, hProc, &hDup, 0, FALSE, DUPLICATE_SAME_ACCESS );
 
    //Gets the current process affinity mask
    GetProcessAffinityMask( hDup, &procMask, &sysMask );
 
    // Take a simple approach, and assume up to 4 processors
    DWORD newMask;
    if( ( procMask & 1 ) == 1 ) newMask = 1;
    else
        if( ( procMask & 2 ) == 2 ) newMask = 2;
        else
            if( ( procMask & 4 ) == 4 ) newMask = 4;
            else
                if( ( procMask & 8 ) == 8 ) newMask = 8;
 
                //Set te affinity mask for the process
                BOOL res = SetProcessAffinityMask( hDup, (DWORD_PTR) newMask );
 
            if( res == 0 ) {
                //Error setting affinity mask!!
            }
#endif
#endif
 
#ifdef __MSVC__
 
  //    Handle any Floating Point Exceptions which may leak thru from other
  //    processes.  The exception filter is in cutil.c
  //    Seems to only happen for W98
 
  wxPlatformInfo Platform;
  if (Platform.GetOperatingSystemId() == wxOS_WINDOWS_9X)
    SetUnhandledExceptionFilter(&MyUnhandledExceptionFilter);
#endif
 
#ifdef __WXMSW__
    //     _CrtSetBreakAlloc(25503);
#endif
 
#ifndef __WXMSW__
  //      Setup Linux SIGNAL handling, for external program control
 
  //      Build the sigaction structure
  sa_all.sa_handler = catch_signals;  // point to my handler
  sigemptyset(&sa_all.sa_mask);       // make the blocking set
  // empty, so that all
  // other signals will be
  // unblocked during my handler
  sa_all.sa_flags = 0;
 
  sigaction(SIGUSR1, NULL,
            &sa_all_old);  // save existing action for this signal
 
  //      Register my request for some signals
  sigaction(SIGUSR1, &sa_all, NULL);
  sigaction(SIGUSR1, NULL,
            &sa_all_old);  // inspect existing action for this signal
 
  sigaction(SIGTERM, &sa_all, NULL);
  sigaction(SIGTERM, NULL, &sa_all_old);
 
  sigaction(SIGHUP, &sa_all, NULL);
  sigaction(SIGHUP, NULL, &sa_all_old);
 
#endif
 
#ifdef __ANDROID__
  qDebug() << "Initialize_1()";
  // #ifdef NOASSERT
  wxDisableAsserts();  // No asserts at all in Release mode
// #endif
#endif
}
 
//  Called from MyApp() immediately before creation of MyFrame()
//  Config is known to be loaded and stable
//  Log is available
void OCPNPlatform::Initialize_2() {
#ifdef __ANDROID__
  wxLogMessage(androidGetDeviceInfo());
 
  // Create some directories in App private directory
  // Mainly required for Android 11+, but useable on all versions.
  wxChar sep = wxFileName::GetPathSeparator();
 
  wxString ChartDir = GetPrivateDataDir();
  if (ChartDir.Last() != sep) ChartDir.Append(sep);
  ChartDir.Append("Charts");
  if (!::wxDirExists(ChartDir)) {
    ::wxMkdir(ChartDir);
  }
 
  wxString GRIBDir = GetPrivateDataDir();
  if (GRIBDir.Last() != sep) GRIBDir.Append(sep);
  GRIBDir.Append("GRIBS");
  if (!::wxDirExists(GRIBDir)) {
    ::wxMkdir(GRIBDir);
  }
 
  wxString VDRDir = GetPrivateDataDir();
  if (VDRDir.Last() != sep) VDRDir.Append(sep);
  VDRDir.Append("VDR");
  if (!::wxDirExists(VDRDir)) {
    ::wxMkdir(VDRDir);
  }
 
  // Set the default Import/Export directory for A11+
  if (g_Android_SDK_Version >= 30) {
    if (!g_gpx_path.StartsWith(androidGetDocumentsDirectory())) {
      g_gpx_path = androidGetDocumentsDirectory();
    }
  }
 
  if (!g_TCData_Dir.Length()) g_TCData_Dir = GetPrivateDataDir();
 
#endif
 
  //  Set a global toolbar scale factor
  g_toolbar_scalefactor = GetToolbarScaleFactor(g_GUIScaleFactor);
  auto configdir = wxFileName(GetPrivateDataDir());
  if (!configdir.DirExists()) {
    if (!configdir.Mkdir()) {
      auto msg = std::string("Cannot create config directory: ");
      wxLogWarning(msg + configdir.GetFullPath());
    }
  }
}
 
//  Called from MyApp()::OnInit() just after gFrame is created, so gFrame is
//  available
void OCPNPlatform::Initialize_3() {
  bool bcapable = IsGLCapable();
 
#ifdef ocpnARM  // Boot arm* platforms (meaning rPI) without OpenGL on first run
  // bcapable = false;
#endif
 
  bool bAndroid = false;
#ifdef __ANDROID__
  bAndroid = true;
#endif
 
  if (!bcapable)
    g_bopengl = false;
  else {
    // g_bopengl = true;
    g_bdisable_opengl = false;
    pConfig->UpdateSettings();
  }
 
  // Try to automatically switch to guaranteed usable GL mode on an OCPN upgrade
  // or fresh install
 
#ifdef ocpnUSE_GL
  if ((g_bFirstRun || g_bUpgradeInProcess || bAndroid) && bcapable) {
    g_bopengl = true;
 
    // Set up visually nice options
    g_GLOptions.m_bUseAcceleratedPanning = true;
    g_GLOptions.m_bTextureCompression = true;
    g_GLOptions.m_bTextureCompressionCaching = true;
 
    g_GLOptions.m_iTextureDimension = 512;
    g_GLOptions.m_iTextureMemorySize = 64;
 
    g_GLOptions.m_GLPolygonSmoothing = true;
    g_GLOptions.m_GLLineSmoothing = true;
  }
#endif
 
  // Force a few items for Android, to ensure that UI is useable if config got
  // scrambled
  if (bAndroid) {
    g_btouch = true;
  }
 
  if (g_bFirstRun || g_bUpgradeInProcess) {
    if (!g_bRollover)  // Not explicit set before
      g_bRollover = g_btouch ? false : true;
  }
 
  g_FlushNavobjChangesTimeout = 300;  // Seconds, so 5 minutes
}
 
//  Called from MyApp() just before end of MyApp::OnInit()
void OCPNPlatform::Initialize_4() {
#ifdef __ANDROID__
  if (pSelect) pSelect->SetSelectPixelRadius(wxMax(25, 6.0 * getAndroidDPmm()));
  if (pSelectTC)
    pSelectTC->SetSelectPixelRadius(wxMax(25, 6.0 * getAndroidDPmm()));
  if (pSelectAIS)
    pSelectAIS->SetSelectPixelRadius(wxMax(25, 6.0 * getAndroidDPmm()));
#endif
 
#ifdef __WXMAC__
  // A bit of a hack for Mojave MacOS 10.14.
  // Force the user to actively select "Display" tab to ensure initial rendering
  // of canvas layout select button.
  options_lastPage = 1;
#endif
}
 
void OCPNPlatform::OnExit_1() {}
 
void OCPNPlatform::OnExit_2() {
#ifdef OCPN_USE_CRASHREPORT
#ifndef _DEBUG
  // Uninstall Windows crash reporting
//    crUninstall();
#endif
#endif
}
 
#ifdef ocpnUSE_GL
 
bool HasGLExt(wxJSONValue &glinfo, const std::string ext) {
  if (!glinfo.HasMember("GL_EXTENSIONS")) {
    return false;
  }
  for (int i = 0; i < glinfo["GL_EXTENSIONS"].Size(); i++) {
    if (glinfo["GL_EXTENSIONS"][i].AsString() == ext) {
      return true;
    }
  }
  return false;
}
 
bool OCPNPlatform::BuildGLCaps(void *pbuf) {
#ifndef __ANDROID__
  fs::path ep(GetExePath().ToStdString());
#ifndef __WXMSW__
  std::string gl_util_exe = "opencpn-glutil";
#else
  std::string gl_util_exe = "opencpn-glutil.exe";
#endif
  fs::path gl_util_path = ep.parent_path().append(gl_util_exe);
 
  if (!fs::exists(gl_util_path)) {
    gl_util_path =
        ep.parent_path().parent_path().append("libexec").append(gl_util_exe);
  }
  if (!fs::exists(gl_util_path)) {
    // TODO: What to do if the utility is not found (Which it is not for
    // developer builds that are not installed)?
    wxLogMessage("OpenGL test utility not found at %s.", gl_util_path.c_str());
    return false;
  }
 
  std::string gl_json = fs::path(GetPrivateDataDir().ToStdString())
                            .append("gl_caps.json")
                            .string();
 
  wxString cmd = wxString::Format("\"%s\" opengl-info \"%s\"",
                                  gl_util_path.c_str(), gl_json.c_str());
 
  wxLogMessage("Starting OpenGL test utility: %s", cmd);
 
  wxArrayString output;
  if (long res = wxExecute(cmd, output); res != 0) {
    wxLogMessage("OpenGL test utility failed with exit code %d", res);
    for (const auto &l : output) {
      wxLogMessage(l);
    }
    return false;
  }
 
  wxFileInputStream fis(gl_json);
  wxJSONReader reader;
  wxJSONValue root;
  reader.Parse(fis, &root);
  if (reader.GetErrorCount() > 0) {
    wxLogMessage("Failed to parse JSON output from OpenGL test utility.");
    for (const auto &l : reader.GetErrors()) {
      wxLogMessage(l);
    }
    return false;
  }
 
  OCPN_GLCaps *pcaps = (OCPN_GLCaps *)pbuf;
 
  if (root.HasMember("GL_RENDERER")) {
    pcaps->Renderer = root["GL_RENDERER"].AsString();
  } else {
    wxLogMessage("GL_RENDERER not found.");
    return false;
  }
  if (root.HasMember("GL_VERSION")) {
    pcaps->Version = root["GL_VERSION"].AsString();
  } else {
    wxLogMessage("GL_VERSION not found.");
    return false;
  }
  if (root.HasMember("GL_SHADING_LANGUAGE_VERSION")) {
    pcaps->GLSL_Version = root["GL_SHADING_LANGUAGE_VERSION"].AsString();
  } else {
    wxLogMessage("GL_SHADING_LANGUAGE_VERSION not found.");
    return false;
  }
  if (root.HasMember("GL_USABLE")) {
    if (!root["GL_USABLE"].AsBool()) {
      wxLogMessage("OpenGL test utility reports that OpenGL is not usable.");
      return false;
    }
  } else {
    wxLogMessage("GL_USABLE not found.");
    return false;
  }
  pcaps->dGLSL_Version = 0;
  pcaps->dGLSL_Version = ::atof(pcaps->GLSL_Version.c_str());
  if (pcaps->dGLSL_Version < 1.2) {
    wxString msg;
    msg.Printf("GLCaps Probe: OpenGL-> GLSL Version reported:  ");
    msg += wxString(pcaps->GLSL_Version.c_str());
    msg += "\n OpenGL disabled due to insufficient OpenGL capabilities";
    wxLogMessage(msg);
    pcaps->bCanDoGLSL = false;
    return false;
  }
  pcaps->bCanDoGLSL = true;
  if (HasGLExt(root, "GL_ARB_texture_non_power_of_two")) {
    pcaps->TextureRectangleFormat = GL_TEXTURE_2D;
  } else if (HasGLExt(root, "GL_OES_texture_npot")) {
    pcaps->TextureRectangleFormat = GL_TEXTURE_2D;
  } else if (HasGLExt(root, "GL_ARB_texture_rectangle")) {
    pcaps->TextureRectangleFormat = GL_TEXTURE_RECTANGLE_ARB;
  }
 
  pcaps->bOldIntel = false;
 
  pcaps->bCanDoFBO = HasGLExt(root, "GL_EXT_framebuffer_object");
  if (!pcaps->TextureRectangleFormat) {
    pcaps->bCanDoFBO = false;
  }
 
  pcaps->bCanDoVBO = HasGLExt(
      root, "GL_ARB_vertex_buffer_object");  // TODO: Or the old way where we
                                             // enable it without querying the
                                             // extension is right?
  top_frame::Get()->Show();
  return true;
#else
  // The original codepath doing direct probing in the main OpenCPN process, now
  // only for Android Investigate OpenGL capabilities
  top_frame::Get()->Show();
  glTestCanvas *tcanvas = new glTestCanvas(wxTheApp->GetTopWindow());
  tcanvas->Show();
  wxYield();
  wxGLContext *pctx = new wxGLContext(tcanvas);
  tcanvas->SetCurrent(*pctx);
 
  OCPN_GLCaps *pcaps = (OCPN_GLCaps *)pbuf;
 
  char *str = (char *)glGetString(GL_RENDERER);
  if (str == NULL) {  // No GL at all...
    wxLogMessage("GL_RENDERER not found.");
    delete tcanvas;
    delete pctx;
    return false;
  }
  pcaps->Renderer = std::string(str);
 
  char *stv = (char *)glGetString(GL_VERSION);
  if (stv == NULL) {  // No GL Version...
    wxLogMessage("GL_VERSION not found");
    delete tcanvas;
    delete pctx;
    return false;
  }
  pcaps->Version = std::string(stv);
 
  char *stsv = (char *)glGetString(GL_SHADING_LANGUAGE_VERSION);
  if (stsv == NULL) {  // No GLSL...
    wxLogMessage("GL_SHADING_LANGUAGE_VERSION not found");
    delete tcanvas;
    delete pctx;
    return false;
  }
  pcaps->GLSL_Version = std::string(stsv);
 
  pcaps->dGLSL_Version = 0;
  pcaps->dGLSL_Version = ::atof(pcaps->GLSL_Version.c_str());
 
  if (pcaps->dGLSL_Version < 1.2) {
    wxString msg;
    msg.Printf("GLCaps Probe: OpenGL-> GLSL Version reported:  ");
    msg += wxString(pcaps->GLSL_Version.c_str());
    msg += "\n OpenGL disabled due to insufficient OpenGL capabilities";
    wxLogMessage(msg);
    pcaps->bCanDoGLSL = false;
    delete tcanvas;
    delete pctx;
    return false;
  }
 
  pcaps->bCanDoGLSL = true;
 
  if (QueryExtension("GL_ARB_texture_non_power_of_two"))
    pcaps->TextureRectangleFormat = GL_TEXTURE_2D;
  else if (QueryExtension("GL_OES_texture_npot"))
    pcaps->TextureRectangleFormat = GL_TEXTURE_2D;
  else if (QueryExtension("GL_ARB_texture_rectangle"))
    pcaps->TextureRectangleFormat = GL_TEXTURE_RECTANGLE_ARB;
 
  pcaps->bOldIntel = false;
 
  // Can we use VBO?
  pcaps->bCanDoVBO = true;
 
#if defined(__WXMSW__) || defined(__WXOSX__)
  if (pcaps->bOldIntel) pcaps->bCanDoVBO = false;
#endif
 
#ifdef __ANDROID__
  pcaps->bCanDoVBO = false;
#endif
 
  // Can we use FBO?
  pcaps->bCanDoFBO = true;
 
#ifndef __ANDROID__
  //  We need NPOT to support FBO rendering
  if (!pcaps->TextureRectangleFormat) pcaps->bCanDoFBO = false;
 
  //      We require certain extensions to support FBO rendering
  if (!QueryExtension("GL_EXT_framebuffer_object")) pcaps->bCanDoFBO = false;
#endif
 
  delete tcanvas;
  delete pctx;
  return true;
#endif
}
#endif
 
bool OCPNPlatform::IsGLCapable() {
#ifdef ocpnUSE_GL
 
#ifdef __ANDROID__
  return true;
#elif defined(CLI)
  return false;
#else
 
  if (g_bdisable_opengl) return false;
 
  wxLogMessage("Starting OpenGL test...");
  wxLog::FlushActive();
 
  if (!GL_Caps) {
    GL_Caps = new OCPN_GLCaps();
    bool bcaps = BuildGLCaps(GL_Caps);
 
    wxLogMessage("OpenGL test complete.");
    if (!bcaps) {
      wxLogMessage("BuildGLCaps fails.");
      wxLog::FlushActive();
      return false;
    }
  }
 
  // and so we decide....
 
  // Require a modern GLSL implementation
  if (!GL_Caps->bCanDoGLSL) {
    return false;
  }
 
  // We insist on FBO support, since otherwise DC mode is always faster on
  // canvas panning..
  if (!GL_Caps->bCanDoFBO) {
    return false;
  }
 
  // OpenGL is OK for OCPN
  wxLogMessage("OpenGL determined CAPABLE.");
  wxLog::FlushActive();
 
  g_bdisable_opengl = false;
  // g_bopengl = true;
 
  // Update and flush the config file
  pConfig->UpdateSettings();
 
  return true;
#endif
#else
  return false;
#endif
}
 
void OCPNPlatform::SetLocaleSearchPrefixes() {
#if wxUSE_XLOCALE
// Add a new prefixes for search order.
#if defined(__WINDOWS__)
 
  // Legacy and system plugin location
  wxString locale_location = GetSharedDataDir();
  locale_location += "share\\locale";
  wxLocale::AddCatalogLookupPathPrefix(locale_location);
  wxString imsg = "Adding catalog lookup path:  ";
  imsg += locale_location;
  wxLogMessage(imsg);
 
  // Managed plugin location
  wxFileName usrShare(GetWinPluginBaseDir() + wxFileName::GetPathSeparator());
  usrShare.RemoveLastDir();
  locale_location = usrShare.GetFullPath() + ("share\\locale");
  wxLocale::AddCatalogLookupPathPrefix(locale_location);
  imsg = "Adding catalog lookup path:  ";
  imsg += locale_location;
  wxLogMessage(imsg);
 
#elif defined(__ANDROID__)
 
  wxString locale_location = GetSharedDataDir() + "locale";
  wxLocale::AddCatalogLookupPathPrefix(locale_location);
 
#elif defined(__UNIX__) && !defined(__WINE__)
 
  // On Unix, wxWidgets defaults to installation prefix of its own, usually
  // "/usr". On the other hand, canonical installation prefix for OpenCPN is
  // "/usr/local".
  wxString locale_location;
  if (!wxGetEnv("OPENCPN_PREFIX", &locale_location)) {
    locale_location = "/usr/local";
  }
 
  if (g_bportable) {
    locale_location = g_Platform->GetHomeDir();
  }
 
  wxFileName location;
  location.AssignDir(locale_location);
  location.AppendDir("share");
  location.SetName("locale");
  locale_location = location.GetFullPath();
  wxLocale::AddCatalogLookupPathPrefix(locale_location);
 
  // And then for managed plugins
  std::string dir = PluginPaths::GetInstance()->UserDatadir();
  wxString managed_locale_location(dir + "/locale");
  wxLocale::AddCatalogLookupPathPrefix(managed_locale_location);
#endif
 
#ifdef __WXOSX__
  std::string macDir =
      PluginPaths::GetInstance()->Homedir() +
      "/Library/Application Support/OpenCPN/Contents/Resources";
  wxString Mac_managed_locale_location(macDir);
  wxLocale::AddCatalogLookupPathPrefix(Mac_managed_locale_location);
#endif
 
#endif
}
 
wxString OCPNPlatform::GetDefaultSystemLocale() {
  wxLogMessage("Getting DefaultSystemLocale...");
 
  wxString retval = "en_US";
 
#if wxUSE_XLOCALE
 
  const wxLanguageInfo *languageInfo =
      wxLocale::GetLanguageInfo(wxLANGUAGE_DEFAULT);
  if (languageInfo) retval = languageInfo->CanonicalName;
 
#if defined(__WXMSW__)
  LANGID lang_id = GetUserDefaultUILanguage();
 
  wchar_t lngcp[101];
  const wxLanguageInfo *languageInfoW = 0;
  if (0 != GetLocaleInfo(MAKELCID(lang_id, SORT_DEFAULT), LOCALE_SENGLANGUAGE,
                         lngcp, 100)) {
    wxString lstring = wxString(lngcp);
 
    languageInfoW = wxLocale::FindLanguageInfo(lngcp);
    if (languageInfoW)
      wxLogMessage("Found LanguageInfo for: " + lstring);
    else
      wxLogMessage("Could not find LanguageInfo for: " + lstring);
  } else {
    wxLogMessage("Could not get LocaleInfo, using wxLANGUAGE_DEFAULT");
    languageInfoW = wxLocale::GetLanguageInfo(wxLANGUAGE_DEFAULT);
  }
 
  if (languageInfoW) retval = languageInfoW->CanonicalName;
#endif
 
#if defined(__ANDROID__)
  retval = androidGetAndroidSystemLocale();
#endif
 
#endif
 
  return retval;
}
 
#if wxUSE_XLOCALE || !wxCHECK_VERSION(3, 0, 0)
wxString OCPNPlatform::GetAdjustedAppLocale() {
  wxString adjLocale = g_locale;
 
//  For windows, installer may have left information in the registry defining
//  the user's selected install language. If so, override the config file value
//  and use this selection for opencpn...
#if defined(__WXMSW__)
  if (g_bFirstRun || wxIsEmpty(adjLocale)) {
    wxRegKey RegKey(wxString("HKEY_LOCAL_MACHINE\\SOFTWARE\\OpenCPN"));
    if (RegKey.Exists()) {
      wxLogMessage(
          "Retrieving initial language selection from Windows Registry");
      RegKey.QueryValue(wxString("InstallerLanguage"), adjLocale);
    }
  }
  if (wxIsEmpty(adjLocale)) {
    if (g_localeOverride.Length())
      adjLocale = g_localeOverride;
    else
      adjLocale = GetDefaultSystemLocale();
  }
#endif
#if defined(__ANDROID__)
  if (g_localeOverride.Length())
    adjLocale = g_localeOverride;
  else
    adjLocale = GetDefaultSystemLocale();
#endif
 
  return adjLocale;
}
 
wxString OCPNPlatform::ChangeLocale(wxString &newLocaleID,
                                    wxLocale *presentLocale,
                                    wxLocale **newLocale) {
  wxString return_val;
 
  wxString imsg = "ChangeLocale: Language load for:  ";
  imsg += newLocaleID;
  wxLogMessage(imsg);
 
  //  Old locale is done.
  delete (wxLocale *)presentLocale;
 
  wxLocale *locale = new wxLocale;
  if (isFlatpacked()) {
    std::string path(getenv("HOME"));
    path += "/.var/app/org.opencpn.OpenCPN/data/locale";
    locale->AddCatalogLookupPathPrefix(path);
    wxLogMessage("Using flatpak locales at %s", path.c_str());
  }
  wxString loc_lang_canonical;
 
  const wxLanguageInfo *pli = wxLocale::FindLanguageInfo(newLocaleID);
  bool b_initok = false;
 
  if (pli) {
    locale->Init(pli->Language, 1);
    // If the locale was not initialized OK, it may be that the wxstd.mo
    // translations of the wxWidgets strings is not present. So try again,
    // without attempting to load defaults wxstd.mo.
    if (!locale->IsOk()) {
      wxString imsg = "ChangeLocale:  could not initialize:  ";
      imsg += newLocaleID;
      wxLogMessage(imsg);
 
      delete locale;
      locale = new wxLocale;
      locale->Init(pli->Language, 0);
    }
    loc_lang_canonical = pli->CanonicalName;
 
    b_initok = locale->IsOk();
#ifdef __ANDROID__
    b_initok = true;
#endif
  }
 
  if (!b_initok) {
    wxString imsg = "ChangeLocale: Fall back to en_US";
    wxLogMessage(imsg);
 
    delete locale;
    locale = new wxLocale;
    locale->Init(wxLANGUAGE_ENGLISH_US, 0);
    loc_lang_canonical =
        wxLocale::GetLanguageInfo(wxLANGUAGE_ENGLISH_US)->CanonicalName;
  }
 
  if (b_initok) {
    wxString imsg = "ChangeLocale: Locale Init OK for:  ";
    imsg += loc_lang_canonical;
    wxLogMessage(imsg);
 
    //  wxWidgets assigneds precedence to message catalogs in reverse order of
    //  loading. That is, the last catalog containing a certain translatable
    //  item takes precedence.
 
    //  So, Load the catalogs saved in a global string array which is populated
    //  as PlugIns request a catalog load. We want to load the PlugIn catalogs
    //  first, so that core opencpn translations loaded later will become
    //  precedent.
 
    for (unsigned int i = 0; i < g_locale_catalog_array.GetCount(); i++) {
      if (!locale->AddCatalog(g_locale_catalog_array[i])) {
        wxString emsg = "ERROR Loading translation catalog for:  ";
        emsg += g_locale_catalog_array[i];
        wxLogMessage(emsg);
      } else {
        wxString imsg = "Loaded translation catalog for:  ";
        imsg += g_locale_catalog_array[i];
        wxLogMessage(imsg);
      }
    }
 
    // Get core opencpn catalog translation (.mo) file
    wxLogMessage("Loading catalog for opencpn core.");
    locale->AddCatalog("opencpn");
 
    return_val = locale->GetCanonicalName();
 
    // We may want to override the default system locale, so set a flag.
    if (return_val != GetDefaultSystemLocale())
      g_localeOverride = return_val;
    else
      g_localeOverride = "";
  }
 
  *newLocale = locale;  // return the new locale
 
  //    Always use dot as decimal
  setlocale(LC_NUMERIC, "C");
 
  return return_val;
}
#endif
 
//      Setup default global options when config file is unavailable,
//      as on initial startup after new install
//      The global config object (pConfig) is available, so direct updates are
//      also allowed
 
void OCPNPlatform::SetDefaultOptions() {
  //  General options, applied to all platforms
  g_bShowOutlines = true;
 
  g_CPAMax_NM = 20.;
  g_CPAWarn_NM = 2.;
  g_TCPA_Max = 30.;
  g_bMarkLost = true;
  g_MarkLost_Mins = 8;
  g_bRemoveLost = true;
  g_RemoveLost_Mins = 10;
  g_bShowCOG = true;
  g_ShowCOG_Mins = 6;
  g_bSyncCogPredictors = false;
  g_bHideMoored = false;
  g_ShowMoored_Kts = 0.2;
  g_SOGminCOG_kts = 0.2;
  g_bTrackDaily = false;
  g_PlanSpeed = 6.;
  g_bFullScreenQuilt = true;
  g_bQuiltEnable = true;
  g_bskew_comp = false;
  g_bShowAreaNotices = false;
  g_bDrawAISSize = false;
  g_bDrawAISRealtime = false;
  g_AIS_RealtPred_Kts = 0.7;
  g_bShowAISName = false;
  g_nTrackPrecision = 2;
  g_bPreserveScaleOnX = true;
  g_nAWDefault = 50;
  g_nAWMax = 1852;
  gps_watchdog_timeout_ticks = kGpsTimeoutSeconds;
  g_n_ownship_min_mm = 8;
  g_bShowMuiZoomButtons = true;
  g_bresponsive = false;
 
  // Initial S52/S57 options
  if (pConfig) {
    pConfig->SetPath("/Settings/GlobalState");
    pConfig->Write("bShowS57Text", true);
    pConfig->Write("bShowS57ImportantTextOnly", false);
    pConfig->Write("nDisplayCategory", (int)(_DisCat)OTHER);
    pConfig->Write("nSymbolStyle", (int)(_LUPname)PAPER_CHART);
    pConfig->Write("nBoundaryStyle", (int)(_LUPname)PLAIN_BOUNDARIES);
 
    pConfig->Write("bShowSoundg", true);
    pConfig->Write("bShowMeta", false);
    pConfig->Write("bUseSCAMIN", true);
    pConfig->Write("bShowAtonText", false);
    pConfig->Write("bShowLightDescription", false);
    pConfig->Write("bExtendLightSectors", true);
    pConfig->Write("bDeClutterText", true);
    pConfig->Write("bShowNationalText", true);
 
    pConfig->Write("S52_MAR_SAFETY_CONTOUR", 3);
    pConfig->Write("S52_MAR_SHALLOW_CONTOUR", 2);
    pConfig->Write("S52_MAR_DEEP_CONTOUR", 6);
    pConfig->Write("S52_MAR_TWO_SHADES", 0);
    pConfig->Write("S52_DEPTH_UNIT_SHOW", 1);
 
    pConfig->Write("ZoomDetailFactorVector", 3);
 
    pConfig->Write("nColorScheme", 1);  // higher contrast on NOAA RNCs
 
// A few more often requested defaults, not applicable to Android
#ifndef __ANDROID__
    g_bEnableZoomToCursor = true;
    g_bsmoothpanzoom = true;
    g_bShowMenuBar = true;
#endif
  }
 
#ifdef __WXMSW__
  g_bShowMenuBar = false;
  //  Enable some default PlugIns, and their default options
  if (pConfig) {
    pConfig->SetPath("/PlugIns/chartdldr_pi.dll");
    pConfig->Write("bEnabled", true);
 
    pConfig->SetPath("/PlugIns/wmm_pi.dll");
    pConfig->Write("bEnabled", true);
 
    pConfig->SetPath("/Settings/WMM");
    pConfig->Write("ShowIcon", true);
    pConfig->Write("ShowLiveIcon", true);
  }
#endif
 
#ifdef __WXOSX__
  //  Enable some default PlugIns, and their default options
  if (pConfig) {
    pConfig->SetPath("/PlugIns/libchartdldr_pi.dylib");
    pConfig->Write("bEnabled", true);
 
    pConfig->SetPath("/PlugIns/libwmm_pi.dylib");
    pConfig->Write("bEnabled", true);
 
    pConfig->SetPath("/Settings/WMM");
    pConfig->Write("ShowIcon", true);
    pConfig->Write("ShowLiveIcon", true);
  }
#endif
 
#ifdef __linux__
  //  Enable some default PlugIns, and their default options
  if (pConfig) {
    pConfig->SetPath("/PlugIns/libchartdldr_pi.so");
    pConfig->Write("bEnabled", true);
 
    pConfig->SetPath("/PlugIns/libwmm_pi.so");
    pConfig->Write("bEnabled", true);
 
    pConfig->SetPath("/Settings/WMM");
    pConfig->Write("ShowIcon", true);
    pConfig->Write("ShowLiveIcon", true);
  }
#endif
 
#ifdef __ANDROID__
 
#ifdef ocpnUSE_GL
  g_bopengl = true;
  g_GLOptions.m_bTextureCompression = 1;
  g_GLOptions.m_bTextureCompressionCaching = 1;
#endif
 
  qDebug() << "SetDefaultOptions";
 
  g_btouch = true;
  g_bresponsive = true;
  g_default_font_size = 18;  //  This is pretty close to TextAppearance.Medium
  g_bUIexpert = true;
 
  g_bShowStatusBar = true;
  g_cm93_zoom_factor = 0;
  g_oz_vector_scale = false;
  g_fog_overzoom = false;
 
  g_bRollover = true;
  g_bShowMuiZoomButtons = true;
 
  g_GUIScaleFactor = 0;  // nominal
  g_ChartNotRenderScaleFactor = 2.0;
 
  //  Suppress most tools, especially those that appear in the Basic menus.
  //  Of course, they may be re-enabled by experts...
  g_toolbarConfig = "X.....XX.......XX.XXXXXXXXXXX";
  g_bPermanentMOBIcon = false;
 
  wxString sGPS = "2;3;;0;0;;0;1;0;0;;0;;1;0;0;0;0";  // 17 parms
  ConnectionParams *new_params = new ConnectionParams(sGPS);
 
  new_params->bEnabled = true;
  TheConnectionParams().push_back(new_params);
 
  g_default_font_facename = "Roboto";
 
  //  Enable some default PlugIns, and their default options
 
  if (pConfig) {
    pConfig->SetPath("/PlugIns/libchartdldr_pi.so");
    pConfig->Write("bEnabled", true);
 
    pConfig->SetPath("/PlugIns/libwmm_pi.so");
    pConfig->Write("bEnabled", true);
 
    pConfig->SetPath("/Settings/WMM");
    pConfig->Write("ShowIcon", true);
    pConfig->Write("ShowLiveIcon", true);
 
    pConfig->SetPath("/PlugIns/libgrib_pi.so");
    pConfig->Write("bEnabled", true);
 
    pConfig->SetPath("/PlugIns/libdashboard_pi.so");
    pConfig->Write("bEnabled", true);
 
    pConfig->SetPath("/PlugIns/GRIB");
    pConfig->Write("GRIBCtrlBarPosX", 100);
    pConfig->Write("GRIBCtrlBarPosY", 0);
 
    pConfig->SetPath("/Settings/GRIB");
    pConfig->Write("CursorDataShown", 0);
 
    // This is ugly hack
    // TODO
    pConfig->SetPath("/PlugIns/liboesenc_pi.so");
    pConfig->Write("bEnabled", true);
 
    pConfig->SetPath("/Settings/QTFonts");
 
    // Status Bar
    wxString str = "en_US-b25a3899";
    wxString pval = "StatusBar:Roboto,26,-1,5,75,0,0,0,0,0:rgb(0, 0, 0)";
    pConfig->Write(str, pval);
    FontMgr::Get().LoadFontNative(&str, &pval);
 
    // Dialog
    str = "en_US-9c3b3a0d";
    pval = "DialogStatusBar:Roboto,18,-1,5,50,0,0,0,0,0:rgb(0, 0, 0)";
    pConfig->Write(str, pval);
    FontMgr::Get().LoadFontNative(&str, &pval);
 
    // Set track default color to magenta
    pConfig->SetPath("/Settings/Others");
    pConfig->Write("TrackLineColour", "#C545C3");
    g_colourTrackLineColour.Set(197, 69, 195);
 
    qDebug() << "SetDefaultOptions.Config";
  }
 
#endif
}
 
//      Setup global options on upgrade detected
//      The global config object (pConfig) has already been loaded, so updates
//      here override values set by config.
//      Direct updates to config for next boot are also supported.
 
void OCPNPlatform::SetUpgradeOptions(wxString vNew, wxString vOld) {
#ifdef __ANDROID__
 
  qDebug() << "Upgrade check"
           << "from: " << vOld.mb_str() << " to: " << vNew.mb_str();
 
  if (androidGetVersionCode() > g_AndroidVersionCode) {  // upgrade
    qDebug() << "Upgrade detected"
             << "from VC: " << g_AndroidVersionCode
             << " to VC: " << androidGetVersionCode();
 
    // Set some S52/S57 options
    if (pConfig) {
      pConfig->SetPath("/Settings/GlobalState");
      pConfig->Write("bShowS57Text", true);
    }
 
    g_ChartNotRenderScaleFactor = 2.0;
    g_n_ownship_min_mm = 8;
    g_toolbarConfig = "X.....XX.......XX.XXXXXXXXXXX";
 
    // Avoid changing fonts on app upgrade.
    // pConfig->DeleteGroup("/Settings/QTFonts");
    // g_default_font_size = 20;
    // g_default_font_facename = "Roboto";
    // FontMgr::Get().Shutdown();  // Restart the font manager
 
    // Reshow the zoom buttons
    g_bShowMuiZoomButtons = true;
 
    // Clear the default chart storage location
    // Will get set to e.g. "/storage/emulated/0" later
    pInit_Chart_Dir->Clear();
 
    // A few popular requests,
    // which will take effect on next App startup.
    pConfig->SetPath("/Settings/WMM");
    pConfig->Write("ShowIcon", true);
    pConfig->Write("ShowLiveIcon", true);
 
    pConfig->SetPath("/Canvas/CanvasConfig1");
    pConfig->Write("canvasENCShowVisibleSectorLights", 0);
 
    // Manage plugins
    // Clear the cache, allowing deprecation of obsolete plugins
    ocpn::cache_clear();
 
    //  Remove any problematic plugins, so preparing for upgraded versions
    //  Todo:  Scrub this list from time to time
 
    //  VersionCode 123 (August, 2025)
    AndroidRemoveSystemFile(
        "/data/user/0/org.opencpn.opencpn/manPlug/libchartscale_pi.so");
  }
 
  // Set track default color to magenta
  g_colourTrackLineColour.Set(197, 69, 195);
#endif
 
  // Check for upgrade....
  if (!vOld.IsSameAs(vNew)) {  // upgrade
 
    // Verify some default directories, create if necessary
 
    // UserIcons
    wxString UserIconPath = GetPrivateDataDir();
    wxChar sep = wxFileName::GetPathSeparator();
    if (UserIconPath.Last() != sep) UserIconPath.Append(sep);
    UserIconPath.Append("UserIcons");
 
    if (!::wxDirExists(UserIconPath)) {
      ::wxMkdir(UserIconPath);
    }
 
    // layers
    wxString LayersPath = GetPrivateDataDir();
    if (LayersPath.Last() != sep) LayersPath.Append(sep);
    LayersPath.Append("layers");
 
    if (!::wxDirExists(LayersPath)) {
      ::wxMkdir(LayersPath);
    }
 
    // Force a generally useable sound command, overriding any previous user's
    // selection
    //  that may not be available on new build.
    g_CmdSoundString = wxString(OCPN_SOUND_CMD);
    pConfig->SetPath("/Settings");
    pConfig->Write("CmdSoundString", g_CmdSoundString);
 
    // Force AIS specific sound effects ON, leaving the master control
    // (g_bAIS_CPA_Alert_Audio) as configured
    g_bAIS_GCPA_Alert_Audio = true;
    g_bAIS_SART_Alert_Audio = true;
    g_bAIS_DSC_Alert_Audio = true;
 
    // Force a recalculation of default main toolbar location
    g_maintoolbar_x = -1;
 
    // Check the tide/current databases for readability,
    //  remove any not readable
    std::vector<std::string> TCDS_temp;
    for (unsigned int i = 0; i < TideCurrentDataSet.size(); i++)
      TCDS_temp.push_back(TideCurrentDataSet[i]);
 
    TideCurrentDataSet.clear();
    for (unsigned int i = 0; i < TCDS_temp.size(); i++) {
      wxString tide = TCDS_temp[i];
      wxFileName ft(tide);
      if (ft.FileExists()) TideCurrentDataSet.push_back(TCDS_temp[i]);
    }
 
    //  Force default (baked-in) values for CompatOS
    // Thus providing for the case when some core dependent elements
    // are updated. (e.g. flatpak SDK 22.08->24.08->???)
    g_compatOS = "";
    g_compatOsVersion = "";
    pConfig->SetPath("/Settings");
    pConfig->Write("CompatOS", g_compatOS);
    pConfig->Write("CompatOsVersion", g_compatOsVersion);
  }
}
 
int OCPNPlatform::platformApplyPrivateSettingsString(wxString settings,
                                                     ArrayOfCDI *pDirArray) {
  int ret_val = 0;
#ifdef __ANDROID__
  ret_val = androidApplySettingsString(settings, pDirArray);
#endif
 
  return ret_val;
}
 
void OCPNPlatform::applyExpertMode(bool mode) {
#ifdef __ANDROID__
  // g_bexpert = mode;  // toolbar only shows plugin icons if expert mode is
  // false
  g_bBasicMenus = !mode;  //  simplified context menus in basic mode
#endif
}
 
//--------------------------------------------------------------------------
//      Per-Platform file/directory support
//--------------------------------------------------------------------------
 
static wxString ExpandPaths(wxString paths, OCPNPlatform *platform);
 
int OCPNPlatform::DoFileSelectorDialog(wxWindow *parent, wxString *file_spec,
                                       wxString Title, wxString initDir,
                                       wxString suggestedName,
                                       wxString wildcard) {
  wxString file;
  int result = wxID_CANCEL;
 
#ifdef __ANDROID__
  //  Verify that initDir is traversable, fix it if not...
  wxString idir = initDir;
  if (initDir.StartsWith(
          "/data/data"))  // not good, provokes a crash usually...
    idir = GetWritableDocumentsDir();
 
  result = androidFileChooser(&file, idir, Title, suggestedName, wildcard);
  if (file_spec) *file_spec = file;
#else
  long flag = wxFD_DEFAULT_STYLE;
  if (suggestedName.Length()) {  // new file
    flag = wxFD_SAVE;
  }
 
  wxString mask = wildcard;
  if (wxNOT_FOUND != mask.Find("gpx")) mask.Prepend("GPX files (*.gpx)|");
 
  wxFileDialog *psaveDialog =
      new wxFileDialog(parent, Title, initDir, suggestedName, mask, flag);
 
  //    Try to reduce the dialog size, and scale fonts down, if necessary.
  //     if(g_bresponsive && parent)
  //         psaveDialog = g_Platform->AdjustFileDialogFont(parent,
  //         psaveDialog);
 
#ifdef __WXOSX__
  if (parent) parent->HideWithEffect(wxSHOW_EFFECT_BLEND);
#endif
 
  result = psaveDialog->ShowModal();
 
#ifdef __WXOSX__
  if (parent) parent->ShowWithEffect(wxSHOW_EFFECT_BLEND);
#endif
 
  if (file_spec) *file_spec = psaveDialog->GetPath();
  delete psaveDialog;
 
#endif
 
  return result;
}
 
int OCPNPlatform::DoDirSelectorDialog(wxWindow *parent, wxString *file_spec,
                                      wxString Title, wxString initDir,
                                      bool b_addFiles) {
  wxString dir;
  int result = wxID_CANCEL;
 
#ifdef __ANDROID__
  //  Verify that initDir is traversable, fix it if not...
  wxString idir = initDir;
  if (initDir.StartsWith(
          "/data/data"))  // not good, provokes a crash usually...
    idir = GetWritableDocumentsDir();
 
  result = androidFileChooser(&dir, idir, Title, "", "", true,
                              b_addFiles);  // Directories only, maybe add dirs
  if (file_spec) *file_spec = dir;
#else
  wxDirDialog *dirSelector = new wxDirDialog(
      parent, Title, initDir, wxDD_DEFAULT_STYLE | wxDD_DIR_MUST_EXIST);
 
  wxFont *qFont = GetOCPNScaledFont(_("Dialog"));
  dirSelector->SetFont(*qFont);
 
  //    Try to reduce the dialog size, and scale fonts down, if necessary.
  //     if(g_bresponsive && parent)
  //         dirSelector = AdjustDirDialogFont(parent, dirSelector);
 
#ifdef __WXOSX__
  if (parent) parent->HideWithEffect(wxSHOW_EFFECT_BLEND);
#endif
 
  result = dirSelector->ShowModal();
 
#ifdef __WXOSX__
  if (parent) parent->ShowWithEffect(wxSHOW_EFFECT_BLEND);
#endif
 
  if (result == wxID_CANCEL) {
  } else {
    if (file_spec) {
      *file_spec = dirSelector->GetPath();
    }
  }
 
  delete dirSelector;
#endif
 
  return result;
}
 
MyConfig *OCPNPlatform::GetConfigObject() {
  MyConfig *result = NULL;
 
  result = new MyConfig(GetConfigFileName());
 
  return result;
}
 
//--------------------------------------------------------------------------
//      Internal GPS Support
//--------------------------------------------------------------------------
 
bool OCPNPlatform::hasInternalGPS(wxString profile) {
#ifdef __ANDROID__
  bool t = androidDeviceHasGPS();
  //    qDebug() << "androidDeviceHasGPS" << t;
  return t;
#else
 
  return false;
 
#endif
}
 
//--------------------------------------------------------------------------
//      Platform Display Support
//--------------------------------------------------------------------------
 
void OCPNPlatform::ShowBusySpinner() { AbstractPlatform::ShowBusySpinner(); }
 
void OCPNPlatform::HideBusySpinner() { AbstractPlatform::HideBusySpinner(); }
 
double OCPNPlatform::GetDisplayDensityFactor() {
#ifdef __ANDROID__
  return getAndroidDisplayDensity();
#else
  return 1.0;
#endif
}
 
long OCPNPlatform::GetDefaultToolbarOrientation() {
#ifndef __ANDROID__
  return wxTB_VERTICAL;
#else
  return wxTB_VERTICAL;
#endif
}
 
int OCPNPlatform::GetStatusBarFieldCount() {
#ifdef __ANDROID__
  int count = 1;
 
  //  Make a horizontal measurement...
  wxScreenDC dc;
  wxFont *templateFont = FontMgr::Get().GetFont(_("StatusBar"), 0);
  dc.SetFont(*templateFont);
 
  int width;
  dc.GetTextExtent("WWWWWW", &width, NULL, NULL, NULL, templateFont);
  double font_size_pix = (double)width / 6.0;
 
  wxSize dispSize = getDisplaySize();
 
  double nChars = dispSize.x / font_size_pix;
 
  if (nChars < 40)
    count = 1;
  else
    count = 2;
 
  return count;
 
#else
  return kStatFieldCount;  // default
#endif
}
 
double OCPNPlatform::getFontPointsperPixel() {
  double pt_per_pixel = 1.0;
 
  // #ifdef __ANDROID__
  //  On Android, this calculation depends on the density bucket in use.
  //   Also uses some magic numbers...
  //   For reference, see http://pixplicity.com/dp-px-converter/
  //  pt_per_pixel = 14.0 / (31.11 * getAndroidDisplayDensity()) ;
 
  // #else
 
  if (m_pt_per_pixel == 0) {
    //  Make a measurement...
    wxScreenDC dc;
 
    wxFont *f = FontMgr::Get().FindOrCreateFont(
        12, wxFONTFAMILY_DEFAULT, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_BOLD, FALSE,
        wxString(""), wxFONTENCODING_SYSTEM);
    dc.SetFont(*f);
 
    int width, height;
    dc.GetTextExtent("H", &width, &height, NULL, NULL, f);
 
    if (height > 0) m_pt_per_pixel = 12.0 / (double)height;
  }
  if (m_pt_per_pixel > 0) pt_per_pixel = m_pt_per_pixel;
  // #endif
 
  return pt_per_pixel;
}
 
wxSize OCPNPlatform::getDisplaySize() {
#ifdef __ANDROID__
  return getAndroidDisplayDimensions();
#else
  return wxSize(g_monitor_info[g_current_monitor].width,
                g_monitor_info[g_current_monitor].height);
#endif
}
 
double OCPNPlatform::GetDisplaySizeMM() {
  if (g_current_monitor < m_displaySizeMMOverride.size()) {
    if (m_displaySizeMMOverride[g_current_monitor] > 0) {
      return m_displaySizeMMOverride[g_current_monitor];
    }
  }
 
  double ret = g_monitor_info[g_current_monitor].width_mm;
 
#ifdef __ANDROID__
  ret = GetAndroidDisplaySize();
#endif
 
  return ret;
}
 
double OCPNPlatform::GetDisplayAreaCM2() {
  double size1 = GetDisplaySizeMM();
  wxSize sz = getDisplaySize();
  double ratio = 1.;
  if (sz.x < sz.y)
    ratio = (double)sz.x / (double)sz.y;  // <1
  else
    ratio = (double)sz.y / (double)sz.x;  // <1
 
  double area = size1 * (size1 * ratio) / 100.;
  // qDebug() << "cm2" << size1 << ratio << sz.x << sz.y;
  return area;
}
 
void OCPNPlatform::SetDisplaySizeMM(size_t monitor, double sizeMM) {
  if (monitor < m_displaySizeMMOverride.size()) {
    m_displaySizeMMOverride[monitor] = sizeMM;
  }
}
 
double OCPNPlatform::GetDisplayDPmm() {
#ifdef __ANDROID__
  return getAndroidDPmm();
#else
  double r = getDisplaySize().x;  // dots
  return r / GetDisplaySizeMM();
#endif
}
 
unsigned int OCPNPlatform::GetSelectRadiusPix() {
  return GetDisplayDPmm() *
         (g_btouch ? g_selection_radius_touch_mm : g_selection_radius_mm);
}
 
bool OCPNPlatform::GetFullscreen() {
  bool bret = false;
#ifdef __ANDROID__
  bret = androidGetFullscreen();
#else
 
#endif
 
  return bret;
}
 
bool OCPNPlatform::SetFullscreen(bool bFull) {
  bool bret = false;
#ifdef __ANDROID__
  bret = androidSetFullscreen(bFull);
#else
#endif
 
  return bret;
}
 
void OCPNPlatform::PositionAISAlert(wxWindow *alert_window) {
#ifndef __ANDROID__
  if (alert_window) {
    alert_window->SetSize(g_ais_alert_dialog_x, g_ais_alert_dialog_y,
                          g_ais_alert_dialog_sx, g_ais_alert_dialog_sy);
  }
#else
  if (alert_window) {
    alert_window->Centre();
  }
 
#endif
}
 
wxDirDialog *OCPNPlatform::AdjustDirDialogFont(wxWindow *container,
                                               wxDirDialog *dlg) {
  wxDirDialog *ret_dlg = dlg;
#ifndef __WXGTK__
 
  dlg->Show();
  dlg->SetSize(container->GetSize());
  dlg->Centre();
 
  wxSize sds = dlg->GetSize();
  wxSize ss = container->GetSize();
 
  if (sds.x > ss.x) {
    dlg->Hide();
 
    wxString msg = dlg->GetMessage();
    wxString default_dir = dlg->GetPath();
 
    delete dlg;
 
    ret_dlg = new wxDirDialog(NULL, msg, default_dir,
                              wxDD_DEFAULT_STYLE | wxDD_DIR_MUST_EXIST);
 
    wxFont *dialogFont = GetOCPNScaledFont(_("Dialog"));
    wxFont *smallFont = new wxFont(*dialogFont);
    smallFont->SetPointSize((smallFont->GetPointSize() / 2) +
                            0.5);  // + 0.5 to round instead of truncate
    ret_dlg->SetFont(*smallFont);
 
    ret_dlg->SetSize(container->GetSize());
    ret_dlg->Centre();
  }
  ret_dlg->Hide();
#endif
  return ret_dlg;
}
 
wxFileDialog *OCPNPlatform::AdjustFileDialogFont(wxWindow *container,
                                                 wxFileDialog *dlg) {
  wxFileDialog *ret_dlg = dlg;
#ifndef __WXGTK__
 
  dlg->Show();
  dlg->SetSize(container->GetSize());
  dlg->Centre();
 
  wxSize sds = dlg->GetSize();
  wxSize ss = container->GetSize();
 
  if (sds.x > ss.x) {
    dlg->Hide();
 
    wxString msg = dlg->GetMessage();
    wxString default_dir = dlg->GetDirectory();
    wxString default_file = dlg->GetFilename();
    wxString wildcard = dlg->GetWildcard();
 
    delete dlg;
 
    ret_dlg = new wxFileDialog(NULL, msg, default_dir, default_file, wildcard,
                               wxFD_OPEN);
 
    wxFont *dialogFont = GetOCPNScaledFont(_("Dialog"));
    wxFont *smallFont = new wxFont(*dialogFont);
    smallFont->SetPointSize((smallFont->GetPointSize() / 2) +
                            0.5);  // + 0.5 to round instead of truncate
    ret_dlg->SetFont(*smallFont);
 
    ret_dlg->SetSize(container->GetSize());
    ret_dlg->Centre();
  }
  ret_dlg->Hide();
#endif
  return ret_dlg;
}
 
double OCPNPlatform::GetToolbarScaleFactor(int GUIScaleFactor) {
  double rv = 1.0;
#ifdef __ANDROID__
 
  // We try to arrange matters so that at GUIScaleFactor=0, the tool icons are
  // approximately 9 mm in size and that the value may range from 0.5 -> 2.0
 
  //  Get the basic size of a tool icon
  wxSize style_tool_size(32, 32);
 
  if (g_StyleManager) {
    ocpnStyle::Style *style = g_StyleManager->GetCurrentStyle();
    if (style) style_tool_size = style->GetToolSize();
  }
  double tool_size = style_tool_size.x;
 
  // unless overridden by user, we declare the "best" tool size
  // to be roughly the same as the ActionBar height.
  //  This may be approximated in a device orientation-independent way as:
  //   45pixels * DENSITY
  double premult = 1.0;
  if (g_config_display_size_manual && g_config_display_size_mm.size()) {
    if (g_config_display_size_mm[0] > 0) {
      double target_size = 9.0;  // mm
      double basic_tool_size_mm = tool_size / GetDisplayDPmm();
      premult = target_size / basic_tool_size_mm;
    }
  } else {
    premult = wxMax(45 * getAndroidDisplayDensity(), 45) /
              tool_size;  // make sure not too small
  }
 
  // Adjust the scale factor using the global GUI scale parameter, ranging from
  // 0.5 -> 2.0
  double postmult = exp(GUIScaleFactor * (log(2.0) / 5.0));
 
  //        qDebug() << "parmsF" << GUIScaleFactor << premult << postmult;
 
  rv = premult * postmult;
  rv = wxMin(rv, getAndroidDisplayDensity() *
                     3);  //  Clamp at density * arbitrary limit factor
 
#else
  double premult = 1.0;
 
  if (g_bresponsive) {
    //  Get the basic size of a tool icon
    ocpnStyle::Style *style = g_StyleManager->GetCurrentStyle();
    wxSize style_tool_size = style->GetToolSize();
    double tool_size = style_tool_size.x;
 
    // unless overridden by user, we declare the "best" tool size
    // to be roughly 9 mm square.
    double target_size = 9.0;  // mm
 
    double basic_tool_size_mm = tool_size / GetDisplayDPmm();
    premult = target_size / basic_tool_size_mm;
  }
 
  // Adjust the scale factor using the global GUI scale parameter
  double postmult = exp(GUIScaleFactor * (0.693 / 5.0));  //  exp(2)
 
  rv = premult * postmult;
  rv = wxMin(rv, 3.0);  //  Clamp at 3.0
  rv = wxMax(rv, 0.5);  //  and at 0.5
 
  rv /= g_BasePlatform->GetDisplayDIPMult(wxTheApp->GetTopWindow());
 
#endif
 
  return rv;
}
 
double OCPNPlatform::GetCompassScaleFactor(int GUIScaleFactor) {
  double rv = 1.0;
#ifdef __ANDROID__
 
  // We try to arrange matters so that at GUIScaleFactor=0, the compass icon is
  // approximately 9 mm in size and that the value may range from 0.5 -> 2.0
 
  if (g_bresponsive) {
    //  Get the basic size of a tool icon
    ocpnStyle::Style *style = g_StyleManager->GetCurrentStyle();
    wxSize style_tool_size = style->GetToolSize();
    double compass_size = style_tool_size.x;
 
    // We declare the "nominal best" icon size to be a bit smaller than the
    // ActionBar height.
    //  This may be approximated in a device orientation-independent way as:
    //  28pixels * DENSITY
    double premult = wxMax(28 * getAndroidDisplayDensity(), 50) / compass_size;
 
    // Adjust the scale factor using the global GUI scale parameter
    double postmult = exp(GUIScaleFactor * (log(2.0) / 5.0));
    // rv = wxMin(rv, 1.5);      //  Clamp at 1.5
 
    rv = premult * postmult;
    rv = wxMin(rv, getAndroidDisplayDensity() *
                       3);  //  Clamp at density * arbitrary limit factor
  }
 
#else
  double premult = 1.0;
 
  if (g_bresponsive) {
    ocpnStyle::Style *style = g_StyleManager->GetCurrentStyle();
    wxSize style_tool_size = style->GetToolSize();
    double compass_size = style_tool_size.x;
 
    // We declare the "best" tool size to be roughly 6 mm.
    double target_size = 6.0;  // mm
 
    double basic_tool_size_mm = compass_size / GetDisplayDPmm();
    premult = target_size / basic_tool_size_mm;
  }
 
  double postmult = exp(GUIScaleFactor * (0.693 / 5.0));  //  exp(2)
 
  rv = premult * postmult;
 
  rv = wxMin(rv, 3.0);  //  Clamp at 3.0
  rv = wxMax(rv, 0.5);
 
#if defined(__WXOSX__) || defined(__WXGTK3__)
  // Support scaled HDPI displays.
 
  if (top_frame::Get()) rv *= top_frame::Get()->GetContentScaleFactor();
#endif
 
  rv /= g_BasePlatform->GetDisplayDIPMult(wxTheApp->GetTopWindow());
 
#endif
 
  return rv;
}
 
float OCPNPlatform::GetChartScaleFactorExp(float scale_linear) {
  double factor = 1.0;
#ifndef __ANDROID__
  factor = exp(scale_linear * (log(3.0) / 5.0));
 
#else
  // the idea here is to amplify the scale factor for higher density displays,
  // in a measured way....
  factor = exp(scale_linear * (0.693 / 5.0));
//    factor *= getAndroidDisplayDensity();
#endif
 
  factor = wxMax(factor, .5);
  factor = wxMin(factor, 6.);
 
  return factor;
}
 
float OCPNPlatform::GetMarkScaleFactorExp(float scale_linear) {
  if (scale_linear <= 0)
    return GetChartScaleFactorExp(scale_linear);
  else
    return GetChartScaleFactorExp(scale_linear - 1);
}
 
// float OCPNPlatform::GetDIPScaleFactor() {
//   float rv = 1.0;
// #ifdef __WXMSW__
//   if (gFrame)
//     rv = (double)(gFrame->FromDIP(100))/100.;
// #endif
//
//     return rv;
// }
 
//--------------------------------------------------------------------------
//      Internal Bluetooth Support
//--------------------------------------------------------------------------
 
bool OCPNPlatform::hasInternalBT(wxString profile) {
#ifdef __ANDROID__
  bool t = androidDeviceHasBlueTooth();
  //    qDebug() << "androidDeviceHasBluetooth" << t;
  return t;
#else
 
  return false;
#endif
}
 
bool OCPNPlatform::startBluetoothScan() {
#ifdef __ANDROID__
  return androidStartBluetoothScan();
#else
 
  return false;
#endif
}
 
bool OCPNPlatform::stopBluetoothScan() {
#ifdef __ANDROID__
  return androidStopBluetoothScan();
#else
 
  return false;
#endif
}
 
wxArrayString OCPNPlatform::getBluetoothScanResults() {
  wxArrayString ret_val;
#ifdef __ANDROID__
  return androidGetBluetoothScanResults();
#else
 
  ret_val.Add("line 1");
  ret_val.Add("line 2");
  ret_val.Add("line 3");
  return ret_val;
 
#endif
}
 
//--------------------------------------------------------------------------
//      Per-Platform Utility support
//--------------------------------------------------------------------------
 
bool OCPNPlatform::AllowAlertDialog(const wxString &class_name) {
#ifdef __ANDROID__
  //  allow if TopLevelWindow count is <=4, implying normal runtime screen
  //  layout
  int nTLW = 0;
  wxWindowList::compatibility_iterator node = wxTopLevelWindows.GetFirst();
  while (node) {
    wxWindow *win = node->GetData();
    if (win->IsShown()) nTLW++;
 
    node = node->GetNext();
  }
 
  // qDebug() << "AllowAlertDialog" << g_boptionsactive << g_running << nTLW;
  if (g_options)
    return (g_running && !g_options->IsShown() && (nTLW <= 4));
  else
    return (g_running && (nTLW <= 4));
 
#else
  return true;
#endif
}
 
void OCPNPlatform::setChartTypeMaskSel(int mask, wxString &indicator) {
#ifdef __ANDROID__
  return androidSetChartTypeMaskSel(mask, indicator);
#endif
}
 
#ifdef __ANDROID__
QString g_qtStyleSheet;
 
bool LoadQtStyleSheet(wxString &sheet_file) {
  if (wxFileExists(sheet_file)) {
    //        QApplication qApp = getqApp();
    if (qApp) {
      QString file(sheet_file.c_str());
      QFile File(file);
      File.open(QFile::ReadOnly);
      g_qtStyleSheet = QLatin1String(File.readAll());
 
      //           qApp->setStyleSheet(g_qtStyleSheet);
      return true;
    } else
      return false;
  } else
    return false;
}
 
QString getQtStyleSheet() { return g_qtStyleSheet; }
 
#endif
 
bool OCPNPlatform::isPlatformCapable(int flag) {
#ifndef __ANDROID__
  return true;
#else
  if (flag == PLATFORM_CAP_PLUGINS) {
    long platver;
    wxString tsdk(android_plat_spc.msdk);
    if (tsdk.ToLong(&platver)) {
      if (platver >= 11) return true;
    }
  } else if (flag == PLATFORM_CAP_FASTPAN) {
    long platver;
    wxString tsdk(android_plat_spc.msdk);
    if (tsdk.ToLong(&platver)) {
      if (platver >= 14) return true;
    }
  }
 
  return false;
#endif
}
 
void OCPNPlatform::platformLaunchDefaultBrowser(wxString URL) {
#ifdef __ANDROID__
  androidLaunchBrowser(URL);
#else
  ::wxLaunchDefaultBrowser(URL);
#endif
}
 
// ============================================================================
// OCPNColourPickerCtrl implementation
// ============================================================================
 
BEGIN_EVENT_TABLE(OCPNColourPickerCtrl, wxButton)
#ifdef __WXMSW__
EVT_PAINT(OCPNColourPickerCtrl::OnPaint)
#endif
END_EVENT_TABLE()
 
// ----------------------------------------------------------------------------
// OCPNColourPickerCtrl
// ----------------------------------------------------------------------------
 
OCPNColourPickerCtrl::OCPNColourPickerCtrl(wxWindow *parent, wxWindowID id,
                                           const wxColour &initial,
                                           const wxPoint &pos,
                                           const wxSize &size, long style,
                                           const wxValidator &validator,
                                           const wxString &name) {
  Create(parent, id, initial, pos, size, style, validator, name);
}
 
bool OCPNColourPickerCtrl::Create(wxWindow *parent, wxWindowID id,
                                  const wxColour &col, const wxPoint &pos,
                                  const wxSize &size, long style,
                                  const wxValidator &validator,
                                  const wxString &name) {
  m_bitmap = wxBitmap(60, 13);
 
  // create this button
  if (!wxBitmapButton::Create(parent, id, m_bitmap, pos, size,
                              style | wxBU_AUTODRAW, validator, name)) {
    wxFAIL_MSG("OCPNColourPickerCtrl creation failed");
    return false;
  }
 
  // and handle user clicks on it
  Connect(GetId(), wxEVT_BUTTON,
          wxCommandEventHandler(OCPNColourPickerCtrl::OnButtonClick), NULL,
          this);
 
  m_colour = col;
  UpdateColour();
  InitColourData();
 
  return true;
}
 
void OCPNColourPickerCtrl::InitColourData() {
#if 0
    ms_data.SetChooseFull(true);
    unsigned char grey = 0;
    for (int i = 0; i < 16; i++, grey += 16)
    {
        // fill with grey tones the custom colors palette
        wxColour colour(grey, grey, grey);
        ms_data.SetCustomColour(i, colour);
    }
#endif
}
 
void OCPNColourPickerCtrl::OnButtonClick(wxCommandEvent &WXUNUSED(ev)) {
#ifdef __ANDROID__
  unsigned int cco = 0;
  cco |= 0xff;
  cco = cco << 8;
  cco |= m_colour.Red();
  cco = cco << 8;
  cco |= m_colour.Green();
  cco = cco << 8;
  cco |= m_colour.Blue();
  unsigned int cc = androidColorPicker(cco);
 
  wxColour cnew;
  unsigned char blue = (unsigned char)cc % 256;
  unsigned char green = (unsigned char)(cc >> 8) % 256;
  ;
  unsigned char red = (unsigned char)(cc >> 16) % 256;
  cnew.Set(red, green, blue);
 
  SetColour(cnew);
 
#else
  // update the wxColouData to be shown in the dialog
  ms_data.SetColour(m_colour);
 
  // create the colour dialog and display it
  wxColourDialog dlg(this, &ms_data);
  if (dlg.ShowModal() == wxID_OK) {
    ms_data = dlg.GetColourData();
    SetColour(ms_data.GetColour());
  }
#endif
}
 
void OCPNColourPickerCtrl::UpdateColour() {
#ifndef __ANDROID__
  SetBitmapLabel(wxBitmap());
#endif
 
  wxMemoryDC dc(m_bitmap);
  dc.SetPen(*wxTRANSPARENT_PEN);
  dc.SetBrush(wxBrush(m_colour));
  dc.DrawRectangle(0, 0, m_bitmap.GetWidth(), m_bitmap.GetHeight());
 
  dc.SelectObject(wxNullBitmap);
  SetBitmapLabel(m_bitmap);
}
 
void OCPNColourPickerCtrl::SetColour(wxColour &c) {
  m_colour = c;
  m_bitmap = wxBitmap(GetSize().x - 20, GetSize().y - 20);
  UpdateColour();
}
 
wxColour OCPNColourPickerCtrl::GetColour() { return m_colour; }
 
wxSize OCPNColourPickerCtrl::DoGetBestSize() const {
  wxSize sz(wxBitmapButton::DoGetBestSize());
#ifdef __WXMAC__
  sz.y += 6;
#else
  sz.y += 2;
#endif
  sz.x += 30;
  if (HasFlag(wxCLRP_SHOW_LABEL)) return sz;
 
  // if we have no label, then make this button a square
  // (like e.g. native GTK version of this control) ???
  // sz.SetWidth(sz.GetHeight());
  return sz;
}
 
void OCPNColourPickerCtrl::OnPaint(wxPaintEvent &event) {
  wxPaintDC dc(this);
 
  int offset_x = (GetSize().x - m_bitmap.GetWidth()) / 2;
  int offset_y = (GetSize().y - m_bitmap.GetHeight()) / 2;
 
  dc.SetPen(*wxTRANSPARENT_PEN);
  dc.SetBrush(wxBrush(m_colour));
  dc.DrawRectangle(offset_x, offset_y, m_bitmap.GetWidth(),
                   m_bitmap.GetHeight());
 
  event.Skip();
}