Untested
read c:\harbour\contrib\gtwvg\demowvg.prg
WVT_Core()
WVT_Utils()
Wvt_SetGui( .t. )
WvtSetKeys( .t. )
setcolor('N/W,N/GR*,,,N/W*') // because look windows
cls
screenWidth := Wvt_GetScreenWidth()
if screenWidth >= 1920
WVt_SetFont("Courier New",40,21)
ELSEIF screenWidth >= 1600 // 1280 *960
WVt_SetFont("Courier New",32,18)
elseif screenWidth >= 1280 // 1280 *960
Wvt_SetFont("Courier new",20,13) //
15*80=1200 36*25=900
elseif screenWidth >= 1024 // 1024*760
Wvt_SetFont("Courier new",20,12.5)
elseif screenWidth >= 800
Wvt_SetFont("Courier new",18,10)
else
Wvt_SetFont("Courier new",14,8)
Endif
// other good font
// Wvt_SetFont("Terminal",20,8)
// WVt_SetFont("Lucida Console",20,-8)
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Lorenzo
Fiorini
Sent: Friday, June 06, 2008 6:14 PM
To: Harbour Project Main Developer List.
Subject: Re: [Harbour] gtwvt font best setup
On Fri, Jun 6, 2008 at 5:28 PM, Pritpal Bedi <[EMAIL PROTECTED]>
wrote:
> This all has been implemented in GTWVG long back. In a day or two I
will
> show the code. And infact I would like to encapsilate those methods in
core
> GTWVT.
Good.
I've never used gtwvg is there a way to have a better font than gtwvt
without much changes?
Which font configuration do you usually use?
best regards,
Lorenzo
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
