FiveTech Software tech support forums

... LASTROW nLast oPrn:Box( nRow, nCol, nLast + 0.5, nCol + nWidth, nil, CLR_HGRAY, nil, "CM" ) @ nRow+0.2 , nCol PRINT TO oPrn TEXT cText2 SIZE nWidth - 1,10 CM FONT oFont2 ALIGN "TC" //LASTROW nLast @ nRow , nCol PRINT TO oPrn TEXT cText SIZE nWidth - 1,10 CM FONT oFont ...

... FUNCTION F_PAGE2( oFld1 ) LOCAL oSay1, oGet1, cText1 := "Testing GET-colors" LOCAL cText2 := "Testing SAY - background-color" @ 30, 20 GET oGet1 VAR cText1 SIZE 120, 15 OF oFld1:aDialogs[ 2 ] PIXEL FONT oFont1 UPDATE oGet1:SetColor( ...

Avista, cText1 := "this is a sample text"cText2 := "this  is  a  sample  text" MsgInfo( AScan( hb_ATokens( cText1, " " ), { | cToken | cToken == "sample" } ) ) -> Return 4 MsgInfo( AScan( hb_ATokens( cText2, ...

... work good. It return good value just in case if there is ONLY one space between all tokens Example: cText1 := "this is a sample text"cText2 := "this  is  a  sample  text" MsgInfo( AScan( hb_ATokens( cText1, " " ), { | cToken | cToken == "sample" ...

... Headline oFont2, ; // Font Text .T., ; // Message centered nTextT, ; // Text-Top nTextL, ; // Text-Left cTitle, ; // Title cText1, ; // Text 1 cText2, ; // Text 2 cText3, ; // Text 3 cText4, ; // Text 4 cText5, ; // Text 5 nTColorF, ; // 1. Gradient-color nTColorB, ; // 2. Gradient-color nTGradPos, ...

... ) , ; 3000, 8388608, 10, 50, 50 ) ) Function : MSG_INFO( ; oBrush, ; // Brush oFont, ; // Font cTitle, ; // MsgTitle cText1, ; // MsgText 1 cText2, ; // MsgText 2 cText3, ; // MsgText 3 nIntervall, ; // Timer nTxtColor, ; // Textcolor nSpace, ; // Space between Text nMsgTop, ; // MsgTop ...

hiii...

but then how save the record ?

replace ctext to samename
replace ctext1to samename
replace ctext2 to samename

I think you'll save on the same field

... the footer:   //Print order footer               cText1 := "Fortsetzung Seite: " + ALLTRIM(str(nSeite))               cText2 := "Zwischensumme " +  ALLTRIM(transform( rgsumm ,"999,999.99")) //text Fortsetzungsblatt               PRINTAREA ...

Dave,

You missed two "*" here:

HB_EXPORT char * PASCAL _export HBDLLSTRING4( char * cProcName, char * cText1, char * cText2 )

Dave,

Have you declared HBDLLENTRY3() this way ?

DLL FUNCTION HBDLLENTRY3( cProc AS LPSTR, cText1 AS LPSTR, cText2 AS LPSTR ) AS LPSTR PASCAL LIB "dll2test.dll"

Antonio, i deleted for control all BMP-entrys a return-test in the original directory was ok. [code] The first lines of the BAT-file : // --------------------------------- if A%1 == A GOTO :SINTAX if NOT EXIST %1.prg GOTO :NOEXIST ECHO Compiling... set hdir=d:\harbour set hdirc=%hdir%\mingw32\harbou...

... to the next control forward. Regards, Roberto Parisi #include "FWCE.ch" function Main() local oWnd, cText := Space( 50 ), cText1 := Space( 50 ), cText2 := Space( 50 ) DEFINE WINDOW oWnd TITLE "Test" @ 0, 0 GET cText SIZE 200, 20 pixel @ 30, 2 GET cText1 SIZE 200, 20 pixel @ 60, 2 GET cText2 SIZE ...