PureBoard

Verfasst: **18.02.2005 21:10**

Hier ist meine Version vom Progressbargadget.
Ist auf jeden Fall noch ausbaubar. Es dient nur als Beispiel.

;PercentBar
;2005 by Hroudtwolf
;Progressbar with percentdisplay
;
Declare Setpercents (gadget.l,position.l,gadgetreturn$)
Declare.s PercentbarGadget (gadget.l,x.l,y.l,pcwidth.l,pcheigth.l,max.l)
hWnd.l = OpenWindow(0, 100, 100, 300, 60, #PB_Window_titlebar|#pb_Window_screencentered, "PercentBar") 
If hwnd.l 
If CreateGadgetList (hwnd.l)
info$=PercentbarGadget (1,10,20,280,20,40); PercentGadget erstellen
EndIf
  Repeat 
    EventID.l = WindowEvent() 
    Setpercents (1,xx,info$); Das PercentGadget aktualisieren
    xx=xx+1
    If xx>40:xx=0:EndIf 
    Delay(100)
  Until EventID = #PB_EventCloseWindow 

EndIf 
End 


Procedure.s PercentbarGadget (gadget.l,x.l,y.l,pcwidth.l,pcheight.l,max.l)
gadgetreturn$=Str(pcwidth.l)+"|"+Str(pcheight.l)+"|"+Str(max.l)
Setpercents (gadget.l,0,gadgetreturn$)
ImageGadget (gadget.l,x.l,y.l,pcwidth.l,pcheigth.l,UseImage (800+gadget.l))
ProcedureReturn gadgetreturn$
EndProcedure 


Procedure Setpercents (gadget.l,position.l,gadgetreturn$)
pcwidth.l=Val(StringField(gadgetreturn$, 1, "|")) 
pcheight.l=Val(StringField(gadgetreturn$, 2, "|")) 
max.l=Val(StringField(gadgetreturn$, 3, "|")) 
;Prozentberechnung
onepercent.f=max/100
If onepercent.f=0:onepercent.f=1:EndIf 
percent.l=position.l/onepercent.f

;Systemfarben ermitteln
HFarbe.l=GetSysColor_(#COLOR_BTNFACE )
RFarbe1.l=GetSysColor_(#COLOR_3DHIGHLIGHT)
RFarbe2.l=GetSysColor_(#COLOR_3DSHADOW)
TFarbe.l=GetSysColor_(#COLOR_BTNTEXT )
;Gadgetstyle erstellen
If IsImage (800+gadget.l)=0:CreateImage (800+gadget.l,pcwidth.l,pcheight.l):EndIf 
If StartDrawing (ImageOutput ())
DrawingMode(0)
Box (0,0,pcwidth.l,pcheight.l,HFarbe.l)
Line (0,0,0,pcheight.l,RFarbe2.l)
Line (0,0,pcwidth.l,0,RFarbe2.l)
Line (0,pcheight.l-1,pcwidth.l,0,RFarbe1.l)
Line (pcwidth.l-1,0,0,pcheight.l,RFarbe1.l)
Box (1,1,(pcwidth.l*position)/max,pcheight.l-2,RGB(100,100,250))
For x=10 To pcwidth.l-10 Step 10
Line (x,1,0,pcheight.l-2,HFarbe.l)
Next x
DrawingMode(1)
Locate (Int(pcwidth.l/2)-20,2)
rot.l=Red(TFarbe.l)
gruen.l=green(TFarbe.l)
blau.l=Blue(TFarbe.l)
FrontColor (rot.l,gruen.l,blau.l)
text$=Str(percent.l)+ " %"
DrawText (text$)
StopDrawing ()
EndIf
If IsGadget (gadget.l):SetGadgetState (gadget.l,UseImage (800+gadget.l)):EndIf 
EndProcedure

Verfasst: **19.02.2005 00:41**

Die einzig einfache Lösung hab ich in PureVisionXP gefunden, da ist sowas mit drin:

Code: Alles auswählen

#Gadget=1 
#Image=1 
If OpenWindow(0,0,0,200,100,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Demo") 
  If CreateGadgetList(WindowID(0))  
    PVGadgets_ProgressBar(#Gadget,#Image,10,40,170,20,0,1,$000000,$0000FF,$00FFFF,#PB_Image_Border)  
  EndIf  
  For tmp=0 To 100  
    PVGadgets_ProgressBar(#Gadget,#Image,0,0,0,0,tmp,1,$000000,$0000FF,$00FFFF)  
    Delay(30)  
  Next  
EndIf

Aber PV haben ja leider nur wenige

Verfasst: **19.02.2005 00:58**

Eigendlich schade, das es keine deutsche Distribution gibt, die in Deutschland PV vertreibt. Wenn Andre oder noch besser MC vieleicht diese mit anbieten könnten, hätte ich den schon lange per Vorkasse bestellt.

Vielleich wird es ja eines Tages möglich werden.

Verfasst: **22.02.2005 17:46**

ich würde einfach die ProgressBarEx-LIB nehmen

Verfasst: **23.02.2005 03:30**

ich weiss nicht, aber irgendwie finde ich einfach nichts winapi mässiges darüber. in der msdn suche lande ich immer bei .net framework.

c ya,
nco2k

Verfasst: **06.03.2005 21:50**

Falko hat geschrieben:Eigendlich schade, das es keine deutsche Distribution gibt, die in Deutschland PV vertreibt. Wenn Andre oder noch besser MC vieleicht diese mit anbieten könnten, hätte ich den schon lange per Vorkasse bestellt.

Vielleich wird es ja eines Tages möglich werden.

Da kann ich mich nur anschließen.

PureBoard

Prozentanzeige im ProgressBarGadget ??

PercentBar