Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 346
  • Last Modified:

Registry and Checkboxes Question

Hello
  I would like to have a options to hold settings to my programs, I have 10 checkboxs on a form somthing like Internet Explorer 4.0 internet options menu in advanced.

For Example:

Checkbox1 is for Toolbars Visible or Not Visible.
Checkbox2 is for Statusbar Visible or Not Visible.
Etc..

How can I save Checkboxs settings so when my program loads the checkboxs that i checked before are checked or vise versa when I load this form again.
0
hyperion66
Asked:
hyperion66
1 Solution
 
interCommented:
Hi,
if you are hyper66 look at my answer to your previous questio...
igor
0
 
ThaddyCommented:
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TreginiFile.create('Checkboxes') do
  try
    Checkbox1.Checked:=ReadBool('Checkboxes','CheckBox1',false);
    Checkbox2.Checked:=ReadBool('Checkboxes','CheckBox2',false);
  finally
     free;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  with TreginiFile.create('Checkboxes') do
  try
    WriteBool('Checkboxes','CheckBox1',Checkbox1.checked);
    WriteBool('Checkboxes','CheckBox2',Checkbox2.checked);
  finally
     free;
  end;

end;

0
 
hyperion66Author Commented:
Hi, Inter.
 Sorry I don't know hyper66, but people do confuse me with hyper66.

 
0
 
bryan7Commented:
try this:

Include     REGISTRY     in the Uses clause

then i.e:   THIS will SAVE to the registry

procedure TForm1.BitBtn1Click(Sender: TObject);
Var r: TRegistry;
      a: byte;
      b: byte;
begin
a:= 0;
b:= 0;
if checkbox1.checked= True then a:= 1;
if checkbox2.checked= True then b:= 1;
r := TRegistry.Create;
        with r do
        try
           CreateKey('NameOfMyProgram');
           OpenKey('NameOfMyProgram', False);
           WriteBinaryData('Option1',a,1);
           WriteBinaryData('Option2',b,1);
           CloseKey;
        finally
           free;
        end;

ans   THIS will READ from the registry

procedure TForm1.BitBtn2Click(Sender: TObject);
Var r: TRegistry;
      a: byte;
      b: byte;
begin
a:= 0;
b:= 0;
r := TRegistry.Create;
        with r do
        try
           CreateKey('NameOfMyProgram');
           OpenKey('NameOfMyProgram', False);
           ReadBinaryData('Option1',a,1);
           ReadBinaryData('Option2',b,1);
           CloseKey;
        finally
           free;
if a= 1 then checkbox1.checked:= True;
if b= 1 then checkbox2.checked:= True;
        end;


bryan

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now