Beiträge von BugFix

-- TIME_STAMP   2021-04-21 14:27:33   v 0.1
-- coding:utf-8

--[[
Strips werden als Streifen am unteren Rand des Anwendungsfensters angezeigt.

----------------------------------------------------------------------------------------------------
Definitionsstring:
    5 Elemente werden unterstützt und sind wie folgt zu markieren:
        Label:                'LABEL'
        Editierbarer Text:    [INPUT]
        Combo Boxen:          {COMBO}
        Button:               (BUTTON)
        Default Button:       ((DEF_BUTTON))        mittels <ENTER> aktivierbar

    Weiterhin können verwendet werden:
        Neue Zeile:           \n
        X-Button (Beenden):   !

    Button können Accelerator-Keys enthalten durch Verwendung des Präfix "&".
    Die Verwendung von Accelerator-Keys bei Labels führt dazu, dass der Fokus zum nächsten Element wandert, das den Fokus akzeptiert.
    Ein literales "&" muss mit sich selbst maskiert werden.
----------------------------------------------------------------------------------------------------

Die Strip-Funktionen befinden sich alle im Kontext von "scite.".
    .StripShow("Strip-Definition")        Blendet den Strip ein.
    .StripShow("")                        Schließt den Strip.
    .StripValue(element)                  Fragt den Wert von "element" (Input oder Combo) ab.
    .StripSet(element, value)             Setzt den Wert für den editierbaren Bereich von "element" (Input oder Combo).
    .StripSetList(element, value)         Setzt die Liste einer Combo, Werte getrennt durch "\n".
----------------------------------------------------------------------------------------------------

Ereignisse vom Benutzer werden über die Funktion:

    OnStrip(elementNum, changeType)

    an das Skript zurückgemeldet.
    Parameter:
    Elementnummer    beginnend bei 0 und einschließlich statischer Textelemente!
    Änderungstyp    1 = clicked        Drücken von Schaltflächen
                    2 = change         Änderungen an editierbarem Text oder dem editierbaren Textteil einer Combo
                    3 = focusIn        Wenn der Benutzer den Fokus zwischen Elementen verschiebt
                    4 = focusOut       - " -
----------------------------------------------------------------------------------------------------


]]

-- management for several strips
Strip = {}

-- holds the registered functions
Strip.registered = {}

-- the function, that is to use in the body of "OnStrip"
Strip.now = nil

-- registers the function to call (uses the param ID & CHANGE) and the strip definition to use with this function
Strip.Register = function(self, _f, _definition)
    if self.registered[_f] == nil then
        self.registered[_f] = _definition
    end
end

-- unregisters a strip function
Strip.UnRegister = function(self, _f)
    if self.registered[_f] ~= nil then
        self.registered[_f] = nil
    end
end

-- covers the scite.StripShow call to select the right definition and function for it
Strip.Show = function(self, _f)
    if _f == nil then return scite.StripShow('') end
    self.now = _f
    scite.StripShow(self.registered[_f])
end


-- The same SciTE function "OnStrip" will called for each Strip!
-- Here i call the now selected Strip-function.
OnStrip = function(_id, _change)
    Strip.now(_id, _change)
end

----------------------------------------------------------------------------------------- STRIP 1 --
-- Meine "OnStrip" Function
local myOnStrip_1 = function(_id, _change)
    local changes = {'unknown', 'clicked', 'change', 'focusIn', 'focusOut'}
    local id_names = {'Label "Frucht"', 'Combo', 'Button "Suche"', 'Label "Name"', 'Input "Name"', 'Button "OK"', 'Button "Cancel"'}
    if _id == 2 and _change == 1 then
        local search = scite.StripValue(1)
        print('Suche nach '..search)
    elseif _id == 6 then -- ESC
        print('Event: '..changes[_change+1], 'Control['.._id..']: '..id_names[_id+1])
        Strip:Show() -- ohne Parameter wird beendet
    else
        print('Event: '..changes[_change+1], 'Control['.._id..']: '..id_names[_id+1])
    end
end

-- Registrieren meiner Funktion und Strip-Definition
-- "!'Frucht:'{}(&Suche)\n"    -- Zeile 1: Label - Combo - Button - X-Button
-- "'Name:'[Name](OK)(Cancel)" -- Zeile 2: Label - Input - Button - Button

Strip:Register(myOnStrip_1, "!'Frucht:'{}(&Suche)\n'Name:'[Name](OK)(Cancel)")


