FiveTech Software tech support forums

Dear Mr Rao

Perfect!


Tks!

email to receive: joaocarlos@vinhesoft.com

Dear Antonio

FHW_1912


FWH_2407


DEFINE WINDOW --> ok

DEFINE DIALOG --> not working

Working! with DEFINE WINDOW
function Main()

local oWnd, oTest1, oTest2

DEFINE WINDOW oWnd

@ 057,376 SAY oTest1 PROMPT 'Test1' PIXEL
? oTest1:nWidth,oTest1:nHeight // 28,16

@ 087,376 SAY oTest2 PROMPT 'Test2' PIXEL SIZE 015,007
? oTest2:nWidth,oTest2:nHeight // 15,07

oTest1:SetText ...

Yes!

#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 ...

line 226: @ 010,010 SAY 'Código' FONT oF01_ SIZE 090,010 PIXEL TRANSPARENT

ppo: TSay():New( 010, 010, {|| "Código"},,, oF01_, .F., .F., .F., .T.,,, 090, 010, .F., .F., .F., .F., .F., .F., .T.,,, .F.,,, ) ;:SetSize( 090, 010 )

E:\Sistemas\WinADMpro>harbour admp0002 -p -n
Harbour 3.2.0dev ...

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 ...

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

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 )

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

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

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

João

Obrigado por responder.

deu certo assim, colocando no prg principal MAIN

#pragma BEGINDUMP

int _streams;

#pragma ENDDUMP

vlw

good morning,

Error: Unresolved external '__streams' referenced from C:\DEVFW\FWH_2407\LIB\DRXLSX32_BCC.LIB|drawing