home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / CALCBOX.ZIP / DEMO / SETPROPS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-01-22  |  1.6 KB  |  72 lines
  1. unit Setprops;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Cvgcalc, ExtCtrls, Buttons;
  8.  
  9. type
  10.   TForm2 = class(TForm)
  11.     BitBtn1: TBitBtn;
  12.     BitBtn2: TBitBtn;
  13.     BitBtn3: TBitBtn;
  14.     BitBtn4: TBitBtn;
  15.     BitBtn5: TBitBtn;
  16.     BitBtn6: TBitBtn;
  17.     BitBtn7: TBitBtn;
  18.     Bevel1: TBevel;
  19.     Shape1: TShape;
  20.     CalculatorBox1: TCalculatorBox;
  21.     procedure BitBtn1Click(Sender: TObject);
  22.     procedure BitBtn2Click(Sender: TObject);
  23.     procedure BitBtn3Click(Sender: TObject);
  24.     procedure BitBtn4Click(Sender: TObject);
  25.     procedure BitBtn5Click(Sender: TObject);
  26.     procedure BitBtn6Click(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  32.  
  33. var
  34.   Form2: TForm2;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TForm2.BitBtn1Click(Sender: TObject);
  41. begin
  42. CalculatorBox1.Alignment := taRightJustify;
  43. end;
  44.  
  45. procedure TForm2.BitBtn2Click(Sender: TObject);
  46. begin
  47. CalculatorBox1.Alignment := taLeftJustify;
  48. end;
  49.  
  50. procedure TForm2.BitBtn3Click(Sender: TObject);
  51. begin
  52. CalculatorBox1.DecimalPlaces := 0;
  53. end;
  54.  
  55. procedure TForm2.BitBtn4Click(Sender: TObject);
  56. begin
  57. CalculatorBox1.DecimalPlaces := 4;
  58. end;
  59.  
  60. procedure TForm2.BitBtn5Click(Sender: TObject);
  61. begin
  62. if DecimalSeparator='.' then CalculatorBox1.DisplayText := '123.45'
  63.                         else CalculatorBox1.DisplayText := '123,45';
  64. end;
  65.  
  66. procedure TForm2.BitBtn6Click(Sender: TObject);
  67. begin
  68. CalculatorBox1.DisplayText := '67890';
  69. end;
  70.  
  71. end.
  72.