Forum moved to if-forum.org
Autor Nachricht
<  Mach mir mal ein Syntaxhighlighting
Schwerer Ausnahmefehler
BeitragVerfasst am: Do, 20 Jan 2005 - 20:52  Antworten mit Zitat
Neuling
Neuling


Anmeldungsdatum: 30.12.2004
Beiträge: 15

Jaa!!! Es ist da!!! Ich, der einfache Hobbyprogrammierer habe ein Syntaxhighlighter für T.A.G. Source Code Dateien erstellt.

WIE INSTALLIEREN???

Einfach den Code am Ende des Beitrags in eine leere Datei kopieren, als "tag.sch" im Ordner "syntaxschemes" abspeichern. Gehighlightet werden Schlüsselwörter wie "wenn", "sei" oder "Obj" und die Standartbefehle aus dem Handbuch. schaut's euch einfach mal an

Code:
object TPersHolder
  P.Name = 'T.A.G. Source File'
  P.SyntaxBlocks = <
    item
      Name = 'Default'
      ID = 0
      FIIntNum = 4
      FIFloatNum = 5
      FIHexNum = 6
      UseComments = True
      UseSingleLineComments = True
      UseMultiLineComments = True
      UseStrings = True
      UseMultiLineStrings = True
      UseNumbers = True
      UseKeywords = True
      BlockDelimiters = <>
      SingleLineCommentDelimiters = <
        item
          FontID = 1
          LeftDelimiter = '!'
        end
        item
          FontID = 11
          LeftDelimiter = '#'
        end>
      MultiLineCommentDelimiters = <
        item
          FontID = 2
          LeftDelimiter = '/*'
          RightDelimiter = '*/'
        end>
      MultiLineStringDelimiters = <
        item
          FontID = 3
          LeftDelimiter = #39
          RightDelimiter = #39
        end>
      KeywordSets = <
        item
          FontID = 8
          Name = 'bezeichner'
          Keywords =
            '*,Adj,Aktion,Antw,Anz,Attr,Ausf,Bed,Bef,BefVar,Besch,Dabei,dann,' +
            'Daran,Darauf,Darin,Deko,Ende,EndeAusf,Erst,Feld,Flagge,Gew,InBes' +
            'ch,Integer,Konst,Nachausf,Name,Obj,ObjAttr,ObjVar,oder,Ort,Plura' +
            'l,Pr'#228'p,Pseudo,Raum,RaumAttr,RaumVar,RitgVar,sonst,Std,String,Sub' +
            'st,Synonym,Syntax,Text,und,Var,Vol,Vor,VorAusf,VorReakt,Weg,wenn' +
            ',Zust,ZustVar'
        end
        item
          FontID = 7
          Name = 'Befehle'
          Keywords =
            'AttrDazu,AttrHin,AttrWeg,Ausf,Auswahl,Box,GeheZu,InhListe,JaNein' +
            ',MutterObj,ObjGew,ObjInh,ObjListe,ObjNach,ObjPunkte,ObjZust,Puff' +
            'er,Punkte,RaumPunkte,SeiRaum,SeiRitg,SetzeZeit,StammObj,StammRau' +
            'm,Tausche,WarteZeit,Zufallstext'
        end
        item
          FontID = 9
          Name = 'Sonderbefehle'
          Keywords = 'Absatz,Gestorben,Gewonnen,Stop,Text'
        end
        item
          FontID = 10
          Name = 'Variablenzuweisung'
          Keywords =
            'Belege,Daten,Dekr,Div,FeldPos,Inkr,Lese,Mod,Mult,Sei,SeiBed,Setz' +
            'e,Zufall'
        end>
    end>
  P.FontTable = <
    item
      FontID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clSilver
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clSilver
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 3
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clOlive
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 4
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 5
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 6
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 8
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      FontID = 7
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      FontID = 9
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      FontID = 10
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      FontID = 11
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end>
  P.SyntaxVersion = 3
end

_________________
Es heißt, die Leute mit den originellen Beiträgen schreiben die besten Beiträge

Ausnahmen bestätigen die Regel
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ChrisW
BeitragVerfasst am: Fr, 21 Jan 2005 - 0:46  Antworten mit Zitat
Abenteurer
Abenteurer


Anmeldungsdatum: 26.08.2002
Beiträge: 278
Wohnort: Leipzig

Hehe. Schön, herzlichen Glückwunsch. Wir hätten vielleicht alle mehr davon, wenn du uns noch verraten würdest, für welchen Editor das jetzt ist.
_________________
"Ein Musiker! Was will der hier so spät?" Stolzing (Meistersinger v.N.)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Martin
BeitragVerfasst am: Fr, 21 Jan 2005 - 9:08  Antworten mit Zitat
Experte
Experte


Anmeldungsdatum: 25.08.2002
Beiträge: 677
Wohnort: München

ChrisW hat folgendes geschrieben:
Wir hätten vielleicht alle mehr davon, wenn du uns noch verraten würdest, für welchen Editor das jetzt ist.

Na, für Uli Meybohms Proton natürlich, das sieht man doch. (Sag mir, wie deine Syntaxhighlighing-Datei aussieht, und ich sage dir, welchen Editor du benutzt. :-)

Im unteren Teil der Seite Nützliches für T.A.G. wird übrigens schon ein Syntaxhighlighting für Proton und drei andere Editoren angeboten.
_________________
Every silver lining has a cloud.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Schwerer Ausnahmefehler
BeitragVerfasst am: Fr, 21 Jan 2005 - 15:13  Antworten mit Zitat
Neuling
Neuling


Anmeldungsdatum: 30.12.2004
Beiträge: 15

Sch***

Mi**

Verd****

Das ist so eine sch****e, welcher w****er klaut mir da meine Ideen?

Wer sich angesprochen fühlt, es tut mir leid
Schwamm drüber! :-)
_________________
Es heißt, die Leute mit den originellen Beiträgen schreiben die besten Beiträge

Ausnahmen bestätigen die Regel
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Alle Zeiten sind GMT + 1 Stunde (MEZ)

Nächstes Thema anzeigen
Vorheriges Thema anzeigen
Seite 1 von 1
if-de :: Forum Foren-Übersicht  >  T.A.G.

Neues Thema eröffnen   Neue Antwort erstellen


 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.



Kontakt: Administrator

Powered by phpBB and NoseBleed v1.05