unit UnitSettings;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, Registry;

TFormSettings = class(TForm)

LabeledEditTabSize: TLabeledEdit;

LabeledEditFontSize: TLabeledEdit;

BitBtnOK: TBitBtn;

BitBtnCancel: TBitBtn;

CheckBoxBold: TCheckBox;

procedure BitBtnOKClick(Sender: TObject);

procedure BitBtnCancelClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

FormSettings: TFormSettings;

procedure TFormSettings.BitBtnOKClick (Sender: TObject);

Reg: TRegistry;

i, c: integer;

val (LabeledEditTabSize.Text, i, c);

if c > 0 then begin

Application.MessageBox ('Invalid tab size', 'Validation error', mb_iconstop + mb_ok);

ActiveControl := LabeledEditTabSize;

LabeledEditTabSize.SelectAll;

Abort;

end;

val (LabeledEditFontSize.Text, i, c);

if c > 0 then begin

Application.MessageBox ('Invalid font size', 'Validation error', mb_iconstop + mb_ok);

ActiveControl := LabeledEditFontSize;

LabeledEditFontSize.SelectAll;

Abort;

end;

Reg := TRegistry.Create;

try

Reg.RootKey := HKEY_CURRENT_USER;

if Reg.OpenKey ('\Software\Eludia\Studio\Settings', True) then begin

Reg.WriteString ('FontSize', LabeledEditFontSize.Text);

Reg.WriteString ('TabWidth', LabeledEditTabSize.Text);

if CheckBoxBold.Checked then Reg.WriteString ('FontBold', '1') else Reg.WriteString ('FontBold', '0');

Reg.CloseKey;

end;

finally

Reg.Free;

end;

ModalResult := mrok;

end;

procedure TFormSettings.BitBtnCancelClick(Sender: TObject);

ModalResult := mrcancel;

end;

end.