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

fix error on draw rxdbgrid title

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1374 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2010-11-17 19:16:46 +00:00
parent 0e67b948fb
commit a893599c36
3 changed files with 37 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/rxstrutils.pas
View File

@ -251,23 +251,23 @@ uses Windows;
function StrToOem(const AnsiStr: string): string;
begin
{$IFDEF WINDOWS}
SetLength(Result, Length(AnsiStr));
if Length(Result) > 0 then
{$IFDEF WIN32}
CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
{$ELSE}
// AnsiToOemBuff(@AnsiStr[1], @Result[1], Length(Result));
Result:=AnsiStr;
{$ENDIF}
end;
function OemToAnsiStr(const OemStr: string): string;
begin
{$IFDEF WINDOWS}
SetLength(Result, Length(OemStr));
if Length(Result) > 0 then
{$IFDEF WIN32}
OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result));
{$ELSE}
// OemToAnsiBuff(@OemStr[1], @Result[1], Length(Result));
Result:=OemStr;
{$ENDIF}
end;