paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-29 02:57:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codetools space: do not use translated strings, because the language can change

Browse Source 
git-svn-id: trunk@24698 -
This commit is contained in:
mattias 2010-04-18 17:14:53 +00:00
parent a1bc7b255f
commit 67a13a7b8f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/frames/atom_checkboxes_options.pas
View File

@ -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;