good morning

via command does not assume nHeight

@ 057,376 SAY oTest PROMPT 'Test' PIXEL

? oTest:nHeight --> 22

@ 057,376 SAY oTest PROMPT 'Test' PIXEL SIZE 015,007

? oTest:nHeight --> 22

via property yes

oTest:nHeight := 7

? oTest:nHeight --> 7

DEFINE WINDOW oWnd

@ 057,376 SAY oTest1 PROMPT 'Test' PIXEL

? oTest1:nHeight --> 22



@ 057,376 SAY oTest2 PROMPT 'Test' PIXEL SIZE 015,007

? oTest2:nHeight --> 22

ACTIVATE WINDOW oWnd

Here we get 16 and 11 using FWH 24.07 and bcc77 32 bits

DEFINE WINDOW oWnd

@ 057,376 SAY oTest1 PROMPT 'Test' PIXEL

? oTest1:nHeight --> 16

@ 057,376 SAY oTest2 PROMPT 'Test' PIXEL SIZE 015,007

? oTest2:nHeight --> 11

here it should be 7 ?

ACTIVATE WINDOW oWnd

Dear Joao,

Please use this:

@ 057,376 SAY oTest2 PROMPT 'Test' PIXEL SIZE 015,007

oTest2:SetSize( 15, 7 )

Class TSay does some calculations, but if you need that exact size, then use Method SetSize( nWidth, nHeight )

Dear Antonio

@ 057,376 SAY oTest2 PROMPT 'Test' PIXEL SIZE 015,007

SIZE 015,007 -->> does not assume the informed standard? when we inform the pattern, oSay should follow it.

I have to use it like this ?

@ 057,376 SAY oTest2 PROMPT 'Test' PIXEL SIZE 015,007 ; oTest2:SetSize( 15, 7 )

You can modify the command in FiveWin.ch:

xcommand @ <nRow>, <nCol> SAY [ <oSay> <label: PROMPT,VAR > ] <cText> ;

         [ <pict: PICT, PICTURE> <cPict> ] ;

         [ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;

         [ FONT <oFont> ]  ;

         [ <lCenter: CENTERED, CENTER > ] ;

         [ <lRight:  RIGHT >    ] ;

         [ <lBorder: BORDER > [CLR <nClrBorder>] ] ;

         [ [<relpix:RELATIVE>] <lPixel: PIXEL, PIXELS > ] ;

         [ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ] ] ;

         [ SIZE <nWidth>, <nHeight> ] ;

         [ <design: DESIGN >  ] ;

         [ <update: UPDATE >  ] ;

         [ <lShaded: SHADED, SHADOW > ] ;

         [ <lBox:    BOX   >  ] ;

         [ <lRaised: RAISED > ] ;

         [ <adj: ADJUST> ] ;

         [ <lTrans: TRANSPARENT>];

         [ <uni: UNICODE, ANSI> ] ;

         [ <lVCenter: VCENTER> ] ;

         [ CARGO <uCargo> ] ;

  => ;

      [ <oSay> := ] TSay():New( <nRow>, <nCol>, <{cText}>,;

         [<oWnd>], [<cPict>], <oFont>, <.lCenter.>, <.lRight.>, <.lBorder.>,;

         <.lPixel.>, <nClrText>, <nClrBack>, <nWidth>, <nHeight>,;

         <.design.>, <.update.>, <.lShaded.>, <.lBox.>, <.lRaised.>, <.adj.>,;

         <.lTrans.>, [<(oSay)>], [Upper( Left( <"uni">, 1 ) ) == "U"], <.lVCenter.>, [<uCargo>], [<.relpix.>], <nClrBorder> ); [ <oSay>:SetSize( <nWidth>, <nHeight> ) ]

You are right and I agree that SIZE clause should be enough, but in the evolution of FWH along many years, Class TSay behaves like that

ADMP0002.PRG(226) Error E0061 Implicit send operator with no WITH OBJECT in sight

Please compile using -p flag and review the generated ppo file

static aFwStack := {}

static fwhtmp := nil

line 3 "test.prg"

function Main

oWnd := TWindow():New(,,,,,,,,,,,,,,,, !.F., !.F., !.F., !.F., .F.,, "oWnd",,,, )

oTest1 := TSay():New( 057, 376, {|| "Test"},,,, .F., .F., .F., .T.,,,,, .F., .F., .F., .F., .F., .F., .F., "oTest1",, .F.,,, ) ; oTest1:SetSize(, )

WQout( { oTest1:nHeight } )

oTest2 := TSay():New( 057, 376, {|| "Test"},,,, .F., .F., .F., .T.,,, 015, 007, .F., .F., .F., .F., .F., .F., .F., "oTest2",, .F.,,, ) ; oTest2:SetSize( 015, 007 )

WQout( { oTest2:nHeight } )

oWnd:Activate(, oWnd:bLClicked, oWnd:bRClicked, oWnd:bMoved, oWnd:bResized, oWnd:bPainted, oWnd:bKeyDown, oWnd:bInit,,,,,,,,,,, oWnd:bLButtonUp, .F. )

return NIL

thank you

what source code do you have here ?

ADMP0002.PRG(226)