From 67a13a7b8f4bbaba63d76ab6202445ab7f3fa9df Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 18 Apr 2010 17:14:53 +0000
Subject: [PATCH] IDE: codetools space: do not use translated strings, because
 the language can change

git-svn-id: trunk@24698 -
---
 ide/frames/atom_checkboxes_options.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ide/frames/atom_checkboxes_options.pas b/ide/frames/atom_checkboxes_options.pas
index 2cdee8fec7..0746f0734e 100644
--- a/ide/frames/atom_checkboxes_options.pas
+++ b/ide/frames/atom_checkboxes_options.pas
@@ -88,6 +88,7 @@ begin
         SetBounds(CurX, CurY, XStep - 10, Height);
         Caption := GetTranslatedAtomTypes(a);
         OnClick := AOnClick;
+        Tag := ord(a);
         Visible := true;
       end;
       if yi >= MaxYCount then
@@ -116,7 +117,7 @@ begin
     if ParentGroupBox.Components[i] is TCheckBox then
     begin
       ACheckBox := TCheckBox(ParentGroupBox.Components[i]);
-      a := TranslatedAtomToType(ACheckBox.Caption);
+      a := TAtomType(ACheckBox.Tag);
       if (a <> atNone) and ACheckBox.Checked then
         Include(Result, a);
     end;
@@ -135,7 +136,7 @@ begin
     if ParentGroupBox.Components[i] is TCheckBox then
     begin
       ACheckBox:=TCheckBox(ParentGroupBox.Components[i]);
-      a := TranslatedAtomToType(ACheckBox.Caption);
+      a := TAtomType(ACheckBox.Tag);
       ACheckBox.Checked := (a <> atNone) and (a in AtomTypes);
     end;
   end;