XProfan

Was fehlt Dir denn?

PS: {$cleq} kann man zusammenschreiben.

GDL

Es geht kein Enter.

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

Du mußt mit AddHotKey

auch die Entertaste scharfmachen...

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

GDL

@Jörg, ich komme zwar jetzt in der Hauptschleife in den Bereich menuitem(13), aber es geht trotzdem nicht.

Windows7 Xprofan 8,9,10 [...]

Du musst crlf$ auf chr$(13)+chr$(10) oder
setzen.

GDL

@iF,@Jörg Danke euch beiden.Bin wieder nen Stück weiter.

So siehts jetzt aus.
Kompilieren Markieren Separieren

 {$C}
 {$L}
 {$E}
 {$Q}
Declarationen
declare ende%,lexer&,edit#[1]
declare i%,crline%,crlf$
Includes
 $I C:PRFellowentwicklungeneditor_002XPrfEditClass.prf
usermessages 16
Definitionen
Def GetSysColor(1) !USER32,GetSysColor
Dim
Hotkey
window 0,0 - %maxx,%maxy
cls getsyscolor(15)
PopUp &Datei
AppendMenu 101,&Laden
AddHotKey   13, 13,0   ENTER
================================================

proc lexer_optionen

    XSciProf.Tab%        = 8
    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% = 0
    XSciProf.cbZahlChk%      = 0
    XSciProf.cbFunktionChk%  = 1
    XSciProf.cbStringsChk%   = 0
    XSciProf.cbOperatorChk%  = 0
    XSciProf.cbStrukturChk%  = 1
    XSciProf.cbBefehlChk%    = 1
    XSciProf.cbBezeichnerChk%= 0
    XSciProf.cbSysvarChk%    = 1
    XSciProf.cbDirektChk%    = 1

endproc

================================================

proc aufraeumen

    Dispose Edit#[]

endproc

========================================================
lexer_optionen
Edit#[1] = New(XSciProf,%hwnd,150,80,700,600,4000 )+ MaxTab%)
~InvalidateRect(%hWnd, 0, 0)
~UpdateWindow(%hWnd)
SetFocus(Edit#[1].Handle&)

whilenot ende%

    waitinput

    if %umessage = 16

        ende%=1
        aufraeumen

    elseIf %wmNotify and (%NotifyCode = ~SCN_MARGINCLICK)

        I% = Edit#[1].SciMessage(~SCI_POSITIONFROMPOINT, 0, %MouseY - 50)
        I% = Edit#[1].SciMessage(~SCI_LINEFROMPOSITION, I%, 0)  + 1
        Edit#[1].SciMessage(~SCI_TOGGLEFOLD, I%, 0)

    elseIf %wmNotify and (%NotifyCode = ~SCN_MARGINCLICK)

        I% = Edit#[1].SciMessage(~SCI_POSITIONFROMPOINT, 0, %MouseY - 50)
        I% = Edit#[1].SciMessage(~SCI_LINEFROMPOSITION, I%, 0)  + 1
        Edit#[1].SciMessage(~SCI_TOGGLEFOLD, I%, 0)

    ElseIf MenuItem(13)  Enter-Taste

        beep

        With Edit#[1]

            crlf$=chr$(13)+chr$(10)
            .SciMessage(~SCI_ADDTEXT, 2, Addr(CRLF$))
            CRLine% = .getLine() - 1
            i% = .SciMessage(~SCI_GETLINEINDENTATION, CRLine% - 1, 0)
            .SciMessage(~SCI_SETLINEINDENTATION, CRLine%, I%)
            i% = .SciMessage(~SCI_GETLINEINDENTPOSITION, CRLine%, 0)
            .SciMessage(~SCI_GOTOPOS, i%, 0)

        EndWith

    endif

wend

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Ähäm mache aus
Kompilieren Markieren Separieren

 {$C}
 {$L}
 {$E}
 {$Q}

ein
Kompilieren Markieren Separieren

 {$cleq}

und definiere
Kompilieren Markieren Separieren

crlf$=chr$(13)+chr$(10)

nur einmalig am Codeanfang statt ständig beim Drücken von [enter].

GDL

habe ich doch schon, es bleibt auch net so. Wie gesagt nur Spielereien.Hoffe das euer ausgekoppeltes Xide Edit für Anwendungen nicht so kompliziert ist.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Michael
Wodrich

Da Du Dich als Tester angemeldet hast, kannst Du es ja in eine anwenderfreundliche Richtung schubsen...

Programmieren, das spannendste Detektivspiel der Welt.

Wenn Du das schon kompliziert nennst...

GDL

Ich meintete den ganzen Xprofed Quelltext. Sich da vor lauter ~... Sachen noch auskennen, wenn man nur einzelne Passagen braucht, iss für mich net einfach.
Dies ist ein Vorteil von Prffellow mit seinen vorgegebenen Codebausteinen.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]