mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-21 09:42:12 +01:00
IDE Options: allow to set colors for messages in message window by urgency.
git-svn-id: trunk@48790 -
This commit is contained in:
parent
045b4fea7a
commit
4a53660e71
@ -149,7 +149,7 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
|
|||||||
Height = 174
|
Height = 174
|
||||||
Top = 26
|
Top = 26
|
||||||
Width = 495
|
Width = 495
|
||||||
PageIndex = 1
|
PageIndex = 0
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Anchors = [akTop, akLeft, akRight]
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
TabStop = True
|
TabStop = True
|
||||||
|
|||||||
@ -177,7 +177,7 @@ procedure TMsgWndOptionsFrame.MsgColorListBoxSelectionChange(Sender: TObject; Us
|
|||||||
begin
|
begin
|
||||||
if not (fReady and User) then
|
if not (fReady and User) then
|
||||||
Exit;
|
Exit;
|
||||||
MsgColorBox.Selected := MWColorListBox.Selected;
|
MsgColorBox.Selected := MsgColorListBox.Selected;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMsgWndOptionsFrame.MWColorListBoxSelectionChange(Sender: TObject;
|
procedure TMsgWndOptionsFrame.MWColorListBoxSelectionChange(Sender: TObject;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user