Changeset 318 for GraphicTest/UMainForm.pas

Timestamp:

Feb 1, 2012, 3:33:59 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Exchanged numeric values in table columns for Duration and FPS.

File:

• GraphicTest/UMainForm.pas (modified) (3 diffs)

GraphicTest/UMainForm.pas

@@ -88 +88 @@
   end;
   Bitmap := TBitmap.Create;
-  Bitmap.PixelFormat := pf24bit;
+  Bitmap.PixelFormat := pf32bit;
   Image1.Picture.Bitmap.SetSize(TFastBitmap(Scenes[0]).Size.X, TFastBitmap(Scenes[0]).Size.Y);
   Image1.Picture.Bitmap.PixelFormat := pf32bit;
@@ -183 +183 @@
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
+  ListViewMethods.Clear;
   FreeMem(TextureData, OpenGLControl1.Width * OpenGLControl1.Height);
   DrawMethods.Free;
@@ -200 +201 @@
   with TDrawMethod(DrawMethods[Item.Index]) do begin
     Item.Caption := Caption;
+    Item.SubItems.Add(FloatToStr(RoundTo(FrameDuration / OneMillisecond, -3)));
     if FrameDuration > 0 then
       Item.SubItems.Add(FloatToStr(RoundTo(1 / (FrameDuration / OneSecond), -3)))
       else Item.SubItems.Add('0');
-    Item.SubItems.Add(FloatToStr(RoundTo(FrameDuration / OneMillisecond, -3)) + ' ms');
   end;
 end;