Changeset 206 for GraphicTest/UMainForm.pas

Timestamp:

Mar 18, 2011, 9:34:42 AM (14 years ago)

Author:

george

Message:

• Fixed: Red and Blue color components swaping.
• Fixed: PageControl tabs auto switching.
• Modified: TFastBitmap class replaced by similar one which use pixels data as one memory block instead of array of arrays. With only one memory block optimization using FillChar and Move can be used.

File:

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

GraphicTest/UMainForm.pas

@@ -98 +98 @@
   if ComboBox1.ItemIndex >= 0 then
   with TDrawMethod(DrawMethods[ComboBox1.ItemIndex]) do begin
+    PageControl1.TabIndex := Integer(PaintObject);
+    Application.ProcessMessages;
     repeat
       DrawFrameTiming(TFastBitmap(Scenes[SceneIndex]));
@@ -118 +120 @@
     for I := 0 to DrawMethods.Count - 1 do
     with TDrawMethod(DrawMethods[I]) do begin
+      PageControl1.TabIndex := Integer(PaintObject);
+      Application.ProcessMessages;
       DrawFrameTiming(TFastBitmap(Scenes[0]));
+      Application.ProcessMessages;
       DrawFrameTiming(TFastBitmap(Scenes[0]));
       NewItem := Add;