home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / feb95 / lc_fig07.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  6.6 KB  |  560x255  |  4-bit (5 colors)
   ocr: - DDE-EXP-FSL-boxPdlGauge.ChangcPercentGauge" method ChangePercentGauge(const nNewPct number) var iNewPct smallint - - For doing math, we need pct as smallint endvar iNewPct nNewPCt.smallint() boxGauge.Size = point(Longint(ptTxtPctsize.x()M1NewPct/100), ptixtPctsize-y0) txtPct.value - - Format("W4,AC", string(Smallint(nNeuPct))*9) endmetnod Edit Line: 6 Col: 14