TabBarGadget - Tabs wie im Browser

STARGÅTE · **Registriert:** 01.11.2005 13:34 **Wohnort:** Glienicke

Das TabBarGadget erstellt eine Leiste mit Registerkarten,
jedoch ohne eigenen Container wie z.B. das PanelGadget.

Bild

Mit verschiedenen Attributen kann das Aussehen der Leiste und der Registerkarten verändert werden,
indem z.B. eine "Schließen"-Schaltfläche hinzugefügt wird.
Die Registerkarten können untereinander einfach durch ziehen mit der Maus vertauscht werden.
Wird eine Karte geschlossen oder eine neue geöffnet, wird ein Ereignis zurück gegeben,
sodass der Programmierer selbst eine Aktion ausführen kann.
Auch wird automatisch eine Navigation angezeigt, wenn zu viele Registerkarten vorhanden sind.

_________________________________________________________________________________________________

Include: TabBarGadget.pbi (Version 1.3.0)
Online Version der Hilfe: Das Registerkartenleisten-Gadget
Zip-Archiv: TabBarGadget.zip (Include, Beispiel und Hilfe)
_________________________________________________________________________________________________

Bild

_________________________________________________________________________________________________

Aktuelle Beta: Update 1.4 Beta 1

Update 1.3 (1. September 2012)

Mehrzeilige Regsiterkartenleisten
Prozeduren zum Festlegen von ToolTips je Karte und für den Schließenbutton und die "Neu"-Karte
Festlegen von minimaler und maximaler Kartenbreite
Einige Bugs gefixt, und einige Kleinigkeiten hinzugefügt

Update 1.2 (1. März 2012)

Ausführliche Hilfe als *.chm und online
Mehr Prozeduren wie SetTabBarGadgetAttribute(), SetTabBarGadgetItemColor(), DisableTabBarGadgetItem()
Ein paar neue Attribute: NoTabMoving, MirroredTabs, TabRounding
Verbesserungen in der Darstellung von Verschiebung und Navigation

Update 1.1 (Beta) (12. Dez 2011)

Viele neue Prozeduren für das Gadget hinzugefügt
Optionale Textkürzung bei zu wenig Platz
EventTab() für die Benutzung mit EventType() zum ermitteln des Event-Tabs
Mausrad-Benutzung bei Navigation
ToolTip mit Text für jede Registerkarte
Verbesserte (animierte) Darstellung beim verschieben von Karten.

RSBasic · **Registriert:** 05.10.2006 18:55 **Wohnort:** Überall

Sehr schön, danke fürs Teilen. Sieht gut aus. :allright:

Wenn man solche Beispiele sieht, ist man echt froh, dass das CanvasGadget eingeführt wurde.^^

Kiffi · **Registriert:** 08.09.2004 08:21 **Wohnort:** Porada Ninfu

Schickischick!

Bild

Danke und Grüße ... Kiffi

ts-soft · **Registriert:** 08.09.2004 00:57 **Wohnort:** Berlin

Is ja man echt geil

c4s · **Registriert:** 19.09.2007 22:18

Sieht klasse aus - Danke!

WPö · **Registriert:** 27.05.2008 12:44 **Wohnort:** Oberland

Jawoll, hier geht 'was voran!
Weiter so!

NicTheQuick · **Verfasst:** 12.09.2011 17:39

Das sollte man genauso hübsch in die IDE integrieren.
STARGÅTE hat es zwar hier nicht erwähnt, aber mich hat er letzte Nacht noch danach gefragt, wie man unter Linux die Systemfarben herausfinden kann. Und dem Code nach zu urteilen sieht es so aus als ob er immer noch daran interessiert wäre ein Äquivalent zu 'GetSysColor_()' unter Windows für Linux zu finden. Da hat nicht zufällig jemand was im Petto?

remi_meier · **Registriert:** 29.08.2004 20:11 **Wohnort:** Schweiz

Das sollte funktionieren und scheint leider auch der
einzige Weg zu sein. Man benötigt scheinbar ein
Gadget um die Farben zu erhalten.

Code:

; fg_color
; bg_color
; base_color
; text_color
; selected_bg_color
; selected_fg_color
; tooltip_bg_color
; tooltip_fg_color
ImportC "":gtk_style_lookup_color.l(*style, color_name.p-utf8, *color):EndImport
Procedure GetColor(*widget, color_name.s, *color_out.GdkColor)
  a.s = Space(Len(color_name))
  PokeS(@a, color_name, -1, #PB_Ascii)
  
  gtk_widget_realize_(*widget)
  
  *style.GtkStyle = gtk_rc_get_style_(*widget)
  If Not gtk_style_lookup_color(*style, a, *color_out)
    gdk_color_parse_("black", @color)
  EndIf

EndProcedure


OpenWindow(0,0,0,0,0,"")
ButtonGadget(0, 0, 0, 0, 0, "")

color.GdkColor
GetColor(GadgetID(0), "fg_color", @color)

With color
  Debug (\red / 255) &$FF
  Debug (\green / 255) &$FF
  Debug (\blue / 255) &$FF
EndWith

Andesdaf · **Registriert:** 15.06.2008 18:22

Schick, danke! :allright:

NicTheQuick · **Verfasst:** 12.09.2011 19:41

remi_meier hat geschrieben:

Das sollte funktionieren und scheint leider auch der
einzige Weg zu sein. Man benötigt scheinbar ein
Gadget um die Farben zu erhalten.

Man kann scheinbar auch einfach die WindowID() nehmen statt des Gadgets. Dann bekommt man auch die Hintergrundfarbe. Ob das allerdings so gedacht ist, weiß ich nicht genau.

PureBoard

TabBarGadget - Tabs wie im Browser

Wer ist online?