| FontNumbers.Add(300); |
Ein neuer Font mit der Zahl 300 wird erstellt. Diese Schriftnummer sollte nicht schon verwendet worden sein. |
| Fonts.Add("{\f300 Verdana;}"); |
Der Font 'Verdana' wird der Zahl '300' hinzugefügt. |
| Result = "\f300 Test"; |
Der neue Font wird in den Kommentar eingefügt mit dem Text 'Test'. |
| Schriftart (komplexe Form) |
In dieser Variante, wird automatisch eine Zahl generiert, die noch nicht in Gebrauch ist. |
| Li_FontNumber = -1; |
Die Font Nummer wird auf '-1' gesetzt |
| Ls_FontName = "Cavolini"; |
Der Font Name wird auf 'Cavolini' gesetzt |
| for (Li_i = 0;Li_i < Fonts.GetSize();Li_i++) |
Hier wird die Zahl der neuen Farbe erhöht, bis sie die neue grösste Zahl ist. |
| { if (StrFind(Fonts[Li_i],Ls_FontName,0) >= 0) |
|
| { Li_FontNumber = FontsNumbers[Li_i]; }} |
|
| if (Li_FontNumber == -1) |
Wenn die Font Nummer = '-1' ist |
| { Li_FontNumber = FontNumbers[FontNumbers.GetSize() - 1] + 1; |
|
| FontNumbers.Add(Li_FontNumber); |
|
| Fonts.Add("{\f" + Li_FontNumber + " " + Ls_FontName + ";}");} |
Alles wird zusammengefügt (Zahl, Name) und zum neuen Font gemacht |
| Result = "\f"+Li_FontNumber+" Test"; |
Der neue Font wird in den Kommentar eingefügt mit dem Text 'Test' |
| Schriftfarbe (einfache Form) |
In dieser Variante, nimmt man für die Farbe eine Zahl höher als es im Dokument hat. |
| ColorNumbers.Add(33); |
Eine neue Farbe mit der Zahl '33' wird erstellt. Diese Nummer muss die nächst höhere im Array sein. |
| Colors.Add("\red46\green138\blue127;"); |
Die neue Farbe wird definiert |
| Result = "\cf33 Test"; |
Die neue Farbe wird in den Kommentar eingefügt zum Text 'Test' |
| Schriftfarbe (komplexe Form) |
In dieser Variante wird automatisch die nächst höhere Zahl generiert und für die neue Farbe gebraucht. |
| Li_ColorNumber = ColorNumbers.GetSize()+1; |
Der Anzahl vorhandener Farben, wird eine neue Zahl dazugefügt |
| ColorNumbers.Add(Li_ColorNumber); |
Die neue Anzahl der Farben wird aktualisiert |
| Colors.Add("\red46\green138\blue127;"); |
Die neue Farbe wird definiert |
| Result = "\cf"+Li_ColorNumber+" Test"; |
Die neue Farbe wird in den Kommentar eingefügt mit dem Text 'Test' |
| Schriftgrösse |
|
| Result = "\fs30 Test"; |
Schriftgrösse wird auf '30' (Grösse '15' in Word) |