From 5c0465c60c9d2b0cfe57f4256886fb4645548565 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 12 Jul 2010 19:11:22 +0000
Subject: [PATCH] * Remove Unnecessary typecasts

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1251 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview-new/branches/4.8/VirtualTrees.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
index a7c239f53..f7ae11924 100644
--- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
+++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
@@ -5471,7 +5471,7 @@ procedure TCustomVirtualTreeOptions.AssignTo(Dest: TPersistent);
 begin
   if Dest is TCustomVirtualTreeOptions then
   begin
-    with Dest as TCustomVirtualTreeOptions do
+    with TCustomVirtualTreeOptions(Dest) do
     begin
       PaintOptions := Self.PaintOptions;
       AnimationOptions := Self.AnimationOptions;
@@ -30394,7 +30394,7 @@ procedure TCustomStringTreeOptions.AssignTo(Dest: TPersistent);
 begin
   if Dest is TCustomStringTreeOptions then
   begin
-    with Dest as TCustomStringTreeOptions do
+    with TCustomStringTreeOptions(Dest) do
       StringOptions := Self.StringOptions;
   end;