FiveTech Support Forums

Daniel Garcia-Gil wrote:Hello

danielgarciagil@gmail.com
compress to .zip and rename file to .zop

Rimantas

the lithuanian prompts is not showed

send me the prg too

what text editor are you using?

Daniel Garcia-Gil wrote:Rimantas

the lithuanian prompts is not showed

send me the prg too

what text editor are you using?

Rimantas,

Are the same prompts are fine with a standard TFolder (SysTabControl32) ?

We use DrawText() to paint the promts. As those are in unicode I think that you could try to call DrawTextW() instead of DrawTextA(). By default (non unicode) DrawText() gets translated into DrawTextA().

Antonio Linares wrote:
Are the same prompts are fine with a standard TFolder (SysTabControl32) ?

We use DrawText() to paint the promts. As those are in unicode I think that you could try to call DrawTextW() instead of DrawTextA(). By default (non unicode) DrawText() gets translated into DrawTextA().

Rimantas,

Please try this example using some unicode text:

#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg

   ACTIVATE DIALOG oDlg CENTERED ;
      ON PAINT DrawTextW( hDC, Unicode_Text, { 10, 10, 30, 100 } )

return nil

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( DRAWTEXTW )
{
   RECT rct;
   
   rct.top    = hb_parvni( 3, 1 );
   rct.left   = hb_parvni( 3, 2 );
   rct.bottom = hb_parvni( 3, 3 );
   rct.right  = hb_parvni( 3, 4 );

   DrawTextW( ( HDC ) hb_parnl( 1 ), ( char * ) hb_parc( 2 ), hb_parclen( 2 ), &rct, DT_LEFT );
}

#pragma ENDDUMP

Antonio Linares wrote:

Rimantas,
Please try this example using some unicode text:

Code: Select all Collapse

#include "FiveWin.ch"
function Main()
   local oDlg
   DEFINE DIALOG oDlg
   ACTIVATE DIALOG oDlg CENTERED ;
      ON PAINT DrawTextW( hDC, Unicode_Text, { 10, 10, 30, 100 } )
return nil
#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>

HB_FUNC( DRAWTEXTW )
#pragma ENDDUMP

Maybe I something didn't understand ... I writed instead "Unicode_Text" own text . Here is sample :

http://imageshack.us/photo/my-images/440/band1r.jpg/

Then tried with DrawText() function :
http://imageshack.us/photo/my-images/13/band2wb.jpg/

And at last tried with simple SAY :

#include "FiveWin.ch"
function Main()
   local oDlg
   DEFINE DIALOG oDlg TITLE "Bandymėlis ... Ąčęėįšųūž " 
   @ 10, 30 SAY "Linksmų Kalėdų ! Ąčęėįšųūž " PIXEL OF oDlg
   ACTIVATE DIALOG oDlg CENTERED
return nil

http://imageshack.us/photo/my-images/24/band3g.jpg/

It's related to FolderEx tab dialog ?

If the example is properly shown with standard DrawText() then it means that you are not displaying unicode.

Class TFolderEx() is using standard DrawText()

Antonio Linares wrote:If the example is properly shown with standard DrawText() then it means that you are not displaying unicode.
Class TFolderEx() is using standard DrawText()

Rimantas,

Does it look wrong in TFolderEx ? Or you simply get nothing ?

Antonio Linares wrote:

Rimantas,
Does it look wrong in TFolderEx ? Or you simply get nothing ?

Antonio ,
It looks wrong in TFolderEx and only when FolDerEx is placed on Dialog . When placing FolderEx on windows then is working fine .

#include "FiveWin.ch"
function main()
   local oWnd, oFld
   DEFINE DIALOG oWnd TITLE "TFolderex - DIALOG -"
   @ 3, 3 FOLDEREX oFld PIXEL ADJUST PROMPT   "&OS", "&Žaidimai", "&Movies", "&Ūsai"

   @ 1,3 SAY "UNDER CONSTRUCTION" OF oFld:aDialogs[ 1 ] TRANSPARENT
   @ 40,50 SAY "Linksmų Kalėdų! Lithuanian chars - ąčęėįšųūž - " OF oFld:aDialogs[ 1 ] PIXEL TRANSPARENT

   ACTIVATE DIALOG oWnd
RETURN NIL

Compile this sample in fwh\samples directory with buildg.bat . I'm not seeing lithuanian chars ... Daniel did sample - he is seeing ... Can't understand where is problem ... After discusion with Daniel I was thinking that maybe source code - did all variants with notepad ( Save As , Encoding types ) . No good results ... :(

Antonio Linares wrote:Rimantas,

Here it looks fine:
We need to find a way to reproduce what you get there...

Antonio Linares wrote:

Rimantas,
Here it looks fine:
We need to find a way to reproduce what you get there...

Antonio - request ... Can you change line with SAY and then try ?

 @ 40,50 SAY "Linksmų Kalėdų! Lithuanian chars - ąčęėįšųūž - " OF oFld:aDialogs[ 1 ] PIXEL TRANSPARENT

Regards !

Hi to all ! :)

It seems that I solved this problem with FolderEx ... If you remember , some times ago I wrote a message , that can't see nationals chars in VistaMenu . Then I directed font "Times New Roman Baltic" and then national chars appears . So I did the same with folderEx on dialogs :

#include "FiveWin.ch"

function main()
   local oWnd
   local oFld
   local oFont
   
   DEFINE FONT oFont  NAME "Times New Roman Baltic"

   DEFINE DIALOG oWnd TITLE "TFolderex - DIALOG -" FONT oFont

   @ 3, 3 FOLDEREX oFld PIXEL ADJUST PROMPT   "Žaidimai", "Lietuviškai", "Ąčęėįšųūž"

   @ 1,3 SAY "UNDER CONSTRUCTION" OF oFld:aDialogs[ 1 ] TRANSPARENT
   @ 40,50 SAY "Linksmų Kalėdų !" OF oFld:aDialogs[ 1 ] PIXEL TRANSPARENT

   ACTIVATE DIALOG oWnd

   oFont:End()
RETURN NIL

Now I can see national chars in prompts and folder tab ... But ... The choice of fonts with "Baltic" is minimal ... And second question - why it's not working with font of system ? And in some places - vistaMenu , FolderEx on dialogs ? If you remember - nationals chars works fine on standard folders in both cases , windows and dialogs ...

With best regards !