Changeset 447 for GraphicTest/UMainForm.pas

Timestamp:

Nov 22, 2012, 2:32:10 PM (12 years ago)

Author:

chronos

Message:

• Modified: Each methods separated to own unit. Code from unit is displayed to user in main form after method selection.

File:

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

GraphicTest/UMainForm.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, StdCtrls, DateUtils, UPlatform, LCLType, IntfGraphics, fpImage,
-  Math, GraphType, Contnrs, LclIntf, Spin, UFastBitmap, UDrawMethod;
+  Classes, SysUtils, FileUtil, SynHighlighterPas, SynMemo, Forms, Controls,
+  Graphics, Dialogs, ComCtrls, ExtCtrls, StdCtrls, DateUtils, UPlatform,
+  LCLType, IntfGraphics, fpImage, Math, GraphType, Contnrs, LclIntf, Spin,
+  UFastBitmap, UDrawMethod;
 
 const
@@ -15 +16 @@
 type
 
-
   { TMainForm }
 
   TMainForm = class(TForm)
-    ButtonStop: TButton;
     ButtonBenchmark: TButton;
     ButtonSingleTest: TButton;
+    ButtonStop: TButton;
+    CheckBoxDoubleBuffered: TCheckBox;
     CheckBoxEraseBackground: TCheckBox;
-    CheckBoxDoubleBuffered: TCheckBox;
     FloatSpinEdit1: TFloatSpinEdit;
     Label1: TLabel;
@@ -30 +30 @@
     Label4: TLabel;
     ListViewMethods: TListView;
+    Memo1: TMemo;
+    PageControl1: TPageControl;
+    Panel1: TPanel;
+    SpinEditHeight: TSpinEdit;
     SpinEditWidth: TSpinEdit;
-    SpinEditHeight: TSpinEdit;
+    Splitter1: TSplitter;
+    SynMemo1: TSynMemo;
+    SynPasSyn1: TSynPasSyn;
+    TabSheet1: TTabSheet;
+    TabSheet2: TTabSheet;
     TimerUpdateList: TTimer;
     procedure ButtonBenchmarkClick(Sender: TObject);
@@ -74 +82 @@
 
 uses
-  UDrawForm;
+  UDrawForm, ULazIntfImageColorsCopy, ULazIntfImageColorsNoCopy, UCanvasPixels,
+  UCanvasPixelsUpdateLock, UBGRABitmapPaintBox, UBitmapRawImageDataPaintBox,
+  UBitmapRawImageData, UBitmapRawImageDataMove, UDummyMethod, UOpenGLMethod,
+  UOpenGLPBOMethod;
+
+const
+  DrawMethodClasses: array[0..{$IFDEF opengl}10{$ELSE}8{$ENDIF}] of TDrawMethodClass = (
+    TCanvasPixels, TCanvasPixelsUpdateLock, TLazIntfImageColorsCopy,
+    TLazIntfImageColorsNoCopy, TBitmapRawImageData, TBitmapRawImageDataPaintBox,
+    TBitmapRawImageDataMove, TBGRABitmapPaintBox{$IFDEF opengl}, TOpenGLMethod, TOpenGLPBOMethod{$ENDIF}
+    ,TDummyMethod);
+
 
 
@@ -94 +113 @@
     DrawMethods.Add(NewDrawMethod);
   end;
+
+  PageControl1.TabIndex := 0;
 end;
 
@@ -213 +234 @@
 procedure TMainForm.ListViewMethodsSelectItem(Sender: TObject; Item: TListItem;
   Selected: Boolean);
+var
+  FileName: string;
 begin
   UpdateInterface;
+  if Assigned(ListViewMethods.Selected) then begin
+    FileName := 'Methods' + DirectorySeparator + 'U' +
+    Copy(TDrawMethod(DrawMethods[ListViewMethods.Selected.Index]).ClassName, 2, High(Integer)) + '.pas';
+
+    if FileExistsUTF8(FileName) then
+      SynMemo1.Lines.LoadFromFile(FileName)
+      else SynMemo1.Lines.Clear;
+    Memo1.Lines.Assign(TDrawMethod(DrawMethods[ListViewMethods.Selected.Index]).Description);
+  end;
 end;