When trying to assign chinese characters to a TSPTBXDockablePanel using Tsilang (With font="Arial Unicode MS" and Charset="CHINESEBIG5_CHARSET"), question marks are dispayed instead of the chinese characters.
I have seen that TSpTBXDockablePanel use TTntControls :
Code: Select all
TntControls.pas Unit :
procedure TTntCustomHintWindow.SetCaption(const Value: TWideCaption);
begin
TntControl_SetText(Self, Value);
end;
procedure TntControl_SetText(Control: TControl; const Text: WideString);
begin
if (not Win32PlatformIsUnicode)
or ((Control is TWinControl) and TWinControl(Control).HandleAllocated and (not IsWindowUnicode(TWinControl(Control).Handle))) then
// Win9x / non-unicode handle
TAccessControl(Control).Text := Text
else if (not (Control is TWinControl)) then begin
// non-windowed TControl
with FindWideControlHelper(Control) do
SetSyncedWideString(Text, FWideCaption, TAccessControl(Control).Text, SetAnsiText);
end else if (not TWinControl(Control).HandleAllocated) then begin
// NO HANDLE
TntControl_SetStoredText(Control, Text);
end else if TntControl_GetText(Control) <> Text then begin
// UNICODE & HANDLE
Tnt_SetWindowTextW(TWinControl(Control).Handle, PWideChar(Text));
Control.Perform(CM_TEXTCHANGED, 0, 0);
end;
end;
Thanks