From d808ea823486983dfb332bcaf4162c4efa56e3a2 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 1 Jul 2004 18:46:04 +0000
Subject: [PATCH] fixed find units with mixed case

git-svn-id: trunk@5633 -
---
 components/codetools/finddeclarationtool.pas | 3 +++
 components/synedit/synedit.pp                | 2 --
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index 9bf7c7eb25..7f037ddf65 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -1191,7 +1191,10 @@ var
       if LoadFile(ADir+AnUnitName+'.pp',Result) then exit;
       if LoadFile(ADir+AnUnitName+'.pas',Result) then exit;
     end else begin
+      {$IFNDEF win32}
       if LoadFile(ADir+lowercase(AnUnitName)+CompiledSrcExt,Result) then exit;
+      {$ENDIF}
+      if LoadFile(ADir+AnUnitName+CompiledSrcExt,Result) then exit;
     end;
     Result:=nil;
   end;
diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 242ce221b5..1e69fc762a 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -6795,7 +6795,6 @@ end;
 
 {$IFDEF SYN_LAZARUS}
 {$IFDEF USE_SYNEDIT_MOUSEWHEEL}
-
 procedure TCustomSynEdit.WMMouseWheel(var Msg: TLMMouseEvent);
 var
   nDelta: integer;
@@ -6831,7 +6830,6 @@ begin
   TopLine := TopLine - (nDelta * nWheelClicks);
   Update;
 end;
-
 {$ENDIF}
 {$ELSE}