SciTE - Farbig hervorheben: Aktuelles Tab Item

**BugFix**

Hervorheben des aktiven Tab-Item in SciTE
Individuell:
- Rahmenfarbe
- Textfarbe
- Hintergrundfarbe
- Textfarbe bei nicht gespeichert
- [NEU v0.3] Markierung "Inaktives Item ungespeichert"
- [NEU v0.4] Markierung "Inaktives Item ungespeichert" wahlweise 'top' / 'bottom' / 'none'
- [NEU v0.4] Markierung Aktives Item kann deaktiviert werden (falls nur Markierung ungespeichert gewollt)
  Das aktive Item erhält dann bei "ungespeichert" dieselbe Markierung, wie inaktive Item.

Farben als Scheme über INI ladbar
[NEU v0.4] Das kompilierte Skript kann mit CMDLine-Parameter "/Exit" beendet werden
[v0.5] Gefixed: Flickern der Markierung
[v0.5] Gefixed: Markierung hat nicht gewechselt bei Nutzung der Tastatur zur Auswahl der Tabs

Das Skript z.B. über Autostart laden.

SciTE_DrawTabItem.au3 v 0.5

AutoIt

;-- TIME_STAMP   2023-03-23 10:16:34   v 0.5


#cs
    v 0.5   [fixed] Flickering, a variable assignment was incorrect
            [fixed] Marking has failed by using keys ("F6", "Shift+F6") to change the buffer selection
    v 0.4   [added] Exit via CMDLine with parameter "/Exit"
            [added] Optionally adjustable via INI [appearance]:
                    - Mark active item: rect_highlight=true/false
                    - Position of the marker for "Inactive item unsaved": idlepos=top/bottom/none
    v 0.3   [added] Separate marker (colored line top) for "Inactive item unsaved".
    v 0.2   [added] Separate marking (text color) for unsaved files.
            [added] Loading of colors from an INI (color schemes) possible
#ce


#include <FontConstants.au3>
#include <GuiTab.au3>
#include <Misc.au3>
#include <WinAPIGdi.au3>
#include <WinAPISys.au3>
#include <WinAPIMisc.au3>
#include <WindowsConstants.au3>

Opt('TrayIconHide', 1)

If $CMDLINE[0] And $CMDLINE[1] = '/Exit' Then   ; CMD-Line: "@ScriptName.exe /Exit"
    Local $aProcessList = ProcessList(@ScriptName)
    For $i = 1 To $aProcessList[0][0] Step 1
        If $aProcessList[$i][1] <> @AutoItPID Then ProcessClose($aProcessList[$i][1])
    Next
EndIf

_Singleton(@ScriptName)


;~ HotKeySet("!{F8}", _End)            ; <Alt><F8> Beenden
OnAutoItExitRegister(_End)

Global $sINI = StringFormat("%s\%s.ini", @ScriptDir, StringTrimRight(@ScriptName, 4))
Global $gm_SciTE[]
$gm_SciTE.ExistsLast = 0
$gm_SciTE.ExistsCurr = 0

#cs
The colors can be defined in an INI file in the script folder.
If INI is not available, default colors are loaded.
INI-Name = Name_of_the_Exe.ini

[appearance]
; rect_highlight=true/false  "false" does NOT highlight the active item, default: "true".
rect_highlight=true

; idlepos=top/bottom/none    "none" does NOT mark unsaved inactive files, default: "top".
idlepos=top


[scheme]
current=default

[default]
rect=0xCC483F
text=0x800020
bg=0xFFFFFF
unsaved=0x3030FF
idle=0x3030FF

[blue_invers]
rect=0xCC483F
text=0xFFF0F0
bg=0x800020
unsaved=0xA9A5F7
idle=0xA9A5F7

[green_invers]
rect=0x005F00
text=0xEDFFED
bg=0x409340
unsaved=0x1DE6B5
idle=0x1DE6B5

#ce

; appearance
$gm_SciTE.bHighlight       = (_IniOrDefault($sINI, 'rect_highlight', 'true', 'appearance') = 'true')
$gm_SciTE.IdlePos          = _IniOrDefault($sINI, 'idlepos', 'top', 'appearance')

