Skip to content

Commit ab0d82e

Browse files
Zeus64Zeus64
committed
Athens 12
1 parent b13a6ef commit ab0d82e

File tree

7 files changed

+84
-84
lines changed

7 files changed

+84
-84
lines changed

‎Source/Alcinoe.Common.pas‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -181,7 +181,7 @@ TALWorkerThread = class(TThread)
181181

182182
TALPointDType = array [0..1] of Double;
183183

184-
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
184+
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
185185
{$IFNDEF ALCompilerVersionSupported120}
186186
{$MESSAGE WARN 'Check if System.Types.TPointf still having the same implementation and adjust the IFDEF'}
187187
{$IFEND}
@@ -256,7 +256,7 @@ TALPointD = record
256256
Y: Double;);
257257
end;
258258

259-
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
259+
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
260260
{$IFNDEF ALCompilerVersionSupported120}
261261
{$MESSAGE WARN 'Check if System.Types.TSizef still having the same implementation and adjust the IFDEF'}
262262
{$IFEND}
@@ -295,7 +295,7 @@ TALSizeD = record
295295
property Height: Double read cy write cy;
296296
end;
297297

298-
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
298+
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
299299
{$IFNDEF ALCompilerVersionSupported120}
300300
{$MESSAGE WARN 'Check if System.Types.TRectf still having the same implementation and adjust the IFDEF'}
301301
{$IFEND}
@@ -444,7 +444,7 @@ TALRectD = record
444444
1: (TopLeft, BottomRight: TALPointD);
445445
end;
446446

447-
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
447+
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
448448
{$IFNDEF ALCompilerVersionSupported120}
449449
{$MESSAGE WARN 'Check if functions below implemented in System.Types still having the same implementation and adjust the IFDEF'}
450450
{$IFEND}

