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
|
unit UScreenEdit;
interface
uses UMenu, SDL, UThemes;
type
TScreenEdit = class(TMenu)
public
{ Tex_Background: TTexture;
FadeOut: boolean;
Path: string;
FileName: string;}
constructor Create; override;
procedure onShow; override;
function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
{ function Draw: boolean; override;
procedure Finish;}
end;
implementation
uses UGraphic, UMusic, USkins;
function TScreenEdit.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
begin
Result := true;
If (PressedDown) Then
begin // Key Down
case PressedKey of
SDLK_Q:
begin
Result := false;
end;
SDLK_ESCAPE,
SDLK_BACKSPACE :
begin
Music.PlayBack;
FadeTo(@ScreenMain);
// Result := false;
end;
SDLK_RETURN:
begin
if Interaction = 0 then begin
Music.PlayStart;
FadeTo(@ScreenEditConvert);
end;
// if Interaction = 1 then begin
// Music.PlayStart;
// FadeTo(@ScreenEditHeader);
// end;
if Interaction = 1 then begin
Music.PlayBack;
FadeTo(@ScreenMain);
end;
end;
SDLK_DOWN:
begin
InteractNext;
end;
SDLK_UP:
begin
InteractPrev;
end;
end;
end;
end;
constructor TScreenEdit.Create;
begin
inherited Create;
AddButton(400-200, 100 + 0*70, 400, 40, Skin.GetTextureFileName('ButtonF'), false);
AddButtonText(10, 5, 0, 0, 0, 'Convert Midi to Txt');
// Button[High(Button)].Text[0].Size := 11;
// AddButton(400-200, 100 + 1*60, 400, 40, 'ButtonF');
// AddButtonText(10, 5, 0, 0, 0, 'Edit Headers');
// AddButton(400-200, 100 + 2*60, 400, 40, 'ButtonF');
// AddButtonText(10, 5, 0, 0, 0, 'Set GAP');
AddButton(400-200, 100 + 3*60, 400, 40, Skin.GetTextureFileName('ButtonF'), false);
AddButtonText(10, 5, 0, 0, 0, 'Exit');
end;
procedure TScreenEdit.onShow;
begin
// Interaction := 0;
end;
(*function TScreenEdit.Draw: boolean;
var
Min: integer;
Sec: integer;
Tekst: string;
Pet: integer;
AktBeat: integer;
begin
end;
procedure TScreenEdit.Finish;
begin
//
end;*)
end.
|
