pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

1. Fix compile RxDBGrid on Lazarus 1.0

Browse Source 
2. Fix Replace AnsiUpperCase to UTF8UpperCase in FolderList
3. Fix OnChange event in TRxDBLockup on destroy component


git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2763 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-07-11 16:28:38 +00:00
parent 491d1802c7
commit ab407ba4e7
3 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/folderlister.pas
View File

@ -146,7 +146,7 @@ begin
AFolderList.Add(S+Rec.Name)
else
begin
if AnsiLowerCase(ExtractFileExt(Rec.Name))=AnsiLowerCase(FDefaultExt) then
if UTF8LowerCase(ExtractFileExt(Rec.Name))=UTF8LowerCase(FDefaultExt) then
AFileList.Add(S+Rec.Name);
end;
R:=FindNextUTF8(Rec);