Changeset 2

Timestamp:

Jun 18, 2024, 12:46:47 PM (5 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk

Files:

• . (modified) (1 prop)
• FormMain.lfm (moved) (moved from trunk/UFormMain.lfm ) (1 diff)
• FormMain.pas (moved) (moved from trunk/UFormMain.pas ) (3 diffs)
• ImageFile.lpi (modified) (3 diffs)
• ImageFile.lpr (modified) (3 diffs)

trunk/FormMain.lfm

@@ -9 +9 @@
   DesignTimePPI = 144
   OnShow = FormShow
-  LCLVersion = '2.2.2.0'
+  LCLVersion = '3.4.0.0'
   object MemoLog: TMemo
     Left = 15

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;

trunk/ImageFile.lpi

@@ -38 +38 @@
       </Unit0>
       <Unit1>
-        <Filename Value="UFormMain.pas"/>
+        <Filename Value="FormMain.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="FormMain"/>
@@ -57 +57 @@
     <Parsing>
       <SyntaxOptions>
+        <SyntaxMode Value="Delphi"/>
         <IncludeAssertionCode Value="True"/>
       </SyntaxOptions>
@@ -70 +71 @@
     </CodeGeneration>
     <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
+      </Debugging>
       <Options>
         <Win32>

trunk/ImageFile.lpr

@@ -1 +1 @@
 program ImageFile;
-
-{$mode objfpc}{$H+}
 
 uses
@@ -8 +6 @@
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, UFormMain
+  Forms, FormMain
   { you can add units after this };
 
@@ -17 +15 @@
   Application.Scaled:=True;
   Application.Initialize;
-  Application.CreateForm(TFormMain, FormMain);
+  Application.CreateForm(TFormMain, FormMain.FormMain);
   Application.Run;
 end.