; scheme: default (blau):
$gm_SciTE.RectColor        = _IniOrDefault($sINI, 'rect'   , 0xCC483F) ; BGR
$gm_SciTE.TextColor        = _IniOrDefault($sINI, 'text'   , 0x800020) ; BGR
$gm_SciTE.BGColor          = _IniOrDefault($sINI, 'bg'     , 0xFFFFFF) ; BGR
$gm_SciTE.TextColorUnsaved = _IniOrDefault($sINI, 'unsaved', 0x3030FF) ; BGR
$gm_SciTE.IdleUnsaved      = _IniOrDefault($sINI, 'idle'   , 0x3030FF) ; BGR

_CheckSciTE()   ; the effect takes place immediately
AdlibRegister(_CheckSciTE, 750)

While True
    Sleep(5000)
WEnd


Func _End()
    AdlibUnRegister(_CheckSciTE)
;~     MsgBox(0, 'SciTE TabItem', 'Beendet!')
    Exit
EndFunc


Func _CheckSciTE()
    If ProcessExists("SciTE.exe") Then
        $gm_SciTE.ExistsCurr = 1
        If $gm_SciTE.ExistsLast = 0 Then $gm_SciTE.ExistsLast = 1
        If $gm_SciTE.bHighlight Then
            _DrawTabItem()
            AdlibRegister(_MouseHoversTab, 150)
        EndIf
        _MarkUnsavedIdleTab()
    Else
        $gm_SciTE.ExistsCurr = 0
        If $gm_SciTE.ExistsLast = 1 Then
            $gm_SciTE.ExistsLast = 0
            If $gm_SciTE.bHighlight Then AdlibUnRegister(_MouseHoversTab)
        EndIf
    EndIf
EndFunc


Func _MouseHoversTab()
    Local Static $iHoverLast = 1    ; when starting the program, exit from the item must be simulated
    Local $mTab = _SciTE_GetActiveTabInfo()
    If @error Then Return
    Local $tPoint = _WinAPI_GetMousePos(True, $mTab.hTab)
    Local $tRect = $mTab.RectItem
    Local $isHover = _WinAPI_PtInRect($tRect, $tPoint)
    If $isHover = 1 And $iHoverLast = 0 Then
        $iHoverLast = 1
    ElseIf $isHover = 0 And $iHoverLast = 1 Then
        $iHoverLast = 0
        Return _DrawTabItem()
    EndIf
EndFunc


Func _MarkUnsavedIdleTab()
    If $gm_SciTE.IdlePos = 'none' Then Return
    Local $hTab = __GetHwnd_SciTeTabCtrl()
    If @error Then Return SetError(1)
    Local $iActive = _GUICtrlTab_GetCurFocus($hTab)
    For $i = 0 To _GUICtrlTab_GetItemCount($hTab) -1
        If $i = $iActive And $gm_SciTE.bHighlight Then ContinueLoop
        If StringRight(_GUICtrlTab_GetItemText($hTab, $i), 1) = '*' Then
            _DrawMarkerUnsaved($hTab, $i)
        EndIf
    Next
EndFunc


Func _DrawMarkerUnsaved($_hTab, $_iItem)
    Local $tRect = _GUICtrlTab_GetItemRectEx($_hTab, $_iItem)
    Local $tRectDraw = DllStructCreate("struct; long Left;long Top;long Right;long Bottom; endstruct")
    If $gm_SciTE.IdlePos = 'top' Then
        $tRectDraw.Left   = $tRect.Left
        $tRectDraw.Top    = $tRect.Top -1
        $tRectDraw.Right  = $tRect.Right
        $tRectDraw.Bottom = $tRect.Top
    Else
        $tRectDraw.Left   = $tRect.Left
        $tRectDraw.Top    = $tRect.Bottom +2
        $tRectDraw.Right  = $tRect.Right
        $tRectDraw.Bottom = $tRect.Bottom +3
    EndIf
    Local $hDC = _WinAPI_GetDC($_hTab)
    Local $hPen = _WinAPI_CreatePen($PS_SOLID, 2, $gm_SciTE.IdleUnsaved)
    Local $hOldPen = _WinAPI_SelectObject($hDC, $hPen)
    _WinAPI_Rectangle($hDC, $tRectDraw)
    _WinAPI_SelectObject($hDC, $hOldPen)
    _WinAPI_DeleteObject($hPen)
    _WinAPI_ReleaseDC(0, $hDC)
EndFunc


