XProfan

- Página 1 -

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

- Página 2 -

GDL

@Michael,
Yo meintete no el ganzen Xide, pero sólo el Editfenster para propio Editoranwendungen.
Juegos mich aber trotzdem con el Xide. Tal vez schafft lo el Xide, el Yo mich de Prffellow trenne.

Servus
Georg

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

GDL

Dahingehend wäre lo una gutes Tun hier Laut a geben: [...]

GDL

So Yo a ahora mitbekommen habe, se el Xide pero no RAD IDE . Como aber Prffellow una es (Yo nutze eigendlich sólo Winfellow en Verbindung con Prffellow) Aprovecho a 10% esta y a 90% media Dateigenerator.
Irgendwo möchte Yo auch mitwirken,por lo tanto möchte Me gusta mittesten. Desde que no neue Progs mehr escribir es dies el einzige Möglichkeit mitzumachen.

Servus
Georg

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

24.07.2007 ▲

Hm como Non-RAD-IDE sería Yo XIDE keinesfalls llamada - ists also WinFellow qué Usted a PrfFellow reizt? Was todavía salvo WinFellow?

24.07.2007 ▲

GDL

Was se Yo como gross antworten, Yo con Winfellow(prffellow) 2 Programas geschrieben, con Dateigenerator ca 30 y atmelassembler ca. 100.

Dateigenerator y Atmelassembler son eigendlich no Editoren en el sinne, pero kommplette Werkstattprogramme para mich, el como Abfallprodukt mi Proggis rausschmeissen.

Algo como en el Xide einzubauen ?

Servus
Georg

P.S. Zum Rumprobieren nehme prfellow gerne her.

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

24.07.2007 ▲