paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 07:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ GetShortFileName used for tcodeeditor file opening

Browse Source
This commit is contained in:
pierre 2000-01-14 15:36:42 +00:00
parent 72cc83f234
commit 78e67e94cb
2 changed files with 35 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/text/weditor.pas
View File

@ -4993,7 +4993,7 @@ function TFileEditor.LoadFile: boolean;
var S: PBufStream;
OK: boolean;
begin
New(S, Init(FileName,stOpenRead,EditorTextBufSize));
New(S, Init(GetShortName(FileName),stOpenRead,EditorTextBufSize));
OK:=Assigned(S);
{$ifdef TEST_PARTIAL_SYNTAX}
SyntaxComplete:=false;
@ -5517,7 +5517,10 @@ end;
END.
{
$Log$
Revision 1.74 2000-01-10 23:20:04 pierre
Revision 1.75 2000-01-14 15:36:42 pierre
+ GetShortFileName used for tcodeeditor file opening
Revision 1.74 2000/01/10 23:20:04 pierre
* problem with Paste solved
Revision 1.73 2000/01/10 13:25:46 pierre

31
ide/text/wutils.pas
View File

@ -97,6 +97,8 @@ function NameAndExtOf(const S: string): string;
function DirAndNameOf(const S: string): string;
{ return Dos GetFTime value or -1 if the file does not exist }
function GetFileTime(const FileName: string): longint;
{ copied from compiler global unit }
function GetShortName(const n:string):string;
function EatIO: integer;
@ -347,6 +349,30 @@ begin
GetFileTime:=T;
end;
function GetShortName(const n:string):string;
{$ifdef win32}
var
hs,hs2 : string;
{$endif}
{$ifdef go32v2}
var
hs : string;
{$endif}
begin
GetShortName:=n;
{$ifdef win32}
hs:=n+#0;
Windows.GetShortPathName(@hs[1],@hs2[1],high(hs2));
hs2[0]:=chr(strlen(@hs2[1]));
GetShortName:=hs2;
{$endif}
{$ifdef go32v2}
hs:=n;
if Dos.GetShortName(hs) then
GetShortName:=hs;
{$endif}
end;
function EatIO: integer;
begin
@ -535,7 +561,10 @@ end;
END.
{
$Log$
Revision 1.11 2000-01-05 17:27:20 pierre
Revision 1.12 2000-01-14 15:36:43 pierre
+ GetShortFileName used for tcodeeditor file opening
Revision 1.11 2000/01/05 17:27:20 pierre
+ linecomplete arg for ReadlnFromStream
Revision 1.10 2000/01/03 11:38:35 michael