{******************************************************************}
{ HbrntDlg.pas                                                     }
{                                                                  }
{ Author    : A.Nasir Senturk                                      }
{ Home Page : http://www.shenturk.com                              }
{ Email     : shenturk@gmail.com                                   }
{                                                                  }
{ Date      : 30.01.2007                                           }
{                                                                  }
{ Sizden iki şey rica edicem:                                      }
{ 1. Lutfen bu baslik kismini kaldirmayiniz.                       }
{ 2. Mumkunse bagis yapiniz.                                       }
{ *****************************************************************}

unit HbrntDlg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  THibernateForm = class(TForm)
    GroupBox2: TGroupBox;
    OkBtn: TButton;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses OptnsDlg, ConstDef;

{$R *.dfm}

procedure THibernateForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  IniFile.WriteBool(sGeneral, sHibernateAlert, not CheckBox1.Checked);
  IniFile.UpdateFile;
end;

end.