home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 April / Chip_2002-04_cd1.bin / zkuste / delphi / kolekce / d3456 / PBEDIT.ZIP / PBEditPackDemo_unit.pas < prev    next >
Pascal/Delphi Source File  |  2001-04-11  |  5KB  |  132 lines

  1. unit PBEditPackDemo_unit;
  2.  
  3. interface
  4.  
  5. uses
  6.     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.     ExtCtrls, PBBinHexEdit, Mask, PBMaskEdit, StdCtrls, PBEdit, PBNumEdit, Spin,
  8.     PBSpinEdit, ComCtrls, PBSuperSpin;
  9.  
  10. type
  11.   TPBEditPackDemoForm = class(TForm)
  12.     PBNumEdit1: TPBNumEdit;
  13.     PBBinHexEdit1: TPBBinHexEdit;
  14.     Button1: TButton;
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     Button2: TButton;
  19.     Bevel2: TBevel;
  20.     Button3: TButton;
  21.     CheckBox1: TCheckBox;
  22.     Bevel3: TBevel;
  23.     Bevel1: TBevel;
  24.     PBMaskEdit1: TPBMaskEdit;
  25.     PBSpinEdit1: TPBSpinEdit;
  26.     CheckBox2: TCheckBox;
  27.     PBEdit1: TPBEdit;
  28.     PBSuperSpin1: TPBSuperSpin;
  29.     Label4: TLabel;
  30.     DecimalEdit: TPBSuperSpin;
  31.     Label5: TLabel;
  32.     CancelButton: TButton;
  33.     Edit1: TEdit;
  34.     procedure Button1Click(Sender: TObject);
  35.     procedure Button2Click(Sender: TObject);
  36.     procedure Button3Click(Sender: TObject);
  37.     procedure FormCreate(Sender: TObject);
  38.     procedure SetDecimalsClick(Sender: TObject);
  39.     procedure CheckBox1Click(Sender: TObject);
  40.     procedure CheckBox2Click(Sender: TObject);
  41.     procedure CancelButtonClick(Sender: TObject);
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  47.  
  48. var
  49.   PBEditPackDemoForm: TPBEditPackDemoForm;
  50.  
  51. implementation
  52.  
  53. {$R *.DFM}
  54.  
  55. procedure TPBEditPackDemoForm.Button1Click(Sender: TObject);
  56. begin
  57.     if PBEdit1.Alignment = taCenter then PBEdit1.Alignment := taLeftJustify
  58.     else if PBEdit1.Alignment = taLeftJustify then PBEdit1.Alignment := taRightJustify
  59.     else PBEdit1.Alignment := taCenter;
  60.     if PBMaskEdit1.Alignment = taCenter then PBMaskEdit1.Alignment := taLeftJustify
  61.     else if PBMaskEdit1.Alignment = taLeftJustify then PBMaskEdit1.Alignment := taRightJustify
  62.     else PBMaskEdit1.Alignment := taCenter;
  63.     if PBNumEdit1.Alignment = taRightJustify then PBNumEdit1.Alignment := taCenter
  64.     else if PBNumEdit1.Alignment = taCenter then PBNumEdit1.Alignment := taLeftJustify
  65.     else PBNumEdit1.Alignment := taRightJustify;
  66.     if PBSuperSpin1.Alignment = taRightJustify then PBSuperSpin1.Alignment := taCenter
  67.     else if PBSuperSpin1.Alignment = taCenter then PBSuperSpin1.Alignment := taLeftJustify
  68.     else PBSuperSpin1.Alignment := taRightJustify;
  69.     if PBBinHexEdit1.Alignment = taCenter then PBBinHexEdit1.Alignment := taLeftJustify
  70.     else if PBBinHexEdit1.Alignment = taLeftJustify then PBBinHexEdit1.Alignment := taRightJustify
  71.     else PBBinHexEdit1.Alignment := taCenter;
  72.     if PBSpinEdit1.Alignment = taCenter then PBSpinEdit1.Alignment := taLeftJustify
  73.     else if PBSpinEdit1.Alignment = taLeftJustify then PBSpinEdit1.Alignment := taRightJustify
  74.     else PBSpinEdit1.Alignment := taCenter;
  75. end;
  76.  
  77. procedure TPBEditPackDemoForm.Button2Click(Sender: TObject);
  78. begin
  79.     if PBBinHexEdit1.BaseFormat = Binary then PBBinHexEdit1.BaseFormat := HexaDecimal
  80.     else if PBBinHexEdit1.BaseFormat = HexaDecimal then PBBinHexEdit1.BaseFormat := Number
  81.     else if PBBinHexEdit1.BaseFormat = Number then PBBinHexEdit1.BaseFormat := Binary;
  82. end;
  83.  
  84. procedure TPBEditPackDemoForm.Button3Click(Sender: TObject);
  85. begin
  86.     if PBNumEdit1.NumberFormat = Engineering then PBNumEdit1.NumberFormat := Standard
  87.     else if PBNumEdit1.NumberFormat = Standard then PBNumEdit1.NumberFormat := Thousands
  88.     else if PBNumEdit1.NumberFormat = Thousands then PBNumEdit1.NumberFormat := Scientific
  89.     else PBNumEdit1.NumberFormat := Engineering;
  90.     if PBSuperSpin1.NumberFormat = Engineering then PBSuperSpin1.NumberFormat := Standard
  91.     else if PBSuperSpin1.NumberFormat = Standard then PBSuperSpin1.NumberFormat := Thousands
  92.     else if PBSuperSpin1.NumberFormat = Thousands then PBSuperSpin1.NumberFormat := Scientific
  93.     else PBSuperSpin1.NumberFormat := Engineering;
  94. end;
  95.  
  96. procedure TPBEditPackDemoForm.FormCreate(Sender: TObject);
  97. begin
  98.     DecimalEdit.AsInteger := PBNumEdit1.Decimals;
  99. end;
  100.  
  101. procedure TPBEditPackDemoForm.SetDecimalsClick(Sender: TObject);
  102. begin
  103.     PBNumEdit1.Decimals := DecimalEdit.AsInteger;
  104.     PBSuperSpin1.Decimals := DecimalEdit.AsInteger;
  105.     DecimalEdit.AsInteger := PBNumEdit1.Decimals;
  106. end;
  107.  
  108.  
  109. procedure TPBEditPackDemoForm.CheckBox1Click(Sender: TObject);
  110. begin
  111.     Button1.Default := CheckBox1.Checked;
  112. end;
  113.  
  114. procedure TPBEditPackDemoForm.CheckBox2Click(Sender: TObject);
  115. begin
  116.     PBBinHexEdit1.AutoSelect := Not PBBinHexEdit1.AutoSelect;
  117.     PBEdit1.AutoSelect := not PBEdit1.AutoSelect;
  118.     PBMaskEdit1.AutoSelect := not PBMaskEdit1.AutoSelect;
  119.     PBNumEdit1.AutoSelect := not PBNumEdit1.AutoSelect;
  120.     PBSuperSpin1.AutoSelect := not PBSuperSpin1.AutoSelect;
  121.     PBSpinEdit1.AutoSelect := not PBSpinEdit1.AutoSelect;
  122. end;
  123.  
  124. procedure TPBEditPackDemoForm.CancelButtonClick(Sender: TObject);
  125. begin
  126.     Application.MessageBox('Pressing Escape automatically calls the CancelButton''s OnClick-event !',
  127.         'Cancel !', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
  128. end;
  129.  
  130. end.
  131.  
  132.