-- Funktion zum Strip anzeigen Daten einfügen
myShow_1 = function()
    Strip:Show(myOnStrip_1) -- muss als erstes passieren, sonst können keine Daten eingefügt werden!
    scite.StripSetList(1, "Apfel\nBanane\nZitrone\nOrange\nPfirsich")
    scite.StripSet(1, "<Wähle eine Frucht>")
    scite.StripSet(4, "Ein längerer Name")
end
----------------------------------------------------------------------------------------------------


----------------------------------------------------------------------------------------- STRIP 2 --
-- Meine "OnStrip" Function
local myOnStrip_2 = function(_id, _change)
    local changes = {'unknown', 'clicked', 'change', 'focusIn', 'focusOut'}
    local id_names = {'Label "Zeile"', 'Input "Zeile"', 'Label "Spalte"', 'Input "Spalte"', 'Button "Gehe zu"'}
    if _id == 4 and _change == 1 then
        local line, col = scite.StripValue(1), scite.StripValue(3)
        print('Gehe zu', line, col)
    else
        print('Event: '..changes[_change+1], 'Control: '..id_names[_id])
    end
end

-- Registrieren meiner Funktion und Strip-Definition
-- "!'Zeile:'[]'Spalte'[](Gehe zu)" -- Zeile 1: Label - Input - Label - Input - Button - X-Button

Strip:Register(myOnStrip_2, "!'Zeile:'[]'Spalte'[](Gehe zu)")


-- Funktion zum Strip anzeigen
myShow_2 = function()
    Strip:Show(myOnStrip_2)
end
----------------------------------------------------------------------------------------------------




myShow_1()

-- myShow_2() -- da keine Daten vorbelegt werden, reicht natürlich auch: Strip:Show(myOnStrip_2)

-- TIME_STAMP   2021-04-20 11:19:47
-- coding:utf-8


--[[
PROPERTIES:
# The only way to detect the UTF8 encoding is using a coding cookie in one of the 1st two lines.
# line to insert the utf8-cookie (1 or 2), default: 1
UTF8.Cookie.Line=

# file types, that needs this codings
# 'utf8' - as default declared: 'lua'
# 'utf8bom' - as default declared: 'au3'
UTF8.File.Types=ext_1 ext_2
UTF8BOM.File.Types=ext_1 ext_2
UTF16LE.File.Types=ext_1 ext_2
UTF16BE.File.Types=ext_1 ext_2

]]

ForceEncoding = EventClass:new(Common)

ForceEncoding.OnSave = function(self, _file)
    local enc = self:NeedsEncoding(props['FileExt'])
    if enc == 'NONE' then return nil end
    if not (self:Get(_file) == enc) then  -- file has not the required encoding
        if enc == 'UTF8' then      -- IDM_ENCODING_UCOOKIE    154    UTF8  (not save without real text cookie!)
            self:InsertUTF8Cookie()
            scite.MenuCommand(IDM_ENCODING_UCOOKIE)
        else
            local tCmd = {['UTF8BOM']=IDM_ENCODING_UTF8,['UTF16LE']=IDM_ENCODING_UCS2LE,['UTF16BE']=IDM_ENCODING_UCS2BE}
            scite.MenuCommand(tCmd.enc)
        end
    end
    return nil
end

-- inserts the coding cookie in line 1 or 2
ForceEncoding.InsertUTF8Cookie = function()
    local l = tonumber(props['UTF8.Cookie.Line']) or 1    -- if prop not set use 1st line
    if l > 2 then l = 2 end                               -- last possible line for this cookie
    local countLines = editor.LineCount
    if countLines < l then l = 1 end                      -- file is empty or has only one line and cookie prop is set to 2
    local lineComment = props['comment.block.'..props['FileExt']]
    l = l -1                                              -- 0-based line index
    local caret = editor.CurrentPos
    local firstVisibleLine = editor.FirstVisibleLine
    local pos = editor:PositionFromLine(l)                -- start position from line
    editor:InsertText(pos, lineComment..' coding:utf-8\n')
    editor:SetSel(caret, caret)
    editor.FirstVisibleLine = firstVisibleLine
end

-- returns the encoding, that the file type needs
ForceEncoding.NeedsEncoding = function(self, _ext)
    local tExt = {}
    tExt["UTF8"]    = props['UTF8.File.Types']:lower()..' lua'
    tExt["UTF8BOM"] = props['UTF8BOM.File.Types']:lower()..' au3'
    tExt["UTF16LE"] = props['UTF16LE.File.Types']:lower()
    tExt["UTF16BE"] = props['UTF16BE.File.Types']:lower()
    for enc in pairs(tExt) do
        if tExt[enc]:find(_ext:lower()) then return enc end
    end
    return 'NONE'