Func _DrawTabItem()
    Local $mTab = _SciTE_GetActiveTabInfo()
    If @error Then Return
    Local $hDC = _WinAPI_GetDC($mTab.hTab)
    Local $hFont = _WinAPI_CreateFont(14.5, 0, 0, 0, 400, False, False, False, $DEFAULT_CHARSET, _
        $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, 'Lucida Sans Unicode Standard')
    Local $hOldFont = _WinAPI_SelectObject($hDC, $hFont)
    Local $tRect = $mTab.RectItem       ; extract to variable - otherwise no ByRef access possible
    Local $dY = (@OSVersion = "Win_7" ? 2 : 1)
    _WinAPI_InflateRect($tRect, 2, $dY) ; enlarge rectangle
    _WinAPI_OffsetRect($tRect, 0, 1)    ; move rectangle down by 1px

    ; draw and fill rect
    Local $hPen = _WinAPI_CreatePen($PS_SOLID, 2, $gm_SciTE.RectColor)
    Local $hBrush = _WinAPI_CreateSolidBrush($gm_SciTE.BGColor)
    Local $hOldPen = _WinAPI_SelectObject($hDC, $hPen)
    Local $hOldBrush = _WinAPI_SelectObject($hDC, $hBrush)
    _WinAPI_Rectangle($hDC, $tRECT)

    ; draw text
    If StringRight($mTab.Item, 1) = '*' Then
        _WinAPI_SetTextColor($hDC, $gm_SciTE.TextColorUnsaved)
    Else
        _WinAPI_SetTextColor($hDC, $gm_SciTE.TextColor)
    EndIf
    _WinAPI_SetBkColor($hDC, $gm_SciTE.BGColor)
    ; move the text down a bit more
    _WinAPI_OffsetRect($tRect, 0, 3)
    _WinAPI_DrawText($hDC, $mTab.Item, $tRect, BitOR($DT_BOTTOM,$DT_CENTER))

    ; clear ressources
    _WinAPI_SelectObject($hDC, $hOldFont)
    _WinAPI_DeleteObject($hFont)
    _WinAPI_SelectObject($hDC, $hOldPen)
    _WinAPI_DeleteObject($hPen)
    _WinAPI_SelectObject($hDC, $hOldBrush)
    _WinAPI_DeleteObject($hBrush)
    _WinAPI_ReleaseDC(0, $hDC)
EndFunc


Func _SciTE_GetActiveTabInfo()
    Local $mResult[], $hTab = __GetHwnd_SciTeTabCtrl()
    If @error Then Return SetError(1)
    $mResult.hTab     = $hTab
    $mResult.Index    = _GUICtrlTab_GetCurFocus($hTab)
    $mResult.Item     = _GUICtrlTab_GetItemText($hTab, $mResult.Index)
    $mResult.RectItem = _GUICtrlTab_GetItemRectEx($hTab, $mResult.Index)
    Return $mResult
EndFunc


Func __GetHwnd_SciTE()
    Local $hScite = WinGetHandle('[ACTIVE]')
    If _WinAPI_GetClassName($hScite) = 'SciTEWindow' Then
        Return $hScite
    Else
        Return SetError(1, 0, Null)
    EndIf
EndFunc


Func __GetHwnd_SciTeTabCtrl()
    Local $hScite = __GetHwnd_SciTE()
    If @error Then Return SetError(1, 0, Null)
    Local $aChild, $hWndTab = Null
    $aChild = _WinAPI_EnumChildWindows($hScite) ; only visible
    If Not @error Then
        For $i = 1 To $aChild[0][0]
            If $aChild[$i][1] = "SciTeTabCtrl" Then
                $hWndTab = $aChild[$i][0]
                ExitLoop
            EndIf
        Next
    EndIf
    Return SetError(($hWndTab = Null ? 1 : 0), 0, $hWndTab)
EndFunc


; read from INI if exists
Func _IniOrDefault($_sINI, $_sKey, $_sDefault, $_sec=Null)
    Local $sVal = $_sDefault, $sSec = $_sec = Null ? 'scheme' : $_sec
    If FileExists($_sINI) Then
        If $sSec = 'scheme' Then $sSec = IniRead($_sINI, 'scheme', 'current', 'default')
        $sVal = IniRead($_sINI, $sSec, $_sKey, $_sDefault)
    EndIf
    Return $sVal
EndFunc

Alles anzeigen

DL bisher: 85

**Alina**

Ich glaube ich bin beim Scripten irgendwie anders als ihr.
Habt ihr so viele Scriptfenster auf, das sich das Tab hervorheben muss das man bereits ausgewählt habe oder ist es einfach nur aus Spaß?
Am Kopf kratze und überlege.

