paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 07:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: further internationalization

Browse Source 
git-svn-id: trunk@963 -
This commit is contained in:
lazarus 2002-02-09 01:47:30 +00:00
parent 064238fa05
commit 70ec3d5021
2 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/codetools/fileprocs.pas
View File

@ -38,7 +38,7 @@ uses
{$IFDEF MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, SysUtils;
Classes, SysUtils, CodeToolsStrConsts;
const
// ToDo: find the constant in the fpc units.
@ -91,7 +91,7 @@ begin
// TProcess does not report, if a program can not be executed
// to get good error messages consider the OS
if not FileExists(AFilename) then begin
raise Exception.Create('file "'+AFilename+'" does not exist');
raise Exception.CreateFmt(ctsFileDoesNotExists,[AFilename]);
end;
{$IFNDEF win32}
if not{$IFDEF Ver1_0}Linux{$ELSE}Unix{$ENDIF}.Access(
@ -99,14 +99,13 @@ begin
begin
AText:='"'+AFilename+'"';
case LinuxError of
sys_eacces: AText:='execute access denied for '+AText;
sys_enoent: AText:='a directory component in '+AText
+' does not exist or is a dangling symlink';
sys_enotdir: AText:='a directory component in '+Atext+' is not a directory';
sys_enomem: AText:='insufficient memory';
sys_eloop: AText:=AText+' has a circular symbolic link';
sys_eacces: AText:=Format(ctsExecuteAccessDeniedForFile,[AText]);
sys_enoent: AText:=Format(ctsDirComponentDoesNotExistsOrIsDanglingSymLink,[AText]);
sys_enotdir: AText:=Format(ctsDirComponentIsNotDir,[AText]);
sys_enomem: AText:=ctsInsufficientMemory;
sys_eloop: AText:=Format(ctsFileHasCircularSymLink,[AText]);
else
AText:=AText+' is not executable';
AText:=Format(ctsFileIsNotExecutable,[AText]);
end;
raise Exception.Create(AText);
end;

11
lcl/include/wincontrol.inc
View File

@ -1661,7 +1661,7 @@ var
Params: TCreateParams;
n: Integer;
begin
//writeln('[TWinControl.CreateWnd] START ',Classname);
//writeln('[TWinControl.CreateWnd] START ',Classname);
if (FCompstyle = csNone) then
begin
WriteLn(Format('WARNING: [TWinControl.CreateWnd] %s --> FCompstyle = csNone', [ClassName]));
@ -1671,7 +1671,7 @@ begin
CreateParams(Params);
with Params do begin
if (WndParent = 0) and (Style and WS_CHILD <> 0) then begin
// raise EInvalidOperation.CreateFmt('Control ''%s'' has no parent', [Name]);
// raise EInvalidOperation.CreateFmt('Control ''%s'' has no parent', [Name]);
exit;
end;
Assert((parent <> nil) or (WndParent = 0), 'TODO: find parent if parent=nil and WndParent <> 0');
@ -1682,7 +1682,7 @@ begin
InitializeWnd;
//writeln('[TWinControl.CreateWnd] ',Name,':',ClassName,' ',Left,',',Top,',',Width,',',Height);
//writeln('[TWinControl.CreateWnd] ',Name,':',ClassName,' ',Left,',',Top,',',Width,',',Height);
RequestAlign;
if FWinControls <> nil then begin
@ -1690,7 +1690,7 @@ begin
with TWinControl(FWinControls.Items[n]) do
if Visible then HandleNeeded;
end;
//writeln('[TWinControl.CreateWnd] END ',Classname);
//writeln('[TWinControl.CreateWnd] END ',Classname);
end;
{------------------------------------------------------------------------------
@ -2017,6 +2017,9 @@ end;
{ =============================================================================
$Log$
Revision 1.54 2002/03/29 14:32:49 lazarus
MG: further internationalization
Revision 1.53 2002/03/25 17:59:20 lazarus
GTK Cleanup
Shane