From c6b629a8cf71fc0d48f925069943374b1ff6ebab Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 5 Nov 2011 17:53:58 +0000
Subject: [PATCH] IDE: set Enabled state of controls in debugger event log
 settings

git-svn-id: trunk@33353 -
---
 debugger/frames/debugger_eventlog_options.lfm |  1 +
 debugger/frames/debugger_eventlog_options.pas | 10 +++++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/debugger/frames/debugger_eventlog_options.lfm b/debugger/frames/debugger_eventlog_options.lfm
index 361343fd49..6edce2d77a 100644
--- a/debugger/frames/debugger_eventlog_options.lfm
+++ b/debugger/frames/debugger_eventlog_options.lfm
@@ -42,6 +42,7 @@ inherited DebuggerEventLogOptionsFrame: TDebuggerEventLogOptionsFrame
       Width = 98
       BorderSpacing.Around = 6
       Caption = 'Limit linecount to'
+      OnChange = chkLimitLinecountChange
       TabOrder = 1
     end
     object seLimitLinecount: TSpinEdit
diff --git a/debugger/frames/debugger_eventlog_options.pas b/debugger/frames/debugger_eventlog_options.pas
index 77a442d734..d2fd66182f 100644
--- a/debugger/frames/debugger_eventlog_options.pas
+++ b/debugger/frames/debugger_eventlog_options.pas
@@ -46,6 +46,7 @@ type
     gbMessages: TGroupBox;
     gbColors: TGroupBox;
     seLimitLinecount: TSpinEdit;
+    procedure chkLimitLinecountChange(Sender: TObject);
     procedure chkUseEventLogColorsChange(Sender: TObject);
     procedure ColorTreeAdvancedCustomDrawItem(Sender: TCustomTreeView;
       Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
@@ -152,6 +153,11 @@ begin
   BackGroundColorBox.Enabled := chkUseEventLogColors.Checked;
 end;
 
+procedure TDebuggerEventLogOptionsFrame.chkLimitLinecountChange(Sender: TObject);
+begin
+  seLimitLinecount.Enabled := (Sender as TCheckBox).Checked;
+end;
+
 class function TDebuggerEventLogOptionsFrame.GetCategoryStr(ACategory: TDBGEventCategory): String;
 begin
   case ACategory of
@@ -223,6 +229,9 @@ begin
 
   for i := Low(DebuggerDefaultColors) to High(DebuggerDefaultColors) do
     ColorTree.Items.Add(nil, DBGEventNames[i]);
+
+  chkLimitLinecountChange(chkLimitLinecount);
+  chkUseEventLogColorsChange(chkUseEventLogColors);
 end;
 
 procedure TDebuggerEventLogOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
@@ -251,7 +260,6 @@ begin
     for EventType := Low(TDBGEventType) to High(TDBGEventType) do
       FColors[EventType] := DebuggerEventLogColors[EventType];
   end;
-  //chkUseEventLogColorsChange(chkUseEventLogColors);
 end;
 
 procedure TDebuggerEventLogOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);