paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: change color treeview colors after their change in color boxes

Browse Source 
git-svn-id: trunk@30485 -
This commit is contained in:
paul 2011-04-27 03:41:54 +00:00
parent bc6174fd5e
commit 1ee57a68c4
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/frames/debugger_eventlog_options.lfm
View File

@ -170,6 +170,7 @@ inherited DebuggerEventLogOptionsFrame: TDebuggerEventLogOptionsFrame
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 16
OnChange = ForegroundColorBoxChange
TabOrder = 2
end
object BackGroundColorBox: TColorBox
@ -193,6 +194,7 @@ inherited DebuggerEventLogOptionsFrame: TDebuggerEventLogOptionsFrame
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 16
OnChange = ForegroundColorBoxChange
TabOrder = 3
end
object ForeGroundLabel: TLabel

13
debugger/frames/debugger_eventlog_options.pas
View File

@ -59,6 +59,7 @@ type
var PaintImages, DefaultDraw: Boolean);
procedure ColorTreeChange(Sender: TObject; Node: TTreeNode);
procedure ColorTreeClick(Sender: TObject);
procedure ForegroundColorBoxChange(Sender: TObject);
private
class function GetCategoryStr(ACategory: TDBGEventCategory): String;
procedure UpdateSelectedColor;
@ -152,6 +153,18 @@ begin
UpdateSelectedColor;
end;
procedure TDebuggerEventLogOptionsFrame.ForegroundColorBoxChange(Sender: TObject);
begin
if Assigned(ColorTree.Selected) then
begin
if (Sender = ForegroundColorBox) then
PEventLogColor(ColorTree.Selected.Data)^.Foreground := ForeGroundColorBox.Selected;
if Sender = BackGroundColorBox then
PEventLogColor(ColorTree.Selected.Data)^.Background := BackGroundColorBox.Selected;
ColorTree.Invalidate;
end;
end;
procedure TDebuggerEventLogOptionsFrame.chkUseEventLogColorsChange(Sender: TObject);
begin
ColorTree.Enabled := chkUseEventLogColors.Checked;