unit costanti;
{**************} INTERFACE {*************}
type
campo_colori_principale=(TC,TB,TC_iter,TB_iter,TC_bordo,TB_bordo);
(*colori della finestra principale: TC=colore testo, TB=colore sfondo,
TC_iter=colore testo opzione scelta, TB_iter=colore sfondo opzione scelta,
TC_bordo=colore testo bordo(cornice), TB_bordo=colore sfondo bordo*)
campo_colori_finestra=(TC2,TB2,TC2_iter,TB2_iter,TC2_bordo,TB2_bordo,
TB2_ombra);
(*Stessa cosa applicata per• alle finestrelle, ossia quelle
usate per scegliere gli eseguibili *)
eseguibili_esterni=record
posX,posY:byte;
prog:string[40];
param:string[25];
end;
const
colori_principali:array[1..3,TC..TB_bordo] of byte=
((15,5,15,8,15,5),
(7,6,15,1,5,7),
(0,7,15,7,0,7));
colori_finestre:array[1..3,TC2..TB2_ombra] of byte=
((15,0,15,4,15,2,0),
(0,7,15,0,15,4,0),
(0,7,15,0,15,0,0));
(*Array di 3 combinazioni di colori globale*)
num_finestre=5;
(*numero finestrelle*)
dim_max=3;
(*numero massimo di scelte per le finestrelle*)
posX_finestre:array[1..num_finestre] of byte=(1,19,37,55,73);
(*indica dove posizionare le finestrelle nella finestra principale nella
parte alta*)
fin_princ:array[1..num_finestre] of string[13]=('FILE','ARCHIVIO',
'STAMPA','GIOCHI','VIDEO');
(*Sono i nomi delle finestrelle visualizzati nella finestra principale*)
finestra_stringhe:array[1..num_finestre,1..dim_max] of
string[15]=
(('ESCI','SUONA','INFORMAZIONI'),
('FATTURE','RICERCA',''),
('VIDEATA','DEL MESE',''),
('MASTERMIND','ASTROBAL','FINESTRE'),
('COLORE','MONOCROMATICO','LCD'));
(*nomi degli eseguibili all'interno delle finestrelle*)
num_exe=3;
exe_ext:array[1..num_exe] of eseguibili_esterni=
((posX:4;posY:1;prog:'a:\mind.exe';param:''),
(posX:4;posY:2;prog:'a:\astrobal.exe';param:'300'),
(posX:4;posY:3;prog:'a:\finestr2.exe';param:''));
{programmi da eseguire con posizione indici nelle finestre. exe
di esempio non disponibili}
procedure scelta_colori(i:byte);
(*memorizza la scelta dei colori globale nelle variabili utilizzate*)
var
dim_finestre:array[1..num_finestre] of byte;
(*numero di scelte per ciascuna finestrella*)
lunghezza_stringhe:array[1..num_finestre] of byte;
{lunghezza massima delle stringhe per ciascuna finestrella}
colori_principale:array[TC..TB_bordo] of byte;
(*colori finestra principale per singola scelta*)
colori_finestra:array[TC2..TB2_ombra] of byte;
(*colori finestrelle per singola scelta*)
campo_p:campo_colori_principale;
campo_f:campo_colori_finestra;
{***************} IMPLEMENTATION {*******************}
procedure inizializza_dim_finestre;
var i,j:byte;
begin
for i:=1 to num_finestre do
for j:=1 to dim_max do
begin
if finestra_stringhe[i,j]='' then
begin
dim_finestre[i]:=j-1;
break;
end;
if j=dim_max then dim_finestre[i]:=j;
end;
end;
procedure inizializza_stringhe;
var i,j,k,max,l:byte;
begin
for i:=1 to num_finestre do
begin
max:=0;
for j:=1 to dim_finestre[i] do
begin
l:=length(finestra_stringhe[i,j]);
if l > max
then max:=l;
end;
lunghezza_stringhe[i]:=max;
end;
(*for i:=1 to num_finestre do
for j:=1 to dim_finestre[i] do
for k:=length(finestra_stringhe[i,j]) to lunghezza_stringhe[i]-1 do
finestra_stringhe[i,j]:=finestra_stringhe[i,j]+' ';*)
end;
procedure scelta_colori(i:byte);
begin
for campo_p:=TC to TB_bordo
do colori_principale[campo_p]:=colori_principali[i,campo_p];
for campo_f:=TC2 to TB2_ombra
do colori_finestra[campo_f]:=colori_finestre[i,campo_f];
end;
begin
inizializza_dim_finestre;
inizializza_stringhe;
end.
