FiveTech Software tech support forums

... para controlar su duracion. Define Dialog oDlg resource "AD_Empresa" title 'Registro de Datos de la Empresa' oDlg:lHelpIcon:=.f. oDlg:SetFont(oFontDlg) // aqui activo dos Timers: el _oTimerTabla1 es el tiempo que tiene el usuario para estar dentro del formulario // se configura en ...

... 19 ; PICTURE "99" SPINNER MIN 6 MAX 99 ; MESSAGE "Changes the font size of the selection" oFonts:bChange := { || WndChild(): SetFont ( oFonts:varget() ), ; WndChild():SetFocus() } the WndChild() function return the oControl SAY active ( lactive) on dialog it make error because ...

...     ;       TITLE cTITLE                      ;       REDEFINE SAY oSay6  ID 110 of oDlg UPDATE      // what report does       oSay6:SetFont( oFontB )       oSay6:SetColor( nRgb(7,7,224))  //blue       REDEFINE SAY oSay1  ID 131 of oDlg UPDATE      // low  ...

... a EMPTY string otherwise START is displayed COLOR aVal[8], CLR_BLUE oMetro:lDesignMode := .F. oMetro:nMetroTop = 160 oMetro:nMetroRows := 8 oMetro:SetFont( oFontLarge ) // Title IF nScreenW < 1600 oMetro:nMetroMargin := 200 oMetro:nBtnSize = 140 ELSE oMetro:nMetroMargin := 220 oMetro:nBtnSize ...

... program either by oFont:End() or RELEASE FONT oFont. 2) Wherever we want to use that font, we should either assign the font in the COMMAND or oObj:SetFont( oFont ). Do not assign the font directly to any control/dialog or window.

... 2nd codeblock is working. oGetKonto5:nWidth := 55 Thanks in advance Otto oGetKonto5:bLostFocus = { || oGetKonto5:SetSize( 55, 32 ),; oGetKonto5:SetFont(oFont ),; oGetKonto5:nClrText( CLR_OLIVE ),; oGetKonto5:paint() } oGetKonto5:bLostFocus = { || oGetKonto5:nWidth := 55,; oGetKonto5:nHeight ...

Otto, oGetKonto7:bGotFocus = { || oGetKonto7:Resize( 0, 200, 50 ), ; oGetKonto7:SetFont(Setup():oFntMetroFLATBTN ) ,; oGetKonto7:nClrText( CLR_BLACK ),oGetKonto7:paint() } oGetKonto7:bGotFocus = { || oGetKonto7:nWidth := 200, oGetKonto7:nHeight := 50, ; oGetKonto7:SetFont(Setup():oFntMetroFLATBTN ...

... oGetKonto7:Resize( 0, 200, 50 ) But this does not work. Best regards, Otto oGetKonto7:bGotFocus = { || oGetKonto7:Resize( 0, 200, 50 ), oGetKonto7:SetFont(Setup():oFntMetroFLATBTN ) ,oGetKonto7:nClrText( CLR_BLACK ),oGetKonto7:paint() }

Hola a todos, He probado a incluir la cláusula DS_SHELLFONT en los diálogos dentro editor de recursos en vez de DS_SETFONT y he comprobado que con esta cláusula sí que se escala correctamente los diálogos wn Windws 10 en el caso de tener un escalado de fuentes personalizado. Os dejo una imagen de do...

... oBrw:nRecSelColor := aVal[107] // selector-col background oBrw:lHScroll := .T. oBrw:lVScroll := .T. oBrw:lFooter := .T. oBrw:nRowHeight := 25 oBrw:SetFont( oFontSys ) oBrw:Refresh() RETURN NIL ---------------------- regards Uwe :?:

... REDEFINE XBROWSE oBrw2 ID 130 OF oDlg1 ; COLUMNS { 1 } ; HEADERS {"Zeit"} ; ARRAY aZeit LINES CELL XBRW_STYLE( oBrw2 ) oBrw2:SetFont( oFontSys ) oBrw2:lFooter := .F. oBrw2:lHScroll := .F. oBrw2:lVScroll := .F. oBrw2:lRecordSelector := .F. oBrw2:lDrawBorder := .T. // new !!! ...

oCol: .... fonts are to be simply assigned.

eg: oCol:xxxfont := oMyFont

We need to release the font after done with.

This is the thumb-rule:
For controls use oCtrl:SetFont( oFont )
for other classes, use oObj:oFont := oMyFont

I had also the problem! ::setfont() is the solution!
Uwe, how do you assign the font with setfont() to oCol:oHeaderfont??

We should not assigned to control the font like this:

oCtrl:oFont := oNewFont

so it is correct

oCtrl:SetFont( oNewFont )

Uwe

You are tried? oBrw:SetFont( oSysFont1 )