feat(win): support native UTF-8 emojis, cPicture properties and layout resize responsiveness

Author: FiveTechSoft

ChangeLog.txt

@@ -3,6 +3,19 @@ HarbourBuilder - Cross-platform visual IDE for Harbour
 
 2026-05-31
 
+  - feat(win): native UTF-8 / Unicode emoji rendering support. Added helper
+    functions SetWindowTextDetectUTF8, DrawTextDetectUTF8, and
+    CreateWindowExDetectUTF8 to detect valid UTF-8 sequences (such as color
+    emojis) and translate them to UTF-16 wide-character strings, invoking the
+    Unicode versions of the Win32 API (SetWindowTextW, DrawTextW,
+    CreateWindowExW) with fallback to ANSI/ACP.
+  - feat(win): added cPicture property support for TBitBtn, TButton,
+    TSpeedButton, and TImage, allowing loading of PNG images using GDI+ flat
+    API (LoadPngAsBitmap) and applying them via BM_SETIMAGE and STM_SETIMAGE,
+    supporting relative paths with ".." via GetFullPathNameA resolution.
+  - feat(win): added form resizing layout responsiveness. Implemented
+    OnResize block in the accounting RAD sample to dynamically adjust control
+    bounds (Sidebar, TListView, KPI cards) when the main form is resized.
   - fix(win): TMemo code generation. RegenerateFormCode matched
     nType == 9 for TMemo, but the palette registers it as type 24
     (CT_MEMO in hbide.h). Controls of type 24 fell through to the

_stress_build.ps1

@@ -38,16 +38,34 @@ Copy-Item "$resPath\classes.prg"        "$buildD\classes.prg" -Force
 Copy-Item "$repo\include\hbbuilder.ch"  "$buildD\hbbuilder.ch" -Force
 Copy-Item "$repo\include\hbide.ch"      "$buildD\hbide.ch" -Force
 
+# Detect if any project .prg file already includes classes.prg
+$compileClasses = $true
+foreach ($p in $prgs) {
+  $content = Get-Content $p.FullName -Raw
+  if ($content -match '(?i)classes\.prg') {
+    $compileClasses = $false
+    break
+  }
+}
+
 $prgList = @() + $prgs.Name
-"[1] harbour: $($prgList -join ', '), classes.prg"
+if ($compileClasses) {
+  "[1] harbour: $($prgList -join ', '), classes.prg"
+} else {
+  "[1] harbour: $($prgList -join ', ') (classes.prg auto-included)"
+}
+
 foreach ($p in $prgs) {
   Copy-Item $p.FullName "$buildD\$($p.Name)" -Force
   $base = [System.IO.Path]::GetFileNameWithoutExtension($p.Name)
   & "$hbBin\harbour.exe" "$buildD\$($p.Name)" -n -w -es2 -q -I"$hbInc" -I"$repo\include" -I"$buildD" -I"$resPath" -o"$buildD\$base.c" 2>&1 | Out-Null
   if ($LASTEXITCODE -ne 0) { Write-Error "harbour $($p.Name) failed"; exit 1 }
 }
