home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / COOLCALC.ZIP / ABOUTDLG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-09-18  |  2.9 KB  |  113 lines
  1. unit Aboutdlg;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ExtCtrls, Spin, SysUtils, IniFiles;
  7.  
  8. type
  9.   TdlgAboutBox = class(TForm)
  10.     Panel1: TPanel;
  11.     OKButton: TBitBtn;
  12.     ProgramIcon: TImage;
  13.     ProductName: TLabel;
  14.     Version: TLabel;
  15.     Copyright: TLabel;
  16.     Comments: TLabel;
  17.     GroupBox1: TGroupBox;
  18.     spnedtWidth: TSpinEdit;
  19.     chckboxFormatResult: TCheckBox;
  20.     lblWidth: TLabel;
  21.     btnSave: TButton;
  22.     spnedtNumOfDecs: TSpinEdit;
  23.     lblNumOfDecs: TLabel;
  24.     procedure chckboxFormatResultClick(Sender: TObject);
  25.     procedure btnSaveClick(Sender: TObject);
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   dlgAboutBox: TdlgAboutBox;
  36.  
  37. implementation
  38.  
  39. {$R *.DFM}
  40.  
  41. uses CCalcDlg;
  42.  
  43. var
  44.     Ini : TIniFile;
  45.  
  46. procedure TdlgAboutBox.chckboxFormatResultClick(Sender: TObject);
  47. begin
  48.    if chckboxFormatResult.state = cbChecked then
  49.       begin
  50.               spnedtWidth.Enabled := true;
  51.          lblWidth.Font.Color := clBlack;
  52.          lblNumOfDecs.Font.Color := clBlack;
  53.          spnedtNumOfDecs.Enabled := true;
  54.       end
  55.    else
  56.          begin
  57.               spnedtWidth.Enabled := false;
  58.          lblWidth.Font.Color := clGray;
  59.          lblNumOfDecs.Font.Color := clGray;
  60.          spnedtNumOfDecs.Enabled := false;
  61.       end;
  62. end;
  63.  
  64. procedure TdlgAboutBox.btnSaveClick(Sender: TObject);
  65. var
  66.     Ini : TIniFile;
  67. begin
  68.     Ini := TIniFile.Create('CoolCalc.INI');
  69.     if chckboxFormatResult.State = cbChecked then
  70.         Ini.writeBool('Calculator Options', 'Format Result', true)
  71.   else
  72.         Ini.writeBool('Calculator Options', 'Format Result', false);
  73.     Ini.writeInteger('Calculator Options', 'Width', spnedtWidth.value);
  74.     Ini.writeInteger('Calculator Options', 'Number Of Decimals', spnedtNumOfDecs.value);
  75.   Ini.Free;
  76. end;
  77.  
  78. procedure TdlgAboutBox.FormCreate(Sender: TObject);
  79. begin
  80.     if CCalcDlg.vbFormatResult then
  81.       begin
  82.               chckboxFormatResult.State := cbChecked;
  83.          spnedtWidth.Enabled := true;
  84.           lblWidth.Font.Color := clBlack;
  85.          lblNumOfDecs.Font.Color := clBlack;
  86.          spnedtNumOfDecs.Enabled := true;
  87.      end
  88.   else
  89.          begin
  90.              chckboxFormatResult.State := cbUnchecked;
  91.               spnedtWidth.Enabled := false;
  92.          lblWidth.Font.Color := clGray;
  93.          lblNumOfDecs.Font.Color := clGray;
  94.          spnedtNumOfDecs.Enabled := false;
  95.       end;
  96.     spnedtWidth.value := CCalcDlg.vlWidth;
  97.     spnedtNumOfDecs.value := CCalcDlg.vlNumOfDecs;
  98. end;
  99.  
  100. procedure TdlgAboutBox.FormClose(Sender: TObject;
  101.   var Action: TCloseAction);
  102. begin
  103.   if chckboxFormatResult.State = cbChecked then
  104.      CCalcDlg.vbFormatResult := true
  105.   else
  106.      CCalcDlg.vbFormatResult := false;
  107.   CCalcDlg.vlWidth := spnedtWidth.value;
  108.   CCalcDlg.vlNumOfDecs := spnedtNumOfDecs.value;
  109. end;
  110.  
  111. end.
  112.  
  113.