Athens 12

MagicFoundation · Dec 13, 2023 · ab0d82e · ab0d82e
1 parent b13a6ef
commit ab0d82e
Show file tree

Hide file tree

Showing 7 changed files with 84 additions and 84 deletions.
diff --git a/Source/Alcinoe.Common.pas b/Source/Alcinoe.Common.pas
@@ -181,7 +181,7 @@   TALWorkerThread = class(TThread)
 
   TALPointDType = array [0..1] of Double;
 
-  {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
+  {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
   {$IFNDEF ALCompilerVersionSupported120}
     {$MESSAGE WARN 'Check if System.Types.TPointf still having the same implementation and adjust the IFDEF'}
   {$IFEND}
@@ -256,7 +256,7 @@   TALPointD = record
           Y: Double;);
   end;
 
-  {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
+  {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
   {$IFNDEF ALCompilerVersionSupported120}
     {$MESSAGE WARN 'Check if System.Types.TSizef still having the same implementation and adjust the IFDEF'}
   {$IFEND}
@@ -295,7 +295,7 @@   TALSizeD = record
     property Height: Double read cy write cy;
   end;
 
-  {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
+  {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
   {$IFNDEF ALCompilerVersionSupported120}
     {$MESSAGE WARN 'Check if System.Types.TRectf still having the same implementation and adjust the IFDEF'}
   {$IFEND}
@@ -444,7 +444,7 @@   TALRectD = record
     1: (TopLeft, BottomRight: TALPointD);
   end;
 
-{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
+{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if functions below implemented in System.Types still having the same implementation and adjust the IFDEF'}
 {$IFEND}

diff --git a/Source/Alcinoe.FMX.Graphics.pas b/Source/Alcinoe.FMX.Graphics.pas
@@ -7541,7 +7541,7 @@ procedure ALGradientEvaluateCallback(info: Pointer; inData: PCGFloat; outData: P
 end;
 {$ENDIF}
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if FMX.Objects.GetDrawingShapeRectAndSetThickness still have the same implementation and adjust the IFDEF'}
 {$ENDIF}

diff --git a/Source/Alcinoe.FMX.Types3D.pas b/Source/Alcinoe.FMX.Types3D.pas
@@ -98,7 +98,7 @@   TALCanvas420YpCbCr8PlanarColorAdjustEffectTextureMaterial = class(TALCanvas420
     property ShaderVariables: TALColorAdjustShaderVariables read fShaderVariables;
   end;
 
-  {**********************************}
+  {*************************************}
   {$IFNDEF ALCompilerVersionSupported120}
     {$MESSAGE WARN 'Check if FMX.Types3D.TTexture still has the exact same fields and adjust the IFDEF'}
   {$ENDIF}
@@ -296,7 +296,7 @@ class function TALTexture.getDef420YpCbCr8PlanarMaterial: TALCanvas420YpCbCr8Pla
 
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if FMX.Types3D.TTexture.assign is still having the same implementation as in previous version and adjust the IFDEF'}
 {$ENDIF}
@@ -484,7 +484,7 @@ destructor TALPlanarTexture.Destroy;
   inherited;
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if FMX.Context.GLES.TCustomContextOpenGL.DoInitializeTexture still has the same implementation and adjust the IFDEF'}
 {$ENDIF}
@@ -531,7 +531,7 @@ procedure ALInitializeExternalOESTexture(const Texture: TALTexture);
 end;
 {$ENDIF}
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
 {$ENDIF}
@@ -805,7 +805,7 @@ procedure TALCanvasExternalOESColorAdjustEffectTextureMaterial.DoApply(const Con
   fshaderVariables.UpdateContext(Context);
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
 {$ENDIF}
@@ -1082,7 +1082,7 @@ procedure TALCanvas420YpCbCr8BiPlanarVideoRangeTextureMaterial.DoApply(const Con
   Context.SetShaderVariable('texture1', CbCrTexture);
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
 {$ENDIF}
@@ -1374,7 +1374,7 @@ procedure TALCanvas420YpCbCr8BiPlanarVideoRangeColorAdjustEffectTextureMaterial.
   fshaderVariables.UpdateContext(Context);
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
 {$ENDIF}
@@ -1677,7 +1677,7 @@ procedure TALCanvas420YpCbCr8PlanarTextureMaterial.DoApply(const Context: TConte
   Context.SetShaderVariable('texture2', CrTexture);
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
 {$ENDIF}
@@ -1972,7 +1972,7 @@ procedure TALCanvas420YpCbCr8PlanarColorAdjustEffectTextureMaterial.DoApply(cons
   fshaderVariables.UpdateContext(Context);
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
 {$ENDIF}

diff --git a/Source/Alcinoe.FMX.WebRTC.pas b/Source/Alcinoe.FMX.WebRTC.pas
@@ -526,7 +526,7 @@ constructor TALWebRTC.Create(const aIceServers: TALWebRTCIceServers; const aPeer
 {$REGION ' IOS'}
 {$IF defined(ios)}
 
-  {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
+  {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
   {$IFNDEF ALCompilerVersionSupported120}
     {$MESSAGE WARN 'Check if FMX.Context.GLES.TCustomContextOpenGL.DoInitializeTexture still has the same implementation and adjust the IFDEF'}
   {$ENDIF}

diff --git a/Source/Alcinoe.RTTI.pas b/Source/Alcinoe.RTTI.pas
@@ -661,7 +661,7 @@ implementation
   ALBooleanIdentsA: array [Boolean] of AnsiString = ('False', 'True');
   ALBooleanIdentsW: array [Boolean] of String = ('False', 'True');
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if System.TypInfo.AfterString is still the same and adjust the IFDEF'}
 {$IFEND}
@@ -671,7 +671,7 @@ function ALAfterString(const P: PByte): Pointer; inline;
   Result := P + P^ + 1;
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if System.TypInfo.GetEnumName(TypeInfo: PTypeInfo; Value: Integer... is still the same and adjust the IFDEF'}
 {$IFEND}
@@ -733,7 +733,7 @@ function ALGetEnumNameW(PropInfo: PPropInfo; Value: Integer): string;
   result := System.TypInfo.GetEnumName(PropInfo^.PropType^, Value);
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if System.TypInfo.GetEnumNameValue(TypeInfo: PTypeInfo... is still the same and adjust the IFDEF'}
 {$IFEND}
@@ -776,7 +776,7 @@ function ALGetEnumNameValue(TypeInfo: PTypeInfo; const Name: AnsiString): Intege
   Result := -1;
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if System.TypInfo.GetEnumValue(TypeInfo: PTypeInfo... is still the same and adjust the IFDEF'}
 {$IFEND}
@@ -815,7 +815,7 @@ function ALTryGetEnumValue(PropInfo: PPropInfo; const Name: ansistring; Var Enum
   result := ALTryGetEnumValue(PropInfo^.PropType^, Name, EnumValue);
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if System.TypInfo.GetEnumNameValue(TypeInfo: PTypeInfo... is still the same and adjust the IFDEF'}
 {$IFEND}
@@ -856,7 +856,7 @@ function ALGetEnumNameValue(TypeInfo: PTypeInfo; const Name: String): Integer; o
   Result := -1;
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if System.TypInfo.GetEnumValue(TypeInfo: PTypeInfo... is still the same and adjust the IFDEF'}
 {$IFEND}
@@ -929,7 +929,7 @@ function ALGetEnumValue(PropInfo: PPropInfo; const Name: string): Integer;
   TLargestSet = set of byte;
   PLargestSet = ^TLargestSet;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if System.TypInfo.SetToString(TypeInfo: PTypeInfo; Value: Integer... is still the same and adjust the IFDEF'}
 {$IFEND}
@@ -967,7 +967,7 @@ function ALSetToStringA(TypeInfo: PTypeInfo; Value: Integer; const Brackets: Boo
     Result := '[' + Result + ']';
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if System.TypInfo.SetToString(PropInfo: PPropInfo; Value: Integer... is still the same and adjust the IFDEF'}
 {$IFEND}
@@ -988,7 +988,7 @@ function ALSetToStringW(PropInfo: PPropInfo; Value: Integer; const Brackets: Boo
   System.TypInfo.SetToString(PropInfo, Value, Brackets);
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if System.TypInfo.StringToSet(TypeInfo: PTypeInfo; const Value: string)... is still the same and adjust the IFDEF'}
 {$IFEND}
@@ -1063,7 +1063,7 @@ function ALTryStringToSet(PropInfo: PPropInfo; const Value: ansistring; Var SetI
   result := ALTryStringToSet(PropInfo^.PropType^, Value, SetInt);
 end;
 
-{**********************************}
+{*************************************}
 {$IFNDEF ALCompilerVersionSupported120}
   {$MESSAGE WARN 'Check if System.TypInfo.StringToSet(TypeInfo: PTypeInfo; const Value: string)... is still the same and adjust the IFDEF'}
 {$IFEND}

diff --git a/Source/Alcinoe.StringList.pas b/Source/Alcinoe.StringList.pas
@@ -4954,7 +4954,7 @@ constructor TALHashedStringListA.Create(OwnsObjects: Boolean; ACapacity: Integer
 
 type
 
-  {**********************************}
+  {*************************************}
   {$IFNDEF ALCompilerVersionSupported120}
     {$MESSAGE WARN 'Check if System.Generics.Collections.TObjectDictionary<K,V> was not updated and adjust the IFDEF'}
   {$ENDIF}