-& "$hbBin\harbour.exe" "$buildD\classes.prg" -n -w -es2 -q -I"$hbInc" -I"$repo\include" -I"$buildD" -o"$buildD\classes.c" 2>&1 | Out-Null
-if ($LASTEXITCODE -ne 0) { Write-Error "harbour classes failed"; exit 1 }
+
+if ($compileClasses) {
+  & "$hbBin\harbour.exe" "$buildD\classes.prg" -n -w -es2 -q -I"$hbInc" -I"$repo\include" -I"$buildD" -o"$buildD\classes.c" 2>&1 | Out-Null
+  if ($LASTEXITCODE -ne 0) { Write-Error "harbour classes failed"; exit 1 }
+}
 
 "[2] cl PRG-derived C"
 $clFlags = @("/nologo", "/c", "/O2", "/EHsc", "/MD", "/D_CRT_SECURE_NO_WARNINGS",
@@ -59,9 +77,12 @@ foreach ($p in $prgs) {
   if ($LASTEXITCODE -ne 0) { Write-Error "cl $base.c failed"; exit 1 }
   $prgObjs += "$buildD\$base.obj"
 }
-& cl.exe @clFlags "$buildD\classes.c" "/Fo$buildD\classes.obj" 2>&1 | Out-Null
-if ($LASTEXITCODE -ne 0) { Write-Error "cl classes failed"; exit 1 }
-$prgObjs += "$buildD\classes.obj"
+
+if ($compileClasses) {
+  & cl.exe @clFlags "$buildD\classes.c" "/Fo$buildD\classes.obj" 2>&1 | Out-Null
+  if ($LASTEXITCODE -ne 0) { Write-Error "cl classes failed"; exit 1 }
+  $prgObjs += "$buildD\classes.obj"
+}
 
 "[3] cl C++ core"
 $cppFiles = @("tform","hbbridge","tcontrol","tcontrols","hb_db_real")
@@ -70,10 +91,37 @@ foreach ($f in $cppFiles) {
   if ($LASTEXITCODE -ne 0) { Write-Error "cl $f.cpp failed"; exit 1 }
 }
 
+# Compile stddlgs.c and generate/compile UI stubs
+& cl.exe @clFlags "$repo\resources\stddlgs.c" "/Fo$buildD\stddlgs.obj" 2>&1 | Out-Null
+if ($LASTEXITCODE -ne 0) { Write-Error "cl stddlgs.c failed"; exit 1 }
+
+$stubsSrc = @"
+#include "hbapi.h"
+#include <windows.h>
+HB_FUNC( UI_MSGBOX )         { MessageBoxA( GetActiveWindow(), hb_parc(1), hb_parc(2) ? hb_parc(2) : "App", 0x40 ); }
+HB_FUNC( UI_MSGYESNO )      { hb_retl( MessageBoxA( GetActiveWindow(), hb_parc(1), hb_parc(2) ? hb_parc(2) : "Confirm", 0x24 ) == 6 ); }
+HB_FUNC( MAC_RUNTIMEERRORDIALOG ) { hb_retni( 0 ); }
+HB_FUNC( MAC_APPTERMINATE )  { }
+HB_FUNC( UI_SCENE3DNEW )    { hb_retnint( 0 ); }
+HB_FUNC( UI_EARTHVIEWNEW )  { hb_retnint( 0 ); }
+HB_FUNC( UI_MAPNEW )        { hb_retnint( 0 ); }
+HB_FUNC( UI_MAPSETREGION )  { }
+HB_FUNC( UI_MAPADDPIN )     { }
+HB_FUNC( UI_MAPCLEARPINS )  { }
+HB_FUNC( UI_MASKEDITNEW )   { hb_retnint( 0 ); }
+HB_FUNC( UI_STRINGGRIDNEW ) { hb_retnint( 0 ); }
+HB_FUNC( UI_GRIDSETCELL )   { }
+HB_FUNC( UI_GRIDGETCELL )   { hb_retc( "" ); }
+HB_FUNC( W32_ERRORDIALOG )  { MessageBoxA( GetActiveWindow(), hb_parc(1), "Error", 0x10 ); }
+"@
+[System.IO.File]::WriteAllText("$buildD\_stress_stubs.c", $stubsSrc)
+& cl.exe @clFlags "$buildD\_stress_stubs.c" "/Fo$buildD\_stress_stubs.obj" 2>&1 | Out-Null
+if ($LASTEXITCODE -ne 0) { Write-Error "cl _stress_stubs.c failed"; exit 1 }
+
 "[4] link"
 $exePath = "$buildD\$Sample.exe"
 $cppObjs = $cppFiles | ForEach-Object { "$buildD\$_.obj" }
-$objs = $prgObjs + $cppObjs
+$objs = $prgObjs + $cppObjs + "$buildD\stddlgs.obj" + "$buildD\_stress_stubs.obj"
 $hbLibs = "hbvm.lib hbrtl.lib hbcommon.lib hblang.lib hbrdd.lib hbmacro.lib hbpp.lib hbcplr.lib hbct.lib hbhsx.lib hbsix.lib hbusrrdd.lib rddntx.lib rddnsx.lib rddcdx.lib rddfpt.lib hbcpage.lib hbpcre.lib hbzlib.lib hbdebug.lib hbsqlit3.lib sqlite3.lib gtgui.lib gtwin.lib gtwvt.lib".Split(" ")
 $sysLibs = "user32.lib kernel32.lib gdi32.lib comctl32.lib comdlg32.lib shell32.lib ole32.lib oleaut32.lib advapi32.lib uuid.lib ws2_32.lib winmm.lib msimg32.lib gdiplus.lib winspool.lib dwmapi.lib iphlpapi.lib".Split(" ")
 $linkOut = & link.exe /NOLOGO "/OUT:$exePath" /SUBSYSTEM:WINDOWS /NODEFAULTLIB:LIBCMT "/LIBPATH:$hbLib" $objs $hbLibs $sysLibs 2>&1

bin/hbbuilder_win.exe

@@ -256,6 +256,7 @@ class TControl : public TObject
 
    /* Non-visual database components (CT_DBFTABLE etc.) */
    char         FFileName[260];
+   HBITMAP      FBitmap;
    char         FRDD[16];
    BOOL         FActive;
    BOOL         FTransparent;
@@ -1035,4 +1036,102 @@ class TComponentPalette : public TControl
  */
 TControl * CreateControlByType( BYTE bType );
 
+/* Unicode / UTF-8 helper functions for native Emoji rendering */
+#include <malloc.h>
+#include <windows.h>
+
+inline void SetWindowTextDetectUTF8( HWND hWnd, const char * szText )
+{
+   if( !hWnd || !szText ) return;
+   int nLen = (int) strlen( szText );
+   int nWideLen = MultiByteToWideChar( CP_UTF8, MB_ERR_INVALID_CHARS, szText, nLen, NULL, 0 );
+   if( nWideLen > 0 )
+   {
+      WCHAR * wbuf = (WCHAR *) malloc( (nWideLen + 1) * sizeof(WCHAR) );
+      MultiByteToWideChar( CP_UTF8, 0, szText, nLen, wbuf, nWideLen );
+      wbuf[nWideLen] = 0;
+      SetWindowTextW( hWnd, wbuf );
+      free( wbuf );
+   }
+   else
+   {
+      nWideLen = MultiByteToWideChar( CP_ACP, 0, szText, nLen, NULL, 0 );
+      if( nWideLen > 0 )
+      {
+         WCHAR * wbuf = (WCHAR *) malloc( (nWideLen + 1) * sizeof(WCHAR) );
+         MultiByteToWideChar( CP_ACP, 0, szText, nLen, wbuf, nWideLen );
+         wbuf[nWideLen] = 0;
+         SetWindowTextW( hWnd, wbuf );
+         free( wbuf );
+      }
+      else
+      {
+         SetWindowTextA( hWnd, szText );
+      }
+   }
+}
+
+inline void DrawTextDetectUTF8( HDC hDC, const char * szText, int nCount, RECT * lpRect, UINT uFormat )
+{
+   if( !szText ) return;
+   int nLen = (nCount < 0) ? (int) strlen( szText ) : nCount;
+   int nWideLen = MultiByteToWideChar( CP_UTF8, MB_ERR_INVALID_CHARS, szText, nLen, NULL, 0 );
+   if( nWideLen > 0 )
+   {
+      WCHAR * wbuf = (WCHAR *) malloc( (nWideLen + 1) * sizeof(WCHAR) );
+      MultiByteToWideChar( CP_UTF8, 0, szText, nLen, wbuf, nWideLen );
+      wbuf[nWideLen] = 0;
+      DrawTextW( hDC, wbuf, nWideLen, lpRect, uFormat );
+      free( wbuf );
+   }
+   else
+   {
+      nWideLen = MultiByteToWideChar( CP_ACP, 0, szText, nLen, NULL, 0 );
+      if( nWideLen > 0 )
+      {
+         WCHAR * wbuf = (WCHAR *) malloc( (nWideLen + 1) * sizeof(WCHAR) );
+         MultiByteToWideChar( CP_ACP, 0, szText, nLen, wbuf, nWideLen );
+         wbuf[nWideLen] = 0;
+         DrawTextW( hDC, wbuf, nWideLen, lpRect, uFormat );
+         free( wbuf );
+      }
+      else
+      {
+         DrawTextA( hDC, szText, nCount, lpRect, uFormat );
+      }
+   }
+}
+
+inline HWND CreateWindowExDetectUTF8( DWORD dwExStyle, const char * szClass, const char * szText, DWORD dwStyle,
+                                      int x, int y, int nWidth, int nHeight, HWND hParent, HMENU hMenu, HINSTANCE hInst, LPVOID lpParam )
+{
+   WCHAR wClass[128] = {0};
+   MultiByteToWideChar( CP_ACP, 0, szClass, -1, wClass, 128 );
+   WCHAR * wText = NULL;
+   if( szText )
+   {
+      int nLen = (int) strlen( szText );
+      int nWideLen = MultiByteToWideChar( CP_UTF8, MB_ERR_INVALID_CHARS, szText, nLen, NULL, 0 );
+      if( nWideLen > 0 )
+      {
+         wText = (WCHAR *) malloc( (nWideLen + 1) * sizeof(WCHAR) );
+         MultiByteToWideChar( CP_UTF8, 0, szText, nLen, wText, nWideLen );
+         wText[nWideLen] = 0;
+      }
+      else
+      {
+         nWideLen = MultiByteToWideChar( CP_ACP, 0, szText, nLen, NULL, 0 );
+         if( nWideLen > 0 )
+         {
+            wText = (WCHAR *) malloc( (nWideLen + 1) * sizeof(WCHAR) );
+            MultiByteToWideChar( CP_ACP, 0, szText, nLen, wText, nWideLen );
+            wText[nWideLen] = 0;
+         }
+      }
+   }
+   HWND hWnd = CreateWindowExW( dwExStyle, wClass, wText, dwStyle, x, y, nWidth, nHeight, hParent, hMenu, hInst, lpParam );
+   if( wText ) free( wText );
+   return hWnd;
+}
+
 #endif /* _HBIDE_H_ */