paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 21:59:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: compiler_messages_options, use OnItemClick() instead of OnClick() to assign values to TCompilerMessageConfig.Now we can change value by key space also.

Browse Source 
git-svn-id: trunk@26525 -
This commit is contained in:
zeljko 2010-07-08 11:44:02 +00:00
parent a7ff4e3662
commit 0430ca1a77
2 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/frames/compiler_messages_options.lfm
View File

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

12
ide/frames/compiler_messages_options.pas
View File

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