Einzelnen Beitrag anzeigen

Benutzerbild von inherited
inherited

Registriert seit: 19. Dez 2005
Ort: Rosdorf
2.022 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: SynEdit: Alle Highlighter ändern

  Alt 17. Feb 2009, 23:55
Ich habe mal eine Unit aus einem Projekt von mir angehängt (auch Lazarus), bei dem diese Farben einzeln setzbar sind.
Dabei habe ich das so gelöst, dass die ExportToFile-Funktion der Highlighter offenbar als einfache Ini-Datei erzeugt, die nach dem Muster
Code:
[Assembler]
Background=536870911
Foreground=536870911
Style=0
StyleMask=0
aufgebaut ist (nur ein beispiel hier)
Das lässt sich natürlich leicht parsen, speichern und wieder importieren.
Das Beispiel nutzt hier nur den jeweils gerade aktiven Highlighter, sollte sich aber durch entsprechende Verwaltungslisten auch auf alle übertragen lassen (wird hier auch in der Hauptunit getan)
Es wird die entsprechende, vorher exportierte Ini gelesen, Colorbuttons erstellt, Checkboxen für Styles erstellt, und bei Klick auf OK wieder in die ini geschrieben.
Der Aufruf von SetLanguage importiert die Styles dann wieder in den aktiven Highlighter.
Solltest du Teile daraus verwenden, bitte der fairness halber meinen Namen nennen. Danke.
Wie sich die Stylemasken aufbauen sollte ersichtlich sein, leider ist der Code schlecht kommentiert.
Angehängte Dateien
Dateityp: pas ucolors_163.pas (5,2 KB, 6x aufgerufen)
Nikolai Wyderka

SWIM SWIM HUNGRY!
Neuer Blog: hier!
  Mit Zitat antworten Zitat