paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 19:29:31 +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 Width = 626
Align = alClient Align = alClient
Caption = 'grpCompilerMessages' Caption = 'grpCompilerMessages'
ClientHeight = 437 ClientHeight = 436
ClientWidth = 622 ClientWidth = 622
TabOrder = 0 TabOrder = 0
object editMsgFilter: TEdit object editMsgFilter: TEdit
AnchorSideLeft.Control = lblFilter AnchorSideLeft.Control = lblFilter
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = grpCompilerMessages AnchorSideTop.Control = grpCompilerMessages
Left = 47 Left = 56
Height = 21 Height = 21
Top = 6 Top = 6
Width = 567 Width = 558
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -41,21 +41,21 @@ inherited CompilerMessagesOptionsFrame: TCompilerMessagesOptionsFrame
AnchorSideBottom.Control = grpCompilerMessages AnchorSideBottom.Control = grpCompilerMessages
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 398 Height = 397
Top = 33 Top = 33
Width = 610 Width = 610
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 0
OnClick = chklistCompMsgClick OnItemClick = chklistCompMsgItemClick
Sorted = True Sorted = True
TabOrder = 1 TabOrder = 1
end end
object lblFilter: TLabel object lblFilter: TLabel
Left = 6 Left = 6
Height = 14 Height = 16
Top = 8 Top = 8
Width = 35 Width = 44
Caption = 'lblFilter' Caption = 'lblFilter'
ParentColor = False ParentColor = False
end end

12
ide/frames/compiler_messages_options.pas
View File

@ -21,7 +21,7 @@ type
grpCompilerMessages: TGroupBox; grpCompilerMessages: TGroupBox;
lblFilter: TLabel; lblFilter: TLabel;
procedure btnBrowseMsgClick(Sender: TObject); procedure btnBrowseMsgClick(Sender: TObject);
procedure chklistCompMsgClick(Sender: TObject); procedure chklistCompMsgItemClick(Sender: TObject; Index: integer);
procedure chkUseMsgFileChange(Sender: TObject); procedure chkUseMsgFileChange(Sender: TObject);
procedure editMsgFilterChange(Sender: TObject); procedure editMsgFilterChange(Sender: TObject);
private private
@ -57,12 +57,12 @@ begin
UpdateFilter; UpdateFilter;
end; end;
procedure TCompilerMessagesOptionsFrame.chklistCompMsgClick(Sender: TObject); procedure TCompilerMessagesOptionsFrame.chklistCompMsgItemClick(
var Sender: TObject; Index: integer);
i : Integer;
begin begin
for i := 0 to chklistCompMsg.Count - 1 do if (Index >= 0) and (Index < chklistCompMsg.Items.Count) then
TCompilerMessageConfig(chklistCompMsg.Items.Objects[i]).Ignored := not chklistCompMsg.Checked[i]; TCompilerMessageConfig(chklistCompMsg.Items.Objects[Index]).Ignored :=
not chklistCompMsg.Checked[Index];
end; end;
procedure TCompilerMessagesOptionsFrame.btnBrowseMsgClick(Sender: TObject); procedure TCompilerMessagesOptionsFrame.btnBrowseMsgClick(Sender: TObject);