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