paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 03:31:18 +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; Indicator^.GrowMode:=gfGrowLoY+gfGrowHiY;
Insert(Indicator); Insert(Indicator);
GetExtent(R); R.Grow(-1,-1); GetExtent(R); R.Grow(-1,-1);
LoadFile:=AFileName<>''; LoadFile:=(AFileName<>'') and (AFileName<>'*');
if not LoadFile then if (AFileName='') then
begin begin
Inc(GlobalNoNameCount); Inc(GlobalNoNameCount);
NoNameCount:=GlobalNoNameCount; NoNameCount:=GlobalNoNameCount;
end end
else else
NoNameCount:=0; NoNameCount:=-1;
if AFileName='*' then
AFileName:='';
New(Editor, Init(R, HSB, VSB, Indicator,AFileName)); New(Editor, Init(R, HSB, VSB, Indicator,AFileName));
Editor^.GrowMode:=gfGrowHiX+gfGrowHiY; Editor^.GrowMode:=gfGrowHiX+gfGrowHiY;
if LoadFile then if LoadFile then
@ -1734,7 +1736,7 @@ begin
end; end;
SetTitle(Name); SetTitle(Name);
end end
else if NoNameCount>0 then else if NoNameCount>=0 then
begin begin
SetTitle('noname'+IntToStrZ(NonameCount,2)+'.pas'); SetTitle('noname'+IntToStrZ(NonameCount,2)+'.pas');
end; end;
@ -2402,9 +2404,7 @@ var R: TRect;
HSB,VSB: PScrollBar; HSB,VSB: PScrollBar;
begin begin
Desktop^.GetExtent(R); Desktop^.GetExtent(R);
inherited Init(R, ''); inherited Init(R, '*');
NoNameCount:=0;
Dec(GlobalNoNameCount);
SetTitle(dialog_clipboard); SetTitle(dialog_clipboard);
HelpCtx:=hcClipboardWindow; HelpCtx:=hcClipboardWindow;
Number:=wnNoNumber; Number:=wnNoNumber;
@ -4230,7 +4230,10 @@ end;
END. END.
{ {
$Log$ $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 * TranslateCodeTemplate Shortcut is now a var parameter
Revision 1.24 2002/08/26 13:00:08 pierre Revision 1.24 2002/08/26 13:00:08 pierre