(910)  Anmelden

Deutsch
XProfEd - Opensource IDE

0.98 -> Syntaxfarben und BOLD-Checkbox

 

Michael
Wodrich
Leider ist im folgenden noch irgendwo was nicht Ok.
Der Editor klemmt - Taskmanager erforderlich.
Hat wohl mit den Registryeinträgen zu tun - vorher lief es.
KompilierenMarkierenSeparieren
!
================
in XPrfEditClass
================
Klassenvariablen (Eigenschaften die für jede Instanz gelten)
Declare XSciProf.Font$,
XSciProf.Size%,
XSciProf.Tab%,
XSciProf.cNormal&,
XSciProf.cAktuell&,
XSciProf.cKommentar&,
XSciProf.cZahl&,
XSciProf.cFunktion&,
XSciProf.cStrings&,
XSciProf.cOperator&,
XSciProf.cStruktur&,
XSciProf.cBefehl&,
XSciProf.cPapier&,
XSciProf.cBezeichner&,
XSciProf.cSysvar&,
XSciProf.cDirekt&,
XSciProf.cbKommentarChk%,
XSciProf.cbZahlChk%,
XSciProf.cbFunktionChk%,
XSciProf.cbStringsChk%,
XSciProf.cbOperatorChk%,
XSciProf.cbStrukturChk%,
XSciProf.cbBefehlChk%,
XSciProf.cbBezeichnerChk%,
XSciProf.cbSysvarChk%,
XSciProf.cbDirektChk%

KompilierenMarkierenSeparieren
!
================
in XPrfEditClass
================

Proc XSciProf.SetColors

    Case XSciProf.cAktuell& = XSciProf.cNormal& : XSciProf.cAktuell& = $FFFFFF - XSciProf.cNormal&
    Alle Farben auf die Standardfarbe setzen
    .SciMessage(~SCI_STYLESETFORE, 32, XSciProf.cNormal&)
    .SciMessage(~SCI_STYLESETBACK, 32, XSciProf.cPapier&)
    .SciMessage(~SCI_STYLECLEARALL, 0, 0)
    Spezielle Farben setzen
    .SciMessage(~SCI_SETCARETLINEBACK, XSciProf.cAktuell&, 0)  Hintergreund aktuelle Zeile
    .SciMessage(~SCI_STYLESETFORE, 1, XSciProf.cKommentar&)    Comment
    .SciMessage(~SCI_STYLESETBOLD, 1, XSciProf.cbKommentarChk%)
    .SciMessage(~SCI_STYLESETFORE, 2, XSciProf.cZahl&)         Number
    .SciMessage(~SCI_STYLESETBOLD, 2, XSciProf.cbZahlChk%)
    .SciMessage(~SCI_STYLESETFORE, 4, XSciProf.cStrings&)      Strings
    .SciMessage(~SCI_STYLESETBOLD, 4, XSciProf.cbStringsChk%)
    .SciMessage(~SCI_STYLESETFORE, 5, XSciProf.cDirekt&)       Direktiven
    .SciMessage(~SCI_STYLESETBOLD, 5, XSciProf.cbDirektChk%)
    .SciMessage(~SCI_STYLESETFORE, 6, XSciProf.cOperator&)     Operator
    .SciMessage(~SCI_STYLESETBOLD, 6, XSciProf.cbOperatorChk%)
    .SciMessage(~SCI_STYLESETFORE, 8, XSciProf.cBezeichner&)   Variablen
    .SciMessage(~SCI_STYLESETBOLD, 8, XSciProf.cbBezeichnerChk%)
    .SciMessage(~SCI_STYLESETFORE, 3,  XSciProf.cFunktion&)    Funktion
    .SciMessage(~SCI_STYLESETBOLD, 3,  XSciProf.cbFunktionChk%)
    .SciMessage(~SCI_STYLESETFORE, 15, XSciProf.cSysvar&)      Systemvariablen
    .SciMessage(~SCI_STYLESETBOLD, 15, XSciProf.cbSysvarChk%)
    .SciMessage(~SCI_STYLESETFORE, 10, XSciProf.cStruktur&)    Struktur
    .SciMessage(~SCI_STYLESETBOLD, 10, XSciProf.cbStrukturChk%)
    .SciMessage(~SCI_STYLESETFORE, 11, XSciProf.cBefehl&)      Befehle
    .SciMessage(~SCI_STYLESETBOLD, 11, XSciProf.cbBefehlChk%)
    .SciMessage(~SCI_STYLESETFORE, ~STYLE_LINENUMBER, 0)