end

-- detects: 'UTF8BOM', 'UTF16LE', 'UTF16BE' by it's byte marker (from file)
-- and 'UTF8' if coding cookie is set on one of the first two lines: (from editor pane)
-- A coding cookie looks similar to "coding: utf-8" ("coding" followed by ':' or '=', optional whitespace, optional quote, "utf-8").
ForceEncoding.Get = function(self, _file)
    local tEnc = {}
    tEnc['UTF8BOM'] = {['len']=3,['hex']="EFBBBF"}
    tEnc['UTF16LE'] = {['len']=2,['hex']="FFFE"}
    tEnc['UTF16BE'] = {['len']=2,['hex']="FEFF"}
    local n, line, fh, content, read = 0
    -- 1st. check for coding cookie (UTF8)
    for i=0, 1 do
        line = editor:GetLine(i)
        if line == nil then break
        else if line:find("coding[:=]%s-['\"]-utf%-8") then return "UTF8" end end
    end
    -- now check for byte marker
    for enc in pairs(tEnc) do
        if self:ToHex(self:ReadLen(_file, tEnc[enc].len)) == tEnc[enc].hex then return enc end
    end
    return 'UNKNOWN'
end

-- reads a count of bytes from a file
ForceEncoding.ReadLen = function(self, _file, _n)
    local fh = io.open(_file, "rb")
    local read = fh:read(_n)
    fh:close()
    return read
end

-- converts a passed string to hex value of its characters
ForceEncoding.ToHex = function(self, _s)
    if _s == nil then return 'DEAD' end
    return (_s:gsub('.', function(_c) return ('%02X'):format(_c:byte()) end))
end

;-- TIME_STAMP   2021-04-13 12:01:53   v 0.3

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\Users\BugFix\Pictures\ICON\BeOS Icons\BeOS_app_serv.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

Opt('MustDeclareVars', 1)
#include <GuiListBox.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

; ACHTUNG! Die Ini-Datei NICHT per Hand bearbeiten, sondern ausschliesslich über das Programm!
; Der 1.te Eintrag MUSS die Standardinstallation sein ("SciTEUser.properties" in "SciTE_USERHOME" >> "C:\Users\<USER>\AppData\Local\AutoIt v3\SciTE" )
#cs   "SciTE_Starter.ini"    - wird bei erstem Start interaktiv erstellt
[SciTE4AutoIt]
name=SciTE4AutoIt v3.7.3
path=C:\Program Files (x86)\AutoIt3\SciTE
file=SciTE.exe

[SciTE_5.0_x86]
name=SciTE 5.0 32bit
path=C:\CODE\SciTE5.0\SciTE_5.0_x86
file=SciTE32.exe

[SciTE_5.0_x64]
name=SciTE 5.0 64bit
path=C:\CODE\SciTE5.0\SciTE_5.0_x64
file=SciTE.exe
#ce

Global $INI = @ScriptDir & '\SciTE_Starter.ini'
Global $aSciTEVer[1][3] = [[0]]
Global $aSecNames, $iSel, $iAnswer = 6
If Not FileExists($INI) Then
    While $iAnswer = 6
        If (Not _FirstSetting()) Then
            $iAnswer = MsgBox(4+32+262144, 'Auswahl SciTE4AutoIt', 'Es wurde keine oder keine SciTE-Datei ausgewählt. Soll die Auswahl jetzt erfolgen?') ; Yes/No+Question.ico+TopMost
        Else
            ExitLoop
        EndIf
    WEnd
Else
    $aSecNames = IniReadSectionNames($INI)
    For $i = 1 To $aSecNames[0]
        $aSciTEVer[0][0] += 1
        ReDim $aSciTEVer[$aSciTEVer[0][0]+1][3]
        $aSciTEVer[$aSciTEVer[0][0]][0] = IniRead($INI, $aSecNames[$i], 'name', '')
        $aSciTEVer[$aSciTEVer[0][0]][1] = IniRead($INI, $aSecNames[$i], 'path', '')
        $aSciTEVer[$aSciTEVer[0][0]][2] = IniRead($INI, $aSecNames[$i], 'file', '')
    Next
EndIf


; hier SciTE-Handle speichern für Interaktion durch andere Skripte
Global $gPathInteract = @TempDir & '\SC_starter.hwnd'


