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

+ use '*' as special name for noload and also no 'nonamexx.pas title

Browse Source
This commit is contained in:
pierre 2002-09-05 05:58:58 +00:00
parent 86830c26b8
commit 3ab5492c52
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/fpviews.pas
View File

@ -1691,14 +1691,16 @@ begin
Indicator^.GrowMode:=gfGrowLoY+gfGrowHiY;
Insert(Indicator);
GetExtent(R); R.Grow(-1,-1);
LoadFile:=AFileName<>'';
if not LoadFile then
LoadFile:=(AFileName<>'') and (AFileName<>'*');
if (AFileName='') then
begin
Inc(GlobalNoNameCount);
NoNameCount:=GlobalNoNameCount;
end
else
NoNameCount:=0;
NoNameCount:=-1;
if AFileName='*' then
AFileName:='';
New(Editor, Init(R, HSB, VSB, Indicator,AFileName));
Editor^.GrowMode:=gfGrowHiX+gfGrowHiY;
if LoadFile then
@ -1734,7 +1736,7 @@ begin
end;
SetTitle(Name);
end
else if NoNameCount>0 then
else if NoNameCount>=0 then
begin
SetTitle('noname'+IntToStrZ(NonameCount,2)+'.pas');
end;
@ -2402,9 +2404,7 @@ var R: TRect;
HSB,VSB: PScrollBar;
begin
Desktop^.GetExtent(R);
inherited Init(R, '');
NoNameCount:=0;
Dec(GlobalNoNameCount);
inherited Init(R, '*');
SetTitle(dialog_clipboard);
HelpCtx:=hcClipboardWindow;
Number:=wnNoNumber;
@ -4230,7 +4230,10 @@ end;
END.
{
$Log$
Revision 1.25 2002-09-04 08:50:59 pierre
Revision 1.26 2002-09-05 05:58:58 pierre
+ use '*' as special name for noload and also no 'nonamexx.pas title
Revision 1.25 2002/09/04 08:50:59 pierre
* TranslateCodeTemplate Shortcut is now a var parameter
Revision 1.24 2002/08/26 13:00:08 pierre