FiveTech Software tech support forums

Hi Marcelo,
All my new programs, I use function from ADS.
I need encrypt from fivewin for my old program that use this function for indexing.

Regards,
Kok

Hi Mulyadi,

compile using fivewin version 12.07 + bcc63

http://dl.dropbox.com/u/55109320/pic.jpg

regards,

kok

Hi Mulyadi,

you must put AUTOCOLS.

here everything ok.

regards,

Kok

... aData, { str(i,5), dtoc( date() + 1 ), i + 100, "test i + 100" } )  next ireturn aData regards, kok

Hi Richard ,

Thank for your reply,
but I don't want use function from ADS , I must use function encrypt from fivewin.

regards,

kok

Hi Kok, You mean it... cAlias := GiveAlias ( cAlias )USE (cFile) NEW SHARED ALIAS (cAlias) VIA "ADS"AdsEnableEncryption( cWord )cAlias := Alias()      IF !File ...

...                 use customer new via 'ADS'      index on ENCRYPT(first,'TEST')  tag FI TO CUSTOMER      BROWSE()return nil  thanks kok

... olistbox FIELDS OF oDlg SIZE 150 , 150 PIXEL update           ACTIVATE DIALOG oDlg CENTER ;    on init olistbox:lKinetic:=.f.RETURN NIL regards, kok

Hi All,

Thanks for your suggestion.

I try bLDblClick and the result same as LDblClicked, the dialog can not display.

solution from Mr. Kok Joek Hoa to use ON DBLCLICK method is true. It work fine.
maybe this method is compatible with my logical issue in all aplication.


Mulyadi

... AUTOSORT AUTOCOLS OF oDlg ;ON DBLCLICK ( txtKode := oResAcct:Fields("kode"):Value, oDlg:end() ) regards, kok

... Local lreturn :=.f.    IF   alltrim(cGEt1)="Adele"        lreturn:=.t.    ENDIF    lok:=lreturn        return lReturn  Regards, Kok

Dear Antonio,

Could you send it to me?
my email is : jewelrysoft@yahoo.com

Thanks,

Kok

Dear Marc Vanzegbroeck,

Try use numeric for date with format YYYYMMDD ,

like :

11795129,20120731,42,9,"","Laadbrug",8,1,0,0.00


Thank

kok

...    :" font ofont        @ 2  ,6 GET cWith OF oDlg            activate dialog odlg center        ofont:end()return nil  regards, kok

... set bClrHeader? bClrHeader does only accept a pair of colors, no gradient. I tried that before, but you can only use bClrGrad for a new gradient. Kok, oBrw:bClrGrad := { | | { { 0.4, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ; { 0.6, nRGB( 255, 215, 84 ), nRGB( 255, 233, 162 ) } } } thanks, ...