From c26e935dc929068b641798bdeb4ab80ec98c674d Mon Sep 17 00:00:00 2001
From: Pritpal Bedi <bedipritpal@hotmail.com>
Date: Fri, 3 Jul 2009 01:23:04 +0000
Subject: [PATCH] 2009-07-02 18:19 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   + harbour/contrib/hbxbp/xbpfiledialog.prg   +
 harbour/contrib/hbxbp/xbpfontdialog.prg     + Added skeletons for
 XbpFontDialog() | XbpFont() | XbpFileDialog() classes

---
 harbour/ChangeLog                       |   5 +
 harbour/contrib/hbxbp/xbpfiledialog.prg | 248 ++++++++++++
 harbour/contrib/hbxbp/xbpfontdialog.prg | 491 ++++++++++++++++++++++++
 3 files changed, 744 insertions(+)
 create mode 100644 harbour/contrib/hbxbp/xbpfiledialog.prg
 create mode 100644 harbour/contrib/hbxbp/xbpfontdialog.prg

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 17b63ff173..275dfe0ead 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,11 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-07-02 18:19 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  + harbour/contrib/hbxbp/xbpfiledialog.prg
+  + harbour/contrib/hbxbp/xbpfontdialog.prg
+    + Added skeletons for XbpFontDialog() | XbpFont() | XbpFileDialog() classes
+
 2009-07-03 02:24 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/macro/macro.y
   * harbour/source/macro/macro.yyc
