From c9a02bf590248c0bd8e1343198d3f9c13ce118c1 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sat, 14 Jun 2008 18:34:02 +0200 Subject: Port to new ULibc unit, drop dependency to compiler Libc library (preparation for PPC port) --- UChown.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'UChown.pas') diff --git a/UChown.pas b/UChown.pas index 5127c22..770c3fe 100644 --- a/UChown.pas +++ b/UChown.pas @@ -22,7 +22,7 @@ unit UChown; interface uses - SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKMenus, GTKView; + SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView; type TFChown = class(TGTKDialog) @@ -49,7 +49,7 @@ var implementation -uses Libc, ULocale, UCoreUtils, UCoreClasses; +uses ULibc, ULocale, UCoreUtils, UCoreClasses; procedure TFChown.FormCreate(Sender: TObject); @@ -170,14 +170,14 @@ begin if UsrManager.UserList.Count > 0 then for i := 0 to UsrManager.UserList.Count - 1 do begin Item := OwnerListView.Items.Add; - Item.SetValue(0, TUser(UsrManager.UserList[i]).UserName); - Item.SetValue(1, TUser(UsrManager.UserList[i]).UID); + Item.SetValue(0, TSystemUser(UsrManager.UserList[i]).UserName); + Item.SetValue(1, TSystemUser(UsrManager.UserList[i]).UID); end; if UsrManager.GroupList.Count > 0 then for i := 0 to UsrManager.GroupList.Count - 1 do begin Item := GroupListView.Items.Add; - Item.SetValue(0, TGroup(UsrManager.GroupList[i]).GroupName); - Item.SetValue(1, TGroup(UsrManager.GroupList[i]).GID); + Item.SetValue(0, TSystemGroup(UsrManager.GroupList[i]).GroupName); + Item.SetValue(1, TSystemGroup(UsrManager.GroupList[i]).GID); end; finally UsrManager.Free; -- cgit v1.2.3