EndProc

KompilierenMarkierenSeparieren
!
==========
in XProfEd
==========

Proc Syntaxfarben

    ----------------
    Dialog zum Einstellen der Syntaxfarben
    Declare Dlg&, DialogEnde%, Farbe&
    Declare bOk&, bEsc&, bAnwenden&
    FarbBitmaps
    Declare hNormal&, hKommentar&, hAktuell&, hZahl&, hFunktion&, hStrings&, hOperator&, hStruktur&, hBefehl&,
    hPapier&, hBezeichner&, hSysvar&, hDirekt&
    FarbButtons
    Declare bNormal&, bKommentar&, bAktuell&, bZahl&, bFunktion&, bStrings&, bOperator&, bStruktur&, bBefehl&,
    bPapier&, bBezeichner&, bSysvar&, bDirekt&
    Farben (temporär)
    Declare cNormal&, cKommentar&, cAktuell&, cZahl&, cFunktion&, cStrings&, cOperator&, cStruktur&, cBefehl&,
    cPapier&, cBezeichner&, cSysvar&, cDirekt&
    Checkboxen (temporär)
    Declare cbNormal&, cbKommentar&, cbAktuell&, cbZahl&, cbFunktion&, cbStrings&, cbOperator&, cbStruktur&, cbBefehl&,
    cbPapier&, cbBezeichner&, cbSysvar&, cbDirekt&
    Declare cbKommentarChk%, cbZahlChk%, cbFunktionChk%,
    cbStringsChk%, cbOperatorChk%, cbStrukturChk%, cbBefehlChk%,
    cbBezeichnerChk%, cbSysvarChk%, cbDirektChk%
    cNormal&     = XSciProf.cNormal&
    cKommentar&  = XSciProf.cKommentar&
    cAktuell&    = XSciProf.cAktuell&
    cZahl&       = XSciProf.cZahl&
    cFunktion&   = XSciProf.cFunktion&
    cStrings&    = XSciProf.cStrings&
    cOperator&   = XSciProf.cOperator&
    cStruktur&   = XSciProf.cStruktur&
    cBefehl&     = XSciProf.cBefehl&
    cPapier&     = XSciProf.cPapier&
    cBezeichner& = XSciProf.cBezeichner&
    cSysvar&     = XSciProf.cSysvar&
    cDirekt&     = XSciProf.cDirekt&
    cbKommentarChk%  = XSciProf.cbKommentarChk%
    cbZahlChk%       = XSciProf.cbZahlChk%
    cbFunktionChk%   = XSciProf.cbFunktionChk%
    cbStringsChk%    = XSciProf.cbStringsChk%
    cbOperatorChk%   = XSciProf.cbOperatorChk%
    cbStrukturChk%   = XSciProf.cbStrukturChk%
    cbBefehlChk%     = XSciProf.cbBefehlChk%
    cbBezeichnerChk% = XSciProf.cbBezeichnerChk%
    cbSysvarChk%     = XSciProf.cbSysvarChk%
    cbDirektChk%     = XSciProf.cbDirektChk%
    MCLS 80, 20, cNormal&    : hNormal&    = create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cKommentar& : hKommentar& = create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cAktuell&   : hAktuell&   = create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cZahl&      : hZahl&      = create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cFunktion&  : hFunktion&  = create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cStrings&   : hStrings&   = create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cOperator&  : hOperator&  = create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cStruktur&  : hStruktur&  = create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cBefehl&    : hBefehl&    = create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cPapier&    : hPapier&    = create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cBezeichner&: hBezeichner&= create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cSysvar&    : hSysvar&    = create("hPic", 0, "&MEMBMP")
    MCLS 80, 20, cDirekt&    : hDirekt&    = create("hPic", 0, "&MEMBMP")
    Dlg& =        Create("Dialog",%HWnd,"Syntaxfarben",%MaxX / 2 - 136, %MaxY / 2 - 200, 272,385 + %cycaption)
    Create("GroupBox",Dlg&,"",8,12,248,328)
    Dlg& =        Create("Dialog",%HWnd,"Syntaxfarben",%MaxX / 2 - 136, %MaxY / 2 - 200, 285,385 + %cycaption)
    Create("GroupBox",Dlg&,"",8,8,261,332)
    Create("Text",Dlg&,"Bold",                       240, 15,  70, 13)
    Create("Text",Dlg&,"Normaler Text:",              16, 30, 140, 13)
    bNormal& =    Create("PicButton",Dlg&,hNormal&,                160, 28,  80, 20)
    Create("Text",Dlg&,"Kommentare:",                 16, 54, 140, 13)
    bKommentar& = Create("PicButton",Dlg&,hKommentar&,             160, 52,  80, 20)
    cbKommentar&= Create("CheckBox",Dlg&,"",                       250, 54,  13, 13)
    Create("Text",Dlg&,"Strukturbefehle:",            16, 78, 140, 13)
    bStruktur& =  Create("PicButton",Dlg&,hStruktur&,              160, 76,  80, 20)
    cbStruktur& = Create("CheckBox",Dlg&,"",                       250, 78,  13, 13)
    Create("Text",Dlg&,"Befehle:",                    16,102, 140, 13)
    bBefehl&  =   Create("PicButton",Dlg&,hBefehl&,                160,100,  80, 20)
    cbBefehl& =   Create("CheckBox",Dlg&,"",                       250,102,  13, 13)
    Create("Text",Dlg&,"Funktionen:",                 16,126, 140, 13)
    bFunktion& =  Create("PicButton",Dlg&,hFunktion&,              160,124,  80, 20)
    cbFunktion& = Create("CheckBox",Dlg&,"",                       250,126,  13, 13)
    Create("Text",Dlg&,"Operatoren:",                 16,150, 140, 13)
    bOperator& =  Create("PicButton",Dlg&,hOperator&,              160,148,  80, 20)
    cbOperator& = Create("CheckBox",Dlg&,"",                       250,150,  13, 13)
    Create("Text",Dlg&,"Stringliterale:",             16,174, 140, 13)
    bStrings& =   Create("PicButton",Dlg&,hStrings&,               160,172,  80, 20)
    cbStrings& =  Create("CheckBox",Dlg&,"",                       250,174,  13, 13)
    Create("Text",Dlg&,"Numerische Literale:",        16,198, 140, 13)
    bZahl& =      Create("PicButton",Dlg&,hZahl&,                  160,196,  80, 20)
    cbZahl& =     Create("CheckBox",Dlg&,"",                       250,198,  13, 13)
    Create("Text",Dlg&,"Hintergrund aktuelle Zeile:", 16,222, 140, 13)
    bAktuell& =   Create("PicButton",Dlg&,hAktuell&,               160,220,  80, 20)
    Create("Text",Dlg&,"Hintergrund:",                16,246, 140, 13)
    bPapier& =    Create("PicButton",Dlg&,hPapier&,                160,244,  80, 20)
    Create("Text",Dlg&,"Bezeichner:",                 16,270, 140, 13)
    bBezeichner&= Create("PicButton",Dlg&,hBezeichner&,            160,268,  80, 20)
    cbBezeichner&=Create("CheckBox",Dlg&,"",                       250,270,  13, 13)
    Create("Text",Dlg&,"Systemvariablen:",            16,294, 140, 13)
    bSysvar& =    Create("PicButton",Dlg&,hSysvar&,                160,292,  80, 20)
    cbSysvar& =   Create("CheckBox",Dlg&,"",                       250,294,  13, 13)
    Create("Text",Dlg&,"Direktiven:",                 16,318, 140, 13)
    bDirekt& =    Create("PicButton",Dlg&,hDirekt&,                160,316,  80, 20)
    cbDirekt& =   Create("CheckBox",Dlg&,"",                       250,318,  13, 13)
    bOk&        = Create("Button",Dlg&,"&Ok",          4,348, 81, 25)
    bAnwenden&  = Create("Button",Dlg&,"An&wenden",   92,348, 81, 25)
    bESC&       = Create("Button",Dlg&,"&Abbrechen", 180,348, 81, 25)
    SetCheck cbKommentar&,  cbKommentarChk%
    SetCheck cbZahl&,       cbZahlChk%
    SetCheck cbFunktion&,   cbFunktionChk%
    SetCheck cbStrings&,    cbStringsChk%
    SetCheck cbOperator&,   cbOperatorChk%
    SetCheck cbStruktur&,   cbStrukturChk%
    SetCheck cbBefehl&,     cbBefehlChk%
    SetCheck cbBezeichner&, cbBezeichnerChk%
    SetCheck cbSysvar&,     cbSysvarChk%
    SetCheck cbDirekt&,     cbDirektChk%
    DialogEnde% = 0

    WHILENOT DialogEnde%

        WAITINPUT

        IF     Clicked(bNormal&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cNormal&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hNormal&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bNormal&,$00F7,0,hNormal&)
                cNormal& = Farbe&

            EndIf

        ElseIF Clicked(bKommentar&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cKommentar&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hKommentar&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bKommentar&,$00F7,0,hKommentar&)
                cKommentar& = Farbe&

            EndIf

        ElseIF Clicked(bStruktur&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cStruktur&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hStruktur&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bStruktur&,$00F7,0,hStruktur&)
                cStruktur& = Farbe&

            EndIf

        ElseIF Clicked(bBefehl&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cBefehl&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hBefehl&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bBefehl&,$00F7,0,hBefehl&)
                cBefehl& = Farbe&

            EndIf

        ElseIF Clicked(bFunktion&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cFunktion&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hFunktion&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bFunktion&,$00F7,0,hFunktion&)
                cFunktion& = Farbe&

            EndIf

        ElseIF Clicked(bOperator&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cOperator&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hOperator&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bOperator&,$00F7,0,hOperator&)
                cOperator& = Farbe&

            EndIf

        ElseIF Clicked(bStrings&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cStrings&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hStrings&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bStrings&,$00F7,0,hStrings&)
                cStrings& = Farbe&

            EndIf

        ElseIF Clicked(bZahl&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cZahl&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hZahl&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bZahl&,$00F7,0,hZahl&)
                cZahl& = Farbe&

            EndIf

        ElseIF Clicked(bAktuell&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cAktuell&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hAktuell&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bAktuell&,$00F7,0,hAktuell&)
                cAktuell& = Farbe&

            EndIf

        ElseIF Clicked(bPapier&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cPapier&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hPapier&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bPapier&,$00F7,0,hPapier&)
                cPapier& = Farbe&

            EndIf

        ElseIF Clicked(bBezeichner&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cBezeichner&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hBezeichner&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bBezeichner&,$00F7,0,hBezeichner&)
                cBezeichner& = Farbe&

            EndIf

        ElseIF Clicked(bSysvar&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cSysvar&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hSysvar&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bSysvar&,$00F7,0,hSysvar&)
                cSysvar& = Farbe&

            EndIf

        ElseIF Clicked(bDirekt&)

            Farbe& = FarbWahl(Dlg&, XSciProf.cDirekt&)

            If Farbe& > -1

                MCLS 80, 20, Farbe& : hDirekt&    = create("hPic", 0, "&MEMBMP")
                Sendmessage(bDirekt&,$00F7,0,hDirekt&)
                cDirekt& = Farbe&

            EndIf

        ElseIf Clicked(bAnwenden&)

            cbKommentarChk% = GetCheck(cbKommentar&)
            cbZahlChk% = GetCheck(cbZahl&)
            cbFunktionChk% = GetCheck(cbFunktion&)
            cbStringsChk% = GetCheck(cbStrings&)
            cbOperatorChk% = GetCheck(cbOperator&)
            cbStrukturChk% = GetCheck(cbStruktur&)
            cbBefehlChk% = GetCheck(cbBefehl&)
            cbBezeichnerChk% = GetCheck(cbBezeichner&)
            cbSysvarChk% = GetCheck(cbSysvar&)
            cbDirektChk% = GetCheck(cbDirekt&)
            XSciProf.cbKommentarChk%  = cbKommentarChk%
            XSciProf.cbZahlChk%       = cbZahlChk%
            XSciProf.cbFunktionChk%   = cbFunktionChk%
            XSciProf.cbStringsChk%    = cbStringsChk%
            XSciProf.cbOperatorChk%   = cbOperatorChk%
            XSciProf.cbStrukturChk%   = cbStrukturChk%
            XSciProf.cbBefehlChk%     = cbBefehlChk%
            XSciProf.cbBezeichnerChk% = cbBezeichnerChk%
            XSciProf.cbSysvarChk%     = cbSysvarChk%
            XSciProf.cbDirektChk%     = cbDirektChk%
            XSciProf.cNormal&    = cNormal&
            XSciProf.cKommentar& = cKommentar&
            XSciProf.cAktuell&   = cAktuell&
            XSciProf.cZahl&      = cZahl&
            XSciProf.cFunktion&  = cFunktion&
            XSciProf.cStrings&   = cStrings&
            XSciProf.cOperator&  = cOperator&
            XSciProf.cStruktur&  = cStruktur&
            XSciProf.cBefehl&    = cBefehl&
            XSciProf.cPapier&    = cPapier&
            XSciProf.cBezeichner&= cBezeichner&
            XSciProf.cSysvar&    = cSysVar&
            XSciProf.cDirekt&    = cDirekt&
            Edit#[AktTab%].SetColors()

        ElseIf Clicked(bOk&)

            cbKommentarChk% = GetCheck(cbKommentar&)
            cbZahlChk% = GetCheck(cbZahl&)
            cbFunktionChk% = GetCheck(cbFunktion&)
            cbStringsChk% = GetCheck(cbStrings&)
            cbOperatorChk% = GetCheck(cbOperator&)
            cbStrukturChk% = GetCheck(cbStruktur&)
            cbBefehlChk% = GetCheck(cbBefehl&)
            cbBezeichnerChk% = GetCheck(cbBezeichner&)
            cbSysvarChk% = GetCheck(cbSysvar&)
            cbDirektChk% = GetCheck(cbDirekt&)
            XSciProf.cbKommentarChk%  = cbKommentarChk%
            XSciProf.cbZahlChk%       = cbZahlChk%
            XSciProf.cbFunktionChk%   = cbFunktionChk%
            XSciProf.cbStringsChk%    = cbStringsChk%
            XSciProf.cbOperatorChk%   = cbOperatorChk%
            XSciProf.cbStrukturChk%   = cbStrukturChk%
            XSciProf.cbBefehlChk%     = cbBefehlChk%
            XSciProf.cbBezeichnerChk% = cbBezeichnerChk%
            XSciProf.cbSysvarChk%     = cbSysvarChk%
            XSciProf.cbDirektChk%     = cbDirektChk%
            XSciProf.cNormal&    = cNormal&
            XSciProf.cKommentar& = cKommentar&
            XSciProf.cAktuell&   = cAktuell&
            XSciProf.cZahl&      = cZahl&
            XSciProf.cFunktion&  = cFunktion&
            XSciProf.cStrings&   = cStrings&
            XSciProf.cOperator&  = cOperator&
            XSciProf.cStruktur&  = cStruktur&
            XSciProf.cBefehl&    = cBefehl&
            XSciProf.cPapier&    = cPapier&
            XSciProf.cBezeichner&= cBezeichner&
            XSciProf.cSysvar&    = cSysVar&
            XSciProf.cDirekt&    = cDirekt&
            Edit#[AktTab%].SetColors()
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cNormal"     = str$(cNormal&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cAktuell"    = str$(cAktuell&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cKommentar"  = str$(cKommentar&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cZahl"       = str$(cZahl&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cFunktion"   = str$(cFunktion&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cStrings"    = str$(cStrings&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cOperator"   = str$(cOperator&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cStruktur"   = str$(cStruktur&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cBefehl"     = str$(cBefehl&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cPapier"     = str$(cPapier&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cBezeichner" = str$(cBezeichner&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cSysvar"     = str$(cSysvar&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cDirekt"     = str$(cDirekt&)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbKommentar"  = str$(cbKommentarChk%)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbZahl"       = str$(cbZahlChk%)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbFunktion"   = str$(cbFunktionChk%)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbStrings"    = str$(cbStringsChk%)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbOperator"   = str$(cbOperatorChk%)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbStruktur"   = str$(cbStrukturChk%)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbBefehl"     = str$(cbBefehlChk%)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbBezeichner" = str$(cbBezeichnerChk%)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbSysvar"     = str$(cbSysvarChk%)
            WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbDirekt"     = str$(cbDirektChk%)
            DialogEnde% = 2

        ElseIf @equ(%key,2)

            DialogEnde% = 1

        ElseIf Clicked(bEsc&)

            DialogEnde% = 1

        ENDIF

    EndWhile

    DeleteObject hNormal&
    DeleteObject hKommentar&
    DeleteObject hStruktur&
    DeleteObject hBefehl&
    DeleteObject hFunktion&
    DeleteObject hOperator&
    DeleteObject hStrings&
    DeleteObject hZahl&
    DeleteObject hAktuell&
    DeleteObject hPapier&
    DestroyWindow(Dlg&)
    SetActiveWindow(Edit#[AktTab%].Handle&)
    Return (DialogEnde% - 1)

ENDPROC

KompilierenMarkierenSeparieren
!
==========
in XProfEd
im Hauptprogramm (5xPgUp ab der Hauptschleife)
==========
Set("ErrorLevel",0)  Warnungen beim ersten Programmstart ausblenden
XSciProf.cNormal&    = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cNormal"))

If %Error = 1        Warnung (-> Schlüssel in Registry nicht gefunden: noch keine individuelle Farbeinstellung)

    XSciProf.cNormal&    = RGB($00,$00,$00)
    XSciProf.cAktuell&   = RGB($FF,$FF,$00)
    XSciProf.cKommentar& = RGB($FF,$00,$00)
    XSciProf.cZahl&      = RGB($FF,$00,$80)
    XSciProf.cFunktion&  = RGB($00,$00,$80)
    XSciProf.cStrings&   = RGB($FF,$00,$80)
    XSciProf.cOperator&  = RGB($FF,$00,$80)
    XSciProf.cStruktur&  = RGB($00,$00,$00)
    XSciProf.cBefehl&    = RGB($00,$00,$DD)
    XSciProf.cPapier&    = RGB($FF,$FF,$FF)
    XSciProf.cBezeichner&= RGB($00,$00,$00)
    XSciProf.cSysvar&    = RGB($00,$00,$00)
    XSciProf.cDirekt&    = RGB($FF,$00,$00)
    XSciProf.cbKommentarChk%  =  1
    XSciProf.cbZahlChk%       = 0
    XSciProf.cbFunktionChk%   = 0
    XSciProf.cbStringsChk%    = 0
    XSciProf.cbOperatorChk%   = 0
    XSciProf.cbStrukturChk%   =  1
    XSciProf.cbBefehlChk%     = 0
    XSciProf.cbBezeichnerChk% = 0
    XSciProf.cbSysvarChk%     = 0
    XSciProf.cbDirektChk%     =  1

Else

    XSciProf.cAktuell&   = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cAktuell"))
    XSciProf.cKommentar& = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cKommentar"))
    XSciProf.cZahl&      = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cZahl"))
    XSciProf.cFunktion&  = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cFunktion"))
    XSciProf.cStrings&   = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cStrings"))
    XSciProf.cOperator&  = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cOperator"))
    XSciProf.cStruktur&  = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cStruktur"))
    XSciProf.cBefehl&    = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cBefehl"))
    XSciProf.cPapier&    = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cPapier"))
    XSciProf.cBezeichner&= Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cBezeichner"))
    XSciProf.cSysvar&    = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cSysvar"))
    XSciProf.cDirekt&    = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cDirekt"))
    XSciProf.cKommentarChk% = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cbKommentar"))

    If %Error = 1        Warnung (-> Schlüssel in Registry nicht gefunden: noch keine individuelle Farbeinstellung)

        XSciProf.cbKommentarChk%  =  1
        XSciProf.cbZahlChk%       = 0
        XSciProf.cbFunktionChk%   = 0
        XSciProf.cbStringsChk%    = 0
        XSciProf.cbOperatorChk%   = 0
        XSciProf.cbStrukturChk%   =  1
        XSciProf.cbBefehlChk%     = 0
        XSciProf.cbBezeichnerChk% = 0
        XSciProf.cbSysvarChk%     = 0
        XSciProf.cbDirektChk%     =  1

    Else

        XSciProf.cZahlChk%      = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cbZahl"))
        XSciProf.cFunktionChk%  = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cbFunktion"))
        XSciProf.cStringsChk%   = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cbStrings"))
        XSciProf.cOperatorChk%  = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cbOperator"))
        XSciProf.cStrukturChk%  = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cbStruktur"))
        XSciProf.cBefehlChk%    = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cbBefehl"))
        XSciProf.cBezeichnerChk%= Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cbBezeichner"))
        XSciProf.cSysvarChk%    = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cbSysvar"))
        XSciProf.cDirektChk%    = Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cbDirekt"))

    EndIf

EndIf

Set("ErrorLevel",1)

Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
22.09.2006  ▲
 




Michael
Wodrich
Stimmt nicht ganz....
...in SetColors habe ich es auch erst nachträglich eingesetzt.

Das sind also schon 2 mögliche Fehlerquellen.

Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
22.09.2006  ▲
 




Michael
Wodrich
Auch das nachträgliche hineinmogeln der fehlenden Werte in die Registry hilft nicht...
KompilierenMarkierenSeparieren
!
das fehlt dem XProfEd noch:
WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbKommentar"  = "1"
WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbZahl"       = "0"
WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbFunktion"   = "0"
WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbStrings"    = "0"
WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbOperator"   = "0"
WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbStruktur"   = "1"
WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbBefehl"     = "0"
WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbBezeichner" = "0"
WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbSysvar"     = "0"
WriteIni "HKEY_1","SoftwareRGHXProfanXProfed","cbDirekt"     = "1"
end

Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
22.09.2006  ▲
 




Michael
Wodrich
Ja, das dachte ich mir schon....

Wenn man den Registry-Teil herausläßt, dann klappt es ganz wunderbar.
Das da einige Checkboxen fehlen ist übrigens Absicht.

Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
22.09.2006  ▲
 




Michael
Wodrich
Mist, die Einstellung der Farben ist Tab-gebunden. Es wird für die anderen Tabs nicht übernommen.

Erst ein erneuten Drücken auf Anwenden im jeweiligen Tab hilft hier.

Ich stecks erstmal auf und warte auf die angekündigten Neuerungen.

Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
22.09.2006  ▲
 




RGH
Hallo Michael,

Du hast beim Lesen aus der Registry lediglich das b vorne bei den ...chk%-Variablen vergessen. Das führte zu einer Fehlermeldung, die dann möglicherweise hinter einem anderen Fenster versteckt war.
Bei mir gehts jetzt ... und in der 0.98a wird es auch gehen. Muß nur die Dialogbox noch etwas umgestalten.

Gruß
Roland
 
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
22.09.2006  ▲
 



Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

Ungelesen
Abonnieren
Merkliste
Hinweise
Gäste
Löschen
Ständig
Erledigt

941 Betrachtungen

Unbenanntvor 0 min.
Peter Max Müller27.10.2017
Erfurt24.08.2011
Stephan Lührsen10.06.2011

Themeninformationen

Dieses Thema hat 2 Teilnehmer:

Michael Wodrich (5x)
RGH (1x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Ich möchte keinen Cookie