PureBoard

Code: Alles auswählen

#SB_GETPARTS = $406
#SB_SETPARTS = $404

;
; Setzt die Breite eines StatusBar-Feldes neu
;
; (Long) hWndControl: Nummer der StatusBar (#StatusBar)
; (Long) dwField:     Nummer des Feldes
; (Long) dwWidth:     Neue Breite des Feldes
;
; Rückgabewert: (Byte) #True bei Erfolg oder #False im Fehlerfall
;
Procedure.b API_SetStatusBarFieldWidth(hWndControl.l, dwField.l, dwWidth.l)
  ;
  ; Geschützte Funktionsvariablen
  ;
  ; (Long) dwResult: Container für Funktionsergebnisse
  ; (Long) nParts:   Container für Anzahl der StatusBar-Felder
  ; *      dwFields: Pointer zu Positionsangaben der StatusBar-Felder (Long-Array)
  ; (Long) dwLeft:   Container für Position eines vorangegangenen StatusBar-Feldes
  ;
  Protected dwResult.l
  Protected nParts.l
  Protected *dwFields
  Protected dwLeft.l
  ;
  ; Funktionsparameter prüfen
  ;
  If IsStatusBar(hWndControl) And dwField > 0 And dwWidth > 0
    ;
    ; DLL laden
    ;
    OpenLibrary(0, "user32.dll")
    ;
    ; Aktuelle Anzahl Felder ermitteln
    ;
    nParts = CallFunction(0, "SendMessageW", StatusBarID(hWndControl), #SB_GETPARTS, #Null, #Null)
    If nParts <> 0 And dwField <= nParts
      ;
      ; Speicher für Positionsangaben der Felder reservieren
      ;
      *dwFields = AllocateMemory(SizeOf(Long) * nParts)
      ;
      ; Positionsangaben ermitteln
      ;
      nParts = CallFunction(0, "SendMessageW", StatusBarID(hWndControl), #SB_GETPARTS, nParts, *dwFields)
      If nParts <> 0
        ;
        ; Alte Feld-Position ermitteln (vorangegangenes Feld)
        ;
        If dwField = 1
          dwLeft = 0
        Else
          dwLeft = PeekL(*dwFields + (SizeOf(Long) * (dwField - 2)))
        EndIf
        ;
        ; Neue Feld-Position setzen
        ;
        PokeL(*dwFields + (SizeOf(Long) * (dwField - 1)), dwLeft + dwWidth)
        ;
        ; Neue Feld-Position an StatusBar übergeben
        ;
        dwResult = CallFunction(0, "SendMessageW", StatusBarID(hWndControl), #SB_SETPARTS, nParts, *dwFields)
      EndIf
      ;
      ; Speicher freigeben
      ;
      FreeMemory(*dwFields)
    EndIf
    ;
    ; DLL schließen
    ;
    CloseLibrary(0)
  EndIf
  ;
  ; Funktionsergebnis zurückgeben
  ;
  If dwResult <> 0
    ProcedureReturn #True
  Else
    ProcedureReturn #False
  EndIf
EndProcedure

Code: Alles auswählen

Procedure nix()
  ProcedureReturn #True
EndProcedure

Code: Alles auswählen

If OpenWindow(0, #PB_Ignore, #PB_Ignore, 200, 400, "test", #PB_Window_SizeGadget | #PB_Window_SystemMenu)
  If CreateStatusBar(1, WindowID(0))
    AddStatusBarField(1)
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_SizeWindow
          API_SetStatusBarFieldWidth(1, 1, WindowWidth(0) - 20)
        Case #PB_Event_CloseWindow
          Break
      EndSelect
    ForEver
  EndIf
EndIf

End

Code: Alles auswählen

If OpenWindow(0, 0, 0, 440, 50, "", #PB_Window_SystemMenu|#PB_Window_ScreenCentered | #PB_Window_SizeGadget)
  myStatusBar = CreateStatusBar(0, WindowID(0))
  AddStatusBarField(WindowWidth(0)/2)
  AddStatusBarField(WindowWidth(0)/2)
  StatusBarText(0, 0, "Field 0")
  StatusBarText(0, 1, "Field 1")
  ; --> Array for holding right side coordinates od StatusBar fields
  Dim sbFields(1)
  Repeat
    event = WaitWindowEvent()
    Select event
      Case #PB_Event_SizeWindow
        ; --> Field 0 will extend from left edge of window border to 1/2 of window width
        sbFields(0) = WindowWidth(0)/2
        ; --> Field 1 will extend from right edge of field 0 to right edge of window border
        sbFields(1) = WindowWidth(0) - 20
        SendMessage_(myStatusBar, #SB_SETPARTS, 2, sbFields())
    EndSelect
  Until event = #PB_Event_CloseWindow
EndIf
End

Code: Alles auswählen

Procedure ResizeStatusBarFields(StatusBar.l)
	Protected TextSize.SIZE, StatusBarDC.l, NumFields.l, Field.l, LastWidth.l, OldText$
	
	NumFields = SendMessage_(StatusBarID(StatusBar), #SB_GETPARTS, #Null, #Null) 
	If NumFields > 0
		Dim Fields(NumFields - 1) ; Anzahl der StatusBarFelder - 1
		
	 	StatusBarDC = GetDC_(StatusBarID(StatusBar))
	
		For Field = 0 To NumFields - 1
			OldText$ = Space(256)
	  	SendMessage_(StatusBarID(StatusBar), #SB_GETTEXT, Field, @OldText$)						; Den vorhandenen Text der StatusBar auslesen
			If OldText$ = Space(256) : OldText$ = "" : EndIf
	
			GetTextExtentPoint32_(StatusBarDC, @OldText$, Len(OldText$), @TextSize.SIZE)	; Ermittelt die Breite eines Textes (in der Statusbar) in Pixeln
			LastWidth + TextSize\cx
			Fields(Field) = LastWidth
	  Next Field

		ReleaseDC_(StatusBarID(StatusBar), StatusBarDC) 
	
		; Setzt den Abstand der rechten Seite der Felder gemessen von Pos. 0
		SendMessage_(StatusBarID(StatusBar), #SB_SETPARTS, NumFields, Fields())
	EndIf

EndProcedure


If OpenWindow(0, 0, 0, 650, 150, "", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  CreateStatusBar(0, WindowID(0))
	  AddStatusBarField(100)
	  AddStatusBarField(200)
	  AddStatusBarField(300)
	CreateGadgetList(WindowID(0))
		ButtonGadget(0, 10, 15,  72, 25, "Mach mal") 
	
	Repeat 
	  Select WaitWindowEvent() 
	    Case #PB_Event_CloseWindow 
	      Break 
	    Case #PB_Event_Gadget 
			  StatusBarText(0, 0, Left("Feld 1 trallalaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa", 6 + Random(25)))
			  StatusBarText(0, 1, Left("Feld 2 hopsassaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa", 6 + Random(25)))
			  StatusBarText(0, 2, Left("Feld 3 tirliliiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii", 6 + Random(25)))
				ResizeStatusBarFields(0)
  	EndSelect 
	ForEver

EndIf

Code: Alles auswählen

If OpenWindow(0, #PB_Ignore, #PB_Ignore, 200, 400, "test", #PB_Window_SizeGadget | #PB_Window_SystemMenu)
  If CreateStatusBar(1, WindowID(0))
    ExamineDesktops()
      AddStatusBarField(100)
      AddStatusBarField(DesktopWidth(0)-100)
    
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          Break
      EndSelect
    ForEver
  EndIf
EndIf

End