XProfan

- Seite 1 -

Du musst crlf$ auf chr$(13)+chr$(10) oder
setzen.

GDL

@iF,@Jörg Danke euch beiden.Bin wieder nen Stück weiter.

So siehts jetzt aus.
Kompilieren Markieren Separieren

 {$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 aus
Kompilieren Markieren Separieren

 {$C}
 {$L}
 {$E}
 {$Q}

ein
Kompilieren Markieren Separieren

 {$cleq}

und definiere
Kompilieren Markieren Separieren

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

nur einmalig am Codeanfang statt ständig beim Drücken von [enter].

GDL

habe ich doch schon, es bleibt auch net so. Wie gesagt nur Spielereien.Hoffe das euer ausgekoppeltes Xide Edit für Anwendungen nicht so kompliziert ist.

Servus
Georg

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

Michael
Wodrich

Da Du Dich als Tester angemeldet hast, kannst Du es ja in eine anwenderfreundliche Richtung schubsen...

Programmieren, das spannendste Detektivspiel der Welt.

Wenn Du das schon kompliziert nennst...

GDL

Ich meintete den ganzen Xprofed Quelltext. Sich da vor lauter ~... Sachen noch auskennen, wenn man nur einzelne Passagen braucht, iss für mich net einfach.
Dies ist ein Vorteil von Prffellow mit seinen vorgegebenen Codebausteinen.

Servus
Georg

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

- Seite 2 -

GDL

@Michael,
ich meintete nicht die ganzen Xide, sondern nur das Editfenster für eigene Editoranwendungen.
Spiele mich aber trotzdem mit der Xide. Vielleicht schafft es die Xide, das ich mich von Prffellow trenne.

Servus
Georg

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

GDL

Dahingehend wäre es ein gutes Tun hier Laut zu geben: [...]

GDL

So was ich bis jetzt mitbekommen habe, wird die Xide aber keine RAD IDE . Da aber Prffellow eine ist (ich nutze eigendlich nur Winfellow in Verbindung mit Prffellow) nehme ich zu 10% diese und zu 90% meinen Dateigenerator.
Irgendwo möchte ich auch mitwirken,darum möchte ich gerne mittesten. Da ich keine neue Progs mehr schreibe ist dies die einzige Möglichkeit mitzumachen.

Servus
Georg

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

24.07.2007 ▲

Hm als Non-RAD-IDE würde ich XIDE keinesfalls bezeichnen - ists also WinFellow was Dich an PrfFellow reizt? Was noch ausser WinFellow?

24.07.2007 ▲

GDL

Was soll ich da gross antworten, ich habe mit Winfellow(prffellow) 2 Programme geschrieben, mit Dateigenerator ca 30 und mit atmelassembler ca. 100.

Dateigenerator und Atmelassembler sind eigendlich keine Editoren in dem sinne, sondern kommplette Werkstattprogramme für mich, die als Abfallprodukt meine Proggis rausschmeissen.

Sowas in die Xide einzubauen ?

Servus
Georg

P.S. Zum Rumprobieren nehme prfellow gerne her.

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

24.07.2007 ▲