home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi2 / wowsrc.exe / BALLDEFS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-09-14  |  4.3 KB  |  126 lines
  1. unit Balldefs;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
  6.      Buttons, IniFiles,SysUtils,ExtCtrls;
  7.  
  8. type
  9.   TSetupBalls = class(TForm)
  10.     Ok: TBitBtn;
  11.     Cancel: TBitBtn;
  12.     GroupBox2: TGroupBox;
  13.     SetPwd: TBitBtn;
  14.     PwdTypes: TComboBox;
  15.     GroupBox1: TGroupBox;
  16.     Image1: TImage;
  17.     Label3: TLabel;
  18.     Label1: TLabel;
  19.     MaxBalls: TScrollBar;
  20.     MaxBallVal: TLabel;
  21.     Label2: TLabel;
  22.     BSize: TScrollBar;
  23.     BSizeVal: TLabel;                                      { Bitmap of the Message }
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure CancelClick(Sender: TObject);
  26.     procedure OkClick(Sender: TObject);
  27.     procedure FormActivate(Sender: TObject);
  28.     procedure SetPwdClick(Sender: TObject);
  29.     procedure PwdTypesChange(Sender: TObject);
  30.     procedure MaxBallsChange(Sender: TObject);
  31.     procedure BSizeChange(Sender: TObject);
  32.   private
  33.     Loading : Boolean;
  34.     { Private declarations }
  35.   public
  36.  
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   SetupBalls : TSetupBalls;
  42.   Ini   : TIniFile;
  43.  
  44. implementation
  45.  
  46. Uses Globals, NewPass, CodeBall, SelectSs ;
  47.  
  48. {$R *.DFM}
  49.  
  50.  
  51. procedure TSetupBalls.FormCreate(Sender: TObject);
  52. begin
  53.   Loading := True;                                         { We are Loading }
  54. end;
  55.  
  56.  
  57. procedure TSetupBalls.CancelClick(Sender: TObject);
  58. begin
  59.   Close;                                                   { Bye Bye }
  60. end;
  61.  
  62. procedure TSetupBalls.OkClick(Sender: TObject);
  63. Var
  64.   Fnt : Integer;                                           { Temp for font style }
  65. begin
  66.   Ini := TIniFile.Create('Wow.Ini');                   { Create the Ini file }
  67.   Ini.WriteInteger(AppTitle,'PwdType',PwdTypes.ItemIndex); { Write the Password Type }
  68.   Ini.WriteInteger(AppTitle,'MaxBalls',MaxBalls.Position); { Write the Max Ball b4 clear }
  69.   Ini.WriteInteger(AppTitle,'BallSize',BSize.Position);    { Write the Ball size }
  70.   Close;
  71. end;
  72.  
  73. procedure TSetupBalls.FormActivate(Sender: TObject);
  74. begin
  75.   If Loading then begin                                    { App is loading }
  76.     Loading := False;                                      { Reset Flag }
  77.     ReadBallDefaults;                                      { Read our Defaults }
  78.     PwdTypes.ItemIndex := PwdType;                         { Set Password Type }
  79.     MaxBalls.Position := BallMax;                          { Set Val }
  80.     MaxBallVal.Caption := IntToStr(BallMax);               { Set the Balls b4 clear }
  81.     BSize.Position := BallSize;                            { Set Size }
  82.     BSizeVal.Caption := IntToStr(BallSize);                { Set Size }
  83.     BSize.Tag := BallSize;                                 { Tag for later }
  84.   end;
  85. end;
  86.  
  87. procedure TSetupBalls.SetPwdClick(Sender: TObject);        { Set Pwd Type }
  88. begin
  89.   ChPwd := TChPwd.Create(Application);                     { Create the Dialog }
  90.   if Pwd = '' then begin                                   { If NO Password }
  91.     ChPwd.OldPwd.Enabled := False;                         { No Old Password }
  92.     ChPwd.NewPwd.Enabled := True;                          { Enable New Password }
  93.     ChPwd.Rpwd.Enabled := True;                            { Enable Retype password }
  94.     end
  95.   else begin
  96.     ChPwd.OldPwd.Enabled := True;                          { Have PWD so enable OLD password }
  97.     ChPwd.NewPwd.Enabled := False;                         { Disable NEW till old entered }
  98.     ChPwd.Rpwd.Enabled := False;                           { Disable Retypr till Old Entered }
  99.     end;
  100.   ChPwd.ShowModal;                                         { Do the dialog }
  101.   ChPwd.Free;                                              { Free the dialog }
  102. end;
  103.  
  104. procedure TSetupBalls.PwdTypesChange(Sender: TObject);     { Changing Pwd Types }
  105. begin
  106.   If PwdTypes.ItemIndex = 1 then                           { If a WINDOWS password }
  107.     SetPwd.Enabled := True                                 { Enable setting }
  108.   else
  109.     SetPwd.Enabled := False;                               { others can't be set so disable }
  110.  
  111. end;
  112.  
  113.  
  114. procedure TSetupBalls.MaxBallsChange(Sender: TObject);
  115. begin
  116.   MaxBallVal.Caption := IntToStr(MaxBalls.Position);       { Set new Value }
  117. end;
  118.  
  119. procedure TSetupBalls.BSizeChange(Sender: TObject);
  120. begin
  121.   BSizeVal.Caption := IntToStr(BSize.Position);            { Set New Value }
  122. end;
  123.  
  124. begin
  125. end.
  126.