summaryrefslogtreecommitdiff
path: root/examples/gui/listviewtest
diff options
context:
space:
mode:
Diffstat (limited to 'examples/gui/listviewtest')
-rw-r--r--examples/gui/listviewtest/listviewtest.lpi3
-rw-r--r--examples/gui/listviewtest/listviewtest.lpr3
2 files changed, 5 insertions, 1 deletions
diff --git a/examples/gui/listviewtest/listviewtest.lpi b/examples/gui/listviewtest/listviewtest.lpi
index 0230c25e..e8537f5b 100644
--- a/examples/gui/listviewtest/listviewtest.lpi
+++ b/examples/gui/listviewtest/listviewtest.lpi
@@ -48,6 +48,9 @@
</SyntaxOptions>
</Parsing>
<Other>
+ <CompilerMessages>
+ <UseMsgFile Value="True"/>
+ </CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
diff --git a/examples/gui/listviewtest/listviewtest.lpr b/examples/gui/listviewtest/listviewtest.lpr
index ab25e946..afb1fbdf 100644
--- a/examples/gui/listviewtest/listviewtest.lpr
+++ b/examples/gui/listviewtest/listviewtest.lpr
@@ -38,6 +38,7 @@ end;
procedure TMainForm.AddBttn(Sender: TObject);
var
Item: TfpgLVItem;
+ I: Integer;
begin
FListView.BeginUpdate;
FTmpListView.BeginUpdate;
@@ -72,7 +73,7 @@ end;
procedure TMainForm.ItemSelectionChanged(ListView: TfpgListView;
Item: TfpgLVItem; ItemIndex: Integer; Selected: Boolean);
begin
- WriteLn('Item changed: ', ItemIndex, ' ', Item.Caption, ' ',Selected);
+ //WriteLn('Item changed: ', ItemIndex, ' ', Item.Caption, ' ',Selected);
end;
constructor TMainForm.Create(AOwner: TComponent);