Global $hGui = GUICreate('SciTE-Starter', 400, 250)
Global $list = GUICtrlCreateList('', 10, 40, 380, 170, BitOR($WS_BORDER, $WS_VSCROLL)) ; darf nicht sortiert werden! SciTE4AutoIt muss an Pos. 1 sein.
Global $hList = GUICtrlGetHandle($list)
Global $cMenu = GUICtrlCreateContextMenu($list)
Global $idNew = GUICtrlCreateMenuItem('Eintrag Neu', $cMenu)
Global $idDelete = GUICtrlCreateMenuItem('Eintrag Löschen', $cMenu)
Global $showPath = GUICtrlCreateInput('', 10, 220, 380, 20, $ES_READONLY)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, Default, Default, Default, 'Consolas')
GUICtrlCreateLabel('Einträge bearbeiten mit Kontextmenü', 10, 13, 290)
Global $start = GUICtrlCreateButton('Start', 310, 10, 80, 24)

_ListSet()

GUISetState()

While True
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $list
            $iSel = _GUICtrlListBox_GetCurSel($hList)
            If $iSel = -1 Then
                GUICtrlSetData($showPath, '')
            Else
                GUICtrlSetData($showPath, $aSciTEVer[$iSel +1][1] & '\' & $aSciTEVer[$iSel +1][2])
            EndIf
        Case $idNew
            If Not _VerManagement(-1, 'new') Then
                MsgBox(16+262144, 'FEHLER', 'Keine oder keine SciTE.exe ausgewählt!')
            Else
                _ListSet()
            EndIf
        Case $idDelete
            $iSel = _GUICtrlListBox_GetCurSel($hList)
            If $iSel = -1 Then
                MsgBox(16+262144, 'FEHLER', 'Kein Eintrag markiert!')
            Else
                If $iSel = 0 Then
                    MsgBox(16+262144, 'FEHLER', 'Erster Eintrag muss die installierte SciTE4AutoIt Version sein und darf nicht gelöscht werden!')
                Else
                    _VerManagement($iSel, 'delete')
                    _ListSet()
                    GUICtrlSetData($showPath, '')
                EndIf
            EndIf
        Case $start
            $iSel = _GUICtrlListBox_GetCurSel($hList)
            If $iSel = -1 Then
                MsgBox(16+262144, 'FEHLER', 'Keine Version markiert!')
            Else
                _SetEnvAndRun($iSel)
                Exit
            EndIf
    EndSwitch
WEnd


Func _FirstSetting()
    Local $PathFull = FileOpenDialog('SciTE4AutoIt (Die installierte Standardversion)', @ProgramFilesDir, '(*.exe)', 1)
    If @error Or (Not _IsSciTE($PathFull)) Then Return False
    Local $iPos = StringInStr($PathFull, '\', 0, -1)
    Local $File = StringTrimLeft($PathFull, $iPos)
    Local $Path = StringTrimRight($PathFull, StringLen($File)+1)
    Local $Version = FileGetVersion($PathFull)
    Local $Alias = InputBox('Alias', 'Zuweisen eines Alias für diese SciTE Version. (z.B. "SciTE4AutoIt v3.7.3")', StringTrimRight($File, 4) & ' v' & $Version)
    If $Alias = '' Then $Alias = StringTrimRight($File, 4) & ' v' & $Version
    Local $iChoose = 6
    $aSciTEVer[0][0] += 1
    ReDim $aSciTEVer[$aSciTEVer[0][0]+1][3]
    $aSciTEVer[$aSciTEVer[0][0]][0] = $Alias
    $aSciTEVer[$aSciTEVer[0][0]][1] = $Path
    $aSciTEVer[$aSciTEVer[0][0]][2] = $File
    _WriteToIni($Alias, $Path, $File, $Version)
    While $iChoose = 6
        $iChoose = MsgBox(4+32+262144, 'Auswahl SciTE Version', 'Soll eine andere SciTE.exe ausgewählt werden?')
        If $iChoose = 7 Then ExitLoop
        If (Not _VerManagement(-1, 'new')) Then MsgBox(48+4096, 'ACHTUNG', 'Keine oder keine SciTE.exe ausgewählt!')
    WEnd
    Return True
EndFunc


Func _WriteToIni($_Alias, $_Path, $_File, $_Version)
    Local $Section = StringTrimRight($_File, 4) & '_' & $_Version
    IniWrite($INI, $Section, 'name', $_Alias)
    IniWrite($INI, $Section, 'path', $_Path)
    IniWrite($INI, $Section, 'file', $_File)
EndFunc


Func _ListSet()
    _GUICtrlListBox_ResetContent($hList)
    For $i = 1 To $aSciTEVer[0][0]
        _GUICtrlListBox_AddString($hList, $aSciTEVer[$i][0])
    Next
EndFunc


Func _SetEnvAndRun($_i)
    Local Static $UserHomeAu3 = EnvGet('SciTE_USERHOME')
    Local $path = $aSciTEVer[$_i +1][1]
    Local $file = $aSciTEVer[$_i +1][2]
    If $_i > 0 Then                             ; NUR SciTE_HOME belegt: "SciTEGlobal.properties" und "SciTEUser.properties" in diesem Pfad
        EnvSet('SciTE_USERHOME','')
        EnvSet('SciTE_HOME', $path)             ; HIER: Das Verzeichnis, indem sich die SciTE.exe befindet
    Else                                        ; NUR SciTE_USERHOME belegt (Standard): "SciTEUser.properties" in diesem Pfad, "SciTEGlobal.properties" im SciTE-Dir
        EnvSet('SciTE_USERHOME', $UserHomeAu3)  ; Standard: "C:\Users\<USER>\AppData\Local\AutoIt"
        EnvSet('SciTE_HOME', '')
    EndIf
    Local $PID = ShellExecute('"' & $path & '\' & $file & '"', '', '', '', @SW_HIDE)
    Local $hSciTE, $Timer = TimerInit()
    Do
        $hSciTE = _GetSciTEhWndByPID($PID)
        Sleep(20)
    Until $hSciTE <> Null Or TimerDiff($Timer) > 10000
    If $hSciTE = Null Then MsgBox(16+262144, 'FEHLER', '"' & $path & '\' & $file & '"' & @CRLF & 'konnte nicht erfolgreich gestartet werden!')
    Local $fhTmp = FileOpen($gPathInteract, 2+8)  ; Handle speichern für Interaktion durch andere Skripte
    FileWrite($fhTmp, $hSciTE)
    FileClose($fhTmp)
EndFunc


Func _VerManagement($_index, $_mode)
    Switch $_mode
        Case 'new'
            Local $PathFull = FileOpenDialog('Andere SciTE Version', @HomeDrive, '(*.exe)', 1)
            If @error Or (Not _IsSciTE($PathFull)) Then Return False
            Local $iPos = StringInStr($PathFull, '\', 0, -1)
            Local $File = StringTrimLeft($PathFull, $iPos)
            Local $Path = StringTrimRight($PathFull, StringLen($File)+1)
            Local $Version = FileGetVersion($PathFull)
            Local $Alias = InputBox('Alias', 'Zuweisen eines Alias für diese SciTE Version. (z.B. "SciTE4AutoIt v3.7.3")', StringTrimRight($File, 4) & ' v' & $Version)
            If $Alias = '' Then $Alias = StringTrimRight($File, 4) & ' v' & $Version
            $aSciTEVer[0][0] += 1
            ReDim $aSciTEVer[$aSciTEVer[0][0]+1][3]
            $aSciTEVer[$aSciTEVer[0][0]][0] = $Alias
            $aSciTEVer[$aSciTEVer[0][0]][1] = $Path
            $aSciTEVer[$aSciTEVer[0][0]][2] = $File
            _WriteToIni($Alias, $Path, $File, $Version)
            Return True
        Case 'delete'
            If $_index+1 < $aSciTEVer[0][0] Then ; move last entry to index that should removed
                $aSciTEVer[$_index+1][0] = $aSciTEVer[$aSciTEVer[0][0]][0]
                $aSciTEVer[$_index+1][1] = $aSciTEVer[$aSciTEVer[0][0]][1]
                $aSciTEVer[$_index+1][2] = $aSciTEVer[$aSciTEVer[0][0]][2]
            EndIf
            ReDim $aSciTEVer[$aSciTEVer[0][0]][3]
            $aSciTEVer[0][0] -= 1
            $aSecNames = IniReadSectionNames($INI)
            IniDelete($INI, $aSecNames[$_index+1])
    EndSwitch
EndFunc


Func _IsSciTE($_path)
    Local $file = StringTrimLeft($_path, StringInStr($_path, '\', 0, -1))
    Return (StringRegExp($file, '(?i)scite.*\.exe$') = 1)
EndFunc


Func _GetSciTEhWndByPID($_PID)
    Local $aW = WinList("[REGEXPTITLE:(?i)(.*SciTE*.*)]")
    Local $PID
    For $i = 1 To $aW[0][0]
        If $aW[$i][0] = 'SciTE interface' Then ContinueLoop
        $PID = WinGetProcess($aW[$i][0])
        If $PID = $_PID Then Return $aW[$i][1]
    Next
    Return Null
EndFunc