Changeset 11

Timestamp:

Aug 29, 2016, 6:09:30 PM (9 years ago)

Author:

chronos

Message:

• Modified: Slightly optimizied screen drawing.

Location:

trunk

Files:

• Apps/UClock.pas (modified) (1 diff)
• Forms/UFormMain.lfm (modified) (1 diff)
• Forms/UFormMain.pas (modified) (2 diffs)
• Packages/Kernel/UGraphics.pas (modified) (3 diffs)

trunk/Apps/UClock.pas

@@ -43 +43 @@
     Angle := Frac(Now / (10 * OneSecond)) * 2 * Pi;
     API.DrawLine(Point(120, 120), Point(Trunc(120 + Cos(Angle) * 60), Trunc(120 + Sin(Angle) * 60)), 0);
-    API.Sleep(OneMillisecond * 50);
+    API.Sleep(OneMillisecond * 10);
     //API.ReadMessage(Message);
   end;

trunk/Forms/UFormMain.lfm

@@ -56 +56 @@
   end
   object Timer1: TTimer
-    Interval = 50
+    Interval = 10
     OnTimer = Timer1Timer
     left = 180

trunk/Forms/UFormMain.pas

@@ -178 +178 @@
 var
   X, Y: Integer;
+  DX, DY: Integer;
   Bitmap: TBitmap;
+  P, PR: PByte;
 begin
   try
@@ -186 +188 @@
 
     if Assigned(VideoDevice.VideoMemory) then begin
-      for Y := 0 to VideoDevice.VideoMode.Size.Y - 1 do
-      for X := 0 to VideoDevice.VideoMode.Size.X - 1 do begin
-        Bitmap.Canvas.Pixels[X, Y] := PInteger(VideoDevice.VideoMemory + X * VideoDevice.VideoMode.GetBytesPerPixel +
-        Y * VideoDevice.VideoMode.GetBytesPerLine)^ and $ffffff;
+      DX := VideoDevice.VideoMode.GetBytesPerPixel;
+      DY := VideoDevice.VideoMode.GetBytesPerLine;
+      P := VideoDevice.VideoMemory;
+      for Y := 0 to VideoDevice.VideoMode.Size.Y - 1 do begin
+        PR := P;
+        for X := 0 to VideoDevice.VideoMode.Size.X - 1 do begin
+          Bitmap.Canvas.Pixels[X, Y] := PInteger(PR)^ and $ffffff;
+          Inc(PR, DX);
+        end;
+        Inc(P, DY);
       end;
     end;

trunk/Packages/Kernel/UGraphics.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs;
+  Classes, SysUtils, fgl;
 
 type
@@ -43 +43 @@
 
   TDesktop = class
-    Objects: TObjectList; // TList<TGraphicObject>
+    Objects: TFPGObjectList<TGraphicObject>;
     procedure Paint;
     constructor Create;
@@ -88 +88 @@
 constructor TDesktop.Create;
 begin
-  Objects := TObjectList.Create;
+  Objects := TFPGObjectList<TGraphicObject>.Create;
 end;