From 0430ca1a77896181c00516f1a654ffbd09331c38 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Thu, 8 Jul 2010 11:44:02 +0000
Subject: [PATCH] IDE: compiler_messages_options, use OnItemClick() instead of
 OnClick() to assign values to TCompilerMessageConfig.Now we can change value
 by key space also.

git-svn-id: trunk@26525 -
---
 ide/frames/compiler_messages_options.lfm | 14 +++++++-------
 ide/frames/compiler_messages_options.pas | 12 ++++++------
 2 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/ide/frames/compiler_messages_options.lfm b/ide/frames/compiler_messages_options.lfm
index 95f17e3fae..7647904bfc 100644
--- a/ide/frames/compiler_messages_options.lfm
+++ b/ide/frames/compiler_messages_options.lfm
@@ -13,17 +13,17 @@ inherited CompilerMessagesOptionsFrame: TCompilerMessagesOptionsFrame
     Width = 626
     Align = alClient
     Caption = 'grpCompilerMessages'
-    ClientHeight = 437
+    ClientHeight = 436
     ClientWidth = 622
     TabOrder = 0
     object editMsgFilter: TEdit
       AnchorSideLeft.Control = lblFilter
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = grpCompilerMessages
-      Left = 47
+      Left = 56
       Height = 21
       Top = 6
-      Width = 567
+      Width = 558
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Left = 6
       BorderSpacing.Top = 6
@@ -41,21 +41,21 @@ inherited CompilerMessagesOptionsFrame: TCompilerMessagesOptionsFrame
       AnchorSideBottom.Control = grpCompilerMessages
       AnchorSideBottom.Side = asrBottom
       Left = 6
-      Height = 398
+      Height = 397
       Top = 33
       Width = 610
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderSpacing.Around = 6
       ItemHeight = 0
-      OnClick = chklistCompMsgClick
+      OnItemClick = chklistCompMsgItemClick
       Sorted = True
       TabOrder = 1
     end
     object lblFilter: TLabel
       Left = 6
-      Height = 14
+      Height = 16
       Top = 8
-      Width = 35
+      Width = 44
       Caption = 'lblFilter'
       ParentColor = False
     end
diff --git a/ide/frames/compiler_messages_options.pas b/ide/frames/compiler_messages_options.pas
index 298863bfa5..b81ea1fdcc 100644
--- a/ide/frames/compiler_messages_options.pas
+++ b/ide/frames/compiler_messages_options.pas
@@ -21,7 +21,7 @@ type
     grpCompilerMessages: TGroupBox;
     lblFilter: TLabel;
     procedure btnBrowseMsgClick(Sender: TObject);
-    procedure chklistCompMsgClick(Sender: TObject);
+    procedure chklistCompMsgItemClick(Sender: TObject; Index: integer);
     procedure chkUseMsgFileChange(Sender: TObject);
     procedure editMsgFilterChange(Sender: TObject);
   private
@@ -57,12 +57,12 @@ begin
   UpdateFilter;
 end;
 
-procedure TCompilerMessagesOptionsFrame.chklistCompMsgClick(Sender: TObject);
-var
-  i : Integer;
+procedure TCompilerMessagesOptionsFrame.chklistCompMsgItemClick(
+  Sender: TObject; Index: integer);
 begin
-  for i := 0 to chklistCompMsg.Count - 1 do
-    TCompilerMessageConfig(chklistCompMsg.Items.Objects[i]).Ignored := not chklistCompMsg.Checked[i];
+  if (Index >= 0) and (Index < chklistCompMsg.Items.Count) then
+    TCompilerMessageConfig(chklistCompMsg.Items.Objects[Index]).Ignored :=
+      not chklistCompMsg.Checked[Index];
 end;
 
 procedure TCompilerMessagesOptionsFrame.btnBrowseMsgClick(Sender: TObject);