Changeset 190 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

May 7, 2020, 10:33:59 AM (4 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -81 +81 @@
 function SetMainTextureByAge(Age: integer): boolean;
 procedure LoadPhrases;
+procedure Texturize(Dest, Texture: TBitmap; TransparentColor: Integer);
 
 const
@@ -1398 +1399 @@
 end;
 
+procedure Texturize(Dest, Texture: TBitmap; TransparentColor: Integer);
+var
+  SrcPixel, DstPixel: TPixelPointer;
+  X, Y: Integer;
+  TexWidth, TexHeight: Integer;
+begin
+  // texturize background
+  Dest.BeginUpdate;
+  TexWidth := Texture.Width;
+  TexHeight := Texture.Height;
+  DstPixel.Init(Dest);
+  SrcPixel.Init(Texture);
+  for Y := 0 to Dest.Height - 1 do begin
+    for X := 0 to Dest.Width - 1 do begin
+      if (DstPixel.Pixel^.ARGB and $FFFFFF) = TransparentColor then begin
+        SrcPixel.SetXY(X mod TexWidth, Y mod TexHeight);
+        DstPixel.Pixel^.B := SrcPixel.Pixel^.B;
+        DstPixel.Pixel^.G := SrcPixel.Pixel^.G;
+        DstPixel.Pixel^.R := SrcPixel.Pixel^.R;
+      end;
+      DstPixel.NextPixel;
+    end;
+    DstPixel.NextLine;
+  end;
+  Dest.EndUpdate;
+end;
+
 procedure LoadFonts;
 var