Hi, W liście datowanym 24 sierpnia 2009 (20:13:00) można przeczytać:
PC> [sobota, 22 sierpie? 2009], Jarosław Kądzioła napisa3(a): PC> Hi, >> I've use modificated wcecon.prg from harbour/tests : >> +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ >> #include "hbgtinfo.ch" >> proc main() >> altd() >> REQUEST HB_CODEPAGE_PL852 >> cls PC> remove it, it will only force unnecessary console creation which PC> will be overwritten in a while. Without 'cls' i get very little window in the middle of screen (see: http://picasaweb.google.pl/jarek.kadziola/WCEHarbour#5374138184983947474 ) >> hb_setCodePage( "PL852" ) >> hb_setTermCP( "PL852" ) >> hb_gtInfo( HB_GTI_RESIZEMODE, HB_GTI_RESIZEMODE_ROWS ) >> SetMode(40,25) PC> Maybe try to set sth smaller, i.e. PC> SetMode(32,16) Do nothing PC> So probably default font "Courier New" exists only in given size PC> try to use different font, i.e. "system", "times", "arial", ... PC> Check which fonts you have installed. PC> It's also possible that the size is not accepted without given width PC> so you can try to change both, i.e. PC> hb_gtInfo( HB_GTI_FONTWIDTH, i / 2 ) PC> hb_gtInfo( HB_GTI_FONTSIZE, i ) PC> AFAIR in Windows CP also reduce font selection and has very high PC> priority. By default it OEM_CHARSET=255, you can try to change it PC> to DEFAULT_CHARSET=1 or ANSI_CHARSET=0 before you try to select font, PC> i.e.: PC> hb_gtInfo( HB_GTI_CODEPAGE, 1 ) PC> or: PC> hb_gtInfo( HB_GTI_CODEPAGE, 0 ) I've tried this code : ------------------------------------------------------------- Proc main() Cls hb_gtInfo( HB_GTI_RESIZEMODE, HB_GTI_RESIZEMODE_ROWS ) hb_gtInfo( HB_GTI_CODEPAGE, 0 ) SetBlink(.F.) Set Color To 'N/W*' SetMode(40,25) hb_gtInfo( HB_GTI_FONTNAME, 'Tahoma' ) SetCursor(1) SetCursor(0) For i = 2 To 36 Step 2 hb_gtInfo( HB_GTI_FONTWIDTH, i / 2 ) hb_gtInfo( HB_GTI_FONTSIZE, i ) ?'Tahoma' ?'Width : ' + Str(i/2) ?'Size : ' + Str(i) ?"1.abcdef" ?"2.ABCDEF" ?"3.abcdefgijklmn" ?"4.ABCDEFGIJKLMN" ?"5.abcdefgh" ?"6.ABCDEFGH" inkey( 0 ) clear Next hb_gtInfo( HB_GTI_FONTNAME, 'Courier New' ) For i = 2 To 36 Step 2 hb_gtInfo( HB_GTI_FONTWIDTH, i / 2 ) hb_gtInfo( HB_GTI_FONTSIZE, i ) ?'Courier New' ?'Width : ' + Str(i/2) ?'Size : ' + Str(i) ?"1.abcdef" ?"2.ABCDEF" ?"3.abcdefgijklmn" ?"4.ABCDEFGIJKLMN" ?"5.abcdefgh" ?"6.ABCDEFGH" inkey( 0 ) clear Next Quit --------------------------------------------- See : http://picasaweb.google.pl/jarek.kadziola/WCEHarbour#5374138190588280050 (size : 4 , width : 2) and then : http://picasaweb.google.pl/jarek.kadziola/WCEHarbour#5374138186915078306 size : 36, width : 18). The same picture, no difference. The same picture for each 'i' variable. The same results for 'Courier New' and 'Tahoma' fonts - two fonts on my handheld. >> 2.App's window is not on 'full screen' PC> It does not have to. It depends on font high/width and number of PC> rows and cols. Not possible to move window 'wcecon' above top windows' beam. Window comes back to primary position. >> 4.In string "Test : abcdefgh ABCDEFGH" char 'H' is cut PC> Probably console window is bigger then your screen. See : http://picasaweb.google.pl/jarek.kadziola/WCEHarbour#5374138186497933314 when i'm "taking" window for top beam and little move from right to left (refresh ??) then char 'H' is good -- Regards, Jaroslaw Kadziola _______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
