update unit header

Source/UMeng.pas

@@ -1,3 +1,11 @@
+{*******************************************************}
+{                                                       }
+{       Methods of UMeng                                }
+{                                                       }
+{       CopyRight (C) 2018-2020 KngStr                  }
+{                                                       }
+{*******************************************************}
+
 unit UMeng;
 
 //https://developer.umeng.com/docs/66632/detail/66889
@@ -49,8 +57,8 @@ uses
   FMX.Types;
 
 { TUMeng }
-
-class procedure TUMeng.Debug;
+
+class procedure TUMeng.Debug;
 {$IF DEFINED(ANDROID) && DEFINED(DEBUG)}
 var
   I: Integer;
@@ -85,7 +93,7 @@ begin
 {$ENDIF}
 end;
 
-class procedure TUMeng.onEvent(AID: string; ALabel: string = #0);
+class procedure TUMeng.onEvent(AID: string; ALabel: string = #0);
 begin
 {$IFDEF ANDROID}
   TJMobclickAgent.JavaClass.onEvent(
@@ -116,7 +124,7 @@ end;
 * 参数2:设备类型，UMConfigure.DEVICE_TYPE_PHONE为手机、UMConfigure.DEVICE_TYPE_BOX为盒子，默认为手机
 * 参数3:Push推送业务的secret
 *)
-class procedure TUMeng.Init(pushSecret: string; IsPhone: Boolean);
+class procedure TUMeng.Init(pushSecret: string; IsPhone: Boolean);
 begin
 {$IFDEF DEBUG}
   Debug;
@@ -136,7 +144,7 @@ begin
 {$ENDIF}
 end;
 
-(**
+(**
 * 初始化common库
 * 参数1:上下文，不能为空
 * 参数2:【友盟+】 AppKey
@@ -170,13 +178,13 @@ begin
 {$ENDIF}
 end;
 
-class procedure TUMeng.onEvent(AID: string;
+class procedure TUMeng.onEvent(AID: string;
   AProperties: TArray<TPair<string, string>>);
 begin
   onEventValue(AID, AProperties);
 end;
 
-class procedure TUMeng.onEventValue(AID: string;
+class procedure TUMeng.onEventValue(AID: string;
   AProperties: TArray<TPair<string, string>>; ADuration: Integer);
 {$IFDEF ANDROID}
 var
@@ -235,7 +243,7 @@ begin
   FLastViewName := ViewName;
 end;
 
-class procedure TUMeng.onPageEnd(ViewName: string);
+class procedure TUMeng.onPageEnd(ViewName: string);
 begin
 {$IFDEF DEBUG}
   Log.d('---onPageEnd:' + ViewName);
@@ -245,7 +253,7 @@ begin
 {$ENDIF}
 end;
 
-class procedure TUMeng.onPageStart(ViewName: string);
+class procedure TUMeng.onPageStart(ViewName: string);
 begin
 {$IFDEF DEBUG}
   Log.d('---onPageStart:' + ViewName);
@@ -255,7 +263,7 @@ begin
 {$ENDIF}
 end;
 
-class procedure TUMeng.onPause;
+class procedure TUMeng.onPause;
 begin
 {$IFDEF DEBUG}
   Log.d('---onPause');
@@ -271,7 +279,7 @@ begin
 {$ENDIF}
 end;
 
-class procedure TUMeng.onResume;
+class procedure TUMeng.onResume;
 begin
 {$IFDEF DEBUG}
   Log.d('---onResume');

Source/ksAndroid.Helpers.pas

@@ -2,7 +2,7 @@
 {                                                       }
 {       Helpers for Android                             }
 {                                                       }
-{       Copyright (C) 2020 KngStr                       }
+{       CopyRight (C) 2018-2020 KngStr                  }
 {                                                       }
 {   Some Code from                                      }
 {     Kastri Free of DelphiWorlds                       }

Source/ksBitmapHelper.pas

@@ -1,4 +1,12 @@
-unit ksBitmapHelper;
+{*******************************************************}
+{                                                       }
+{       Methods of Image                                }
+{                                                       }
+{       CopyRight (C) 2018-2020 KngStr                  }
+{                                                       }
+{*******************************************************}
+
+unit ksBitmapHelper;
 
 // 部分拷贝自 FlyUtils.TBitmapHelper
 

Source/ksFmxUtils.pas

@@ -1,3 +1,11 @@
+{*******************************************************}
+{                                                       }
+{       Methods of FmxObject                            }
+{                                                       }
+{       CopyRight (C) 2018-2020 KngStr                  }
+{                                                       }
+{*******************************************************}
+
 unit ksFmxUtils;
 
 interface

Source/ksObjUtils.pas

@@ -1,3 +1,11 @@
+{*******************************************************}
+{                                                       }
+{       Methods of Object                               }
+{                                                       }
+{       CopyRight (C) 2018-2020 KngStr                  }
+{                                                       }
+{*******************************************************}
+
 unit ksObjUtils;
 
 interface

Source/ksString.pas

@@ -2,7 +2,7 @@
 {                                                       }
 {       Methods of Sting                                }
 {                                                       }
-{       °æȨËùÓÐ (C) 2020 KngStr                        }
+{       CopyRight (C) 2018-2020 KngStr                  }
 {                                                       }
 {*******************************************************}