2 files changed, 20 insertions, 7 deletions
diff --git a/examples/gui/listviewtest/listviewtest.lpi b/examples/gui/listviewtest/listviewtest.lpi
index 50579565..595a5353 100644
--- a/examples/gui/listviewtest/listviewtest.lpi
+++ b/examples/gui/listviewtest/listviewtest.lpi
@@ -36,7 +36,6 @@
       <Unit0>
         <Filename Value="listviewtest.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="listviewtest"/>
       </Unit0>
     </Units>
   </ProjectOptions>
@@ -53,11 +52,5 @@
         <UseAnsiStrings Value="False"/>
       </SyntaxOptions>
     </Parsing>
-    <Other>
-      <CompilerMessages>
-        <UseMsgFile Value="True"/>
-      </CompilerMessages>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
   </CompilerOptions>
 </CONFIG>
diff --git a/examples/gui/listviewtest/listviewtest.lpr b/examples/gui/listviewtest/listviewtest.lpr
index 38bb6c83..57ab27b6 100644
--- a/examples/gui/listviewtest/listviewtest.lpr
+++ b/examples/gui/listviewtest/listviewtest.lpr
@@ -9,7 +9,10 @@ uses
   
 type
 
+  { TMainForm }
+
   TMainForm = class(TfpgForm)
+    procedure ShowFocusItemChange(Sender: TObject);
   private
     FEdit: TfpgEdit;
     FAddButton: TfpgButton;
@@ -18,6 +21,7 @@ type
     FTmpListView: TfpgListView;
     FQuitButton: TfpgButton;
     FCheck: TfpgCheckBox;
+    FShowFocus: TfpgCheckBox;
     procedure LVColumnClicked(Listview: TfpgListView; Column: TfpgLVColumn; Button: Integer);
     procedure CloseBttn(Sender: TObject);
     procedure AddBttn(Sender: TObject);
@@ -35,6 +39,11 @@ type
 
 { TMainForm }
 
+procedure TMainForm.ShowFocusItemChange(Sender: TObject);
+begin
+  FListView.ShowFocusRect:=TfpgCheckBox(Sender).Checked;
+end;
+
 procedure TMainForm.LVColumnClicked(Listview: TfpgListView; Column: TfpgLVColumn;
   Button: Integer);
 begin
@@ -260,6 +269,17 @@ begin
     OnChange := @ShowHeadersChange;
   end;
 
+  FShowFocus := TfpgCheckBox.Create(BottomPanel);
+  with FShowFocus do begin
+    Parent := BottomPanel;
+    Top := 10;
+    Left := 320;
+    Width := 130;
+    Checked := True;
+    Text := 'Show Item Focus';
+    OnChange:=@ShowFocusItemChange;
+  end;
+
 end;
 
 begin