Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

   #define DEF_ROWS       25
   #define DEF_COLS       80

         aSizeDesktop    := AppDesktop():currentSize()
         nFontWide := Int(aSizeDesktop[1] / DEF_COLS * 0.95)
         nFontHigh := Int(aSizeDesktop[2] / DEF_ROWS * 0.95)
         aPos            := { (aSizeDesktop[1]-(DEF_COLS * nFontWide))  /2, ;
            (aSizeDesktop[2]-(DEF_ROWS * nFontHigh))  /2  }

         // Create XbpCRT object
         oCrt := XbpCrt():New ( NIL, NIL, aPos, DEF_ROWS, DEF_COLS )
         oCrt:FontWidth  := nFontWide
         oCrt:FontHeight := nFontHigh
         oCrt:title      := AppName()
         oCrt:titleBar   := TRUE
         oCrt:FontName   := "Lucida Console"
         oCrt:Create()

Code: Alles auswählen

oCrt   := XbpCrt() :new(...)
oCrt:SysMenu    := .F.
oCrt:titleBar   := .F.  // no CRT Titlebar
oCrt:Border     := XBPDLG_NO_BORDER
oCrt:setName(nSetName)  // better to Identify
oCrt:create()
oCrt:SetFont( oFont )

Code: Alles auswählen

  // XbpCRT-Fenster erzeugen
  oCrt := XbpCrt():New ( NIL, NIL, aPos,25/*nRows*/,80/*nCols*/ )
  oCrt:FontWidth  := nFontWidth
  oCrt:FontHeight := nFontHeight
  oCrt:title      := AppName()
  oCrt:FontName   := "COURIER NEW"+nationMsg(NAT_MSG_FNT_STYLE_BOLD)  // "Alaska Crt"
  oCrt:Create()
  oCrt:PresSpace()            // Presentation Space initialisieren
  SetAppWindow( oCrt )        // XbpCrt wird aktives Fenster und Ausgabegerät

Code: Alles auswählen

"Courier" 
"MS Serif"
"MS Sans Serif"

Code: Alles auswählen

ChangeFont( .f. )             // ohne Nachzufragen letzte Einstellung starten.

Code: Alles auswählen

      case hpmen=NR_DIENST
         do case
           case submen=1
                ChangeFont()                // Bildschirmschriten umstellen

Code: Alles auswählen

*------------------------------------------------------------------------
procedure ChangeFont( lZeigAuswahlFenster )
  local oCrt := SetAppWindow()
  local aSizeDesktop    := AppDesktop():currentSize()
  local nDesktopBreite  := aSizeDesktop[1]
  local nDesktopHoehe   := aSizeDesktop[2]
  local nBreite, nHoehe
  local aFontList     := {  { "Alaska Crt"    , 16, 8 } ,;
                            { "8514oem"       , 20,10 } ,;
                            { "Terminal"      , 18,10 } ,;
                            { "IBM3270"       , 29,13 } ,;
                            { "IBM3270"       , 29,14 } ,;
                            { "IBM3270"       , 35,14 } ,;
                            { "IBM3270"       , 36,15 } ,;
                            { "IBM3270"       , 38,15 } ,;
                            { "Lucida Console", 28,13 } ,;
                            { "Lucida Console", 29,13 } ,;
                            { "Lucida Console", 30,14 } ,;
                            { "Lucida Console", 32,14 } ,;
                            { "Lucida Console", 35,14 } ,;
                            { "Lucida Console", 36,14 }     }

  static nAktivFont   := 1                       // Alaska CRT
  local nMaxFontNr    := len(aFontList)
  local cWahl
  local cFileName     := UserInI("INI")          // INI-Dateinamen DES Users ermitteln
  local cSection      := "Benutzervorgaben"
  local cVar          := "Bildschirmschriftart"

  DEFAULT lZeigAuswahlFenster TO .t.

  if lZeigAuswahlFenster

     do while .t.
        cWahl := ask(12,"Schrift: "+aFontList[nAktivFont,1]+;
                " ["+ntrim(aFontList[nAktivFont,2])+"-"+ntrim(aFontList[nAktivFont,3])+"]"+;
                        " wechseln ? <L>etzte, <N>„chste, <E>nde","<" )
        do case
           case cWahl = "E"
                exit
           case cWahl = "N"
                nAktivFont++
           case cWahl = "L"
                nAktivFont--
        end case
        * hier muá die Schriftart ge„ndert werden

        if nAktivFont > nMaxFontNr // šber und
           nAktivFont := 1
        endif
        if nAktivFont < 1          // Unterl„ufe ausgleichen
           nAktivFont := nMaxFontNr
        endif

        oCrt:FontName   := aFontList[nAktivFont,1]
        oCrt:FontHeight := aFontList[nAktivFont,2]
        oCrt:FontWidth  := aFontList[nAktivFont,3]
        oCrt:configure()
        nBreite := oCrt:currentSize()[1]
        nHoehe  := oCrt:currentSize()[2]
        oCrt:setPos( { (nDesktopBreite-nBreite)/2 , (nDesktopHoehe-nHoehe)/2 } )
     enddo

     if ! SetIni(cSection, cVar, nAktivFont , cFileName)
        meldung(12,"F",{ cSection + " - " + cVar,;
                         "konnten nicht in INI-Datei geschrieben werden:",;
                          cFileName } )
     endif

  else

     nAktivFont := val( GetIni(cSection, cVar, "1", cFileName) )

     if nAktivFont < 1 .or. nAktivFont > nMaxFontNr  // m”gliche Fehler ausgleichen
        nAktivFont := 1
     endif
     if nAktivFont > 1       // 1 ist ja Standard !
        oCrt:FontName   := aFontList[nAktivFont,1]
        oCrt:FontHeight := aFontList[nAktivFont,2]
        oCrt:FontWidth  := aFontList[nAktivFont,3]
        oCrt:configure()
        nBreite := oCrt:currentSize()[1]
        nHoehe  := oCrt:currentSize()[2]
        oCrt:setPos( { (nDesktopBreite-nBreite)/2 , (nDesktopHoehe-nHoehe)/2 } )
     endif
  endif
