add sample tranfercent color

tranleduy2000 · Jun 17, 2017 · c832a7b · c832a7b
1 parent 235b68c
commit c832a7b
Show file tree

Hide file tree

Showing 289 changed files with 23 additions and 18,474 deletions.
diff --git a/app/build.gradle b/app/build.gradle
@@ -7,8 +7,8 @@ android {
         applicationId "com.duy.pascal.compiler"
         minSdkVersion rootProject.ext.minSdkVersion as Integer
         targetSdkVersion rootProject.ext.targetSdkVersion as Integer
-        versionCode 101
-        versionName "4.0.1"
+        versionCode 102
+        versionName "4.0.2"
         vectorDrawables.useSupportLibrary = true
         multiDexEnabled true
         testInstrumentationRunner "android.support.test.runner.AndroidJUnitRunner"

diff --git a/libCompiler/src/main/assets/code_sample/crt/color_argb.pas b/libCompiler/src/main/assets/code_sample/crt/color_argb.pas
@@ -2,15 +2,27 @@
 Uses Crt;
 
 var
-  generator : android_graphics_Color;
-  a, color : integer;
+   generator : android_graphics_Color;
+   a, color : integer;
 
 Begin
-  for a := 0 to 25 do
-  begin
-    color := generator.argb(a, 0, 0, 255);
-    textBackground(color); //ARGB color
-    write(' ');
-  end;
-  ReadLn;
+   for a := 0 to 255 do
+   begin
+      color := generator.argb(a, 0, 0, 255);
+      textBackground(color); //ARGB color
+      write(' ');
+   end;
+   for a := 0 to 255 do
+   begin
+      color := generator.argb(a, 0, 255, 0);
+      textBackground(color); //ARGB color
+      write(' ');
+   end;
+   for a := 0 to 255 do
+   begin
+      color := generator.argb(a, 255, 0, 0);
+      textBackground(color); //ARGB color
+      write(' ');
+   end;
+   ReadLn;
 End.
diff --git a/sample/BlackJack-Pascal-master/README.md b/sample/BlackJack-Pascal-master/README.md