"Cool" finde ich "Textfarbe bei nicht gespeichert". Ich werde das Thema im Auge behalten.

**BugFix**

Zitat von Alina

Habt ihr so viele Scriptfenster auf, das sich das Tab hervorheben muss das man bereits ausgewählt habe oder ist es einfach nur aus Spaß?

Es ging darum, dass unter Windows 11 das aktive TabItem nicht oder kaum hervorgehoben wird.

**Alina**

Zitat von BugFix

Es ging darum, dass unter Windows 11 das aktive TabItem nicht oder kaum hervorgehoben wird.

Okay, das verstehe ich.

bazii

Zitat von BugFix

Es ging darum, dass unter Windows 11 das aktive TabItem nicht oder kaum hervorgehoben wird.

Prima Idee mit sehr hohem Mehrwert, nicht nur in Win 11. Das funktioniert bei mir auch unter Win 10 einwandfrei. Ich finde unter anderem das Func _MouseHoversTab() von Dir sehr gut gelöst, dazu echt gewöhnungsbedürftig und witzig. Ich habe es noch nie bewußt erlebt, dass anstatt beim "drüberfahren" beim "verlassen" eines Buttons oder eines Tabs das Mousehover wirksam wirkt. Der Tab normalisiert sich beim "drüberfahren" und beim "verlassen" des Tabs wirkt die Hervorhebeung Ich finde, dass das gleich in eine Sammlung der Effektserie, ggf. beim diesem Thema von Oscar von intigiert werden könnte.

Vielen Dank für die Entwicklung und für Bereitstellung des Codes .

**BugFix**

Zitat von bazii

Ich habe es noch nie bewußt erlebt, dass anstatt beim "drüberfahren" beim "verlassen" eines Buttons oder eines Tabs das Mousehover wirksam wirkt.

Das war aber keine primäre Absicht von mir. Hintergrund ist, dass SciTE intern bereits ein MouseHover nutzt (wird für das Tab bezogene Kontextmenü wirksam). Dadurch wird das TabItem durch SciTE im Moment des Hoverns neu gezeichnet - wodurch meine vorhergehende Änderung hinfällig ist. Deshalb muss diese bei Verlassen des Tab erneut vorgenommen werden.

**Andy**

Zitat von Alina

Habt ihr so viele Scriptfenster auf, das sich das Tab hervorheben muss das man bereits ausgewählt habe oder ist es einfach nur aus Spaß?

Hehe, da man ja mittlerweile schon so gut wie alles gescriptet hat, und nur nicht mehr weiß wo ganz genau in welchem Script der Teil ist den man sucht...da hab ich dann 20-30 Tabs offen und kopiere mir die Funktionen oder Brocken die ich brauche. Das können in Scite auch ab und zu mal 2 Reihen Tabs sein....warum auch nicht Wissen ist wissen, wo es steht!

**Alina**

Zitat von Andy

Hehe, da man ja mittlerweile schon so gut wie alles gescriptet hat, und nur nicht mehr weiß wo ganz genau in welchem Script der Teil ist den man sucht...da hab ich dann 20-30 Tabs offen und kopiere mir die Funktionen oder Brocken die ich brauche. Das können in Scite auch ab und zu mal 2 Reihen Tabs sein....warum auch nicht Wissen ist wissen, wo es steht!

Oh Andy, das kenne ich doch irgendwie. "Hatte ich schon mal" und in welchem Ordner bzw. untr welcher autoit-version war das noch. Habe alle Versionen, Ordner, Hilfen, Scripte, usw. jeweils den Version zugeordnet abgespeichert. Das ist schon ein große Baumstrucktur. Aber wie Du auch sagst ist: "Wissen wo es steht" und das ist bei mir echt nicht gerade einfach.Und man kann noch nicht einmal auf die Holländer zurückgreifen (lass Andere suchen wo es ist), weil es mein persönlichen "Chaos" ist. Da hilft ab und an nicht einmal die Stchwortsuche. Ordnernamen in Duetsch, englsich und dänisch, da solle mal aufgeräumt werden.
11 Tabs? Also das kenne ich nicht einmal aus meinem sonstigen Displayleben. Maximal 7 oder 8 Tabs, aber dann um die Include die gerade genutzt wird um die dortige Erklärung zu lesen. Ich arbeite lieber mit zwei bzw. drei Monitoren, das gefällt mir besser.

