XProfan

quoi fehlt Dir car?

PS: {$cleq} peux on zusammenschreiben.

GDL

und dir ne...aucune Enter.

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

Jörg
Sellmeyer

tu dois avec AddHotKey

aussi qui Entertaste scharfmachen...

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

GDL

@Jörg, je viens zwar maintenant dans qui Hauptschleife dans den Bereich menuitem(13), mais und dir quand même pas.

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

Du musst crlf$ sur chr$(13)+chr$(10) ou bien
mettons.

GDL

@iF,@Jörg merci euch beiden.suis wieder nen Stück plus.

So siehts maintenant aus.
Kompilieren Marque Séparation

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

salut
Georg

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

Ähäm fais aus
Kompilieren Marque Séparation

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

un
Kompilieren Marque Séparation

 {$cleq}

et definiere
Kompilieren Marque Séparation

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

seulement einmalig am Codeanfang statt ständig beim Drücken de [enter].

GDL

habe je doch déjà, es bleibt aussi net so. Comme je le disais seulement Spielereien.Hoffe cela euer ausgekoppeltes Xide Éditer pour Anwendungen pas so compliqué ist.

salut
Georg

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

Michael
Wodrich

là Du toi comme Tester angemeldet la hâte, peux Du es oui dans un anwenderfreundliche direction schubsen...

Programmieren, das spannendste Detektivspiel der Welt.

si Du cela déjà compliqué nennst...

GDL

je meintete den ganzen Xprofed Voir le texte source. Sich là avant lauter ~... Sachen encore auskennen, si on seulement einzelne Passagen braucht, iss pour mich net simple.
ca est un Vorteil de Prffellow avec seinen vorgegebenen Codebausteinen.

salut
Georg

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