home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / OpenGL_Editor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.3 KB  |  61 lines
  1. {$I TeeDefs.inc}
  2. unit OpenGL_Editor;
  3.  
  4. interface
  5.  
  6. uses
  7.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  8.   Base, StdCtrls, TeEngine, TeePyramid, ExtCtrls, TeeProcs,
  9.   Chart, TeeEdit, Series, Bar3D,
  10.   {$IFNDEF CLX}TeeOpenGL, TeeTools{$ELSE}TeeLinux{$ENDIF};
  11.  
  12. type
  13.   TOpenGLEditorForm = class(TBaseForm)
  14.     CheckBox1: TCheckBox;
  15.     TeeOpenGL1: TTeeOpenGL;
  16.     Series1: TBar3DSeries;
  17.     Button1: TButton;
  18.     ChartEditor1: TChartEditor;
  19.     ChartTool1: TRotateTool;
  20.     procedure CheckBox1Click(Sender: TObject);
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure Button1Click(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32.  
  33. {$IFDEF WINDOWS}
  34. Uses TeeGLEditor;  { <-- important !!! }
  35. {$ENDIF}
  36.  
  37. procedure TOpenGLEditorForm.CheckBox1Click(Sender: TObject);
  38. begin
  39.   Screen.Cursor:=crHourGlass;
  40.   try
  41.     TeeOpenGL1.Active:=CheckBox1.Checked;
  42.   finally
  43.     Screen.Cursor:=crDefault;
  44.   end;
  45. end;
  46.  
  47. procedure TOpenGLEditorForm.FormCreate(Sender: TObject);
  48. begin
  49.   inherited;
  50.   Series1.FillSampleValues(6);
  51. end;
  52.  
  53. procedure TOpenGLEditorForm.Button1Click(Sender: TObject);
  54. begin
  55.   ChartEditor1.Execute;
  56. end;
  57.  
  58. initialization
  59.   RegisterClass(TOpenGLEditorForm);
  60. end.
  61.