Seite 2 von 2

Verfasst: 29.09.2004 10:12
von wichtel
@DANILO:
unter Linux geht es nicht. Die Fehler sind bei mir nicht ganz so wie bei dir, aber ähnlich merkwürdig.

Michael

Verfasst: 29.09.2004 15:23
von NicTheQuick
Außerdem kann man mit der momentanen Methode auch bspw. in 2-er-Schritten gehen, indem man den GadgetState immer mit 2 multipliziert, die obere Grenze nur halb so hoch setzt und dann evtl. noch eine schöne Maske einbaut, wie Lars es schon vorgeschlagen hat.

Verfasst: 29.09.2004 16:30
von Lars
Man könnte allerdings in der Hilfe noch ausdrücklich erwähnen, dass der
GadgetState NICHT automatisch in den Text gesetzt wird. André? :wink:

Verfasst: 29.09.2004 16:37
von wichtel
@LARS: Warum sollte er.
Man kann doch auch im SpinGadget Texte darstellen wie z.B. alle 16 Standard Darben aus DOS Zeiten. Und jeder Farbe ist ein Wert zugeordnet. Da stört so ein Automatismus nur.
Ich finde nur die Pfeile im SpinGadget zu klein.

Michael

Verfasst: 29.09.2004 16:54
von Lars
wichtel hat geschrieben:Warum sollte er.
Das ist so weit klar, aber es sollte imho trotzdem in der Hilfe erwähnt
werden, da es für Anfänger leicht missverständlich ist.

und noch einer zu dem Thema

Verfasst: 30.09.2004 13:25
von mueckerich
Hi Leute, sorry für die doofe Frage :oops: , aber wie krieg ich den Text in einem SpinGadget in einer anderen Schriftgröße und Schriftstil. Jetzt sagt mir bitte nicht, das ich das zu Fuß :evil: über die API machen muss.

Verfasst: 30.09.2004 13:53
von Rings
getestet mit Purebasic 3.91

Code: Alles auswählen

#WindowWidth  = 390
#WindowHeight = 350
#SpinGadget=1
#Font=1
If OpenWindow(0, 100, 200, #WindowWidth, #WindowHeight, #PB_Window_MinimizeGadget, "PureBasic - Gadget Demonstration")
 If CreateGadgetList(WindowID())
  Ergebnis = SpinGadget(#SpinGadget, 10,10, 250, 50, 10, 90)   
  
  FontID.l = LoadFont(#Font, "Times New Roman", 24,#PB_Font_Italic|#PB_Font_Bold) 
  SetGadgetFont(#SpinGadget, FontID) 
  
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_EventGadget
     Select EventGadgetID()
      Case #Spingadget  
       Value=GetGadgetState(#SpinGadget)
       Text$=Str(Value) + " von 100"
       SetGadgetText(#SpinGadget, Text$) 
     EndSelect
    EndIf 
  Until EventID = #PB_EventCloseWindow
 EndIf
EndIf
End 

Verfasst: 03.10.2004 16:25
von Andre
Lars hat geschrieben:Man könnte allerdings in der Hilfe noch ausdrücklich erwähnen, dass der
GadgetState NICHT automatisch in den Text gesetzt wird. André? :wink:
Werde sehen, was sich machen lässt. :wink:
Uff, meine ToDo-Liste wird auch immer länger - im Gegensatz zu meiner Zeit... :roll: