Changeset 2 for trunk/FormMain.pas

Timestamp:

Jun 18, 2024, 12:46:47 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk

Files:

• . (modified) (1 prop)
• FormMain.pas (moved) (moved from trunk/UFormMain.pas ) (3 diffs)

trunk/FormMain.pas

@@ -1 @@
-unit UFormMain;
+unit FormMain;
 
 interface
@@ -21 +21 @@
 var
   FormMain: TFormMain;
+
 
 implementation
@@ -63 +64 @@
   Inc(Y);
   while Y < Image.Picture.Bitmap.Height do begin
-    //Line := PColor(Image.Picture.Bitmap.RawImage.Data +
-    //Image.Picture.Bitmap.Height * Image.Picture.Bitmap.RawImage.Description.BytesPerLine -
-    //Y * Image.Picture.Bitmap.RawImage.Description.BytesPerLine);
     Line := Image.Picture.Bitmap.ScanLine[Y];
     X := Offset.X;
     while X < Image.Picture.Bitmap.Width do begin
       Pixel := PColor(Line + X)^;
-//      Buffer[I] := //((Pixel shr 21) and $7) or
- //       (((Pixel shr 12) and $f) shl 4) or
-//        (((Pixel shr 4) and $f) shl 0);
       Buffer[I] := (((Pixel shr 20) and $f) shl 0) or
         (((Pixel shr 12) and $f) shl 4);
       Inc(X, 2);
-      //Buffer[I + 1] := (Pixel shr 8) and $ff;
-      //Buffer[I + 2] := (Pixel shr 0) and $ff;
       Inc(I, 1);
       if I >= Length(Buffer) then Break;