Scala < 100 [erledigt]

[AUGE_OHR]

hi,

ein Progressbar geht ja "normal" von 0 - 100%. wenn ich Werte > 100 habe benötige ich eine "Scala"

Code: Alles auswählen

   ::nMinimum      := 0
   ::nMaximum      := 100
   ::nValue        := 0
   ::nPercent      := 0
   ::nIncrement    := 1
   ::nScaleMax     := 100

   ::nPercent  := ::nMaximum / ::nScaleMax * ::nValue

das scheint auch soweit zu funktionieren wenn ::nMaximum >= 100

Code: Alles auswählen

   nLimit   := LASTREC()
   nEvery   := INT(nLimit/100)
   xScale   := nLimit*nEvery

   oProgress := DXE_ProgressBar() :new( oDraw,, aPos, aSize )
   //
   // NEED visual Style and XP Manifest !!!
   // assign before create
   //
   oProgress:UseVisualStyle   := .T.
   oProgress:UsePercent       := .T.
   oProgress:create()
   //
   // assign after create
   //
   oProgress:minimum := 1
   oProgress:Maximum          := nLimit
   oProgress:Increment        := nEvery
   oProgress:nScaleMax        := xScale

nun hab ich aber ein Problem wenn z.b. nLimit := 10, also < 100, und zwar wohl mit

Code: Alles auswählen

INLINE METHOD Increment()
LOCAL nValue := ::GetData()
   ::SetData( nValue + ::nIncrement )
RETURN

wo liegt mein Gedankenfehler ?

[AUGE_OHR]

siehe http://www.xbaseforum.de/viewtopic.php? ... 908#p76908