FIX: Typos

FIX: Parsing Error

Author: PascalCorpsman

OpenGL/uopengl_ascii_font.pas

@@ -1,7 +1,7 @@
 (******************************************************************************)
 (* uOpenGL_ASCII_Font.pas                                          ??.??.???? *)
 (*                                                                            *)
-(* Version     : 0.04                                                         *)
+(* Version     : 0.05                                                         *)
 (*                                                                            *)
 (* Author      : Uwe Schächterle (Corpsman)                                   *)
 (*                                                                            *)
@@ -29,6 +29,7 @@
 (*               0.02 - Added Billboarded/ 3D-Mode rendering                  *)
 (*               0.03 - Disable Lighting on Textout                           *)
 (*               0.04 - Suppurt UTF8 Strings                                  *)
+(*               0.05 - CurrentColor nicht nach Außen ändern                  *)
 (*                                                                            *)
 (******************************************************************************)
 (*                                                                            *)
@@ -41,7 +42,7 @@
 (* werden :                                                                   *)
 (*                                                                            *)
 (* glPointSize(max(OpenGLControl1.Width / 640, OpenGLControl1.Height / 480)); *)
-(*  !! Gilt seit ver 0.02 nicht mehr !!                                      *)
+(*  !! Gilt seit ver 0.02 nicht mehr !!                                       *)
 (*                                                                            *)
 (******************************************************************************)
 Unit uOpenGL_ASCII_Font;
@@ -233,12 +234,14 @@
   sc: Single;
   light: Boolean;
   //  f: GLfloat;  <-- Alte Variante mittels glPoints
+  currentColor: TVector4;
 Begin
   //  glGetFloatv(GL_POINT_SIZE, @f); // Bakup der Point Size, diese wird hier Verändert !!  <-- Alte Variante mittels glPoints
   light := glIsEnabled(GL_LIGHTING);
   If light Then Begin
     glDisable(GL_LIGHTING); // Deaktivieren der Beleuchtung, die können wir hier nun wirklich nicht gebrauchen..
   End;
+  glGetFloatv(GL_CURRENT_COLOR, @currentColor);
   glPushMatrix();
   glTranslatef(x, y, 0);
   glColor3fv(@fColor);
@@ -269,6 +272,7 @@
   glPopMatrix();
   glPopMatrix();
   //  glPointSize(f);  <-- Alte Variante mittels glPoints
+  glColor4fv(@currentColor);
   If light Then Begin
     glenable(GL_LIGHTING);
   End;

data_control/udomxml.pas

@@ -1,7 +1,7 @@
 (******************************************************************************)
 (* uDomXML                                                         07.10.2016 *)
 (*                                                                            *)
-(* Version     : 0.09                                                         *)
+(* Version     : 0.10                                                         *)
 (*                                                                            *)
 (* Author      : Uwe Schächterle (Corpsman)                                   *)
 (*                                                                            *)
@@ -32,6 +32,7 @@
 (*               0.07 - ExpandEmptyNodes                                      *)
 (*               0.08 - Erste implementierung zu "escaping"                   *)
 (*               0.09 - generisches AddChild für TDomnode                     *)
+(*               0.10 - FIX scan for invalid characters in Attributes         *)
 (*                                                                            *)
 (* Known Bugs  : -Unsinnige Fehlermeldung wenn gar keine gültige xml Datei    *)
 (*                geparst werden soll.                                        *)
@@ -171,6 +172,31 @@
   result := StringReplace(result, '&', '&', [rfReplaceAll]);
 End;
 
+(*
+ * Konvertiert einen String in einen String der in einem XML-Attribut stehen darf
+ * & -> & , ...
+ *)
+
+Function StringToXMLAttributeString(Value: String): String;
+Begin
+  result := value;
+  result := StringReplace(result, '&', '&', [rfReplaceAll]);
+  result := StringReplace(result, '<', '&lt;', [rfReplaceAll]);
+  result := StringReplace(result, '"', '&quot;', [rfReplaceAll]);
+End;
+
+(*
+ * Umkehrfunktion zu StringToXMLAttributeString
+ *)
+
+Function XMLAttributeStringToString(Value: String): String;
+Begin
+  result := value;
+  result := StringReplace(result, '&quot;', '"', [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '&lt;', '<', [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '&amp;', '&', [rfReplaceAll, rfIgnoreCase]);
+End;
+
 { TDOMXML }
 
 Procedure TDOMXML.Clear;
@@ -412,7 +438,7 @@
           If (Not inString) And ((ord(Buffer[Index]) <= 32) Or (Buffer[Index] = '>') Or (Buffer[Index] = '/') Or (isProcessingNode And (Buffer[Index] = '?'))) Then Begin
             setlength(result.fAttributes, High(result.fAttributes) + 2);
             result.fAttributes[High(result.fAttributes)].AttributeName := an;
-            result.fAttributes[High(result.fAttributes)].AttributeValue := StringReplace(t, '&quot;', '"', [rfReplaceAll, rfIgnoreCase]);
+            result.fAttributes[High(result.fAttributes)].AttributeValue := XMLAttributeStringToString(t);
             t := '';
             If (ord(Buffer[Index]) <= 32) Then Begin // Es folgt ein weiteres Attribut
               state := ReadNameAttr;
@@ -539,7 +565,7 @@
     s := '<' + Node.NodeName;
   End;
   For i := 0 To High(Node.fAttributes) Do Begin
-    s := s + ' ' + Node.fAttributes[i].AttributeName + '="' + StringReplace(Node.fAttributes[i].AttributeValue, '"', '&quot;', [rfReplaceAll, rfIgnoreCase]) + '"';
+    s := s + ' ' + Node.fAttributes[i].AttributeName + '="' + StringToXMLAttributeString(Node.fAttributes[i].AttributeValue) + '"';
   End;
   // Ein Node mit nur Attributen
   If (High(Node.fNodes) = -1) And (trim(Node.NodeValue) = '') Then Begin
@@ -844,3 +870,4 @@
 
 End.
 
+

data_control/uvectormath.pas

@@ -73,6 +73,7 @@
 
 Const
   Epsilon = 0.00390625; // = 1 / 256, Unterscheiden sich 2 Float Werte um weniger als Epsilon, dann werden sie als Gleich angesehen
+
 Type
 
   (*