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

RxFPC: fix compile rxfileutils on windows

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5825 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-03-30 06:53:18 +00:00
parent c60a38defc
commit 7a395b0e3e
2 changed files with 2 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/rx/trunk/rxcontrols/rxversinfo.pas
View File

@ -307,17 +307,6 @@ end;
function TRxVersionInfo.GetWidgetName: string;
begin
Result:=sWidget + LCLPlatformDisplayNames[WidgetSet.LCLPlatform];
{ case WidgetSet.LCLPlatform of
lpGtk:Result:=sGTKWidgetSet;
lpGtk2:Result:=sGTK2WidgetSet;
lpWin32:Result:=sWin32_64WidgetSet;
lpWinCE:Result:=sWinCEWidgetSet;
lpCarbon:Result:=sCarbonWidgetSet;
lpQT:Result:=sQTWidgetSet;
lpfpGUI:Result:=sFpGUIWidgetSet;
else
Result:=sOtherGUIWidgetSet;
end;}
end;
end.

2
components/rx/trunk/rxtools/rxfileutils.pas
View File

@ -150,7 +150,9 @@ end;
function GetFileOwnerUser(const SearchDomain, FileName: String): String;
var
S:string;
{$IFNDEF WINDOWS}
FStat: stat;
{$ENDIF}
begin
{$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)}
(* GetFileNameOwner(UTF8ToSys(SearchDomain), UTF8ToSys(FileName), Result, S);