XProfan

Was fehlt Usted porque?

PS: {$cleq} puede ser zusammenschreiben.

GDL

Lo va kein Enter.

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

Jörg
Sellmeyer

Usted mußt con AddHotKey

auch el Entertaste scharfmachen...

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

GDL

@Jörg, Yo vengo zwar ahora en el Hauptschleife en el Zona menuitem(13), pero va trotzdem no.

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

Usted musst crlf$ en chr$(13)+chr$(10) oder
conjunto.

GDL

@IF,@Jörg Gracias euch beiden.Bin otra vez nen Stück más.

So siehts ahora de.
Kompilieren Marca Separación

 {$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 de
Kompilieren Marca Separación

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

una
Kompilieren Marca Separación

 {$cleq}

y definiere
Kompilieren Marca Separación

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

sólo einmalig al Codeanfang en lugar de ständig beim Drücken de [enter].

GDL

Yo doch ya, lo restos auch net así. Como ya he dicho sólo Spielereien.Hoffe el euer ausgekoppeltes Xide Editar para Anwendungen no así kompliziert es.

Servus
Georg

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

Michael
Wodrich

Como Usted Usted como Tester angemeldet hast, kannst Usted lo sí en un anwenderfreundliche Richtung schubsen...

Programmieren, das spannendste Detektivspiel der Welt.

Si usted el ya kompliziert nennst...

GDL

Yo meintete el ganzen Xprofed Ver código fuente. Sich como antes lauter ~... Sachen todavía auskennen, si uno sólo einzelne Passagen braucht, iss para mich net simplemente.
Dies es una Vorteil de Prffellow con seinen vorgegebenen Codebausteinen.

Servus
Georg

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