home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / delphi / navody / JBOOSTER.ZIP / Source / AlignForm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-04-11  |  1.3 KB  |  51 lines
  1. (*************************************************************************)
  2. (*                                jBooster                               *)
  3. (*                        (c) pulsar@mail.primorye.ru                    *)
  4. (*************************************************************************)
  5.  Unit AlignForm;
  6.  {$H+,A+,B-,I-}
  7.  
  8.  Interface
  9.  
  10.  Uses
  11.    { standart }
  12.      Windows, Messages, SysUtils, Classes,
  13.    { vcl }
  14.      Controls, Forms, StdCtrls, ExtCtrls,
  15.    { private }
  16.      Support;
  17.  
  18.  Type
  19.     TFormAlign = class(TForm)
  20.       PanelHor: TPanel;
  21.       RadioLeft: TRadioButton;
  22.       RadioCenter: TRadioButton;
  23.       RadioRight: TRadioButton;
  24.       PanelVer: TPanel;
  25.       RadioTop: TRadioButton;
  26.       RadioMiddle: TRadioButton;
  27.       RadioBottom: TRadioButton;
  28.       ButtonOk: TButton;
  29.       ButtonCancel: TButton;
  30.       procedure FormCreate(Sender: TObject);
  31.     end; { TForm }
  32.  
  33.  Var
  34.      FormAlign: TFormAlign;
  35.  
  36.  Implementation
  37.  
  38. {$R *.DFM}
  39.  
  40.  procedure TFormAlign.FormCreate(Sender: TObject);
  41.  var
  42.      i : integer;
  43.  begin
  44.      for i := MinAnchor to MaxAnchor do begin
  45.          TRadioButton (PanelHor.Controls [i]).Caption := '&' + HAnchors [i];
  46.          TRadioButton (PanelVer.Controls [i]).Caption := '&' + VAnchors [i];
  47.      end; { for }
  48.  end; { FormCreate }
  49.  
  50.  End.
  51.