Problem to show language text

LikePB · Post by **LikePB** » Tue Nov 09, 2004 10:46 pm

Hi to all PB users

I'm newbie user to join this nice forums.

I have a problem for show asian language in PB window.

I want show a arabic text in TextGadget , DrawText or another way to show an arabic text in my window. i use Ansi2Uni to convert text in unicode or use some arabic fonts but window can't show my text true.

How can i do this?

GPI · Post by **GPI** » Tue Nov 09, 2004 10:56 pm

maybe Shopro can help you with this problem.

(btw.: jaPBe should support asian language (you must set the codepage in the preferences)).

LikePB · Post by **LikePB** » Wed Nov 10, 2004 1:57 am

GPI wrote: (btw.: jaPBe should support asian language (you must set the codepage in the preferences)).

Hi GPI

I use this too, i set codepage to Unicode UTF-8 and can write easy but when compile PB can's show that text true. now how must show this text in an window ? i think must use some API but not sure.

LikePB · Post by **LikePB** » Wed Nov 10, 2004 10:13 pm

Don't know anybody ?

blueznl · Post by **blueznl** » Thu Nov 11, 2004 10:38 am

haven't tried anything in this direction, but you got to remember a few things...

pb is ascii text, while windows is unicode text

all (string) functions in pb are non-unicode, and are zero terminated

as unicode contains loads of zeroes, you can imagine you have a little problem there

i am afraid that, for certain functions / gadgets / windows controls, you will have to do api calls to retrieve 'strange' characters from user input

but, perhaps i did not understand your question...

El_Choni · Post by **El_Choni** » Thu Nov 11, 2004 12:28 pm

I think yo must use CreateWindowExW_(). Try it first with the gadget, if it doesn't work, try the entire window.

Man, I'm helpy today, ain't I?

I'll look for an example later, cya

Num3 · Post by **Num3** » Thu Nov 11, 2004 1:45 pm

El_Choni wrote:I think yo must use CreateWindowExW_(). Try it first with the gadget, if it doesn't work, try the entire window.

Man, I'm helpy today, ain't I? I'll look for an example later, cya

Ehehehe... You're already working for next year paycheck raise...

El_Choni · Post by **El_Choni** » Thu Nov 11, 2004 2:55 pm

Hi,

This works here (it's right aligned, since arabic is written right to left):

Code: Select all

Procedure a2u(text$)
  UniSize = (Len(text$)*2)+2
  *UniBuffer = AllocateMemory(UniSize+2)
  MultiByteToWideChar_(#CP_ACP, #NULL, text$, Len(text$), *UniBuffer, Len(text$))
  ProcedureReturn *UniBuffer
EndProcedure 

; Create some 'random' arabic Unicode chars

*ArabicText = AllocateMemory((($06D5-$060C)*2)+2)
*ArabicTextSeek.WORD = *ArabicText
For i=$060C To $06D5
  If (*ArabicTextSeek-*ArabicText)%11
    *ArabicTextSeek\w = i
  Else
    *ArabicTextSeek\w = ' ' ; some spaces to allow word wrapping
  EndIf
  *ArabicTextSeek+2
Next i
*ArabicTextSeek\w = 0

If OpenLibrary(0, "USER32.DLL")
  *CreateWindowExW = IsFunction(0, "CreateWindowExW")
  If *CreateWindowExW And OpenWindow(0, 0, 0, 400, 160,  #PB_Window_SystemMenu , "Show Unicode text")
    If CreateGadgetList(WindowID())
      hText = CallFunctionFast(*CreateWindowExW, 0, a2u("Static"), *ArabicText, #WS_VISIBLE|#WS_CHILD|#SS_RIGHT, 8, 8, 384, 144, WindowID(), 0, GetModuleHandle_(0), 0)
      If hText:SendMessage_(hText, #WM_SETFONT, GetStockObject_(#DEFAULT_GUI_FONT), 1):EndIf
      Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow
    EndIf
  EndIf
  CloseLibrary(0)
EndIf
FreeMemory(*ArabicText)

LikePB · Post by **LikePB** » Fri Nov 12, 2004 8:52 pm

blueznl thanks for your info.

El_Choni thank you so much

Its work peferct. but how can i just show my word on window ? i want cancel random mode and just show my word example: الحبيب

Thanks again.