paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:16:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed find units with mixed case

Browse Source 
git-svn-id: trunk@5633 -
This commit is contained in:
mattias 2004-07-01 18:46:04 +00:00
parent 71c1f8d17d
commit d808ea8234
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/finddeclarationtool.pas
View File

@ -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;

2
components/synedit/synedit.pp
View File

@ -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}