INTERNET
 :
  |    

/

, . /

1 | 2 | 3 | 4 | 5 | 6

←  
1 2 

{$D+,L+}

uses drivers,objects,views,app,menus,main,calendar,dialogs,calc,puzzle;

var pvisualstrm:pprotectedstream;

procedure createstatusline;

var r:trect;

pstatus:pstatusline;

begin

r.a.x:=0;

r.a.y:=24;

r.b.x:=80;

r.b.y:=25;

pstatus:=new(pstatusline,init(r,

newstatusdef(0,$ffff,

newstatuskey('~F1~ ',kbf1,cmhelp,

newstatuskey('~F8~ DOS',kbf8,cmdos,

newstatuskey('~F9~ ',kbf9,cmmenu,

newstatuskey('~F10~ ',kbf10,cmexit,nil)))),nil)));

visualres.put(pstatus,'');

dispose(pstatus,done)

end;

procedure createmenubar;

var r:trect;

pbar:pmenubar;

begin

r.a.x:=0;

r.a.y:=0;

r.b.x:=80;

r.b.y:=1;

pbar:=new(pmenubar,init(r,newmenu(

newsubmenu('~~',hcnocontext,newmenu(

newitem('~~','F4',kbf4,cmpause,hcnocontext,

newsubmenu('~~',hcnocontext,newmenu(

newitem('~M~S-DOS','F8',kbf8,cmdos,hcnocontext,

newitem('~W~indows 3.1','',0,cmwin,hcnocontext,

newitem('~N~orton Commander 5.0','',0,cmnc,hcnocontext,nil)))),

newsubmenu('~~ ',hcnocontext,newmenu(

newitem('~~ ','',0,cmwinpbrush,hcnocontext,

newitem('~~ ','',0,cmwinwrite,hcnocontext,

newitem('~~','',0,cmwincard,hcnocontext,nil)))),

newitem('~~ ','',0,cmabout,hcnocontext,

newline(

newitem('~~','F10',kbf10,cmexit,hcnocontext,nil))))))),

newsubmenu('~~',hcnocontext,newmenu(

newitem('~~','ENTER',kbenter,cmopen,hcnocontext,

newitem('~~','',0,cmnew,hcnocontext,

newitem('~~','',0,cmrename,hcnocontext,

newitem('~~','',0,cmedit,hcnocontext,

newitem('~~','',0,cmerase,hcnocontext,nil)))))),

newsubmenu('~~',hcnocontext,newmenu(

newitem('~~','F5',kbf5,cmzoom,hcnocontext,

newitem('~~','CTRL+F5',kbctrlf5,cmresize,hcnocontext,

newitem('~~','ESC',kbesc,cmclose,hcnocontext,

newline(

newitem('~~','SHIFT+F6',kbshiftf6,cmprev,hcnocontext,

newitem('~~','F6',kbf6,cmnext,hcnocontext,nil))))))),

newsubmenu('~~',hcnocontext,newmenu(

newitem('~~','',0,cmparole,hcnocontext,

newline(

newitem('~~ ','',0,cmtext,hcnocontext,

newline(

newitem('~~','',0,cmcalend,hcnocontext,

newitem('~~','',0,cmcalc,hcnocontext,

newitem('~~','',0,cmgame,hcnocontext,nil)))))))),nil)))))));

visualres.put(pbar,'');

dispose(pbar,done)

end;

procedure createbank;

var w:pbankwindow;

r:trect;

begin

listres.init(new(pbufstream,init('expert.blc',stopen,1024)));

bases:=pstringcollection(listres.get(''));

r.assign(0,0,80,23);

w:=new(pbankwindow,init(r,' '));

visualres.put(w,'');

dispose(w,done);

listres.done

end;

procedure createcalendar;

var c:pcalendarwindow;

begin

c:=new(pcalendarwindow,init);

visualres.put(c,'');

dispose(c,done)

end;

procedure createcalc;

var c:pcalculator;

begin

c:=new(pcalculator,init);

visualres.put(c,'');

dispose(c,done)

end;

procedure creategame;

var g:ppuzzlewindow;

begin

g:=new(ppuzzlewindow,init);

visualres.put(g,'');

dispose(g,done)

end;

procedure createnewwindow;

var d:pnewwindow;

r:trect;

begin

r.assign(20,5,60,12);

d:=new(pnewwindow,init(r,' '));

with d^ do

begin

options:=options or ofcentered;

r.assign(2,2,38,3);

newinput:=new(pinputline,init(r,36));

insert(newinput);

r.assign(2,1,38,2);

insert(new(plabel,init(r,'~~ :',newinput)));

r.assign(2,4,17,6);

insert(new(pbutton,init(r,'~~',cmok,bfdefault)));

r.assign(23,4,38,6);

insert(new(pbutton,init(r,'~~',cmcancel,bfnormal)));

selectnext(false)

end;

visualres.put(d,'');

dispose(d,done)

end;

procedure createrenamewindow;

var d:prenamewindow;

ii:pinputline;

r:trect;

ss:pstatictext;

begin

r.assign(20,5,60,15);

d:=new(prenamewindow,init(r,' '));

with d^ do

begin

r.assign(2,5,38,6);

ii:=new(pinputline,init(r,36));

insert(ii);

r.assign(2,4,38,5);

insert(new(plabel,init(r,'~~ :',ii)));

r.assign(2,7,17,9);

insert(new(pbutton,init(r,'~~',cmok,bfdefault)));

r.assign(23,7,38,9);

insert(new(pbutton,init(r,'~~',cmcancel,bfnormal)));

selectnext(false)

end;

visualres.put(d,'');

dispose(d,done)

end;

procedure createdeletewindow;

var d:pdialog;

r:trect;

begin

r.assign(25,4,57,11);

d:=new(pdialog,init(r,' '));

with d^ do

begin

r.assign(1,4,15,6);

insert(new(pbutton,init(r,'~~',cmok,bfnormal)));

r.assign(17,4,31,6);

insert(new(pbutton,init(r,'~~',cmcancel,bfdefault)));

selectnext(false)

end;

visualres.put(d,'');

dispose(d,done)

end;

procedure createexitwindow;

var d:pdialog;

r:trect;

begin

r.assign(30,5,50,12);

d:=new(pdialog,init(r,''));

with d^ do

begin

r.assign(1,1,19,3);

insert(new(pstatictext,init(r,#3+' ""?')));

r.assign(1,4,9,6);

insert(new(pbutton,init(r,'~~',cmok,bfdefault)));

r.assign(11,4,19,6);

insert(new(pbutton,init(r,'~~',cmcancel,bfnormal)));

selectnext(false)

end;

visualres.put(d,'');

dispose(d,done)

end;

procedure createmachine;

var r:trect;

begin

r.assign(0,0,80,23);

machine:=new(pmachine,init(r,''));

with machine^ do

begin

r.assign(1,20,39,22);

insert(new(pbutton,init(r,'',cmmachnext,bfdefault)));

r.assign(41,20,79,22);

insert(new(pbutton,init(r,'',cmmachprev,bfnormal)));

selectnext(false)

end;

visualres.put

←  
1 2 


Copyright © 2005—2007 «RefStore.Ru»