XProfan

- Page 1 -

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

- Page 2 -

GDL

@Michael,
I meintete not The whole Xide, separate only the Edit Window for Own Editoranwendungen.
Games me but nevertheless with the Xide. Perhaps creates it The Xide, that I me of Prffellow part.

Hello
Georg

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

GDL

Dahingehend would it one good do here loudly To give: [...]

GDL

so I yet come along have, becomes The Xide but no RAD IDE . there but Prffellow a is (I use eigendlich only Winfellow in link with Prffellow) take I To 10% these and To 90% my Dateigenerator.
somewhere would like so did i mitwirken,therefore would like I gladly mittesten. Since I no new Progs More write is this The only Possibility mitzumachen.

Hello
Georg

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

07/24/07 ▲

Hm as Non-RAD-IDE would I XIDE under no circumstance bezeichnen - ists means WinFellow what you on PrfFellow reizt? what yet except WinFellow?

07/24/07 ▲

GDL

two Listviews I there tall Answer, I have with Winfellow(prffellow) 2 programs written, with Dateigenerator ca 30 and atmelassembler ca. 100.

Dateigenerator and Atmelassembler are eigendlich no Editoren in the senses, separate kommplette Werkstattprogramme for me, The as Abfallprodukt my Proggis rausschmeissen.

Something like into Xide incorporate ?

Hello
Georg

P.s. to that Rumprobieren take prfellow gladly since.

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

07/24/07 ▲