**BugFix**

[NEU] Markierung inaktiver Tabitem mit ungespeicherten Dateien

**BugFix**

[NEU v 0.4]

Code

    v 0.4   [added] Beenden über CMDLine mit Parameter "/Exit"
            [added] Wahlweise über INI [appearance] einstellbar:
                    - Markierung aktives Item: rect_highlight=true/false
                    - Position der Markierung für "Inaktives Item ungespeichert": idlepos=top/bottom/none

BigRox

Hallo BugFix,

ich habe mir dein Script mal genauer angeschaut, um es zu verstehen.

Dabei bin ich auf folgende Zeile gestoßen, die ich gar nicht verstehe.

Return SetError(($hWndTab = Null ? 1 : 0), 0, $hWndTab)

Es geht um das

$hWndTab = Null ? 1 : 0

Das sieht aber irgendwie nach einer anderen Programmiersprache aus, da ich in AutoIt soetwas bisher noch nie gesehen habe.

Ich vermute mal, dass dies eine Abfrage ist. So in etwa:

Wenn $hWndTab leer ist dann ersetze es durch den Wert hinter :

Etwa das gleiche steht in der Deklarationszeile der folgenden Funktion, da steht:

Local $sVal = $_sDefault, $sSec = $_sec = Null ? 'scheme' : $_sec

Kannst du mir das mal genauer erklären?

MfG:

BigRox

**Moombas**

Ich meine das war so (Anhand dieser Beispiele und ohne Gewähr.):

1.: Return SetError(($hWndTab = Null ? 1 : 0), 0, $hWndTab) bzw.: ($hWndTab = Null ? 1 : 0)

Wenn $hWndTab den Wert Null hat, gebe 1 zurück, sonst 0, sprich: der Errorcode wäre dann 1 bzw. 0, extended immer 0 (,0) und der Rückgabewert $hWndTab (,$hWndTab)

2.: $sSec = $_sec = Null ? 'scheme' : $_sec

Wenn $_sec den Wert Null hat, gebe 'scheme' zurück, sonst $_sec, sprich: $sSec wird hier auf 'scheme' oder $_sec gesetzt

Im Prinzip anhand des letzten Beispiels also:

AutoIt

If $_sec = Null then 
    $sSec='scheme' 
else 
    $sSec=$_sec
endif

Es gab dafür auch einen Begriff auf den ich aktuell nicht komme XD

BananaJoe

Ternärer Operator

BigRox

Hallo Moombas und Bananajoe,

Danke

Wieder was gelernt.

MfG:

BigRox

**BugFix**

Neue Version

[v0.5] Gefixed: Flickern der Markierung. Danke Velted fürs Suchen & Finden

[v0.5] Gefixed: Markierung hat nicht gewechselt bei Nutzung der Tastatur zur Auswahl der Tabs.

BigRox

Hallo BugFix,

das Script funktioniert gut, nur eine Kleinigkeit könnte man noch verbessern.

Wenn ich z.B. drei Scripte im Explorer zum öffnen in SciTE auswähle, so werden die in SciTE angezeigt und das aktuelle Tab markiert.

So weit ist alles bestens.

Wenn ich dann aber eine weitere Datei weiter Datei z.B mit "Datei | Neu" hinzufüge, so wird die nicht als aktuell markiert.

Erst wenn ich mit dem Cursor auf dieses neue Tab fahre und dann den Cursor wieder von diesem Tab weg bewege, wir dieses Tab auch markiert.

Das selbe geschieht, wenn ich das aktuelle Tab schließe. Dann wird ja wieder ein anderes Tab zum aktuellen Tab, aber es wird nicht entsprechend markiert. Ich muss erst wieder mit dem Cursor auf diese Tab fahren und dann den Cursor wieder weg bewegen, damit es auch markiert wird.

MfG:
BigRox

**BugFix**

Zitat von BigRox

Das selbe geschieht, wenn ich das aktuelle Tab schließe. Dann wird ja wieder ein anderes Tab zum aktuellen Tab, aber es wird nicht entsprechend markiert. Ich muss erst wieder mit dem Cursor auf diese Tab fahren und dann den Cursor wieder weg bewegen, damit es auch markiert wird.

Das ist in der Version 0.5 nicht mehr der Fall. Jetzt wird im Intervall von 750 ms auf das aktive Tab überprüft und bei Bedarf markiert.