Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-12-01 12:51:02 +00:00
Code Issues Projects Releases Wiki Activity

wait and repos on memory show/hide

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-14 12:24:12 +10:00
parent e787ba54cf
commit 5c52a1d6e6
8 changed files with 46 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
backup/main.lfm
View File

@ -1,7 +1,7 @@
object GUIForm: TGUIForm object GUIForm: TGUIForm
Left = 2111 Left = 228
Height = 668 Height = 668
Top = 138 Top = 132
Width = 1014 Width = 1014
AlphaBlendValue = 128 AlphaBlendValue = 128
Caption = 'microM8 GUI' Caption = 'microM8 GUI'
@ -10569,4 +10569,11 @@ object GUIForm: TGUIForm
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
end end
object WaitRepos: TTimer
Enabled = False
Interval = 50
OnTimer = WaitReposTimer
left = 238
top = 223
end
end end

11
backup/main.pas
View File

@ -202,6 +202,7 @@ type
sidecarPanel: TPanel; sidecarPanel: TPanel;
FSTimer: TTimer; FSTimer: TTimer;
tbVolDown: TToolButton; tbVolDown: TToolButton;
WaitRepos: TTimer;
ToolButton1: TToolButton; ToolButton1: TToolButton;
ToolButton10: TToolButton; ToolButton10: TToolButton;
tbJoystickAxisSwitch: TToolButton; tbJoystickAxisSwitch: TToolButton;
@ -530,6 +531,7 @@ type
function IsMouseBtnDown(const AMouseBtn: TMouseBtnType): Boolean; function IsMouseBtnDown(const AMouseBtn: TMouseBtnType): Boolean;
function IsMouseBtnDown: Boolean; function IsMouseBtnDown: Boolean;
function IsMicroM8Active: boolean; function IsMicroM8Active: boolean;
procedure WaitReposTimer(Sender: TObject);
private private
lx, ly, lw, lh: integer; lx, ly, lw, lh: integer;
lastShowTime: TDateTime; lastShowTime: TDateTime;
@ -629,6 +631,13 @@ begin
result := GetTitleOfActiveWindow = 'microM8'; result := GetTitleOfActiveWindow = 'microM8';
end; end;
procedure TGUIForm.WaitReposTimer(Sender: TObject);
begin
WaitRepos.Enabled := false;
lx:=-1;
ReposWindow;
end;
procedure TGUIForm.AppActivate(Sender: TObject); procedure TGUIForm.AppActivate(Sender: TObject);
begin begin
guiActive := true; guiActive := true;
@ -1194,7 +1203,7 @@ end;
procedure TGUIForm.miMemoryEditClick(Sender: TObject); procedure TGUIForm.miMemoryEditClick(Sender: TObject);
begin begin
pnlMemory.Visible := (not pnlMemory.Visible); pnlMemory.Visible := (not pnlMemory.Visible);
ReposWindow; WaitRepos.Enabled := true;
end; end;
procedure TGUIForm.miMMHelpClick(Sender: TObject); procedure TGUIForm.miMMHelpClick(Sender: TObject);

11
lib/x86_64-win64/main.lfm
View File

@ -1,7 +1,7 @@
object GUIForm: TGUIForm object GUIForm: TGUIForm
Left = 2111 Left = 228
Height = 668 Height = 668
Top = 138 Top = 132
Width = 1014 Width = 1014
AlphaBlendValue = 128 AlphaBlendValue = 128
Caption = 'microM8 GUI' Caption = 'microM8 GUI'
@ -10569,4 +10569,11 @@ object GUIForm: TGUIForm
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
end end
object WaitRepos: TTimer
Enabled = False
Interval = 50
OnTimer = WaitReposTimer
left = 238
top = 223
end
end end

BIN
lib/x86_64-win64/main.o
View File

Binary file not shown.

BIN
lib/x86_64-win64/main.ppu
View File

Binary file not shown.

BIN
lib/x86_64-win64/poc.obj
View File

Binary file not shown.

7
main.lfm
View File

@ -10569,4 +10569,11 @@ object GUIForm: TGUIForm
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
end end
object WaitRepos: TTimer
Enabled = False
Interval = 50
OnTimer = WaitReposTimer
left = 238
top = 223
end
end end

13
main.pas
View File

@ -202,6 +202,7 @@ type
sidecarPanel: TPanel; sidecarPanel: TPanel;
FSTimer: TTimer; FSTimer: TTimer;
tbVolDown: TToolButton; tbVolDown: TToolButton;
WaitRepos: TTimer;
ToolButton1: TToolButton; ToolButton1: TToolButton;
ToolButton10: TToolButton; ToolButton10: TToolButton;
tbJoystickAxisSwitch: TToolButton; tbJoystickAxisSwitch: TToolButton;
@ -530,6 +531,7 @@ type
function IsMouseBtnDown(const AMouseBtn: TMouseBtnType): Boolean; function IsMouseBtnDown(const AMouseBtn: TMouseBtnType): Boolean;
function IsMouseBtnDown: Boolean; function IsMouseBtnDown: Boolean;
function IsMicroM8Active: boolean; function IsMicroM8Active: boolean;
procedure WaitReposTimer(Sender: TObject);
private private
lx, ly, lw, lh: integer; lx, ly, lw, lh: integer;
lastShowTime: TDateTime; lastShowTime: TDateTime;
@ -629,6 +631,13 @@ begin
result := GetTitleOfActiveWindow = 'microM8'; result := GetTitleOfActiveWindow = 'microM8';
end; end;
procedure TGUIForm.WaitReposTimer(Sender: TObject);
begin
WaitRepos.Enabled := false;
lx:=-1;
ReposWindow;
end;
procedure TGUIForm.AppActivate(Sender: TObject); procedure TGUIForm.AppActivate(Sender: TObject);
begin begin
guiActive := true; guiActive := true;
@ -1194,7 +1203,7 @@ end;
procedure TGUIForm.miMemoryEditClick(Sender: TObject); procedure TGUIForm.miMemoryEditClick(Sender: TObject);
begin begin
pnlMemory.Visible := (not pnlMemory.Visible); pnlMemory.Visible := (not pnlMemory.Visible);
ReposWindow; WaitRepos.Enabled := true;
end; end;
procedure TGUIForm.miMMHelpClick(Sender: TObject); procedure TGUIForm.miMMHelpClick(Sender: TObject);
@ -2415,7 +2424,7 @@ end;
procedure TGUIForm.btnHideClick(Sender: TObject); procedure TGUIForm.btnHideClick(Sender: TObject);
begin begin
pnlMemory.Visible := false; pnlMemory.Visible := false;
ReposWindow; WaitRepos.Enabled := true;
end; end;
procedure TGUIForm.btnReadClick(Sender: TObject); procedure TGUIForm.btnReadClick(Sender: TObject);