XProfan

- page 1 -

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 [...]

- page 2 -

GDL

@Michael,
je meintete pas qui ganzen Xide, mais seulement cela Editfenster pour eigene Editoranwendungen.
Jeux mich mais quand même avec qui Xide. peut-être schafft es qui Xide, le moi mich de Prffellow trenne.

salut
Georg

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

GDL

Dahingehend wäre es un gutes 1faire ici le son trop donner: [...]

GDL

So quoi je jusqu'à maintenant mitbekommen habe, wird qui Xide mais aucun RAD IDE . là mais Prffellow une ist (je nutze eigendlich seulement Winfellow dans liaison avec Prffellow) nehme je trop 10% cet et trop 90% meinen Dateigenerator.
Irgendwo voudrais je aussi mitwirken,tout autor voudrais je volontiers mittesten. là je aucun neue Progs plus schreibe ist ca qui einzige Possibilité mitzumachen.

salut
Georg

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

24.07.2007 ▲

Hm comme Non-RAD-IDE serait je XIDE aucunement appel - ists alors WinFellow quoi toi à PrfFellow reizt? quoi encore ausser WinFellow?

24.07.2007 ▲

GDL

quoi soll je là gross répondre, j'ai avec Winfellow(prffellow) 2 Programme geschrieben, avec Dateigenerator ca 30 et atmelassembler ca. 100.

Dateigenerator et Atmelassembler sommes eigendlich aucun Editoren dans dem sinne, mais kommplette Werkstattprogramme pour mich, qui comme Abfallprodukt mon Proggis rausschmeissen.

Quelque chose comme dans qui Xide einzubauen ?

salut
Georg

P.S. Zum Rumprobieren nehme prfellow volontiers her.

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

24.07.2007 ▲