XProfan

what missing you because?

PS: {$cleq} can zusammenschreiben.

GDL

It's all right no Enter.

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

Jörg
Sellmeyer

you mußt with AddHotKey

too The Entertaste wind up...

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

GDL

@Jörg, I come of course now in the Hauptschleife into area menuitem(13), but It's all right nevertheless not.

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

You must crlf$ on chr$(13)+chr$(10) or
settle.

GDL

@iF,@Jörg thanks you both.be again NEN Piece moreover.

so siehts now from.
Compile Mark Separation

 {$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

Hello
Georg

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

Ähäm make from
Compile Mark Separation

 {$C}
 {$L}
 {$E}
 {$Q}pre>

one
Compile Mark Separation

 {$cleq}

and definiere
Compile Mark Separation

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

only einmalig on the Codeanfang instead of constantly at pressing of [enter].

GDL

have I but already, it remaining too net so. As I said only Spielereien.hope the your ausgekoppeltes Xide Edit for Applications not so tricky is.

Hello
Georg

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

Michael
Wodrich

there You yourself as Tester announced have, can You it Yes in a anwenderfreundliche direction schubsen...

Programmieren, das spannendste Detektivspiel der Welt.

If you the already tricky name...

GDL

I meintete whom whole Xprofed View source. itself there to lauter ~... things yet know, if one only single Passagen need, iss for me net simply.
these one benefit of Prffellow with its pretended Codebausteinen.

Hello
Georg

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