home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / prctvb25.lzh / DELPHI.ZIP / UNIT1.PAS < prev   
Pascal/Delphi Source File  |  1996-01-20  |  2KB  |  97 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, StdCtrls, VBXCtrl, Prcnt25;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Prcnt1: TPrcnt;
  12.     Prcnt2: TPrcnt;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     Label3: TLabel;
  16.     Label4: TLabel;
  17.     Label5: TLabel;
  18.     Edit1: TEdit;
  19.     Edit2: TEdit;
  20.     MainMenu1: TMainMenu;
  21.     Exit1: TMenuItem;
  22.     procedure Exit1Click(Sender: TObject);
  23.     procedure FormShow(Sender: TObject);
  24.     procedure Prcnt1Change(Sender: TObject);
  25.     procedure Prcnt2Change(Sender: TObject);
  26.     procedure Edit2Change(Sender: TObject);
  27.     procedure Edit1Change(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   Form1: TForm1;
  36.   S: String[15];
  37.   value: Real;
  38.   Code: Integer;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44. procedure TForm1.Exit1Click(Sender: TObject);
  45. begin
  46.      Halt;
  47. end;
  48.  
  49. procedure TForm1.FormShow(Sender: TObject);
  50. begin
  51.  
  52.      value := Prcnt1.percent;
  53.      Str(value:6:2,S);
  54.      edit2.text := S;
  55.  
  56.      value := Prcnt2.value;
  57.      Str(value:6:2,S);
  58.      edit1.text := S;
  59.  
  60. end;
  61.  
  62. procedure TForm1.Prcnt1Change(Sender: TObject);
  63. begin
  64.  
  65.      value := Prcnt1.percent;
  66.      Str(value:6:2,S);
  67.      edit2.text := S;
  68.  
  69. end;
  70.  
  71. procedure TForm1.Prcnt2Change(Sender: TObject);
  72. begin
  73.  
  74.      value := Prcnt2.value;
  75.      Str(value:6:2,S);
  76.      edit1.text := S;
  77.  
  78. end;
  79.  
  80. procedure TForm1.Edit2Change(Sender: TObject);
  81. begin
  82.  
  83.      Val(Edit2.Text, value, Code);
  84.      prcnt1.percent := value;
  85.  
  86. end;
  87.  
  88. procedure TForm1.Edit1Change(Sender: TObject);
  89. begin
  90.  
  91.      Val(Edit1.Text, value, Code);
  92.      prcnt2.value := value;
  93.  
  94. end;
  95.  
  96. end.
  97.