paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 09:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: set Enabled state of controls in debugger event log settings

Browse Source 
git-svn-id: trunk@33353 -
This commit is contained in:
juha 2011-11-05 17:53:58 +00:00
parent 9dee7db00c
commit c6b629a8cf
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
debugger/frames/debugger_eventlog_options.lfm
View File

@ -42,6 +42,7 @@ inherited DebuggerEventLogOptionsFrame: TDebuggerEventLogOptionsFrame
Width = 98
BorderSpacing.Around = 6
Caption = 'Limit linecount to'
OnChange = chkLimitLinecountChange
TabOrder = 1
end
object seLimitLinecount: TSpinEdit

10
debugger/frames/debugger_eventlog_options.pas
View File

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