FiveTech Software tech support forums

... 10)
LOCAL cName := space(50)
LOCAL cEmpresa := "SysCtrl"
LOCAL oDlg,oGet1,oGet2, oCbx, oBtn1, oBtn2
LOCAL oBrush
LOCAL lVal := .f.
LOCAL oFont
DEFINE BRUSH oBrush COLOR nRGB( 255, 255, 255 )
DEFINE FONT oFont NAME "Tahoma" SIZE 0, -12 BOLD
DEFINE DIALOG oDlg SIZE 610, 330 brush oBrush ...

... test

// developed by Cristobal Navarro

#include 'fivewin.ch'
#include 'xbrowse.ch'
#include "constant.ch"

Function test()

local oDlg,oDbf,oFont
local oBar

local nBottom := 27.2
local nRight := 89
local nWd := Max( nRight * DLG_CHARPIX_W, 180 )
local nHt := nBottom * DLG_CHARPIX_H ...

... run: ollama serve

#include "FiveWin.ch"

static oChat, oOutput
static nStartTime, nTokenCount

function Main()

local oDlg, cOutput := "", oBtn, oFont
local oPrompt, cPrompt := Space( 100 )

oChat = TOLlama():New( "phi4" )
FW_SetUnicode( .T. )

DEFINE FONT oFont NAME "system-ui" SIZE 0, -16 ...

... 100
local nHt := nBottom * DLG_CHARPIX_H
local nWd := Max( nRight * DLG_CHARPIX_W, 180 )
local oCursorBtn :=TCursor():New(,'HAND')

local oFont := TFont():New("Tahoma", 0, 18, , )
local oBold := TFont():New("Tahoma", 0, 16, , .t.)


DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL TRUEPIXEL ;
FONT ...

... with Harbour, xHarbour with and without Manifest.

This is the program we used to test:
#include "fivewin.ch"

function Main()

local oDlg, oFont
local oGet[ 20 ]
local aVar := { Space(10), "1234567890", Space(10), Space(10), 0, ;
1, "multiline", Space(10), Space(10), 0, ;
0, 0, 0, Space ...

... ollama2.prg
#include "FiveWin.ch"

static oChat, oOutput
static nStartTime, nTokenCount

function Main()

local oDlg, cOutput := "", oBtn, oFont
local oPrompt, cPrompt := Space( 100 )

oChat = TOLlama():New( "deepseek-r1:32b" )
FW_SetUnicode( .T. )

DEFINE FONT oFont NAME "system-ui ...

... Focus( oBrw ) } //{ CLR_WHITE, RGB( 0x33, 0x66, 0xCC ) } }
:bClrSel := { || MyColors_Focus( oBrw ) } //{ CLR_WHITE, RGB( 0x33, 0x66, 0xCC ) } }
:SetColor( CLR_BLUE, CLR_WHITE) //@IA 20200819
:nRowHeight := 80
// :oFont := oFntFocus


:CreateFromCode()
END
//------------

Kind regards
Iris

I gave this function in my original sample
function SetResize( oDlg )

local oCtrl

oDlg:Cargo := { oDlg:nWidth, oDlg:nHeight, oDlg:oFont:nHeight }
for each oCtrl in oDlg:aControls
WITH OBJECT oCtrl
:Cargo := { :nTop, :nLeft, :nWidth, :nHeight, :oFont:nHeight }
END
next

return nil

Please ...

... this sample as it is.
If this works as expected, you may use this for your other dialogs.

#include "fivewin.ch"

function Main()

local oDlg, oFont
local aVar := { PadR( "get1", 10 ), PadR( "edit", 10 ), Space( 10 ), PadR( "pwd", 10 ) }
local aGet[ 4 ]

DEFINE FONT oFont NAME "TAHOMA" SIZE 0 ...

... ENDMENU
return oMenu

//----------------------------------------------------------------------------//

function BldDlg1()

local oDlg, oArial, oFont, oMemo, oGroup
local cName1 := "ONE "
local cName2 := "two "
local cName3 := "3 "
local cName4 := "4 "
local cName5 := "5 "
local cName6 ...

... CLR_SOFTYELLOW nRGB( 255, 251, 225 ) //-> Amerelo Soft.

FUNCTION Main()

LOCAL aColors := { CLR_WHITE, CLR_YELLOW, CLR_HGREEN }
LOCAL oDlg, oFont, oGet, oMemo, n, oBtnCal, oBtnCan
LOCAL nColor := 1
LOCAL CText := "This is some" + CRLF + "text"

SetGetColorFocus()

tGet():lDisColors := .F ...

Leandro prueba asi, porfa:


// C:\FWH\SAMPLES\LEANDGRP.PRG

#include "FiveWin.ch"

FUNCTION Main()

LOCAL oDlg, oFont, oBold, aVar[ 2 ], cTitle

AFill( aVar, Space( 60 ) )

cTitle := "GROUPBOX con xHarbour de 64 bits - Funciona?"

DEFINE FONT oFont NAME "ARIAL" SIZE 0, - 14
DEFINE FONT oBold ...

... Parameters: None

Return Value: None

Usage Example: (Internal use only, likely related to font handling within the control)

108. SetFont( oFont, lResizeCols )

Description: Sets the font to be used for displaying data within the TXBrowse control.

Parameters:

oFont: OBJECT - The TFont ...

... T. ) // Sets column widths in creation order.
content_copy
download
Use code with caution.
Harbour

30. SetGroupHeader( cGrpHdr, nFrom, nUpto, oFont, nAlign, nHeight )

Description: Sets a group header for a range of columns.

Parameters:

cGrpHdr: CHARACTER - Group header text.

nFrom: NUMERIC ...