diff options
Diffstat (limited to 'examples')
-rw-r--r-- | examples/gui/listviewtest/listviewtest.lpi | 3 | ||||
-rw-r--r-- | examples/gui/listviewtest/listviewtest.lpr | 3 |
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); |