home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kolekce / d12345 / CHEMPLOT.ZIP / TPlot / Displace.pas < prev    next >
Pascal/Delphi Source File  |  2001-04-18  |  3KB  |  116 lines
  1. unit Displace;
  2.  
  3. {$I Plot.inc}
  4.  
  5. {-----------------------------------------------------------------------------
  6. The contents of this file are subject to the Q Public License
  7. ("QPL"); you may not use this file except in compliance
  8. with the QPL. You may obtain a copy of the QPL from 
  9. the file QPL.html in this distribution, derived from:
  10.  
  11. http://www.trolltech.com/products/download/freelicense/license.html
  12.  
  13. The QPL prohibits development of proprietary software. 
  14. There is a Professional Version of this software available for this. 
  15. Contact sales@chemware.hypermart.net for more information.
  16.  
  17. Software distributed under the QPL is distributed on an "AS IS" basis,
  18. WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the QPL for
  19. the specific language governing rights and limitations under the QPL.
  20.  
  21. The Original Code is: Axis.pas, released 12 September 2000.
  22.  
  23. The Initial Developer of the Original Code is Mat Ballard.
  24. Portions created by Mat Ballard are Copyright (C) 1999 Mat Ballard.
  25. Portions created by Microsoft are Copyright (C) 1998, 1999 Microsoft Corp.
  26. All Rights Reserved.
  27.  
  28. Contributor(s): Mat Ballard                 e-mail: mat.ballard@chemware.hypermart.net.
  29.  
  30. Last Modified: 02/25/2001
  31. Current Version: 2.00
  32.  
  33. You may retrieve the latest version of this file from:
  34.  
  35.         http://Chemware.hypermart.net/
  36.  
  37. This work was created with the Project JEDI VCL guidelines:
  38.  
  39.         http://www.delphi-jedi.org/Jedi:VCLVCL
  40.  
  41. in mind. 
  42.  
  43. Purpose:
  44. To facilitate user setting of the displacement of a series.
  45.  
  46. Known Issues:
  47. -----------------------------------------------------------------------------}
  48.  
  49. interface
  50.  
  51. uses
  52.   Classes, SysUtils,
  53. {$IFDEF WINDOWS}
  54.   WinTypes, WinProcs,
  55.   Buttons, Controls, Forms, Graphics, StdCtrls, 
  56. {$ENDIF}
  57. {$IFDEF WIN32}
  58.   Windows,
  59.   Buttons, Controls, Forms, Graphics, StdCtrls,
  60. {$ENDIF}
  61. {$IFDEF LINUX}
  62.   QT,
  63.   QButtons, QControls, QForms, QGraphics, QStdCtrls,
  64. {$ENDIF}
  65.   Misc, NEdit;
  66.  
  67. type
  68.   TDisplacementForm = class(TForm)
  69.     CancelBitBtn: TBitBtn;
  70.     OKBitBtn: TBitBtn;
  71.     SeriesLabel: TLabel;
  72.     Label1: TLabel;
  73.     Label2: TLabel;
  74.     DeltaXNEdit: TNEdit;
  75.     DeltaYNEdit: TNEdit;
  76.     ApplyBitBtn: TBitBtn;
  77.     procedure FormCreate(Sender: TObject);
  78.     procedure ApplyBitBtnClick(Sender: TObject);
  79.   private
  80.     { Private declarations }
  81.   public
  82.     TheSeries: TObject;
  83.   end;
  84.  
  85. var
  86.   DisplacementForm: TDisplacementForm;
  87.  
  88. implementation
  89.  
  90. {$R *.dfm}
  91.  
  92. uses
  93.   Data;
  94.  
  95. {------------------------------------------------------------------------------
  96.     Procedure: TDisplaceForm.FormCreate
  97.   Description: standard FormCreate procedure
  98.        Author: Mat Ballard
  99.  Date created: 04/25/2000
  100. Date modified: 04/25/2000 by Mat Ballard
  101.       Purpose: sets the position
  102.  Known Issues:
  103.  ------------------------------------------------------------------------------}
  104. procedure TDisplacementForm.FormCreate(Sender: TObject);
  105. begin
  106.   SetDialogGeometry(Self, ApplyBitBtn, SeriesLabel.Left);
  107. end;
  108.  
  109. procedure TDisplacementForm.ApplyBitBtnClick(Sender: TObject);
  110. begin
  111.   TSeries(TheSeries).ApplyDisplacementChange(Self);
  112. end;
  113.  
  114.  
  115. end.
  116.