return

Code: Alles auswählen

oFont := oCrt:Setfont()
IF NIL <> oFont
   IF oFont:isDerivedFrom( XbpFont() )
      IF oFont:status() == XBP_STAT_CREATE
          // hier wäre erst OK 
      ELSE
         Msgbox("Error CREATE")
      ENDIF
   ELSE
      Msgbox("Error FONT")
   ENDIF
ELSE
   Msgbox("FONT = NIL")
ENDIF
oCrt:SetFont( oFont )

Code: Alles auswählen

oCrt  := oDlg:drawingArea:ChildList()[1]
oFontDlg            := XbpFontDialog():New()
oFontDlg:fixedOnly  := .T.
oFontDlg:create()
oFont := oFontDlg:display()
IF NIL <> oFont
   oCrt:SetFont(oFont)
ENDIF

Code: Alles auswählen

oCrt:FontName   := oFont:familyName
oCrt:FontHeight := oFont:height
oCrt:FontWidth  := oFont:width
oCrt:configure()

Code: Alles auswählen

FUNCTION CreateSizeableCrt( oParent, nRows, nCols, cTitle, xBGColor )

   // Create a dialog that hosts the console window.
   // The dialog serves as a background for the
   // console
   oDlg := XbpDialog():New( oParent )
   ...
   oDlg:Create()
   // Create console window without frame and title
   // bar.
   oCrt := XbpMainCrt():New ( oDlg:DrawingArea,,, nRows, nCols )
   ...
   oCrt:Create()
   ...
RETURN oCrt

Code: Alles auswählen

CLASS MyCrtFontDialog() FROM XbpFontDialog()
   EXPORTED:
      METHOD display()
ENDCLASS

METHOD MyFontDlg:display()
LOCAL oFont := NIL
LOCAL nButton

   DO WHILE .T.
      oFont := ::XbpFontDialog:display()
      IF NIL <> oFont
         IF oFont:fixed    = .T.  .AND. ;  // CRT-Fenster needs FIXEDFONT
            oFont:Codepage = 255         // OEM ... hm
            EXIT
         ELSE
            nButton := ConfirmBox( , ;
                    "wrong Font "+oFont:FamilyName+" for Hybrid Mode. try again ?" ,;
                    "Error Font", ;
                    XBPMB_YESNO , ;
                    XBPMB_QUESTION+XBPMB_APPMODAL+XBPMB_MOVEABLE,;
                    XBPMB_DEFBUTTON1)

            IF nButton = XBPMB_RET_YES
            ELSE
               oFont := NIL
               EXIT
            ENDIF
         ENDIF
      ELSE
         EXIT
      ENDIF
   ENDDO

RETURN oFont