FiveTech Software tech support forums

Yes, but it won't be local

Simply assign it. At the top write:

memvar MyVar

later in your code:

MyVar = ...

but it will not be local, it will be public

... Browse() does. ( Browse() uses WBrowse ) When there is no DBF open yet then this function shows an empty browse. You can use (0)->( XBrowse( MyVar ) ) to get what you want.

... the TEXT...ENDTEXT statement and not to evaluated text merged from cExpression. In the following example, the spaces in the memory variable, myvar, are not removed when merged with the text in TEXT...ENDTEXT: CopyCode imageCopy Code myvar = " AAA" TEXT TO x NOSHOW ADDITIVE TEXTMERGE ...

That's not what I want to do: The idea is to simulate: use mitabla ?micampo how come: fMiFuntion() ?myvar where myvar is defined in fmifunction public or static /* Código Harbour */REQUEST HB_GT_WIN_DEFAULTFunction Main()? Hola()WAITRETURN NIL/* Código C */#pragma ...

... ; // this selft defined prg function to load current row jpg into private 'myvar' LoadImageFromHbVar(Picture1,'fr3img'); end; begin end. // " picture1" is the name of the picture object, can be edited in the left ...

1.FUNCTION fr3prn0(cid1,lpreview,obl1) local cid2,ctable1,ctable2,i local odbprn1,odbprn2,odb1,odb2 private myvar if obl1<>nil if __objhasdata(obl1,"odb1") odb1:=obl1:odb1 odb2:=obl1:odb2 else odb1:=obl1 odb2:=obl1 end end do case case cid2=="sal02" ...

... the TEXT...ENDTEXT statement and not to evaluated text merged from cExpression. In the following example, the spaces in the memory variable, myvar, are not removed when merged with the text in TEXT...ENDTEXT: myvar = " AAA" TEXT TO x NOSHOW ADDITIVE TEXTMERGE PRETEXT 7 Start Line ...

... } ::oVScroll:bGoDown := {|| If( GetFocus() != ::hWnd, ::SetFocus(),),; Eval( bDown ),::refresh() } to force bup, bdown work. redefine myvar id 101 of odlg spinner on up (myvar++) on down (myvar --) If variable is date type without define bup nor bdown,it always ++ -- year not to day ...

... TfrxComponent); begin callhbfunc('myfunc') ; // this selft defined prg function to load current row jpg into private 'myvar' LoadImageFromHbVar(Picture1,'myvar'); end; begin end. 3. picture1 event : onbeforeprint Picture1OnBeforePrint in prg: FUNCTION myfunc() myvar:=memoread("d:\app\sub\"+cvaltochar(odbprn2:id)+".jpg") ...

this pass jpg via
private MyVar := memoread("C:\MyPicture.jpg")
and LoadImageFromHbVar(<Picture1>, ‘MyVar’) call harbour variable via "myvar" .

The Demo and manual from http://www.paritetsoft.ru/frh.htm are too simple , the auther not reply at all.

Regards!
Shuming Wang

Hi, in prg private MyVar := memoread("C:\MyPicture.jpg") in fr3 , 1.picture1 defined as selfdefined variable. 2.a masterdata cell edit as [<picture1>] 3.the cell event onbeforeprint as ReportHOnStartReport 4.code as: ...

... harbour/fwh private vars,harbour/fwh functions parament as SQL like, string type write as 'aaa' or "'a"+var1+"'" (1)GetHbVar('MyVar') (2)callhbfunc('functionname',[para1,para2,...]) , example callfunc('alltrim',['001 ']) --> '001' (3)GetHbArrayVar('MyArray', [6]) -> MyArray[6] ...

... the modern interactive applications. EMG Enrico , Something I can't understand - ADODb have .Find( cExpr ) method , where cExpr = "myField = 'MyVar' " . What hinder to do something like MyIncremSearch( cField, cVar ) function or method ? You can pass literal cExpr = cField + "=" ...

#INCLUDE "DBCOMBO.CH"

REDEFINE DBCOMBO OFAM VAR myvar ID xxx OF ODLG ;
ALIAS (myalias) ;
ON CHANGE ODLG:UPDATE();
ITEMFIELD "xxxxxxx" ;
LISTFIELD "yyyyyyy"

HTH

Richard

... FWH Version 7 - binaries dated 7.10 from October 2007. Borland BCC 5.5 1. I'm calling GetPvProfString() function as follows: MYFILE.INI: [XYZ] MyVar= x := GetPvProfString( 'XYZ', 'MyVar', '1', MYFILE.INI ) In this instance, with x is set to empty, the default value seems to not be working. ...