‎Source/Alcinoe.FMX.Graphics.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7541,7 +7541,7 @@ procedure ALGradientEvaluateCallback(info: Pointer; inData: PCGFloat; outData: P
75417541
end;
75427542
{$ENDIF}
75437543

7544-
{**********************************}
7544+
{*************************************}
75457545
{$IFNDEF ALCompilerVersionSupported120}
75467546
{$MESSAGE WARN 'Check if FMX.Objects.GetDrawingShapeRectAndSetThickness still have the same implementation and adjust the IFDEF'}
75477547
{$ENDIF}

‎Source/Alcinoe.FMX.Types3D.pas‎

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -98,7 +98,7 @@ TALCanvas420YpCbCr8PlanarColorAdjustEffectTextureMaterial = class(TALCanvas420
9898
property ShaderVariables: TALColorAdjustShaderVariables read fShaderVariables;
9999
end;
100100

101-
{**********************************}
101+
{*************************************}
102102
{$IFNDEF ALCompilerVersionSupported120}
103103
{$MESSAGE WARN 'Check if FMX.Types3D.TTexture still has the exact same fields and adjust the IFDEF'}
104104
{$ENDIF}
@@ -296,7 +296,7 @@ class function TALTexture.getDef420YpCbCr8PlanarMaterial: TALCanvas420YpCbCr8Pla
296296

297297
end;
298298

299-
{**********************************}
299+
{*************************************}
300300
{$IFNDEF ALCompilerVersionSupported120}
301301
{$MESSAGE WARN 'Check if FMX.Types3D.TTexture.assign is still having the same implementation as in previous version and adjust the IFDEF'}
302302
{$ENDIF}
@@ -484,7 +484,7 @@ destructor TALPlanarTexture.Destroy;
484484
inherited;
485485
end;
486486

487-
{**********************************}
487+
{*************************************}
488488
{$IFNDEF ALCompilerVersionSupported120}
489489
{$MESSAGE WARN 'Check if FMX.Context.GLES.TCustomContextOpenGL.DoInitializeTexture still has the same implementation and adjust the IFDEF'}
490490
{$ENDIF}
@@ -531,7 +531,7 @@ procedure ALInitializeExternalOESTexture(const Texture: TALTexture);
531531
end;
532532
{$ENDIF}
533533

534-
{**********************************}
534+
{*************************************}
535535
{$IFNDEF ALCompilerVersionSupported120}
536536
{$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
537537
{$ENDIF}
@@ -805,7 +805,7 @@ procedure TALCanvasExternalOESColorAdjustEffectTextureMaterial.DoApply(const Con
805805
fshaderVariables.UpdateContext(Context);
806806
end;
807807

808-
{**********************************}
808+
{*************************************}
809809
{$IFNDEF ALCompilerVersionSupported120}
810810
{$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
811811
{$ENDIF}
@@ -1082,7 +1082,7 @@ procedure TALCanvas420YpCbCr8BiPlanarVideoRangeTextureMaterial.DoApply(const Con
10821082
Context.SetShaderVariable('texture1', CbCrTexture);
10831083
end;
10841084

1085-
{**********************************}
1085+
{*************************************}
10861086
{$IFNDEF ALCompilerVersionSupported120}
10871087
{$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
10881088
{$ENDIF}
@@ -1374,7 +1374,7 @@ procedure TALCanvas420YpCbCr8BiPlanarVideoRangeColorAdjustEffectTextureMaterial.
13741374
fshaderVariables.UpdateContext(Context);
13751375
end;
13761376

1377-
{**********************************}
1377+
{*************************************}
13781378
{$IFNDEF ALCompilerVersionSupported120}
13791379
{$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
13801380
{$ENDIF}
@@ -1677,7 +1677,7 @@ procedure TALCanvas420YpCbCr8PlanarTextureMaterial.DoApply(const Context: TConte
16771677
Context.SetShaderVariable('texture2', CrTexture);
16781678
end;
16791679

1680-
{**********************************}
1680+
{*************************************}
16811681
{$IFNDEF ALCompilerVersionSupported120}
16821682
{$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
16831683
{$ENDIF}
@@ -1972,7 +1972,7 @@ procedure TALCanvas420YpCbCr8PlanarColorAdjustEffectTextureMaterial.DoApply(cons
19721972
fshaderVariables.UpdateContext(Context);
19731973
end;
19741974

1975-
{**********************************}
1975+
{*************************************}
19761976
{$IFNDEF ALCompilerVersionSupported120}
19771977
{$MESSAGE WARN 'Check if FMX.Materials.Canvas.TCanvasTextureMaterial.DoInitialize is still having the same implementation as in previous version and adjust the IFDEF'}
19781978
{$ENDIF}

‎Source/Alcinoe.FMX.WebRTC.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -526,7 +526,7 @@ constructor TALWebRTC.Create(const aIceServers: TALWebRTCIceServers; const aPeer
526526
{$REGION ' IOS'}
527527
{$IF defined(ios)}
528528

529-
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
529+
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
530530
{$IFNDEF ALCompilerVersionSupported120}
531531
{$MESSAGE WARN 'Check if FMX.Context.GLES.TCustomContextOpenGL.DoInitializeTexture still has the same implementation and adjust the IFDEF'}
532532
{$ENDIF}

‎Source/Alcinoe.RTTI.pas‎

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -661,7 +661,7 @@ implementation
661661
ALBooleanIdentsA: array [Boolean] of AnsiString = ('False', 'True');
662662
ALBooleanIdentsW: array [Boolean] of String = ('False', 'True');
663663

664-
{**********************************}
664+
{*************************************}
665665
{$IFNDEF ALCompilerVersionSupported120}
666666
{$MESSAGE WARN 'Check if System.TypInfo.AfterString is still the same and adjust the IFDEF'}
667667
{$IFEND}
@@ -671,7 +671,7 @@ function ALAfterString(const P: PByte): Pointer; inline;
671671
Result := P + P^ + 1;
672672
end;
673673

674-
{**********************************}
674+
{*************************************}
675675
{$IFNDEF ALCompilerVersionSupported120}
676676
{$MESSAGE WARN 'Check if System.TypInfo.GetEnumName(TypeInfo: PTypeInfo; Value: Integer... is still the same and adjust the IFDEF'}
677677
{$IFEND}
@@ -733,7 +733,7 @@ function ALGetEnumNameW(PropInfo: PPropInfo; Value: Integer): string;
733733
result := System.TypInfo.GetEnumName(PropInfo^.PropType^, Value);
734734
end;
735735

736-
{**********************************}
736+
{*************************************}
737737
{$IFNDEF ALCompilerVersionSupported120}
738738
{$MESSAGE WARN 'Check if System.TypInfo.GetEnumNameValue(TypeInfo: PTypeInfo... is still the same and adjust the IFDEF'}
739739
{$IFEND}
@@ -776,7 +776,7 @@ function ALGetEnumNameValue(TypeInfo: PTypeInfo; const Name: AnsiString): Intege
776776
Result := -1;
777777
end;
778778

779-
{**********************************}
779+
{*************************************}
780780
{$IFNDEF ALCompilerVersionSupported120}
781781
{$MESSAGE WARN 'Check if System.TypInfo.GetEnumValue(TypeInfo: PTypeInfo... is still the same and adjust the IFDEF'}
782782
{$IFEND}
@@ -815,7 +815,7 @@ function ALTryGetEnumValue(PropInfo: PPropInfo; const Name: ansistring; Var Enum
815815
result := ALTryGetEnumValue(PropInfo^.PropType^, Name, EnumValue);
816816
end;
817817

818-
{**********************************}
818+
{*************************************}
819819
{$IFNDEF ALCompilerVersionSupported120}
820820
{$MESSAGE WARN 'Check if System.TypInfo.GetEnumNameValue(TypeInfo: PTypeInfo... is still the same and adjust the IFDEF'}
821821
{$IFEND}
@@ -856,7 +856,7 @@ function ALGetEnumNameValue(TypeInfo: PTypeInfo; const Name: String): Integer; o
856856
Result := -1;
857857
end;
858858

859-
{**********************************}
859+
{*************************************}
860860
{$IFNDEF ALCompilerVersionSupported120}
861861
{$MESSAGE WARN 'Check if System.TypInfo.GetEnumValue(TypeInfo: PTypeInfo... is still the same and adjust the IFDEF'}
862862
{$IFEND}
@@ -929,7 +929,7 @@ function ALGetEnumValue(PropInfo: PPropInfo; const Name: string): Integer;
929929
TLargestSet = set of byte;
930930
PLargestSet = ^TLargestSet;
931931

932-
{**********************************}
932+
{*************************************}
933933
{$IFNDEF ALCompilerVersionSupported120}
934934
{$MESSAGE WARN 'Check if System.TypInfo.SetToString(TypeInfo: PTypeInfo; Value: Integer... is still the same and adjust the IFDEF'}
935935
{$IFEND}
@@ -967,7 +967,7 @@ function ALSetToStringA(TypeInfo: PTypeInfo; Value: Integer; const Brackets: Boo
967967
Result := '[' + Result + ']';
968968
end;
969969

970-
{**********************************}
970+
{*************************************}
971971
{$IFNDEF ALCompilerVersionSupported120}
972972
{$MESSAGE WARN 'Check if System.TypInfo.SetToString(PropInfo: PPropInfo; Value: Integer... is still the same and adjust the IFDEF'}
973973
{$IFEND}
@@ -988,7 +988,7 @@ function ALSetToStringW(PropInfo: PPropInfo; Value: Integer; const Brackets: Boo
988988
System.TypInfo.SetToString(PropInfo, Value, Brackets);
989989
end;
990990

991-
{**********************************}
991+
{*************************************}
992992
{$IFNDEF ALCompilerVersionSupported120}
993993
{$MESSAGE WARN 'Check if System.TypInfo.StringToSet(TypeInfo: PTypeInfo; const Value: string)... is still the same and adjust the IFDEF'}
994994
{$IFEND}
@@ -1063,7 +1063,7 @@ function ALTryStringToSet(PropInfo: PPropInfo; const Value: ansistring; Var SetI
10631063
result := ALTryStringToSet(PropInfo^.PropType^, Value, SetInt);
10641064
end;
10651065

1066-
{**********************************}
1066+
{*************************************}
10671067
{$IFNDEF ALCompilerVersionSupported120}
10681068
{$MESSAGE WARN 'Check if System.TypInfo.StringToSet(TypeInfo: PTypeInfo; const Value: string)... is still the same and adjust the IFDEF'}
10691069
{$IFEND}

‎Source/Alcinoe.StringList.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4954,7 +4954,7 @@ constructor TALHashedStringListA.Create(OwnsObjects: Boolean; ACapacity: Integer
49544954

49554955
type
49564956

4957-
{**********************************}
4957+
{*************************************}
49584958
{$IFNDEF ALCompilerVersionSupported120}
49594959
{$MESSAGE WARN 'Check if System.Generics.Collections.TObjectDictionary<K,V> was not updated and adjust the IFDEF'}
49604960
{$ENDIF}

0 commit comments

Comments
 (0)