GAMBAS-BUCH 3.19.5

Die ScrollBar-Komponente bietet einen vertikalen oder horizontalen Regler. Der Regler ist vertikal ausgerichtet, wenn seine Höhe größer ist als seine Breite; ansonsten ist er horizontal. Mit einer ScrollBar können Sie Zahlenwerte (Typ Integer) in einem bestimmten Definitionsbereich [ Zmin | Zmax ] generieren.

Abbildung 17.17.1: Auswahl der Farbanteile (RGB) mit einer ScrollBar

Der minimale Wert steht stets links bei einem horizontalen Regler und unten bei einer vertikalen Version. Eine ScrollBar besitzt keine Skale und die aktuellen Werte werden nicht angezeigt. Diese Aufgabe muss der Entwickler in geeigneter Weise bearbeiten.

Eigenschaften der Komponente ScrollBar werden in der folgenden Tabelle beschrieben:

Tabelle 17.17.1.1: ScrollBar-Eigenschaften

Die Komponente ScrollBar hat nur ein spezifisches Ereignis: Change.

• Das Change-Ereignis wird jedes Mal ausgelöst, wenn sich der Wert der ScrollBar ändert.
• Der Wert ändert sich, wenn Sie auf die 2 (aktiven) Pfeiltasten klicken (Step), auf die Reglerbahn klicken (PageStep) oder wenn Sie den Reglerknopf an seine neue Position ziehen.
• Ein schöner Effekt stellt sich ein, wenn Sie auf die Reglerbahn klicken und dabei die Maus gedrückt halten.
• Mit dem Mausrad ändern Sie den Wert mit der (internen) Schrittweite 3.

Im folgenden Abschnitt wird ein Projekt vorgestellt, das die generierten Werte von drei ScrollBars in einem Farbwert als Kombination speichert und mit diesem Farbwert ein Panel einfärbt. Die Farbanteile RGB werden dezimal angezeigt und die Farbe hexadezimal. Sie können auch die Farbe als hexadezimalen Farbwert eingeben und mit Enter die Farbe übernehmen. Bei fehlerhaften Farbwerten wird keine Fehlermeldung ausgegeben, jedoch die Farbe intern auf rot gesetzt.

Eine Besonderheit finden Sie nicht im Quelltext, weil die Festlegung der Eigenschaft Group für alle drei Scrollbars nur in der IDE vorgenommen werden kann! Da sich die Farbe für das Panel aus den drei Farbanteilen (rot, grün und blau (RGB)) zusammensetzt, bot sich die Festlegung einer Farbgruppe an, so dass nur eine Ereignisbehandlungsroutine (RGB_Change()) geschrieben werden musste, wenn sich bei einer der drei ScrollBars der Wert ändert. Die Abbildung 17.17.1 zeigt das Programm-Fenster für das vorgestellte Projekt, dessen Quelltext vollständig angegeben wird:

' Gambas class file
 
Public Sub _new()
 
  scbColorRed.MinValue = 0
  scbColorRed.MaxValue = 255
  scbColorRed.PageStep = 10
  scbColorRed.Step = 1
  scbColorRed.Value = 127
 
  scbColorGreen.MinValue = 0
  scbColorGreen.MaxValue = 255
  scbColorGreen.PageStep = 10
  scbColorGreen.Step = 1
  scbColorGreen.Value = 127
 
  scbColorBlue.MinValue = 0
  scbColorBlue.MaxValue = 255
  scbColorBlue.PageStep = 10
  scbColorBlue.Step = 1
  scbColorBlue.Value = 127  
 
End ' _new()
 
Public Sub Form_Open() 
 
  FMain.Center
  FMain.Resizable = False
  txbColorHex.MaxLength = 6
  RGB_Change()
 
End ' Form_Open()
 
Public Sub RGB_Change() 
  SetPanelColor()
  SetRGBLabel()
  txbColorHex.Text = Hex$(Color.RGB(scbColorRed.Value, scbColorGreen.Value, scbColorBlue.Value), 6)    
End ' RGB_Change()
 
Public Sub txbColorHex_Activate()
  Try panColor.Background = Val("&H" & txbColorHex.Text & "&")
  If Error Then 
     panColor.Background = Color.Red
     txbColorHex.Text = Hex$(Color.Red, 6)
     SetRGB(panColor.Background)
  Else
    SetRGB(panColor.Background)
  Endif ' ERROR ?
End ' txbColorHex_Activate()
 
Public Sub SetPanelColor()
  panColor.Background = Color.RGB(scbColorRed.Value, scbColorGreen.Value, scbColorBlue.Value)
  panColor.Refresh
  Wait
End ' SetColor()
 
Private Sub SetRGB(iColor As Integer)
  Object.Lock(scbColorRed)
    scbColorRed.Value = Color[iColor].Red
  Object.Unlock(scbColorRed)
  Object.Lock(scbColorGreen)
    scbColorGreen.Value = Color[iColor].Green
  Object.Unlock(scbColorGreen)
  Object.Lock(scbColorBlue)
    scbColorBlue.Value = Color[iColor].Blue
  Object.Unlock(scbColorBlue)
  SetRGBLabel()
End ' SetRGB(aColor As Integer)
 
Public Sub SetRGBLabel()
  lblValueRed.Text = Str(scbColorRed.Value)
  lblValueGreen.Text = Str(scbColorGreen.Value)
  lblValueBlue.Text = Str(scbColorBlue.Value)  
End ' SetRGBLabel()
 
Public Sub btnClose_Click()
  FMain.Close
End ' btnClose_Click()