diff --git a/harbour/contrib/hbxbp/xbpfiledialog.prg b/harbour/contrib/hbxbp/xbpfiledialog.prg
new file mode 100644
index 0000000000..edb6f22bb4
--- /dev/null
+++ b/harbour/contrib/hbxbp/xbpfiledialog.prg
@@ -0,0 +1,248 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Harbour Project source code:
+ * Source file for the Xbp*Classes
+ *
+ * Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
+ * http://www.harbour-project.org
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2, or (at your option)
+ * any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this software; see the file COPYING.  If not, write to
+ * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
+ *
+ * As a special exception, the Harbour Project gives permission for
+ * additional uses of the text contained in its release of Harbour.
+ *
+ * The exception is that, if you link the Harbour libraries with other
+ * files to produce an executable, this does not by itself cause the
+ * resulting executable to be covered by the GNU General Public License.
+ * Your use of that executable is in no way restricted on account of
+ * linking the Harbour library code into it.
+ *
+ * This exception does not however invalidate any other reasons why
+ * the executable file might be covered by the GNU General Public License.
+ *
+ * This exception applies only to the code released by the Harbour
+ * Project under the name Harbour.  If you copy code from other
+ * Harbour Project or Free Software Foundation releases into a copy of
+ * Harbour, as the General Public License permits, the exception does
+ * not apply to the code that you add in this way.  To avoid misleading
+ * anyone as to the status of such modified files, you must delete
+ * this exception notice from them.
+ *
+ * If you write modifications of your own for Harbour, it is your choice
+ * whether to permit this exception to apply to your modifications.
+ * If you do not wish that, delete this exception notice.
+ *
+ */
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+/*
+ *                               EkOnkar
+ *                         ( The LORD is ONE )
+ *
+ *                Xbase++ Compatible xbpFileDialog Class
+ *
+ *                  Pritpal Bedi <pritpal@vouchcac.com>
+ *                              02Jul2009
+ */
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+
+#define QFileDialog_AcceptOpen                           0
+#define QFileDialog_AcceptSave                           1
+
+// enum #define QFileDialog_DialogLabel
+//
+#define QFileDialog_LookIn                               0
+#define QFileDialog_FileName                             1
+#define QFileDialog_FileType                             2
+#define QFileDialog_Accept                               3
+#define QFileDialog_Reject                               4
+
+// enum #define QFileDialog_FileMode
+// This enum is used to indicate what the user may select in the file dialog;
+// i.e. what the dialog will return if the user clicks OK.
+//
+#define QFileDialog_AnyFile                              0   // The name of a file, whether it exists or not.
+#define QFileDialog_ExistingFile                         1   // The name of a single existing file.
+#define QFileDialog_Directory                            2   // The name of a directory. Both files and directories are displayed.
+#define QFileDialog_ExistingFiles                        3   // The names of zero or more existing files.
+
+// The Options type is a typedef for QFlags<Option>. It stores an OR combination of Option values.
+//
+#define QFileDialog_ShowDirsOnly                         0x00000001   // Only show directories in the file dialog. By default both files and directories are shown. (Valid only in the Directory file mode.)
+#define QFileDialog_DontResolveSymlinks                  0x00000002   // Don't resolve symlinks in the file dialog. By default symlinks are resolved.
+#define QFileDialog_DontConfirmOverwrite                 0x00000004   // Don't ask for confirmation if an existing file is selected. By default confirmation is requested.
+#define QFileDialog_DontUseNativeDialog                  0x00000010   // Don't use the native file dialog. By default on Mac OS X and Windows, the native file dialog is used.
+#define QFileDialog_ReadOnly                             0x00000020   // Indicates that the model is readonly.
+#define QFileDialog_HideNameFilterDetails                0x00000040   // Indicates if the is hidden or not.
+
+//enum QFileDialog::ViewMode
+//This enum describes the view mode of the file dialog; i.e. what information about each file will be displayed.
+//
+#define QFileDialog_Detail                               0   // Displays an icon, a name, and details for each item in the directory.
+#define QFileDialog_List                                 1   // Displays only an icon and a name for each item in the directory.
+
+
+/*----------------------------------------------------------------------*/
+
+#include "hbclass.ch"
+#include "common.ch"
+
+#include "xbp.ch"
+#include "appevent.ch"
+#include "hbqt.ch"
+
+/*----------------------------------------------------------------------*/
+
+CLASS XbpFileDialog INHERIT XbpWindow
+
+   DATA     bufferSize                            INIT 1024
+   DATA     center                                INIT .f.
+   DATA     defExtension                          INIT " "
+   DATA     fileFilters                           INIT {}
+   DATA     noWriteAccess                         INIT .f.
+   DATA     openReadOnly                          INIT NIL  // .f.
+   DATA     restoreDir                            INIT .f.
+   DATA     title                                 INIT NIL  // ""
+   DATA     validatePath                          INIT .f.
+
+   METHOD   new()
+   METHOD   create()
+   METHOD   configure()                           VIRTUAL
+   METHOD   destroy()
+
+   METHOD   open()
+   METHOD   saveAs()
+
+   ENDCLASS
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFileDialog:new( oParent, oOwner, aPos )
+
+   ::xbpWindow:INIT( oParent, oOwner, aPos )
+
+   RETURN Self
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFileDialog:create( oParent, oOwner, aPos )
+
+   ::xbpWindow:create( oParent, oOwner, aPos )
+
+   ::oWidget := QFileDialog():new( ::pParent )
+
+   RETURN Self
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFileDialog:destroy()
+
+   ::xbpWindow:destroy()
+
+   RETURN Self
+
+/*----------------------------------------------------------------------*/
+
+STATIC FUNCTION Xbp_ArrayToFileFilter( aFilter )
+
+   RETURN ( aFilter[ 1 ] + " ( "+ aFilter[ 2 ] + " )" )
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFileDialog:open( cDefaultFile, lCenter, lAllowMultiple, lCreateNewFiles )
+   LOCAL cFiles := NIL
+   LOCAL i, oList
+
+   DEFAULT lAllowMultiple TO .F.
+
+   IF !( hb_isLogical( lCenter ) )
+      lCenter := ::center
+   ENDIF
+
+   ::oWidget:setAcceptMode( QFileDialog_AcceptOpen )
+
+   IF !empty( ::defExtension )
+      ::oWidget:setDefaultSuffix( ::defExtension )
+   ENDIF
+
+   IF hb_isChar( ::title )
+      ::oWidget:setWindowTitle( ::title )
+   ENDIF
+
+   IF hb_isChar( cDefaultFile )
+      ::oWidget:setDirectory( cDefaultFile )
+   ENDIF
+
+   IF empty( ::fileFilters )
+      ::oWidget:setNameFilter( "All File (*.*)" )
+   ELSE
+      IF len( ::fileFilters ) == 1
+         ::oWidget:setNameFilter( Xbp_ArrayToFileFilter( ::fileFilters[ 1 ] ) )
+      ELSE
+         oList := QStringList():new()
+         FOR i := 1 TO len( ::fileFilters )
+            oList:append( Xbp_ArrayToFileFilter( ::fileFilters[ i ] ) )
+         NEXT
+         ::oWidget:setNameFilters( QT_PTROF( oList ) )
+      ENDIF
+   ENDIF
+
+   IF hb_isLogical( ::openReadOnly )
+      ::oWidget:setOption( QFileDialog_ReadOnly, .T. )
+   ENDIF
+
+   RETURN NIL
+
+/*----------------------------------------------------------------------*/
+
+
+METHOD XbpFileDialog:saveAs( cDefaultFile, lFileList, lCenter )
+
+   DEFAULT lFileList TO .T.
+
+   IF !( hb_isLogical( lCenter ) )
+      lCenter := ::center
+   ENDIF
+
+   ::oWidget:setAcceptMode( QFileDialog_AcceptSave )
+
+   //::oWidget:setFileMode( IF(
+
+   IF !empty( ::defExtension )
+      ::oWidget:setDefaultSuffix( ::defExtension )
+   ENDIF
+
+   IF hb_isChar( ::title )
+      ::oWidget:setWindowTitle( ::title )
+   ENDIF
+
+   IF hb_isChar( cDefaultFile )
+      ::oWidget:setDirectory( cDefaultFile )
+   ENDIF
+
+   RETURN NIL
+
+/*----------------------------------------------------------------------*/
+
+
+
+
diff --git a/harbour/contrib/hbxbp/xbpfontdialog.prg b/harbour/contrib/hbxbp/xbpfontdialog.prg
new file mode 100644
index 0000000000..7aa64b434f
--- /dev/null
+++ b/harbour/contrib/hbxbp/xbpfontdialog.prg
@@ -0,0 +1,491 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Harbour Project source code:
+ * Source file for the Xbp*Classes
+ *
+ * Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
+ * http://www.harbour-project.org
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2, or (at your option)
+ * any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this software; see the file COPYING.  If not, write to
+ * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
+ *
+ * As a special exception, the Harbour Project gives permission for
+ * additional uses of the text contained in its release of Harbour.
+ *
+ * The exception is that, if you link the Harbour libraries with other
+ * files to produce an executable, this does not by itself cause the
+ * resulting executable to be covered by the GNU General Public License.
+ * Your use of that executable is in no way restricted on account of
+ * linking the Harbour library code into it.
+ *
+ * This exception does not however invalidate any other reasons why
+ * the executable file might be covered by the GNU General Public License.
+ *
+ * This exception applies only to the code released by the Harbour
+ * Project under the name Harbour.  If you copy code from other
+ * Harbour Project or Free Software Foundation releases into a copy of
+ * Harbour, as the General Public License permits, the exception does
+ * not apply to the code that you add in this way.  To avoid misleading
+ * anyone as to the status of such modified files, you must delete
+ * this exception notice from them.
+ *
+ * If you write modifications of your own for Harbour, it is your choice
+ * whether to permit this exception to apply to your modifications.
+ * If you do not wish that, delete this exception notice.
+ *
+ */
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+/*
+ *                               EkOnkar
+ *                         ( The LORD is ONE )
+ *
+ *                Xbase++ Compatible xbpFontDialog Class
+ *
+ *                  Pritpal Bedi <pritpal@vouchcac.com>
+ *                              02Jul2009
+ */
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+
+#include "hbclass.ch"
+#include "common.ch"
+
+#include "xbp.ch"
+#include "appevent.ch"
+#include "hbqt.ch"
+
+/*----------------------------------------------------------------------*/
+
+CLASS XbpFontDialog INHERIT XbpWindow
+
+   /* Appearance */
+   DATA     title                                 INIT   ""
+   DATA     buttonApply                           INIT   .F.
+   DATA     buttonCancel                          INIT   .T.
+   DATA     buttonHelp                            INIT   .F.
+   DATA     buttonOk                              INIT   .T.
+   DATA     buttonReset                           INIT   .F.
+   DATA     strikeOut                             INIT   .T.
+   DATA     underscore                            INIT   .T.
+
+   DATA     name                                  INIT   .T.
+   DATA     style                                 INIT   .T.
+   DATA     size                                  INIT   .T.
+
+   DATA     displayFilter                         INIT   .T.
+   DATA     printerFilter                         INIT   .T.
+
+   DATA     familyName                            INIT   " "
+   DATA     nominalPointSize                      INIT   0
+
+   DATA     bitmapOnly                            INIT   .F.
+   DATA     fixedOnly                             INIT   .F.
+   DATA     proportionalOnly                      INIT   .T.
+
+
+   DATA     outLine                               INIT   .T.
+   DATA     previewBGClr                          INIT   RGB( 255,255,255 )
+   DATA     previewFGClr                          INIT   RGB( 0,0,0 )
+   DATA     previewString                         INIT   " "
+   DATA     printerPS                             INIT   NIL
+   DATA     screenPS                              INIT   NIL
+
+   DATA     synthesizeFonts                       INIT   .T.
+
+   DATA     vectorOnly                            INIT   .F.
+   DATA     vectorSizes                           INIT   {}
+
+   DATA     viewPrinterFonts                      INIT   .F.
+   DATA     viewScreenFonts                       INIT   .T.
+
+   METHOD   new()
+   METHOD   create()
+   METHOD   destroy()
+   METHOD   display( nMode )
+
+   DATA     sl_activateApply
+   ACCESS   activateApply                         INLINE ::sl_activateApply
+   ASSIGN   activateApply( bBlock )               INLINE ::sl_activateApply := bBlock
+
+   DATA     sl_activateCancel
+   ACCESS   activateCancel                        INLINE ::sl_activateCancel
+   ASSIGN   activateCancel( bBlock )              INLINE ::sl_activateCancel := bBlock
+
+   DATA     sl_activateOk
+   ACCESS   activateOk                            INLINE ::sl_activateOk
+   ASSIGN   activateOk( bBlock )                  INLINE ::sl_activateOk := bBlock
+
+   DATA     sl_activateReset
+   ACCESS   activateReset                         INLINE ::sl_activateReset
+   ASSIGN   activateReset( bBlock )               INLINE ::sl_activateReset := bBlock
+
+   DATA     oScreenPS
+   DATA     oPrinterPS
+   DATA     aPos                                  INIT   { 0, 0 }
+   DATA     ok                                    INIT   .f.
+
+   METHOD   GetXbpFont()                          PROTECTED
+
+   DATA     oOptions
+
+   ENDCLASS
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFontDialog:new( oParent, oOwner, oScreenPS, oPrinterPS, aPos )
+
+   DEFAULT oParent    TO ::oParent
+   DEFAULT oOwner     TO ::oOwner
+   DEFAULT oScreenPS  TO ::oScreenPS
+   DEFAULT oPrinterPS TO ::oPrinterPS
+   DEFAULT aPos       TO ::aPos
+
+   ::oParent    := oParent
+   ::oOwner     := oOwner
+   ::oScreenPS  := oScreenPS
+   ::oPrinterPS := oPrinterPS
+   ::aPos       := aPos
+
+   ::xbpWindow:init( oParent, oOwner )
+
+   RETURN Self
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFontDialog:create( oParent, oOwner, oScreenPS, oPrinterPS, aPos )
+
+   DEFAULT oParent    TO ::oParent
+   DEFAULT oOwner     TO ::oOwner
+   DEFAULT oScreenPS  TO ::oScreenPS
+   DEFAULT oPrinterPS TO ::oPrinterPS
+   DEFAULT aPos       TO ::aPos
+
+   ::oParent    := oParent
+   ::oOwner     := oOwner
+   ::oScreenPS  := oScreenPS
+   ::oPrinterPS := oPrinterPS
+   ::aPos       := aPos
+
+   IF ::viewPrinterFonts .and. ::oPrinterPS == NIL
+      ::viewPrinterFonts := .f.
+   ENDIF
+   IF ( ! ::viewScreenFonts .and. ! ::viewPrinterFonts )
+      ::viewScreenFonts := .t.
+   ENDIF
+
+   ::xbpWindow:create( oParent, oOwner )
+
+   ::oWidget := QFontDialog():new( ::pParent )
+
+   ::oOptions := QFontOptions()
+   ::oOptions:pPtr := ::oWidget:options()
+
+
+   RETURN Self
+
+/*----------------------------------------------------------------------*/
+#if 0
+METHOD XbpFontDialog:wndProc( hWnd, nMessage, nwParam, nlParam )
+   LOCAL aRect, nL, nH
+
+   HB_SYMBOL_UNUSED( nlParam )
+
+   DO CASE
+
+   CASE nMessage == WM_INITDIALOG
+      ::hWnd := hWnd
+
+      IF !empty( ::title )
+         Win_setWindowText( ::hWnd, ::title )
+      ENDIF
+      IF !( ::buttonCancel )
+         Win_EnableWindow( Win_GetDlgItem( ::hWnd,IDCANCEL ), .f. )
+      ENDIF
+      IF !( ::buttonApply )
+         Win_EnableWindow( Win_GetDlgItem( ::hWnd,1026 ), .f. )
+      ENDIF
+      IF !( ::buttonHelp )
+         Win_EnableWindow( Win_GetDlgItem( ::hWnd,1038 ), .f. )
+      ENDIF
+      IF !( ::strikeOut )
+         Win_EnableWindow( Win_GetDlgItem( ::hWnd,1040 ), .f. )
+      ENDIF
+      IF !( ::underscore )
+         Win_EnableWindow( Win_GetDlgItem( ::hWnd,1041 ), .f. )
+      ENDIF
+      IF !( ::name )
+         Win_EnableWindow( Win_GetDlgItem( ::hWnd,1136 ), .f. )
+      ENDIF
+      IF !( ::style )
+         Win_EnableWindow( Win_GetDlgItem( ::hWnd,1137 ), .f. )
+      ENDIF
+      IF !( ::size )
+         Win_EnableWindow( Win_GetDlgItem( ::hWnd,1138 ), .f. )
+      ENDIF
+
+      IF ::aPos[ 1 ] > 0 .OR. ::aPos[ 2 ] > 0
+         aRect := Win_GetWindowRect( ::hWnd )
+         Win_MoveWindow( ::hWnd, ::aPos[ 1 ], ::aPos[ 2 ], aRect[3]-aRect[1], aRect[4]-aRect[2], .f. )
+      ENDIF
+
+      RETURN 1
+
+   CASE nMessage == WM_COMMAND
+      nL := Win_LoWord( nwParam )
+      nH := Win_HiWord( nwParam )
+
+      HB_SYMBOL_UNUSED( nH )
+
+      DO CASE
+
+      CASE nL == IDOK
+         ::ok := .t.
+         IF hb_isBlock( ::sl_activateOk )
+            eval( ::sl_activateOk, ::GetxbpFont(), NIL, Self )
+         ENDIF
+
+      CASE nL == IDCANCEL
+         IF hb_isBlock( ::sl_activateCancel )
+            eval( ::sl_activateCancel, NIL, NIL, Self )
+         ENDIF
+
+      CASE nL == 1026
+         IF hb_isBlock( ::sl_activateApply )
+            eval( ::sl_activateApply, ::GetxbpFont(), NIL, Self )
+         ENDIF
+
+      CASE nL == 1038  /* Help */
+
+      ENDCASE
+
+   ENDCASE
+
+   RETURN 0
+#endif
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFontDialog:display( nMode )
+   LOCAL aInfo := nMode
+
+   #if 0
+
+   IF nMode == 0
+      hWnd := ::oParent:hWnd
+   ELSE
+      hWnd := Win_GetDesktopWindow()
+   ENDIF
+
+   ::ok := .f.
+   aInfo := Wvg_ChooseFont( hWnd, ::nWndProc, ::familyName, ;
+                            ::nominalPointSize, ::viewScreenFonts, ::viewPrinterFonts )
+
+   IF !( ::ok )
+      RETURN NIL
+   ENDIF
+
+   RETURN ::GetXbpFont( aInfo )
+   #endif
+   RETURN ::GetXbpFont( aInfo )
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFontDialog:destroy()
+
+   ::xbpWindow:destroy()
+
+   RETURN Self
+
+/*----------------------------------------------------------------------*/
+/*
+ * Only callable from ::activateOK and ::activateApply
+ */
+METHOD XbpFontDialog:GetXbpFont( aFont )
+   LOCAL oXbpFont
+
+   #if 0
+   DEFAULT aFont TO Wvg_ChooseFont_GetLogFont( ::hWnd )
+
+   oWvgFont := XbpFont():new()
+
+   oWvgFont:familyName       := aFont[ 1 ]
+   oWvgFont:height           := aFont[ 2 ]
+   oWvgFont:nominalPointSize := Wvg_HeightToPointSize( /* hdc */, oWvgFont:height )
+   oWvgFont:width            := aFont[ 3 ]
+   oWvgFont:bold             := aFont[ 4 ] > 400
+   oWvgFont:italic           := aFont[ 5 ]
+   oWvgFont:underscore       := aFont[ 6 ]
+   oWvgFont:strikeOut        := aFont[ 7 ]
+   oWvgFont:codePage         := aFont[ 8 ]
+   oWvgFont:setCompoundName( trim( aFont[ 1 ] +" "+ IF( oWvgFont:bold, "Bold ", "" ) + ;
+                                                    IF( oWvgFont:italic, "Italic", "" ) ) )
+   oWvgFont:create()
+   #endif
+   RETURN oXbpFont
+
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+//
+//                          Class XbpFont()
+//
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+/*----------------------------------------------------------------------*/
+
+CLASS XbpFont
+
+   DATA     hFont
+   DATA     oPS
+   DATA     hdc
+
+   DATA     familyName                            INIT   ""
+   DATA     height                                INIT   0
+   DATA     nominalPointSize                      INIT   0
+
+   DATA     width                                 INIT   0
+   DATA     widthClass                            INIT   .F.
+
+   DATA     bold                                  INIT   .F.
+   DATA     weightClass                           INIT   0 //FW_DONTCARE
+
+   DATA     italic                                INIT   .F.
+   DATA     strikeout                             INIT   .F.
+   DATA     underscore                            INIT   .F.
+   DATA     codePage                              INIT   0 //DEFAULT_CHARSET
+
+   DATA     fixed                                 INIT   .F.
+   DATA     antiAliased                           INIT   .F.
+
+   DATA     compoundName                          INIT   ""
+   METHOD   setCompoundName( cName )              INLINE ::compoundName := cName
+
+   DATA     generic                               INIT   .T.
+
+   DATA     baseLine                              INIT   0                READONLY
+   DATA     dbcs                                  INIT   .F.
+   DATA     kerning                               INIT   .F.
+   DATA     mbcs                                  INIT   .F.
+   DATA     vector                                INIT   .F.
+   DATA     outlined                              INIT   .F.
+
+   DATA     aFontInfo                             INIT   {}
+
+   METHOD   new( oPS )
+   METHOD   create( cFontName )
+   METHOD   configure( cFontName )
+   METHOD   list()
+   METHOD   createFont()
+
+   DESTRUCTOR destroy()
+
+   ENDCLASS
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFont:new( oPS )
+
+   DEFAULT oPS TO ::oPS
+
+   ::oPS := oPS
+
+   RETURN Self
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFont:create( cFontName )
+
+   DEFAULT cFontName TO ::familyName
+
+   ::familyName := cFontName
+
+   ::createFont()
+
+   RETURN Self
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFont:configure( cFontName )
+
+   DEFAULT cFontName TO ::familyName
+
+   ::familyName := cFontName
+
+   ::createFont()
+
+   RETURN Self
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFont:destroy()
+
+   ::xbpWindow:destroy()
+
+   RETURN Self
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFont:list()
+   LOCAL aList := {}
+
+   RETURN aList
+
+/*----------------------------------------------------------------------*/
+
+METHOD XbpFont:createFont()
+   LOCAL aFont
+
+   IF ::hFont <> NIL
+      // Win_DeleteObject( ::hFont )
+      ::hFont := NIL
+   ENDIF
+
+   IF ::oPS <> NIL
+      ::height := xbp_PointSizeToHeight( ::oPS:hdc, ::nominalPointSize )
+   ENDIF
+
+   ::aFontInfo := array( 15 )
+
+   ::aFontInfo[  1 ] := ::familyName
+   ::aFontInfo[  2 ] := ::height
+   ::aFontInfo[  3 ] := ::width
+   ::aFontInfo[  4 ] := IF( ::bold, 0, 0 )
+   ::aFontInfo[  5 ] := ::italic
+   ::aFontInfo[  6 ] := ::underscore
+   ::aFontInfo[  7 ] := ::strikeout
+   ::aFontInfo[  8 ] := ::codePage
+   ::aFontInfo[  9 ] := 0
+   ::aFontInfo[ 10 ] := 0
+   ::aFontInfo[ 11 ] := 0
+   ::aFontInfo[ 12 ] := 0
+   ::aFontInfo[ 13 ] := 0 //DEFAULT_QUALITY
+   ::aFontInfo[ 14 ] := NIL
+
+   aFont := Xbp_FontCreate( ::aFontInfo )
+
+   IF empty( aFont[ 1 ] )
+      RETURN nil
+   ENDIF
+
+   ::hFont     := aFont[ 15 ]
+   ::aFontInfo := aFont
+
+   RETURN ::hFont
+
+/*----------------------------------------------------------------------*/