Tweet
hLib = LoadLibrary("USER32.DLL")
If hLib Then
hFunc = GetProcAddress(hLib, "CreateWindowExW")
If hFunc Then
hInstance = GetModuleHandle(ByVal %Null)
! pushad
! push 0
! push hInstance
! push nID
! push hParent
! push h
! push w
! push y
! push x
! push dwStyle
plpWindowName = StrPtr(suTitle)
! push plpWindowName
plpClassName = StrPtr(suClass)
! push plpClassName
! push dwStyleEx
! Call hFunc
! mov hCtl, eax
! popad
End If
DECLARE FUNCTION CreateWindowExW LIB "USER32.DLL" ALIAS "CreateWindowExW" _
(BYVAL dwExStyle AS DWORD, BYVAL lpClassName AS DWORD, _
BYVAL lpWindowName AS DWORD, BYVAL dwStyle AS DWORD, _
BYVAL x AS LONG, BYVAL y AS LONG, _
BYVAL nWidth AS LONG, BYVAL nHeight AS LONG, _
BYVAL hWndParent AS DWORD, BYVAL hMenu AS DWORD, _
BYVAL hInstance AS DWORD, lpParam AS ANY) AS DWORD
...
hWnd (i) = CreateWindowExW ( %NULL, STRPTR(swClass), STRPTR(swTitle), _
dwStyle, X, Y, Cx, Cy, hParent, %NULL, hInst, BYVAL %NULL)
......
I had copied the code you posted. Unfortunately, didn't compile due to lost characters. 
char_ht = 80
'test for char ht
' Control Add Label, hdlg, -1, "CHR test " & String$ (20,"X"), col, Row + char_ht, 800, 200, %ss_center
' Create a unicode child window (uses A face for text)...
ControlAddUnicode UCode$("STATIC"), hDlg, %Id_Uni_Control_01, Chr$(LSB, MSB), Col, Row, wd, ht
Row = Row + Char_Ht + 10 'next row
ControlAddUnicode UCode$("STATIC"), hDlg, %Id_Uni_Control_02, Chr$(LSB, MSB), Col, Row, wd, ht '<<<<< Does not get created
) that uses an Edit control as well as a couple of Statics..'______________________________________________________________________________
'
' Unicode for DDT
' ---------------
'
' Some easy to use functions that allow the creation and manipulation of
' UNICODE format controls in a DDT dialog box.'
' Created by Kev Peel, KGP Software. Dec 2006.
' [URL]http://www.powerbasic.com/support/pbforums/showthread.php?p=171895[/URL]
'
' Original code favoured using assembly language: "This way, you can still run the application on
' non-unicode OS, but avoid any missing link errors. I know the ASM CALL method is non attractive to
' most (as opposed to CALL DWORD), but I quite like it as it doesn't require any DECLARE".
'
' This version modified to use Declares (& no ASM) so not suitable for pre Win NT OSs
'______________________________________________________________________________
#Compile Exe
#Dim All
$APPTITLE = "UncDDT"
%USEMACROS = 1
#Include "WIN32API.INC"
Declare Function SetDlgItemTextU Lib "USER32.DLL" Alias "SetDlgItemTextW" (ByVal hDlg As Dword, _
ByVal nIDDlgItem As Long, ByVal suString As String) As Long
Declare Function GetDlgItemTextU Lib "USER32.DLL" Alias "GetDlgItemTextW" (ByVal hDlg As Dword, _
ByVal nIDDlgItem As Long, ByVal lpString As Dword, ByVal nMaxCount As Long) As Long
Declare Function CreateWindowExU Lib "USER32.DLL" Alias "CreateWindowExW" (ByVal dwExStyle As Dword, _
ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Dword, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal hWndParent As Dword, ByVal hMenu As Dword, ByVal hInstance As Dword, lpParam As Any) As Dword
'------------------------------------------------------------------------------
' Create the specified class as a unicode control.
'
' suClass is the class to create (eg. "EDIT"). Must be a unicode string.
' hParent is the handle of the parent dialog (DDT). Required.
' nID is the control identifier. Required.
' suTitle is the title text to use. Must be a unicode string.
' x, y are the horizontal and vertical position (dialog units).
' w, h are the width and height (dialog units).
' dwStyle is the standard style bits to use. Optional.
' dwStyleEx is the extended style bits to use. Optional.
' hFont is the handle of a logical font. Optional
'
' Returns a nonzero unicode window handle on success, else NULL.
'
' Warning: Only works on UNICODE-supported versions of Windows (NT/2000/XP+).
' The unicode functions are dynamically called.
'------------------------------------------------------------------------------
Function ControlAddUnicode(ByVal suClass As String, ByVal hParent As Dword, _
ByVal nID As Long, ByVal suTitle As String, _
ByVal x As Long, ByVal y As Long, _
ByVal w As Long, ByVal h As Long, _
Optional ByVal dwStyle As Dword, _
Optional ByVal dwStyleEx As Dword, _
Optional ByVal hFont As Dword) As Dword ' added hFont param
Local hCtl As Dword
Local hInstance, param As Dword
' Parameter check...
If Len(suClass) = 0 Then Exit Function
If IsWindow(hParent) = %FALSE Then Exit Function
If (nID = 0) Then Exit Function
' Translate from DUs to Pixels...
Dialog Units hParent, x, y To Pixels x, y
Dialog Units hParent, w, h To Pixels w, h
' Always use these styles...
If (dwStyle And %WS_Child) = 0 Then dwStyle = dwStyle Or %WS_Child
If (dwStyle And %WS_Visible) = 0 Then dwStyle = dwStyle Or %WS_Visible
hInstance = GetModuleHandle(ByVal %NULL) : param = %Null
hCtl = CreateWindowExU(dwStyleEx, suClass, suTitle, dwStyle, x, y, w, h, hParent, nID, hInstance, param)
If hCtl Then
' If no optional font, either use parent font or Windows' GUI font...
If hFont = %NULL Then
hFont = SendMessage(hParent, %WM_GETFONT, 0, 0)
End If
If (hFont = %NULL) Then hFont = GetStockObject(%DEFAULT_GUI_FONT)
SendMessage hCtl, %WM_SETFONT, hFont, %TRUE
Function = hCtl
End If
End Function
'------------------------------------------------------------------------------
' Changes the text of the specified unicode control.
'
' hParent is the handle of the parent dialog (DDT). Required.
' nID is the control identifier. Required.
' suTitle is the title text to use. Must be a unicode string.
'
' Returns nonzero on success, else zero.
'
' Warning: Only works on UNICODE-supported versions of Windows (NT/2000/XP+).
'------------------------------------------------------------------------------
Function ControlSetTextUnicode(ByVal hParent As Dword, ByVal nID As Long, ByVal suTitle As String) As Long
' Call Declared unicode function (SetDlgItemTextW)
Function = SetDlgItemTextU(hParent, nID, suTitle)
End Function
'------------------------------------------------------------------------------
' Returns the text of the specified unicode control.
'
' hParent is the handle of the parent dialog (DDT). Required.
' nID is the control identifier. Required.
'
' Returns the actual (unicode) string on success, else an empty string.
'
' Warning: Only works on UNICODE-supported versions of Windows (NT/2000/XP+).
'------------------------------------------------------------------------------
Function ControlGetTextUnicode(ByVal hParent As Dword, ByVal nID As Long) As String
Local dwLen As Dword, suTitle As String
dwLen = SendDlgItemMessage(hParent, nID, %WM_GETTEXTLENGTH, 0, 0) ' get no. of chars
If (dwLen = 0) Then Exit Function
suTitle = String$((dwLen*2)+1, $Nul) ' set up buffer
' Call Declared unicode function (GetDlgItemTextW)
GetDlgItemTextU(hParent, nID, StrPtr(suTitle), (dwLen*2)+1)
Function = suTitle
End Function
'------------------------------------------------------------------------------
' Program Start Point
'------------------------------------------------------------------------------ ??
Function PBMain
Local hDlg As Dword, sTemp As String
Local hFont1, hFont2 As Dword
Local LF As LogFont
Dialog Font "SimSun", 18 ' Set the DDT dialog font. Note affects dialog / control dimensions
' SimSun font included with WinXP, Office 2000..
Font New "Times New Roman", 14, 1, 136, 0, 0 To hFont1 ' Font for DDT controls, PBWin9+
GetObject GetStockObject(%ANSI_FIXED_FONT), SizeOf(LF), ByVal VarPtr(LF)
LF.LFHeight = -44 ' first get the system font,
LF.LFWidth = 0 ' next set font attributes as you want them
LF.LFWeight = %FW_Normal
LF.LfItalic = %True
LF.LFFaceName = "Arial"
hFont2 = CreateFontIndirect(LF) ' SDK Create logical font object. Optional for UnicodeControls
' Create the main program interface with DDT...
Dialog New %HWND_Desktop, $APPTITLE, , , 150, 150, %WS_OverlappedWindow To hDlg
' Create a unicode child windows...
ControlAddUnicode UCode$("EDIT"), hDlg, 100, "", 10, 10, 130, 50, %WS_TabStop Or %ES_MultiLine _
Or %ES_WantReturn Or %WS_Border Or %ES_Left Or %ES_AutoHScroll, %WS_Ex_ClientEdge Or %WS_Ex_Left
ControlAddUnicode UCode$("STATIC"), hDlg, 101, Chr$(&H3B, &H26), 10, 70, 130, 50, %WS_Border
Control Add Button, hDlg, 102, "Copy", 10, 130, 25, 10 Call Button
Control Set Font hDlg, 102, hFont1
ControlAddUnicode UCode$("STATIC"), hDlg, 103, Chr$(&H3A, &H26)+UCode$(" Arial ")+Chr$(&HDE, &H06), _
60, 125, 80, 20, %WS_Border, 0, hFont2 ' Use optional font param
' Set the initial text for the edit control...
sTemp = Chr$(&HB7, &H8B, &H7d, &H59) & UCode$(" > ne hao, Hello." + $CrLf + "In Unicode DDT!")
ControlSetTextUnicode hDlg, 100, sTemp
' Display the main dialog...
Dialog Show Modal hDlg
Font End hFont1
DeleteObject hFont2
End Function
'------------------/PBMain
CallBack Function Button() As Long
If CbMsg = %WM_Command Then
If CbCtlMsg = %BN_Clicked Then
ControlSetTextUnicode CbHndl, 101, ControlGetTextUnicode(CbHndl, 100)
End If
End If
End Function
'------------------/Button CB
...
Dialog Font "Consolas", 48 '48 fits 8 Japanese chars on 800 wd screen nicely
...
'bytes to start
LSB = 65
MSB = 91 '0
wd = dlg_wd - 20
ht = 10
[B] Row = 0[/B]
col = 0
[B] char_ht = 80 [/B]
[B]Uni_Spacer = 6[/B]
'test for char ht
Control Add Label, hdlg, -1, "CHR test" & String$ (10,"X"), col, [B]Row + char_ht[/B], 600, char_ht, %ss_left
' Create a unicode child window (uses A face for text)...
ControlAddUnicode UCode$("STATIC"), hDlg, %Id_Uni_Control_01, Chr$(LSB, MSB), Col, [B]Row[/B], wd, ht
[B]Row = Uni_Spacer[/B] 'Char_Ht + 10 'next row
ControlAddUnicode UCode$("STATIC"), hDlg, %Id_Uni_Control_02, Chr$(LSB, MSB), Col, Row, wd, ht
).
Comment