1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160 | with Ada.Directories; use Ada.Directories;
with Ada.Strings.UTF_Encoding.Wide_Wide_Strings; use Ada.Strings.UTF_Encoding.Wide_Wide_Strings;
with Ada.Calendar.Formatting; use Ada.Calendar.Formatting;
with Ada.Strings.Wide_Wide_Unbounded; use Ada.Strings.Wide_Wide_Unbounded;
with Sf.Graphics.Text;
with Views;
with GrafikDatentypen;
with TextaccessVariablen;
with MenueKonstanten;
with InteraktionAuswahl;
with MenueDatentypen;
with TextKonstanten;
with VerzeichnisKonstanten;
with GrafikKonstanten;
with ViewKonstanten;
with LeseGrafiktask;
with HintergrundGrafik;
with ViewsEinstellenGrafik;
with TextberechnungenHoeheGrafik;
with TextberechnungenBreiteGrafik;
with TextfarbeGrafik;
with TextaccessverwaltungssystemEinfachGrafik;
with TextskalierungGrafik;
with SpielstandVariablen;
package body SpielstandmenueGrafik is
procedure Spielstandmenü
(AuswahlExtern : in Natural)
is begin
Viewfläche := ViewsEinstellenGrafik.ViewflächeVariabelAnpassen (ViewflächeExtern => Viewfläche,
VerhältnisExtern => (GrafikRecordKonstanten.MenüEinfachbereich.width, GrafikRecordKonstanten.MenüEinfachbereich.height));
ViewsEinstellenGrafik.ViewEinstellen (ViewExtern => Views.MenüviewAccesse (ViewKonstanten.MenüAuswahl),
GrößeExtern => Viewfläche,
AnzeigebereichExtern => GrafikRecordKonstanten.MenüEinfachbereich);
HintergrundGrafik.Hintergrund (HintergrundExtern => GrafikDatentypen.Menü_Hintergrund_Enum,
AbmessungenExtern => Viewfläche);
Viewfläche := Textanzeige (ViewflächeExtern => Viewfläche,
AuswahlExtern => AuswahlExtern);
end Spielstandmenü;
function Textanzeige
(ViewflächeExtern : in Sf.System.Vector2.sfVector2f;
AuswahlExtern : in Natural)
return Sf.System.Vector2.sfVector2f
is begin
Textposition.y := TextberechnungenHoeheGrafik.Zeilenabstand;
NeueTextbreite := GrafikKonstanten.Nullwert;
MehrereSeiten := LeseGrafiktask.Seitenauswahl;
SpeichernLaden := LeseGrafiktask.SpeichernLaden;
Spielstand := SpielstandVariablen.GanzeSpielstandliste;
TextSchleife:
for TextSchleifenwert in MenueKonstanten.StandardArrayanpassung .. MenueKonstanten.EndeAbzugGrafik (MenueDatentypen.Spielstand_Menü_Enum) loop
if
SpeichernLaden = False
and
TextSchleifenwert = NeuerSpielstand
then
null;
elsif
TextSchleifenwert = MehrAnzeigen
and
MehrereSeiten = False
then
null;
else
case
TextSchleifenwert
is
when SpielstandlisteAnfang .. SpielstandlisteEnde =>
Sf.Graphics.Text.setUnicodeString (text => TextaccessVariablen.SpielstandAccess (TextSchleifenwert),
str => TextSetzen (TextExtern => To_Wide_Wide_String (Spielstand (TextSchleifenwert - MenueKonstanten.SchleifenanpassungGrafikLogik))));
when others =>
null;
end case;
Textposition.x := TextberechnungenBreiteGrafik.MittelpositionBerechnenGlobaleGrenzen (TextAccessExtern => TextaccessVariablen.SpielstandAccess (TextSchleifenwert),
ViewbreiteExtern => ViewflächeExtern.x);
if
TextSchleifenwert = MenueKonstanten.EndeAbzugGrafik (MenueDatentypen.Spielstand_Menü_Enum) - MenueKonstanten.SchleifenanpassungGrafikLogik
and
LeseGrafiktask.Löschauswahl
then
Farbe := Sf.Graphics.Color.sfRed;
else
Farbe := TextfarbeGrafik.AuswahlfarbeFestlegen (TextnummerExtern => TextSchleifenwert - MenueKonstanten.SchleifenanpassungGrafikLogik,
AuswahlExtern => AuswahlExtern);
end if;
Textbreite := TextberechnungenBreiteGrafik.NeueTextbreiteErmitteln (TextAccessExtern => TextaccessVariablen.SpielstandAccess (TextSchleifenwert),
TextbreiteExtern => GrafikKonstanten.Nullwert);
Skalierung.x := TextskalierungGrafik.Verkleinerung (AktuelleBreiteExtern => Textbreite,
ErlaubteBreiteExtern => ViewflächeExtern.x);
Skalierung.y := GrafikRecordKonstanten.Standardskalierung.y;
NeueTextbreite := Textbreite;
TextaccessverwaltungssystemEinfachGrafik.PositionSkalierenFarbeZeichnen (TextaccessExtern => TextaccessVariablen.SpielstandAccess (TextSchleifenwert),
PositionExtern => Textposition,
SkalierungExtern => Skalierung,
FarbeExtern => Farbe);
InteraktionAuswahl.PositionenSpielstand (TextSchleifenwert - MenueKonstanten.SchleifenanpassungGrafikLogik)
:= Sf.Graphics.Text.getGlobalBounds (text => TextaccessVariablen.SpielstandAccess (TextSchleifenwert));
end if;
Textposition.y := TextberechnungenHoeheGrafik.NeueTextposition (PositionExtern => Textposition.y,
ZusatzwertExtern => TextberechnungenHoeheGrafik.KleinerZeilenabstand);
end loop TextSchleife;
return (NeueTextbreite, Textposition.y);
end Textanzeige;
function TextSetzen
(TextExtern : in Wide_Wide_String)
return Wide_Wide_String
is begin
if
TextExtern = TextKonstanten.LeerString
then
return TextExtern;
elsif
Exists (Name => VerzeichnisKonstanten.SpielstandStrich & Encode (Item => TextExtern)) = False
then
return TextExtern;
else
return (TextExtern & TextKonstanten.StandardAbstand & Decode (Item => Local_Image (Date => Modification_Time (Name => (VerzeichnisKonstanten.SpielstandStrich & Encode (Item => TextExtern))),
Include_Time_Fraction => False)));
end if;
end TextSetzen;
end SpielstandmenueGrafik;
|