paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 11:16:09 +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+'.pp',Result) then exit;
if LoadFile(ADir+AnUnitName+'.pas',Result) then exit; if LoadFile(ADir+AnUnitName+'.pas',Result) then exit;
end else begin end else begin
{$IFNDEF win32}
if LoadFile(ADir+lowercase(AnUnitName)+CompiledSrcExt,Result) then exit; if LoadFile(ADir+lowercase(AnUnitName)+CompiledSrcExt,Result) then exit;
{$ENDIF}
if LoadFile(ADir+AnUnitName+CompiledSrcExt,Result) then exit;
end; end;
Result:=nil; Result:=nil;
end; end;

2
components/synedit/synedit.pp
View File

@ -6795,7 +6795,6 @@ end;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
{$IFDEF USE_SYNEDIT_MOUSEWHEEL} {$IFDEF USE_SYNEDIT_MOUSEWHEEL}
procedure TCustomSynEdit.WMMouseWheel(var Msg: TLMMouseEvent); procedure TCustomSynEdit.WMMouseWheel(var Msg: TLMMouseEvent);
var var
nDelta: integer; nDelta: integer;
@ -6831,7 +6830,6 @@ begin
TopLine := TopLine - (nDelta * nWheelClicks); TopLine := TopLine - (nDelta * nWheelClicks);
Update; Update;
end; end;
{$ENDIF} {$ENDIF}
{$ELSE} {$ELSE}