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

Alt-enter fix

Browse Source
This commit is contained in:
Melody 2019-04-20 12:44:44 +10:00
parent 5001ff5d15
commit 4b5c542a16
9 changed files with 386 additions and 399 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

175
backup/main.lfm
View File

@ -1,12 +1,12 @@
object GUIForm: TGUIForm object GUIForm: TGUIForm
Left = 290 Left = 420
Height = 650 Height = 650
Top = 130 Top = 127
Width = 1078 Width = 1078
AllowDropFiles = True AllowDropFiles = True
AlphaBlendValue = 128 AlphaBlendValue = 128
Caption = 'microM8 GUI' Caption = 'microM8 GUI'
ClientHeight = 630 ClientHeight = 650
ClientWidth = 1078 ClientWidth = 1078
Constraints.MinWidth = 1078 Constraints.MinWidth = 1078
DoubleBuffered = False DoubleBuffered = False
@ -28,11 +28,11 @@ object GUIForm: TGUIForm
OnUTF8KeyPress = FormUTF8KeyPress OnUTF8KeyPress = FormUTF8KeyPress
OnWindowStateChange = FormWindowStateChange OnWindowStateChange = FormWindowStateChange
ParentDoubleBuffered = False ParentDoubleBuffered = False
LCLVersion = '2.0.0.4' LCLVersion = '2.1.0.0'
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 18
Top = 607 Top = 632
Width = 1078 Width = 1078
Panels = <> Panels = <>
end end
@ -60,7 +60,7 @@ object GUIForm: TGUIForm
end end
object tbRMVoxels: TToolButton object tbRMVoxels: TToolButton
Tag = 1 Tag = 1
Left = 613 Left = 585
Hint = 'Voxel Render' Hint = 'Voxel Render'
Top = 2 Top = 2
Caption = 'Voxels' Caption = 'Voxels'
@ -74,7 +74,7 @@ object GUIForm: TGUIForm
Style = tbsCheck Style = tbsCheck
end end
object tbRMDots: TToolButton object tbRMDots: TToolButton
Left = 649 Left = 621
Hint = 'Dot Render' Hint = 'Dot Render'
Top = 2 Top = 2
Caption = 'Dots' Caption = 'Dots'
@ -87,7 +87,7 @@ object GUIForm: TGUIForm
end end
object tbRMRaster: TToolButton object tbRMRaster: TToolButton
Tag = 2 Tag = 2
Left = 685 Left = 657
Hint = 'Raster Render' Hint = 'Raster Render'
Top = 2 Top = 2
Caption = 'Raster' Caption = 'Raster'
@ -99,7 +99,7 @@ object GUIForm: TGUIForm
Style = tbsCheck Style = tbsCheck
end end
object tbRMColor: TToolButton object tbRMColor: TToolButton
Left = 721 Left = 693
Hint = 'Toggle Color/Mono' Hint = 'Toggle Color/Mono'
Top = 2 Top = 2
Caption = 'tbRMColor' Caption = 'tbRMColor'
@ -109,7 +109,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object tbRECState: TToolButton object tbRECState: TToolButton
Left = 789 Left = 761
Hint = 'Start Recording' Hint = 'Start Recording'
Top = 2 Top = 2
Caption = 'tbRECState' Caption = 'tbRECState'
@ -119,7 +119,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 825 Left = 797
Hint = 'Rewind' Hint = 'Rewind'
Top = 2 Top = 2
Caption = 'ToolButton5' Caption = 'ToolButton5'
@ -129,7 +129,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 861 Left = 833
Hint = 'Forwards' Hint = 'Forwards'
Top = 2 Top = 2
Caption = 'ToolButton6' Caption = 'ToolButton6'
@ -139,7 +139,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 897 Left = 869
Hint = 'Resume' Hint = 'Resume'
Top = 2 Top = 2
Caption = 'ToolButton7' Caption = 'ToolButton7'
@ -149,7 +149,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 933 Left = 905
Hint = 'Stop Recording' Hint = 'Stop Recording'
Top = 2 Top = 2
Caption = 'ToolButton8' Caption = 'ToolButton8'
@ -159,7 +159,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 969 Left = 941
Hint = 'Pause' Hint = 'Pause'
Top = 2 Top = 2
Caption = 'ToolButton9' Caption = 'ToolButton9'
@ -169,7 +169,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 757 Left = 729
Top = 2 Top = 2
Caption = 'ToolButton10' Caption = 'ToolButton10'
Enabled = False Enabled = False
@ -206,24 +206,14 @@ object GUIForm: TGUIForm
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
end end
object tbWebDebugger: TToolButton
Left = 145
Hint = 'Web Debugger'
Top = 2
Caption = 'tbWebDebugger'
ImageIndex = 28
OnClick = miToolsWebDebuggerClick
ParentShowHint = False
ShowHint = True
end
object ToolButton15: TToolButton object ToolButton15: TToolButton
Left = 181 Left = 145
Top = 2 Top = 2
Caption = 'ToolButton15' Caption = 'ToolButton15'
Enabled = False Enabled = False
end end
object tbVolDown: TToolButton object tbVolDown: TToolButton
Left = 213 Left = 177
Hint = 'Volume Down' Hint = 'Volume Down'
Top = 2 Top = 2
Caption = 'tbVolDown' Caption = 'tbVolDown'
@ -233,16 +223,15 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object tbMasterVolume: TTrackBar object tbMasterVolume: TTrackBar
Left = 249 Left = 213
Height = 32 Height = 32
Top = 2 Top = 2
Width = 96 Width = 100
OnChange = tbMasterVolumeChange OnChange = tbMasterVolumeChange
Position = 0 Position = 0
ScalePos = trBottom ScalePos = trBottom
TabStop = False TabStop = False
TickMarks = tmBoth TickMarks = tmBoth
TickStyle = tsManual
OnEnter = tbMasterVolumeEnter OnEnter = tbMasterVolumeEnter
OnMouseDown = tbMasterVolumeMouseDown OnMouseDown = tbMasterVolumeMouseDown
OnMouseUp = tbMasterVolumeMouseUp OnMouseUp = tbMasterVolumeMouseUp
@ -251,7 +240,7 @@ object GUIForm: TGUIForm
TabOrder = 0 TabOrder = 0
end end
object tbVolUp: TToolButton object tbVolUp: TToolButton
Left = 345 Left = 313
Hint = 'Volume Up' Hint = 'Volume Up'
Top = 2 Top = 2
Caption = 'tbVolUp' Caption = 'tbVolUp'
@ -261,13 +250,13 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 381 Left = 349
Top = 2 Top = 2
Caption = 'ToolButton3' Caption = 'ToolButton3'
Enabled = False Enabled = False
end end
object tbSpeedDown: TToolButton object tbSpeedDown: TToolButton
Left = 413 Left = 381
Hint = 'CPU Speed Down' Hint = 'CPU Speed Down'
Top = 2 Top = 2
Caption = 'tbSpeedDown' Caption = 'tbSpeedDown'
@ -277,17 +266,16 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object TrackBar2: TTrackBar object TrackBar2: TTrackBar
Left = 449 Left = 417
Height = 32 Height = 32
Top = 2 Top = 2
Width = 96 Width = 100
Max = 4 Max = 4
OnChange = TrackBar2Change OnChange = TrackBar2Change
Position = 0 Position = 0
ScalePos = trBottom ScalePos = trBottom
TabStop = False TabStop = False
TickMarks = tmBoth TickMarks = tmBoth
TickStyle = tsManual
OnMouseDown = TrackBar2MouseDown OnMouseDown = TrackBar2MouseDown
OnMouseUp = TrackBar2MouseUp OnMouseUp = TrackBar2MouseUp
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
@ -295,7 +283,7 @@ object GUIForm: TGUIForm
TabOrder = 1 TabOrder = 1
end end
object tbSpeedUp: TToolButton object tbSpeedUp: TToolButton
Left = 545 Left = 517
Hint = 'CPU Speed Up' Hint = 'CPU Speed Up'
Top = 2 Top = 2
Caption = 'tbSpeedUp' Caption = 'tbSpeedUp'
@ -305,19 +293,19 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton18: TToolButton object ToolButton18: TToolButton
Left = 581 Left = 553
Top = 2 Top = 2
Caption = 'ToolButton18' Caption = 'ToolButton18'
Enabled = False Enabled = False
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 1005 Left = 977
Top = 2 Top = 2
Caption = 'ToolButton1' Caption = 'ToolButton1'
Enabled = False Enabled = False
end end
object tbFullscreen: TToolButton object tbFullscreen: TToolButton
Left = 1037 Left = 1009
Hint = 'Fullscreen' Hint = 'Fullscreen'
Top = 2 Top = 2
Caption = 'tbFullscreen' Caption = 'tbFullscreen'
@ -329,31 +317,31 @@ object GUIForm: TGUIForm
end end
object pnlContainer: TPanel object pnlContainer: TPanel
Left = 0 Left = 0
Height = 571 Height = 596
Top = 36 Top = 36
Width = 1078 Width = 1078
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 571 ClientHeight = 596
ClientWidth = 1078 ClientWidth = 1078
ParentColor = False ParentColor = False
TabOrder = 2 TabOrder = 2
object sidecarPanel: TPanel object sidecarPanel: TPanel
Left = 908 Left = 908
Height = 534 Height = 559
Top = 0 Top = 0
Width = 170 Width = 170
Align = alRight Align = alRight
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'sidecarPanel' Caption = 'sidecarPanel'
ClientHeight = 534 ClientHeight = 559
ClientWidth = 170 ClientWidth = 170
Color = clBlack Color = clBlack
ParentColor = False ParentColor = False
TabOrder = 0 TabOrder = 0
object Image1: TImage object Image1: TImage
Left = 0 Left = 0
Height = 534 Height = 559
Top = 0 Top = 0
Width = 170 Width = 170
Align = alClient Align = alClient
@ -5447,12 +5435,12 @@ object GUIForm: TGUIForm
end end
object embedPanel: TPanel object embedPanel: TPanel
Left = 0 Left = 0
Height = 534 Height = 559
Top = 0 Top = 0
Width = 908 Width = 908
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 534 ClientHeight = 559
ClientWidth = 908 ClientWidth = 908
Color = clBlack Color = clBlack
Font.Color = clWhite Font.Color = clWhite
@ -5464,7 +5452,7 @@ object GUIForm: TGUIForm
OnMouseUp = FormMouseUp OnMouseUp = FormMouseUp
object backdrop: TImage object backdrop: TImage
Left = 0 Left = 0
Height = 534 Height = 559
Top = 0 Top = 0
Width = 908 Width = 908
Align = alClient Align = alClient
@ -5477,7 +5465,7 @@ object GUIForm: TGUIForm
object pnlMemory: TPanel object pnlMemory: TPanel
Left = 0 Left = 0
Height = 37 Height = 37
Top = 534 Top = 559
Width = 1078 Width = 1078
Align = alBottom Align = alBottom
ClientHeight = 37 ClientHeight = 37
@ -5488,7 +5476,7 @@ object GUIForm: TGUIForm
OnResize = pnlMemoryResize OnResize = pnlMemoryResize
object txtAddress: TEdit object txtAddress: TEdit
Left = 136 Left = 136
Height = 23 Height = 21
Top = 8 Top = 8
Width = 80 Width = 80
OnKeyPress = txtAddressKeyPress OnKeyPress = txtAddressKeyPress
@ -5498,23 +5486,23 @@ object GUIForm: TGUIForm
end end
object Label1: TLabel object Label1: TLabel
Left = 9 Left = 9
Height = 15 Height = 16
Top = 10 Top = 10
Width = 122 Width = 141
Caption = 'Memory Address (hex):' Caption = 'Memory Address (hex):'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 240 Left = 240
Height = 15 Height = 16
Top = 10 Top = 10
Width = 60 Width = 72
Caption = 'Value (hex):' Caption = 'Value (hex):'
ParentColor = False ParentColor = False
end end
object txtValue: TEdit object txtValue: TEdit
Left = 312 Left = 312
Height = 23 Height = 21
Top = 8 Top = 8
Width = 80 Width = 80
OnKeyPress = txtValueKeyPress OnKeyPress = txtValueKeyPress
@ -5567,8 +5555,8 @@ object GUIForm: TGUIForm
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
Images = ToolbarIcons Images = ToolbarIcons
left = 168 Left = 168
top = 48 Top = 48
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
Caption = 'File' Caption = 'File'
OnClick = MenuItem1Click OnClick = MenuItem1Click
@ -6584,11 +6572,6 @@ object GUIForm: TGUIForm
Caption = 'microTracker' Caption = 'microTracker'
OnClick = miToolsTrackerClick OnClick = miToolsTrackerClick
end end
object miToolsWebDebugger: TMenuItem
Caption = 'Web Debugger'
ShortCut = 24642
OnClick = miToolsWebDebuggerClick
end
object miMemoryEdit: TMenuItem object miMemoryEdit: TMenuItem
Caption = 'Read/Write Memory' Caption = 'Read/Write Memory'
OnClick = miMemoryEditClick OnClick = miMemoryEditClick
@ -6611,8 +6594,8 @@ object GUIForm: TGUIForm
Height = 32 Height = 32
Scaled = True Scaled = True
Width = 32 Width = 32
left = 96 Left = 96
top = 48 Top = 48
Bitmap = { Bitmap = {
4C691E0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D 4C691E0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D
B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68 B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68
@ -10460,8 +10443,8 @@ object GUIForm: TGUIForm
object DiskMenu: TPopupMenu object DiskMenu: TPopupMenu
OnPopup = DiskMenuPopup OnPopup = DiskMenuPopup
OnClose = DiskMenuClose OnClose = DiskMenuClose
left = 240 Left = 240
top = 104 Top = 104
object MenuItem10: TMenuItem object MenuItem10: TMenuItem
Caption = 'Insert Disk' Caption = 'Insert Disk'
OnClick = MenuItem10Click OnClick = MenuItem10Click
@ -10484,26 +10467,26 @@ object GUIForm: TGUIForm
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = CheckTimerTimer OnTimer = CheckTimerTimer
left = 168 Left = 168
top = 104 Top = 104
end end
object odDiskImages: TOpenDialog object odDiskImages: TOpenDialog
Title = 'Open Disk Image' Title = 'Open Disk Image'
DefaultExt = '.*' DefaultExt = '.*'
Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|MicroPAK|*.pak|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv' Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|MicroPAK|*.pak|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv'
left = 24 Left = 24
top = 104 Top = 104
end end
object MouseTimer: TTimer object MouseTimer: TTimer
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = MouseTimerTimer OnTimer = MouseTimerTimer
left = 96 Left = 96
top = 104 Top = 104
end end
object TintMode: TPopupMenu object TintMode: TPopupMenu
left = 24 Left = 24
top = 48 Top = 48
object miTintOff: TMenuItem object miTintOff: TMenuItem
Caption = 'Off' Caption = 'Off'
ImageIndex = 0 ImageIndex = 0
@ -10531,13 +10514,13 @@ object GUIForm: TGUIForm
object ToolTimer: TTimer object ToolTimer: TTimer
Enabled = False Enabled = False
OnTimer = ToolTimerTimer OnTimer = ToolTimerTimer
left = 24 Left = 24
top = 160 Top = 160
end end
object SideImages: TImageList object SideImages: TImageList
Scaled = True Scaled = True
left = 240 Left = 240
top = 48 Top = 48
end end
object MicroM8Process: TAsyncProcess object MicroM8Process: TAsyncProcess
Active = False Active = False
@ -10558,32 +10541,32 @@ object GUIForm: TGUIForm
WindowWidth = 0 WindowWidth = 0
FillAttribute = 0 FillAttribute = 0
OnTerminate = MicroM8ProcessTerminate OnTerminate = MicroM8ProcessTerminate
left = 240 Left = 240
top = 160 Top = 160
end end
object odFreezeFiles: TOpenDialog object odFreezeFiles: TOpenDialog
DefaultExt = '.*.frz' DefaultExt = '.*.frz'
Filter = 'MicroM8 Freeze|*.frz' Filter = 'MicroM8 Freeze|*.frz'
left = 96 Left = 96
top = 160 Top = 160
end end
object FSTimer: TTimer object FSTimer: TTimer
OnTimer = FSTimerTimer OnTimer = FSTimerTimer
left = 168 Left = 168
top = 160 Top = 160
end end
object sdFreezeFiles: TSaveDialog object sdFreezeFiles: TSaveDialog
Title = 'Save state as' Title = 'Save state as'
DefaultExt = '.*.frz' DefaultExt = '.*.frz'
Filter = 'MicroM8 Freeze|*.frz' Filter = 'MicroM8 Freeze|*.frz'
left = 24 Left = 24
top = 216 Top = 216
end end
object RecordingMenu: TPopupMenu object RecordingMenu: TPopupMenu
Images = ToolbarIcons Images = ToolbarIcons
ImagesWidth = 32 ImagesWidth = 32
left = 96 Left = 96
top = 216 Top = 216
object miStartDiskRec: TMenuItem object miStartDiskRec: TMenuItem
Caption = 'Start Disk Recording' Caption = 'Start Disk Recording'
ImageIndex = 10 ImageIndex = 10
@ -10598,8 +10581,8 @@ object GUIForm: TGUIForm
end end
end end
object ProfileMenu: TPopupMenu object ProfileMenu: TPopupMenu
left = 168 Left = 168
top = 216 Top = 216
object miPMApple2eEnh: TMenuItem object miPMApple2eEnh: TMenuItem
Caption = 'Apple //e Enhanced' Caption = 'Apple //e Enhanced'
OnClick = miPRFIIeEnhancedClick OnClick = miPRFIIeEnhancedClick
@ -10628,14 +10611,14 @@ object GUIForm: TGUIForm
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = WaitReposTimer OnTimer = WaitReposTimer
left = 238 Left = 238
top = 223 Top = 223
end end
object SPMenu: TPopupMenu object SPMenu: TPopupMenu
OnPopup = DiskMenuPopup OnPopup = DiskMenuPopup
OnClose = DiskMenuClose OnClose = DiskMenuClose
left = 24 Left = 24
top = 272 Top = 272
object miSPConnect: TMenuItem object miSPConnect: TMenuItem
Caption = 'Connect Disk' Caption = 'Connect Disk'
OnClick = miSPFileClick OnClick = miSPFileClick

1
backup/main.pas
View File

@ -3170,6 +3170,7 @@ begin
code := MapKeyCode(Key,Shift,false); code := MapKeyCode(Key,Shift,false);
if code <> 0 then if code <> 0 then
SendKey( code, 0, 1, MapShiftState(Key, Shift) ); SendKey( code, 0, 1, MapShiftState(Key, Shift) );
if not ssAlt in Shift then
Key := 0; Key := 0;
//StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc; //StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc;
end; end;

6
backup/poc.lpi
View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="11"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="microm8-gui"/> <Title Value="microm8-gui"/>
<Scaled Value="True"/> <Scaled Value="True"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>

70
backup/poc.lps
View File

@ -2,7 +2,7 @@
<CONFIG> <CONFIG>
<ProjectSession> <ProjectSession>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="11"/> <Version Value="12"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="5"> <Units Count="5">
<Unit0> <Unit0>
@ -21,8 +21,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="1819"/> <TopLine Value="3152"/>
<CursorPos X="56" Y="1825"/> <CursorPos Y="3173"/>
<UsageCount Value="323"/> <UsageCount Value="323"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -43,7 +43,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="576"/> <TopLine Value="576"/>
<CursorPos X="49" Y="591"/> <CursorPos X="49" Y="591"/>
<UsageCount Value="94"/> <UsageCount Value="93"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="images\memory.pas"/> <Filename Value="images\memory.pas"/>
@ -53,129 +53,129 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="40"/> <TopLine Value="40"/>
<CursorPos X="17" Y="44"/> <CursorPos X="17" Y="44"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit4> </Unit4>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2502" Column="34" TopLine="2471"/> <Caret Line="3046" Column="36" TopLine="3032"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2521" Column="34" TopLine="2490"/> <Caret Line="2882" Column="27" TopLine="2867"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2561" Column="34" TopLine="2531"/> <Caret Line="2888" Column="23" TopLine="2877"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2577" Column="34" TopLine="2546"/> <Caret Line="2752" Column="28" TopLine="2729"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2636" Column="34" TopLine="2605"/> <Caret Line="1788" Column="61" TopLine="1785"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2654" Column="34" TopLine="2623"/> <Caret Line="2341" Column="6" TopLine="2313"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2662" Column="27" TopLine="2631"/> <Caret Line="1801" Column="28" TopLine="1786"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2669" Column="26" TopLine="2638"/> <Caret Line="2900" Column="14" TopLine="2888"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2803" Column="29" TopLine="2772"/> <Caret Line="1897" Column="16" TopLine="1894"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2808" Column="29" TopLine="2777"/> <Caret Line="426" Column="15" TopLine="408"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2868" Column="26" TopLine="2846"/> <Caret Line="1183" TopLine="1178"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2877" Column="26" TopLine="2846"/> <Caret Line="1923" Column="42" TopLine="1895"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3128" Column="38" TopLine="3098"/> <Caret Line="2892" Column="43" TopLine="2879"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3174" Column="26" TopLine="3143"/> <Caret Line="2899" Column="43" TopLine="2886"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3189" Column="26" TopLine="3158"/> <Caret Line="1833" Column="87" TopLine="1829"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3294" Column="26" TopLine="3263"/> <Caret Line="1839" Column="38" TopLine="1820"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3314" Column="26" TopLine="3283"/> <Caret Line="1098" Column="15" TopLine="1092"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="694" Column="29" TopLine="675"/> <Caret Line="1925" Column="3" TopLine="1923"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="773" Column="33" TopLine="742"/> <Caret Line="3205" Column="13" TopLine="3198"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1194" Column="26" TopLine="1163"/> <Caret Line="3279" Column="24" TopLine="3223"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1266" Column="26" TopLine="1235"/> <Caret Line="581" Column="11" TopLine="563"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1409" Column="29" TopLine="1378"/> <Caret Line="2250" Column="17" TopLine="2231"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1588" Column="26" TopLine="1557"/> <Caret Line="2255" Column="14" TopLine="2231"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1638" Column="26" TopLine="1607"/> <Caret Line="2265" Column="21" TopLine="2234"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1896" Column="36" TopLine="1873"/> <Caret Line="3202" Column="9" TopLine="3174"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2903" Column="30" TopLine="2872"/> <Caret Line="893" Column="40" TopLine="871"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1823" Column="30" TopLine="1821"/> <Caret Line="348" Column="22" TopLine="330"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1827" Column="56" TopLine="1821"/> <Caret Line="349" Column="22" TopLine="330"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1826" Column="56" TopLine="1820"/> <Caret Line="350" Column="22" TopLine="330"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1825" Column="56" TopLine="1819"/> <Caret Line="3189" Column="12" TopLine="3152"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
<RunParams> <RunParams>

154
main.lfm
View File

@ -1,12 +1,12 @@
object GUIForm: TGUIForm object GUIForm: TGUIForm
Left = 290 Left = 420
Height = 650 Height = 650
Top = 130 Top = 127
Width = 1078 Width = 1078
AllowDropFiles = True AllowDropFiles = True
AlphaBlendValue = 128 AlphaBlendValue = 128
Caption = 'microM8 GUI' Caption = 'microM8 GUI'
ClientHeight = 630 ClientHeight = 650
ClientWidth = 1078 ClientWidth = 1078
Constraints.MinWidth = 1078 Constraints.MinWidth = 1078
DoubleBuffered = False DoubleBuffered = False
@ -28,11 +28,11 @@ object GUIForm: TGUIForm
OnUTF8KeyPress = FormUTF8KeyPress OnUTF8KeyPress = FormUTF8KeyPress
OnWindowStateChange = FormWindowStateChange OnWindowStateChange = FormWindowStateChange
ParentDoubleBuffered = False ParentDoubleBuffered = False
LCLVersion = '2.0.0.4' LCLVersion = '2.1.0.0'
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 18
Top = 607 Top = 632
Width = 1078 Width = 1078
Panels = <> Panels = <>
end end
@ -60,7 +60,7 @@ object GUIForm: TGUIForm
end end
object tbRMVoxels: TToolButton object tbRMVoxels: TToolButton
Tag = 1 Tag = 1
Left = 577 Left = 585
Hint = 'Voxel Render' Hint = 'Voxel Render'
Top = 2 Top = 2
Caption = 'Voxels' Caption = 'Voxels'
@ -74,7 +74,7 @@ object GUIForm: TGUIForm
Style = tbsCheck Style = tbsCheck
end end
object tbRMDots: TToolButton object tbRMDots: TToolButton
Left = 613 Left = 621
Hint = 'Dot Render' Hint = 'Dot Render'
Top = 2 Top = 2
Caption = 'Dots' Caption = 'Dots'
@ -87,7 +87,7 @@ object GUIForm: TGUIForm
end end
object tbRMRaster: TToolButton object tbRMRaster: TToolButton
Tag = 2 Tag = 2
Left = 649 Left = 657
Hint = 'Raster Render' Hint = 'Raster Render'
Top = 2 Top = 2
Caption = 'Raster' Caption = 'Raster'
@ -99,7 +99,7 @@ object GUIForm: TGUIForm
Style = tbsCheck Style = tbsCheck
end end
object tbRMColor: TToolButton object tbRMColor: TToolButton
Left = 685 Left = 693
Hint = 'Toggle Color/Mono' Hint = 'Toggle Color/Mono'
Top = 2 Top = 2
Caption = 'tbRMColor' Caption = 'tbRMColor'
@ -109,7 +109,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object tbRECState: TToolButton object tbRECState: TToolButton
Left = 753 Left = 761
Hint = 'Start Recording' Hint = 'Start Recording'
Top = 2 Top = 2
Caption = 'tbRECState' Caption = 'tbRECState'
@ -119,7 +119,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 789 Left = 797
Hint = 'Rewind' Hint = 'Rewind'
Top = 2 Top = 2
Caption = 'ToolButton5' Caption = 'ToolButton5'
@ -129,7 +129,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 825 Left = 833
Hint = 'Forwards' Hint = 'Forwards'
Top = 2 Top = 2
Caption = 'ToolButton6' Caption = 'ToolButton6'
@ -139,7 +139,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 861 Left = 869
Hint = 'Resume' Hint = 'Resume'
Top = 2 Top = 2
Caption = 'ToolButton7' Caption = 'ToolButton7'
@ -149,7 +149,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 897 Left = 905
Hint = 'Stop Recording' Hint = 'Stop Recording'
Top = 2 Top = 2
Caption = 'ToolButton8' Caption = 'ToolButton8'
@ -159,7 +159,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 933 Left = 941
Hint = 'Pause' Hint = 'Pause'
Top = 2 Top = 2
Caption = 'ToolButton9' Caption = 'ToolButton9'
@ -169,7 +169,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 721 Left = 729
Top = 2 Top = 2
Caption = 'ToolButton10' Caption = 'ToolButton10'
Enabled = False Enabled = False
@ -226,13 +226,12 @@ object GUIForm: TGUIForm
Left = 213 Left = 213
Height = 32 Height = 32
Top = 2 Top = 2
Width = 96 Width = 100
OnChange = tbMasterVolumeChange OnChange = tbMasterVolumeChange
Position = 0 Position = 0
ScalePos = trBottom ScalePos = trBottom
TabStop = False TabStop = False
TickMarks = tmBoth TickMarks = tmBoth
TickStyle = tsManual
OnEnter = tbMasterVolumeEnter OnEnter = tbMasterVolumeEnter
OnMouseDown = tbMasterVolumeMouseDown OnMouseDown = tbMasterVolumeMouseDown
OnMouseUp = tbMasterVolumeMouseUp OnMouseUp = tbMasterVolumeMouseUp
@ -241,7 +240,7 @@ object GUIForm: TGUIForm
TabOrder = 0 TabOrder = 0
end end
object tbVolUp: TToolButton object tbVolUp: TToolButton
Left = 309 Left = 313
Hint = 'Volume Up' Hint = 'Volume Up'
Top = 2 Top = 2
Caption = 'tbVolUp' Caption = 'tbVolUp'
@ -251,13 +250,13 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 345 Left = 349
Top = 2 Top = 2
Caption = 'ToolButton3' Caption = 'ToolButton3'
Enabled = False Enabled = False
end end
object tbSpeedDown: TToolButton object tbSpeedDown: TToolButton
Left = 377 Left = 381
Hint = 'CPU Speed Down' Hint = 'CPU Speed Down'
Top = 2 Top = 2
Caption = 'tbSpeedDown' Caption = 'tbSpeedDown'
@ -267,17 +266,16 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object TrackBar2: TTrackBar object TrackBar2: TTrackBar
Left = 413 Left = 417
Height = 32 Height = 32
Top = 2 Top = 2
Width = 96 Width = 100
Max = 4 Max = 4
OnChange = TrackBar2Change OnChange = TrackBar2Change
Position = 0 Position = 0
ScalePos = trBottom ScalePos = trBottom
TabStop = False TabStop = False
TickMarks = tmBoth TickMarks = tmBoth
TickStyle = tsManual
OnMouseDown = TrackBar2MouseDown OnMouseDown = TrackBar2MouseDown
OnMouseUp = TrackBar2MouseUp OnMouseUp = TrackBar2MouseUp
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
@ -285,7 +283,7 @@ object GUIForm: TGUIForm
TabOrder = 1 TabOrder = 1
end end
object tbSpeedUp: TToolButton object tbSpeedUp: TToolButton
Left = 509 Left = 517
Hint = 'CPU Speed Up' Hint = 'CPU Speed Up'
Top = 2 Top = 2
Caption = 'tbSpeedUp' Caption = 'tbSpeedUp'
@ -295,19 +293,19 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton18: TToolButton object ToolButton18: TToolButton
Left = 545 Left = 553
Top = 2 Top = 2
Caption = 'ToolButton18' Caption = 'ToolButton18'
Enabled = False Enabled = False
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 969 Left = 977
Top = 2 Top = 2
Caption = 'ToolButton1' Caption = 'ToolButton1'
Enabled = False Enabled = False
end end
object tbFullscreen: TToolButton object tbFullscreen: TToolButton
Left = 1001 Left = 1009
Hint = 'Fullscreen' Hint = 'Fullscreen'
Top = 2 Top = 2
Caption = 'tbFullscreen' Caption = 'tbFullscreen'
@ -319,31 +317,31 @@ object GUIForm: TGUIForm
end end
object pnlContainer: TPanel object pnlContainer: TPanel
Left = 0 Left = 0
Height = 571 Height = 596
Top = 36 Top = 36
Width = 1078 Width = 1078
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 571 ClientHeight = 596
ClientWidth = 1078 ClientWidth = 1078
ParentColor = False ParentColor = False
TabOrder = 2 TabOrder = 2
object sidecarPanel: TPanel object sidecarPanel: TPanel
Left = 908 Left = 908
Height = 534 Height = 559
Top = 0 Top = 0
Width = 170 Width = 170
Align = alRight Align = alRight
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'sidecarPanel' Caption = 'sidecarPanel'
ClientHeight = 534 ClientHeight = 559
ClientWidth = 170 ClientWidth = 170
Color = clBlack Color = clBlack
ParentColor = False ParentColor = False
TabOrder = 0 TabOrder = 0
object Image1: TImage object Image1: TImage
Left = 0 Left = 0
Height = 534 Height = 559
Top = 0 Top = 0
Width = 170 Width = 170
Align = alClient Align = alClient
@ -5437,12 +5435,12 @@ object GUIForm: TGUIForm
end end
object embedPanel: TPanel object embedPanel: TPanel
Left = 0 Left = 0
Height = 534 Height = 559
Top = 0 Top = 0
Width = 908 Width = 908
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 534 ClientHeight = 559
ClientWidth = 908 ClientWidth = 908
Color = clBlack Color = clBlack
Font.Color = clWhite Font.Color = clWhite
@ -5454,7 +5452,7 @@ object GUIForm: TGUIForm
OnMouseUp = FormMouseUp OnMouseUp = FormMouseUp
object backdrop: TImage object backdrop: TImage
Left = 0 Left = 0
Height = 534 Height = 559
Top = 0 Top = 0
Width = 908 Width = 908
Align = alClient Align = alClient
@ -5467,7 +5465,7 @@ object GUIForm: TGUIForm
object pnlMemory: TPanel object pnlMemory: TPanel
Left = 0 Left = 0
Height = 37 Height = 37
Top = 534 Top = 559
Width = 1078 Width = 1078
Align = alBottom Align = alBottom
ClientHeight = 37 ClientHeight = 37
@ -5478,7 +5476,7 @@ object GUIForm: TGUIForm
OnResize = pnlMemoryResize OnResize = pnlMemoryResize
object txtAddress: TEdit object txtAddress: TEdit
Left = 136 Left = 136
Height = 23 Height = 21
Top = 8 Top = 8
Width = 80 Width = 80
OnKeyPress = txtAddressKeyPress OnKeyPress = txtAddressKeyPress
@ -5488,23 +5486,23 @@ object GUIForm: TGUIForm
end end
object Label1: TLabel object Label1: TLabel
Left = 9 Left = 9
Height = 15 Height = 16
Top = 10 Top = 10
Width = 122 Width = 141
Caption = 'Memory Address (hex):' Caption = 'Memory Address (hex):'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 240 Left = 240
Height = 15 Height = 16
Top = 10 Top = 10
Width = 60 Width = 72
Caption = 'Value (hex):' Caption = 'Value (hex):'
ParentColor = False ParentColor = False
end end
object txtValue: TEdit object txtValue: TEdit
Left = 312 Left = 312
Height = 23 Height = 21
Top = 8 Top = 8
Width = 80 Width = 80
OnKeyPress = txtValueKeyPress OnKeyPress = txtValueKeyPress
@ -5557,8 +5555,8 @@ object GUIForm: TGUIForm
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
Images = ToolbarIcons Images = ToolbarIcons
left = 168 Left = 168
top = 48 Top = 48
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
Caption = 'File' Caption = 'File'
OnClick = MenuItem1Click OnClick = MenuItem1Click
@ -6596,8 +6594,8 @@ object GUIForm: TGUIForm
Height = 32 Height = 32
Scaled = True Scaled = True
Width = 32 Width = 32
left = 96 Left = 96
top = 48 Top = 48
Bitmap = { Bitmap = {
4C691E0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D 4C691E0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D
B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68 B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68
@ -10445,8 +10443,8 @@ object GUIForm: TGUIForm
object DiskMenu: TPopupMenu object DiskMenu: TPopupMenu
OnPopup = DiskMenuPopup OnPopup = DiskMenuPopup
OnClose = DiskMenuClose OnClose = DiskMenuClose
left = 240 Left = 240
top = 104 Top = 104
object MenuItem10: TMenuItem object MenuItem10: TMenuItem
Caption = 'Insert Disk' Caption = 'Insert Disk'
OnClick = MenuItem10Click OnClick = MenuItem10Click
@ -10469,26 +10467,26 @@ object GUIForm: TGUIForm
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = CheckTimerTimer OnTimer = CheckTimerTimer
left = 168 Left = 168
top = 104 Top = 104
end end
object odDiskImages: TOpenDialog object odDiskImages: TOpenDialog
Title = 'Open Disk Image' Title = 'Open Disk Image'
DefaultExt = '.*' DefaultExt = '.*'
Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|MicroPAK|*.pak|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv' Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|MicroPAK|*.pak|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv'
left = 24 Left = 24
top = 104 Top = 104
end end
object MouseTimer: TTimer object MouseTimer: TTimer
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = MouseTimerTimer OnTimer = MouseTimerTimer
left = 96 Left = 96
top = 104 Top = 104
end end
object TintMode: TPopupMenu object TintMode: TPopupMenu
left = 24 Left = 24
top = 48 Top = 48
object miTintOff: TMenuItem object miTintOff: TMenuItem
Caption = 'Off' Caption = 'Off'
ImageIndex = 0 ImageIndex = 0
@ -10516,13 +10514,13 @@ object GUIForm: TGUIForm
object ToolTimer: TTimer object ToolTimer: TTimer
Enabled = False Enabled = False
OnTimer = ToolTimerTimer OnTimer = ToolTimerTimer
left = 24 Left = 24
top = 160 Top = 160
end end
object SideImages: TImageList object SideImages: TImageList
Scaled = True Scaled = True
left = 240 Left = 240
top = 48 Top = 48
end end
object MicroM8Process: TAsyncProcess object MicroM8Process: TAsyncProcess
Active = False Active = False
@ -10543,32 +10541,32 @@ object GUIForm: TGUIForm
WindowWidth = 0 WindowWidth = 0
FillAttribute = 0 FillAttribute = 0
OnTerminate = MicroM8ProcessTerminate OnTerminate = MicroM8ProcessTerminate
left = 240 Left = 240
top = 160 Top = 160
end end
object odFreezeFiles: TOpenDialog object odFreezeFiles: TOpenDialog
DefaultExt = '.*.frz' DefaultExt = '.*.frz'
Filter = 'MicroM8 Freeze|*.frz' Filter = 'MicroM8 Freeze|*.frz'
left = 96 Left = 96
top = 160 Top = 160
end end
object FSTimer: TTimer object FSTimer: TTimer
OnTimer = FSTimerTimer OnTimer = FSTimerTimer
left = 168 Left = 168
top = 160 Top = 160
end end
object sdFreezeFiles: TSaveDialog object sdFreezeFiles: TSaveDialog
Title = 'Save state as' Title = 'Save state as'
DefaultExt = '.*.frz' DefaultExt = '.*.frz'
Filter = 'MicroM8 Freeze|*.frz' Filter = 'MicroM8 Freeze|*.frz'
left = 24 Left = 24
top = 216 Top = 216
end end
object RecordingMenu: TPopupMenu object RecordingMenu: TPopupMenu
Images = ToolbarIcons Images = ToolbarIcons
ImagesWidth = 32 ImagesWidth = 32
left = 96 Left = 96
top = 216 Top = 216
object miStartDiskRec: TMenuItem object miStartDiskRec: TMenuItem
Caption = 'Start Disk Recording' Caption = 'Start Disk Recording'
ImageIndex = 10 ImageIndex = 10
@ -10583,8 +10581,8 @@ object GUIForm: TGUIForm
end end
end end
object ProfileMenu: TPopupMenu object ProfileMenu: TPopupMenu
left = 168 Left = 168
top = 216 Top = 216
object miPMApple2eEnh: TMenuItem object miPMApple2eEnh: TMenuItem
Caption = 'Apple //e Enhanced' Caption = 'Apple //e Enhanced'
OnClick = miPRFIIeEnhancedClick OnClick = miPRFIIeEnhancedClick
@ -10613,14 +10611,14 @@ object GUIForm: TGUIForm
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = WaitReposTimer OnTimer = WaitReposTimer
left = 238 Left = 238
top = 223 Top = 223
end end
object SPMenu: TPopupMenu object SPMenu: TPopupMenu
OnPopup = DiskMenuPopup OnPopup = DiskMenuPopup
OnClose = DiskMenuClose OnClose = DiskMenuClose
left = 24 Left = 24
top = 272 Top = 272
object miSPConnect: TMenuItem object miSPConnect: TMenuItem
Caption = 'Connect Disk' Caption = 'Connect Disk'
OnClick = miSPFileClick OnClick = miSPFileClick

1
main.pas
View File

@ -3170,6 +3170,7 @@ begin
code := MapKeyCode(Key,Shift,false); code := MapKeyCode(Key,Shift,false);
if code <> 0 then if code <> 0 then
SendKey( code, 0, 1, MapShiftState(Key, Shift) ); SendKey( code, 0, 1, MapShiftState(Key, Shift) );
if not (ssAlt in Shift) then
Key := 0; Key := 0;
//StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc; //StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc;
end; end;

6
poc.lpi
View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="11"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="microm8-gui"/> <Title Value="microm8-gui"/>
<Scaled Value="True"/> <Scaled Value="True"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>

372
poc.lps
View File

@ -1,186 +1,186 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectSession> <ProjectSession>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="11"/> <Version Value="12"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="5"> <Units Count="5">
<Unit0> <Unit0>
<Filename Value="poc.lpr"/> <Filename Value="poc.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="-1"/> <TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/> <CursorPos X="-1" Y="-1"/>
<UsageCount Value="323"/> <UsageCount Value="323"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="GUIForm"/> <ComponentName Value="GUIForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="3152"/> <TopLine Value="3152"/>
<CursorPos X="12" Y="3189"/> <CursorPos X="10" Y="3173"/>
<UsageCount Value="323"/> <UsageCount Value="323"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="mixer.pas"/> <Filename Value="mixer.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmMixer"/> <ComponentName Value="frmMixer"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="3"/> <TopLine Value="3"/>
<CursorPos X="26" Y="25"/> <CursorPos X="26" Y="25"/>
<UsageCount Value="206"/> <UsageCount Value="206"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="C:\lazarus\lcl\include\picture.inc"/> <Filename Value="C:\lazarus\lcl\include\picture.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="576"/> <TopLine Value="576"/>
<CursorPos X="49" Y="591"/> <CursorPos X="49" Y="591"/>
<UsageCount Value="93"/> <UsageCount Value="93"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="images\memory.pas"/> <Filename Value="images\memory.pas"/>
<ComponentName Value="memform"/> <ComponentName Value="memform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="40"/> <TopLine Value="40"/>
<CursorPos X="17" Y="44"/> <CursorPos X="17" Y="44"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
</Unit4> </Unit4>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3046" Column="36" TopLine="3032"/> <Caret Line="3046" Column="36" TopLine="3032"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2882" Column="27" TopLine="2867"/> <Caret Line="2882" Column="27" TopLine="2867"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2888" Column="23" TopLine="2877"/> <Caret Line="2888" Column="23" TopLine="2877"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2752" Column="28" TopLine="2729"/> <Caret Line="2752" Column="28" TopLine="2729"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1788" Column="61" TopLine="1785"/> <Caret Line="1788" Column="61" TopLine="1785"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2341" Column="6" TopLine="2313"/> <Caret Line="2341" Column="6" TopLine="2313"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1801" Column="28" TopLine="1786"/> <Caret Line="1801" Column="28" TopLine="1786"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2900" Column="14" TopLine="2888"/> <Caret Line="2900" Column="14" TopLine="2888"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1897" Column="16" TopLine="1894"/> <Caret Line="1897" Column="16" TopLine="1894"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="426" Column="15" TopLine="408"/> <Caret Line="426" Column="15" TopLine="408"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1183" TopLine="1178"/> <Caret Line="1183" TopLine="1178"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1923" Column="42" TopLine="1895"/> <Caret Line="1923" Column="42" TopLine="1895"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2892" Column="43" TopLine="2879"/> <Caret Line="2892" Column="43" TopLine="2879"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2899" Column="43" TopLine="2886"/> <Caret Line="2899" Column="43" TopLine="2886"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1833" Column="87" TopLine="1829"/> <Caret Line="1833" Column="87" TopLine="1829"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1839" Column="38" TopLine="1820"/> <Caret Line="1839" Column="38" TopLine="1820"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1098" Column="15" TopLine="1092"/> <Caret Line="1098" Column="15" TopLine="1092"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1925" Column="3" TopLine="1923"/> <Caret Line="1925" Column="3" TopLine="1923"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3205" Column="13" TopLine="3198"/> <Caret Line="3205" Column="13" TopLine="3198"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3279" Column="24" TopLine="3223"/> <Caret Line="3279" Column="24" TopLine="3223"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="581" Column="11" TopLine="563"/> <Caret Line="581" Column="11" TopLine="563"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2250" Column="17" TopLine="2231"/> <Caret Line="2250" Column="17" TopLine="2231"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2255" Column="14" TopLine="2231"/> <Caret Line="2255" Column="14" TopLine="2231"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2265" Column="21" TopLine="2234"/> <Caret Line="2265" Column="21" TopLine="2234"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3202" Column="9" TopLine="3174"/> <Caret Line="3202" Column="9" TopLine="3174"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="893" Column="40" TopLine="871"/> <Caret Line="893" Column="40" TopLine="871"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="348" Column="22" TopLine="330"/> <Caret Line="348" Column="22" TopLine="330"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="349" Column="22" TopLine="330"/> <Caret Line="349" Column="22" TopLine="330"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="350" Column="22" TopLine="330"/> <Caret Line="350" Column="22" TopLine="330"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3189" Column="12" TopLine="3152"/> <Caret Line="3189" Column="12" TopLine="3152"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="0" ActiveMode=""/> <Modes Count="0" ActiveMode=""/>
</RunParams> </RunParams>
</ProjectSession> </ProjectSession>
</CONFIG> </CONFIG>

BIN
poc.res
View File

Binary file not shown.