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

memory panel repos, focus timings

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

3
backup/main.lfm
View File

@ -5478,6 +5478,7 @@ object GUIForm: TGUIForm
ParentColor = False
TabOrder = 2
Visible = False
OnResize = pnlMemoryResize
object txtAddress: TEdit
Left = 136
Height = 23
@ -10434,7 +10435,7 @@ object GUIForm: TGUIForm
end
object CheckTimer: TTimer
Enabled = False
Interval = 250
Interval = 125
OnTimer = CheckTimerTimer
left = 168
top = 104

8
backup/main.pas
View File

@ -472,6 +472,7 @@ type
procedure miVMClick(Sender: TObject);
procedure miWarp25Click(Sender: TObject);
procedure MouseTimerTimer(Sender: TObject);
procedure pnlMemoryResize(Sender: TObject);
procedure sidecarPanelResize(Sender: TObject);
procedure tbCapsModeClick(Sender: TObject);
procedure tbFullscreenClick(Sender: TObject);
@ -1188,6 +1189,7 @@ end;
procedure TGUIForm.miMemoryEditClick(Sender: TObject);
begin
pnlMemory.Visible := (not pnlMemory.Visible);
ReposWindow;
end;
procedure TGUIForm.miMMHelpClick(Sender: TObject);
@ -1732,6 +1734,11 @@ begin
end;
end;
procedure TGUIForm.pnlMemoryResize(Sender: TObject);
begin
end;
procedure TGUIForm.sidecarPanelResize(Sender: TObject);
var
h: double;
@ -2374,6 +2381,7 @@ end;
procedure TGUIForm.btnHideClick(Sender: TObject);
begin
pnlMemory.Visible := false;
ReposWindow;
end;
procedure TGUIForm.btnReadClick(Sender: TObject);

14
backup/poc.lps
View File

@ -21,8 +21,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="541"/>
<CursorPos X="24" Y="551"/>
<TopLine Value="2441"/>
<CursorPos X="3" Y="2443"/>
<UsageCount Value="323"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -64,7 +64,7 @@
<UsageCount Value="24"/>
</Unit5>
</Units>
<JumpHistory Count="22" HistoryIndex="21">
<JumpHistory Count="24" HistoryIndex="23">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="540" Column="30" TopLine="520"/>
@ -153,6 +153,14 @@
<Filename Value="main.pas"/>
<Caret Line="1999" Column="28" TopLine="1995"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="531" Column="15" TopLine="664"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="2472" Column="33" TopLine="2480"/>
</Position24>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>

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

@ -5478,6 +5478,7 @@ object GUIForm: TGUIForm
ParentColor = False
TabOrder = 2
Visible = False
OnResize = pnlMemoryResize
object txtAddress: TEdit
Left = 136
Height = 23
@ -10434,7 +10435,7 @@ object GUIForm: TGUIForm
end
object CheckTimer: TTimer
Enabled = False
Interval = 250
Interval = 50
OnTimer = CheckTimerTimer
left = 168
top = 104

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.

3
main.lfm
View File

@ -5478,6 +5478,7 @@ object GUIForm: TGUIForm
ParentColor = False
TabOrder = 2
Visible = False
OnResize = pnlMemoryResize
object txtAddress: TEdit
Left = 136
Height = 23
@ -10434,7 +10435,7 @@ object GUIForm: TGUIForm
end
object CheckTimer: TTimer
Enabled = False
Interval = 125
Interval = 50
OnTimer = CheckTimerTimer
left = 168
top = 104

8
main.pas
View File

@ -472,6 +472,7 @@ type
procedure miVMClick(Sender: TObject);
procedure miWarp25Click(Sender: TObject);
procedure MouseTimerTimer(Sender: TObject);
procedure pnlMemoryResize(Sender: TObject);
procedure sidecarPanelResize(Sender: TObject);
procedure tbCapsModeClick(Sender: TObject);
procedure tbFullscreenClick(Sender: TObject);
@ -1188,6 +1189,7 @@ end;
procedure TGUIForm.miMemoryEditClick(Sender: TObject);
begin
pnlMemory.Visible := (not pnlMemory.Visible);
ReposWindow;
end;
procedure TGUIForm.miMMHelpClick(Sender: TObject);
@ -1732,6 +1734,11 @@ begin
end;
end;
procedure TGUIForm.pnlMemoryResize(Sender: TObject);
begin
end;
procedure TGUIForm.sidecarPanelResize(Sender: TObject);
var
h: double;
@ -2374,6 +2381,7 @@ end;
procedure TGUIForm.btnHideClick(Sender: TObject);
begin
pnlMemory.Visible := false;
ReposWindow;
end;
procedure TGUIForm.btnReadClick(Sender: TObject);

30
poc.lps
View File

@ -21,8 +21,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="2441"/>
<CursorPos X="3" Y="2443"/>
<TopLine Value="2381"/>
<CursorPos X="22" Y="2399"/>
<UsageCount Value="323"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -43,7 +43,7 @@
<EditorIndex Value="-1"/>
<TopLine Value="576"/>
<CursorPos X="49" Y="591"/>
<UsageCount Value="110"/>
<UsageCount Value="109"/>
</Unit3>
<Unit4>
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
@ -51,7 +51,7 @@
<EditorIndex Value="-1"/>
<TopLine Value="636"/>
<CursorPos Y="654"/>
<UsageCount Value="5"/>
<UsageCount Value="4"/>
</Unit4>
<Unit5>
<Filename Value="images\memory.pas"/>
@ -64,7 +64,7 @@
<UsageCount Value="24"/>
</Unit5>
</Units>
<JumpHistory Count="24" HistoryIndex="23">
<JumpHistory Count="29" HistoryIndex="28">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="540" Column="30" TopLine="520"/>
@ -161,6 +161,26 @@
<Filename Value="main.pas"/>
<Caret Line="2472" Column="33" TopLine="2480"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="2449" Column="3" TopLine="2447"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="1738" Column="15" TopLine="1736"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="1734" Column="4" TopLine="1716"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="1738" Column="3" TopLine="1706"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="1192" Column="15" TopLine="1189"/>
</Position29>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>