FiveTech Software tech support forums

I try with function passwordStrength(cpass,nLenght) Local desc := {"Very Weak","Weak","Better","Medium","Strong","Strongest"} LOCAL aPwd := {} Local score := 0 Local cUpperCase := "ABCDEFGHIJKLMNOPQRSTUVXYZ" Local cLowerCase := &q...

How I can calc a quality of a Password ? sample : for 6 digit Ql3Aj4 -> 35 bit and show to a dialog a meter graph of the quality as this : http://keepass.info/screenshots/addentry_big.png I found also this http://www.ipi.org/help/help8_admin.nsf/f4b82fbb75e942a6852566ac0037f284/e963b8a55c38edec85257...

thanks sorry
I made a mistake

it was Genera_Password(nLunghezza,cPassw,aGet)

and then aget[1]:ctext...

here is too hot , my head explodes sometime especially when I'm at school with my pupils

I not found the error for this simply test I want refresh the oget[1] but it make error Function Test() LOCAL oDlg Local cPassw:=space(20) Local nLunghezza :=6 Local aGet[2] DEFINE DIALOG oDlg ; TITLE " GENERATE RANDOM PASSWORD" @ 2,1 SAY " Password :" OF oDlg @ 2,7 GET   aGet[1]...

recent ????
I have an oldest fwh release

thanks to you mr rao !!!!

nooooo use simply the theorie of josè of alanit CLASS tApplication DATA oDlg and then Function test() if oApp():oDlg != nil if oApp():nEdit > 0 return nil else oApp():oDlg:End() SysRefresh() endif endif your procedure return nil if yoy make an operation sample an insert or modiy you must insert oApp...

look this picture



on the bottom the paper is over the window

and if you zoom max and the zoom min then you can see the line of the shadow remain at right of the screen


the same test on with xp run ok

OK NOW RUN OK Local aLabBitmap := { TImage():Define( 'SM_AULE' ), TImage():Define( 'SM_UFF' ), TImage():Define( 'SM_LAB' ) } instad of Local aLabBitmap := { TImage:Define( 'SM_AULE' ), TImage:Define( 'SM_UFF' ), TImage:Define( 'SM_LAB' ) } http://img231.imageshack.us/img231/3608/goodprint.jpg I thin...

no,

Error description: Error BASE/1003 Variabile inesistente: TIMAGE

Called from: source\TInforme.prg => TINFORME:REPORT(567)

line 567 Local aLabBitmap := { TImage:Define( 'SM_AULE' ), TImage:Define( 'SM_UFF' ), TImage:Define( 'SM_LAB' ) }

I try with bitmap from source and it run ok when I insert resources not run #include "FiveWin.ch" #include "report.ch" STATIC oReport Function Reptext() Local aLabBitmap := {'SM_AULE','SM_UFF','SM_LAB'} Local hBmpText1 USE LB INDEX LB NEW REPORT oReport TITLE "test" ; C...

sorry

but I believe there is an possibility with (x)harbour to scan the system and know if

how many version of winword exist or there are not installed any version

when I preview label run ok then I close label preview it make error
Called from: Lib\LABEL\PDLABEL.PRG => LBLEND(77)

ok but
How I can make if on a pc have office 9 or 10 or 11 or 12

Daniel, ( seeing the instal.prg) I made Local aLabBitmap := {'SM_AULE','SM_UFF','SM_LAB'} ... hBmpText1 = LoadBitmap( GetResources(), aLabBitmap[LB->TIPO] ) COLUMN TITLE "Tipo" DATA " " SIZE 35 FONT 2 CENTER IMAGE IMGDATA hBmpText1 HEIGHT 6 ALPHALEVEL 128 it not print anything