mirror of
https://github.com/paleotronic/microm8-gui.git
synced 2024-06-13 02:29:47 +00:00
screenshot support
This commit is contained in:
parent
743f44efa8
commit
9056ed6555
334
backup/main.lfm
334
backup/main.lfm
|
@ -1,13 +1,13 @@
|
||||||
object GUIForm: TGUIForm
|
object GUIForm: TGUIForm
|
||||||
Left = 2270
|
Left = 2260
|
||||||
Height = 574
|
Height = 668
|
||||||
Top = 247
|
Top = 311
|
||||||
Width = 945
|
Width = 1014
|
||||||
AlphaBlendValue = 128
|
AlphaBlendValue = 128
|
||||||
Caption = 'microM8 GUI'
|
Caption = 'microM8 GUI'
|
||||||
ClientHeight = 549
|
ClientHeight = 648
|
||||||
ClientWidth = 945
|
ClientWidth = 1014
|
||||||
Constraints.MinWidth = 945
|
Constraints.MinWidth = 1014
|
||||||
DoubleBuffered = False
|
DoubleBuffered = False
|
||||||
Menu = MainMenu1
|
Menu = MainMenu1
|
||||||
OnChangeBounds = FormChangeBounds
|
OnChangeBounds = FormChangeBounds
|
||||||
|
@ -27,16 +27,16 @@ object GUIForm: TGUIForm
|
||||||
LCLVersion = '2.0.0.4'
|
LCLVersion = '2.0.0.4'
|
||||||
object StatusBar1: TStatusBar
|
object StatusBar1: TStatusBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 19
|
Height = 23
|
||||||
Top = 530
|
Top = 625
|
||||||
Width = 945
|
Width = 1014
|
||||||
Panels = <>
|
Panels = <>
|
||||||
end
|
end
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 36
|
Height = 36
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 945
|
Width = 1014
|
||||||
ButtonHeight = 32
|
ButtonHeight = 32
|
||||||
ButtonWidth = 32
|
ButtonWidth = 32
|
||||||
Caption = 'ToolBar1'
|
Caption = 'ToolBar1'
|
||||||
|
@ -44,89 +44,123 @@ object GUIForm: TGUIForm
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object tbTintMode: TToolButton
|
object tbTintMode: TToolButton
|
||||||
Left = 1
|
Left = 1
|
||||||
|
Hint = 'Tint mode'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbTintMode'
|
Caption = 'tbTintMode'
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
OnClick = tbTintModeClick
|
OnClick = tbTintModeClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbRMVoxels: TToolButton
|
object tbRMVoxels: TToolButton
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 549
|
Left = 549
|
||||||
|
Hint = 'Voxel Render'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'Voxels'
|
Caption = 'Voxels'
|
||||||
Down = True
|
Down = True
|
||||||
Grouped = True
|
Grouped = True
|
||||||
ImageIndex = 4
|
ImageIndex = 4
|
||||||
OnClick = tbRMClick
|
OnClick = tbRMClick
|
||||||
|
ParentShowHint = False
|
||||||
|
PopupMenu = RecordingMenu
|
||||||
|
ShowHint = True
|
||||||
Style = tbsCheck
|
Style = tbsCheck
|
||||||
end
|
end
|
||||||
object tbRMDots: TToolButton
|
object tbRMDots: TToolButton
|
||||||
Left = 585
|
Left = 585
|
||||||
|
Hint = 'Dot Render'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'Dots'
|
Caption = 'Dots'
|
||||||
Grouped = True
|
Grouped = True
|
||||||
ImageIndex = 5
|
ImageIndex = 5
|
||||||
OnClick = tbRMClick
|
OnClick = tbRMClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
Style = tbsCheck
|
Style = tbsCheck
|
||||||
end
|
end
|
||||||
object tbRMRaster: TToolButton
|
object tbRMRaster: TToolButton
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 621
|
Left = 621
|
||||||
|
Hint = 'Raster Render'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'Raster'
|
Caption = 'Raster'
|
||||||
Grouped = True
|
Grouped = True
|
||||||
ImageIndex = 6
|
ImageIndex = 6
|
||||||
OnClick = tbRMClick
|
OnClick = tbRMClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
Style = tbsCheck
|
Style = tbsCheck
|
||||||
end
|
end
|
||||||
object tbRMColor: TToolButton
|
object tbRMColor: TToolButton
|
||||||
Left = 657
|
Left = 657
|
||||||
|
Hint = 'Toggle Color/Mono'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbRMColor'
|
Caption = 'tbRMColor'
|
||||||
ImageIndex = 7
|
ImageIndex = 7
|
||||||
OnClick = tbRMColorClick
|
OnClick = tbRMColorClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton4: TToolButton
|
object tbRECState: TToolButton
|
||||||
Left = 725
|
Left = 725
|
||||||
|
Hint = 'Start Recording'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton4'
|
Caption = 'tbRECState'
|
||||||
|
DropdownMenu = RecordingMenu
|
||||||
ImageIndex = 9
|
ImageIndex = 9
|
||||||
OnClick = miRECStartFileClick
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton5: TToolButton
|
object ToolButton5: TToolButton
|
||||||
Left = 761
|
Left = 761
|
||||||
|
Hint = 'Rewind'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton5'
|
Caption = 'ToolButton5'
|
||||||
ImageIndex = 12
|
ImageIndex = 12
|
||||||
OnClick = miRECRewindClick
|
OnClick = miRECRewindClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton6: TToolButton
|
object ToolButton6: TToolButton
|
||||||
Left = 797
|
Left = 797
|
||||||
|
Hint = 'Forwards'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton6'
|
Caption = 'ToolButton6'
|
||||||
ImageIndex = 13
|
ImageIndex = 13
|
||||||
OnClick = miRECPlayClick
|
OnClick = miRECPlayClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton7: TToolButton
|
object ToolButton7: TToolButton
|
||||||
Left = 833
|
Left = 833
|
||||||
|
Hint = 'Resume'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton7'
|
Caption = 'ToolButton7'
|
||||||
ImageIndex = 14
|
ImageIndex = 14
|
||||||
OnClick = miRECResumeClick
|
OnClick = miRECResumeClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton8: TToolButton
|
object ToolButton8: TToolButton
|
||||||
Left = 869
|
Left = 869
|
||||||
|
Hint = 'Stop Recording'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton8'
|
Caption = 'ToolButton8'
|
||||||
ImageIndex = 15
|
ImageIndex = 15
|
||||||
OnClick = miRECStopClick
|
OnClick = miRECStopClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton9: TToolButton
|
object ToolButton9: TToolButton
|
||||||
Left = 905
|
Left = 905
|
||||||
|
Hint = 'Pause'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton9'
|
Caption = 'ToolButton9'
|
||||||
ImageIndex = 16
|
ImageIndex = 16
|
||||||
OnClick = ToolButton9Click
|
OnClick = ToolButton9Click
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton10: TToolButton
|
object ToolButton10: TToolButton
|
||||||
Left = 693
|
Left = 693
|
||||||
|
@ -136,31 +170,43 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbJoystickAxisSwitch: TToolButton
|
object tbJoystickAxisSwitch: TToolButton
|
||||||
Left = 37
|
Left = 37
|
||||||
|
Hint = 'Swap Joystick Axis'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbJoystickAxisSwitch'
|
Caption = 'tbJoystickAxisSwitch'
|
||||||
ImageIndex = 21
|
ImageIndex = 21
|
||||||
OnClick = tbJoystickAxisSwitchClick
|
OnClick = tbJoystickAxisSwitchClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbCapsMode: TToolButton
|
object tbCapsMode: TToolButton
|
||||||
Left = 73
|
Left = 73
|
||||||
|
Hint = 'Toggle CAPS mode'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbCapsMode'
|
Caption = 'tbCapsMode'
|
||||||
ImageIndex = 17
|
ImageIndex = 17
|
||||||
OnClick = tbCapsModeClick
|
OnClick = tbCapsModeClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbScanlines: TToolButton
|
object tbScanlines: TToolButton
|
||||||
Left = 109
|
Left = 109
|
||||||
|
Hint = 'Toggle Interlacing'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbScanlines'
|
Caption = 'tbScanlines'
|
||||||
ImageIndex = 19
|
ImageIndex = 19
|
||||||
OnClick = tbScanlinesClick
|
OnClick = tbScanlinesClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbWebDebugger: TToolButton
|
object tbWebDebugger: TToolButton
|
||||||
Left = 145
|
Left = 145
|
||||||
|
Hint = 'Web Debugger'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbWebDebugger'
|
Caption = 'tbWebDebugger'
|
||||||
ImageIndex = 28
|
ImageIndex = 28
|
||||||
OnClick = miToolsWebDebuggerClick
|
OnClick = miToolsWebDebuggerClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton15: TToolButton
|
object ToolButton15: TToolButton
|
||||||
Left = 181
|
Left = 181
|
||||||
|
@ -170,19 +216,23 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbVolDown: TToolButton
|
object tbVolDown: TToolButton
|
||||||
Left = 213
|
Left = 213
|
||||||
|
Hint = 'Volume Down'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbVolDown'
|
Caption = 'tbVolDown'
|
||||||
ImageIndex = 23
|
ImageIndex = 23
|
||||||
OnClick = tbVolDownClick
|
OnClick = tbVolDownClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbMasterVolume: TTrackBar
|
object tbMasterVolume: TTrackBar
|
||||||
Left = 249
|
Left = 249
|
||||||
Height = 38
|
Height = 32
|
||||||
Top = 2
|
Top = 2
|
||||||
Width = 64
|
Width = 64
|
||||||
OnChange = tbMasterVolumeChange
|
OnChange = tbMasterVolumeChange
|
||||||
Position = 0
|
Position = 0
|
||||||
ScalePos = trBottom
|
ScalePos = trBottom
|
||||||
|
TabStop = False
|
||||||
TickMarks = tmBoth
|
TickMarks = tmBoth
|
||||||
TickStyle = tsManual
|
TickStyle = tsManual
|
||||||
OnKeyDown = FormKeyDown
|
OnKeyDown = FormKeyDown
|
||||||
|
@ -191,10 +241,13 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbVolUp: TToolButton
|
object tbVolUp: TToolButton
|
||||||
Left = 313
|
Left = 313
|
||||||
|
Hint = 'Volume Up'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbVolUp'
|
Caption = 'tbVolUp'
|
||||||
ImageIndex = 24
|
ImageIndex = 24
|
||||||
OnClick = tbVolUpClick
|
OnClick = tbVolUpClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton3: TToolButton
|
object ToolButton3: TToolButton
|
||||||
Left = 349
|
Left = 349
|
||||||
|
@ -204,20 +257,24 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbSpeedDown: TToolButton
|
object tbSpeedDown: TToolButton
|
||||||
Left = 381
|
Left = 381
|
||||||
|
Hint = 'CPU Speed Down'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbSpeedDown'
|
Caption = 'tbSpeedDown'
|
||||||
ImageIndex = 25
|
ImageIndex = 25
|
||||||
OnClick = tbSpeedDownClick
|
OnClick = tbSpeedDownClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object TrackBar2: TTrackBar
|
object TrackBar2: TTrackBar
|
||||||
Left = 417
|
Left = 417
|
||||||
Height = 38
|
Height = 32
|
||||||
Top = 2
|
Top = 2
|
||||||
Width = 64
|
Width = 64
|
||||||
Max = 4
|
Max = 4
|
||||||
OnChange = TrackBar2Change
|
OnChange = TrackBar2Change
|
||||||
Position = 0
|
Position = 0
|
||||||
ScalePos = trBottom
|
ScalePos = trBottom
|
||||||
|
TabStop = False
|
||||||
TickMarks = tmBoth
|
TickMarks = tmBoth
|
||||||
TickStyle = tsManual
|
TickStyle = tsManual
|
||||||
OnKeyDown = FormKeyDown
|
OnKeyDown = FormKeyDown
|
||||||
|
@ -226,10 +283,13 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbSpeedUp: TToolButton
|
object tbSpeedUp: TToolButton
|
||||||
Left = 481
|
Left = 481
|
||||||
|
Hint = 'CPU Speed Up'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbSpeedUp'
|
Caption = 'tbSpeedUp'
|
||||||
ImageIndex = 26
|
ImageIndex = 26
|
||||||
OnClick = tbSpeedUpClick
|
OnClick = tbSpeedUpClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton18: TToolButton
|
object ToolButton18: TToolButton
|
||||||
Left = 517
|
Left = 517
|
||||||
|
@ -237,35 +297,51 @@ object GUIForm: TGUIForm
|
||||||
Caption = 'ToolButton18'
|
Caption = 'ToolButton18'
|
||||||
Enabled = False
|
Enabled = False
|
||||||
end
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 941
|
||||||
|
Top = 2
|
||||||
|
Caption = 'ToolButton1'
|
||||||
|
Enabled = False
|
||||||
|
end
|
||||||
|
object tbFullscreen: TToolButton
|
||||||
|
Left = 973
|
||||||
|
Hint = 'Fullscreen'
|
||||||
|
Top = 2
|
||||||
|
Caption = 'tbFullscreen'
|
||||||
|
ImageIndex = 29
|
||||||
|
OnClick = tbFullscreenClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object pnlContainer: TPanel
|
object pnlContainer: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 494
|
Height = 589
|
||||||
Top = 36
|
Top = 36
|
||||||
Width = 945
|
Width = 1014
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
ClientHeight = 494
|
ClientHeight = 589
|
||||||
ClientWidth = 945
|
ClientWidth = 1014
|
||||||
Color = clAqua
|
Color = clAqua
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object sidecarPanel: TPanel
|
object sidecarPanel: TPanel
|
||||||
Left = 775
|
Left = 844
|
||||||
Height = 494
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 170
|
Width = 170
|
||||||
Align = alRight
|
Align = alRight
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
Caption = 'sidecarPanel'
|
Caption = 'sidecarPanel'
|
||||||
ClientHeight = 494
|
ClientHeight = 589
|
||||||
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 = 494
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 170
|
Width = 170
|
||||||
Align = alClient
|
Align = alClient
|
||||||
|
@ -5358,13 +5434,13 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object embedPanel: TPanel
|
object embedPanel: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 494
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 775
|
Width = 844
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
ClientHeight = 494
|
ClientHeight = 589
|
||||||
ClientWidth = 775
|
ClientWidth = 844
|
||||||
Color = clBlack
|
Color = clBlack
|
||||||
Font.Color = clWhite
|
Font.Color = clWhite
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
|
@ -5372,9 +5448,9 @@ object GUIForm: TGUIForm
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object backdrop: TImage
|
object backdrop: TImage
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 494
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 775
|
Width = 844
|
||||||
Align = alClient
|
Align = alClient
|
||||||
OnClick = backdropClick
|
OnClick = backdropClick
|
||||||
Stretch = True
|
Stretch = True
|
||||||
|
@ -5432,41 +5508,49 @@ object GUIForm: TGUIForm
|
||||||
OnClick = miVMClick
|
OnClick = miVMClick
|
||||||
object miVM1: TMenuItem
|
object miVM1: TMenuItem
|
||||||
Caption = '1'
|
Caption = '1'
|
||||||
|
RadioItem = True
|
||||||
ShortCut = 24625
|
ShortCut = 24625
|
||||||
OnClick = miVM1Click
|
OnClick = miVM1Click
|
||||||
end
|
end
|
||||||
object miVM2: TMenuItem
|
object miVM2: TMenuItem
|
||||||
Caption = '2'
|
Caption = '2'
|
||||||
|
RadioItem = True
|
||||||
ShortCut = 24626
|
ShortCut = 24626
|
||||||
OnClick = miVM1Click
|
OnClick = miVM1Click
|
||||||
end
|
end
|
||||||
object miVM3: TMenuItem
|
object miVM3: TMenuItem
|
||||||
Caption = '3'
|
Caption = '3'
|
||||||
|
RadioItem = True
|
||||||
ShortCut = 24627
|
ShortCut = 24627
|
||||||
OnClick = miVM1Click
|
OnClick = miVM1Click
|
||||||
end
|
end
|
||||||
object miVM4: TMenuItem
|
object miVM4: TMenuItem
|
||||||
Caption = '4'
|
Caption = '4'
|
||||||
|
RadioItem = True
|
||||||
ShortCut = 24628
|
ShortCut = 24628
|
||||||
OnClick = miVM1Click
|
OnClick = miVM1Click
|
||||||
end
|
end
|
||||||
object miVM5: TMenuItem
|
object miVM5: TMenuItem
|
||||||
Caption = '5'
|
Caption = '5'
|
||||||
|
RadioItem = True
|
||||||
ShortCut = 24629
|
ShortCut = 24629
|
||||||
OnClick = miVM1Click
|
OnClick = miVM1Click
|
||||||
end
|
end
|
||||||
object miVM6: TMenuItem
|
object miVM6: TMenuItem
|
||||||
Caption = '6'
|
Caption = '6'
|
||||||
|
RadioItem = True
|
||||||
ShortCut = 24630
|
ShortCut = 24630
|
||||||
OnClick = miVM1Click
|
OnClick = miVM1Click
|
||||||
end
|
end
|
||||||
object miVM7: TMenuItem
|
object miVM7: TMenuItem
|
||||||
Caption = '7'
|
Caption = '7'
|
||||||
|
RadioItem = True
|
||||||
ShortCut = 24631
|
ShortCut = 24631
|
||||||
OnClick = miVM1Click
|
OnClick = miVM1Click
|
||||||
end
|
end
|
||||||
object miVM8: TMenuItem
|
object miVM8: TMenuItem
|
||||||
Caption = '8'
|
Caption = '8'
|
||||||
|
RadioItem = True
|
||||||
ShortCut = 24632
|
ShortCut = 24632
|
||||||
OnClick = miVM1Click
|
OnClick = miVM1Click
|
||||||
end
|
end
|
||||||
|
@ -5848,6 +5932,14 @@ object GUIForm: TGUIForm
|
||||||
ShortCut = 32781
|
ShortCut = 32781
|
||||||
OnClick = MenuItem14Click
|
OnClick = MenuItem14Click
|
||||||
end
|
end
|
||||||
|
object N10: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object miVideoScreenshot: TMenuItem
|
||||||
|
Caption = 'Take Screenshot'
|
||||||
|
ShortCut = 24796
|
||||||
|
OnClick = miVideoScreenshotClick
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object Input: TMenuItem
|
object Input: TMenuItem
|
||||||
Caption = 'Input'
|
Caption = 'Input'
|
||||||
|
@ -6275,10 +6367,12 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object miRECRewind: TMenuItem
|
object miRECRewind: TMenuItem
|
||||||
Caption = 'Rewind'
|
Caption = 'Rewind'
|
||||||
|
ShortCut = 24795
|
||||||
OnClick = miRECRewindClick
|
OnClick = miRECRewindClick
|
||||||
end
|
end
|
||||||
object miRECPlay: TMenuItem
|
object miRECPlay: TMenuItem
|
||||||
Caption = 'Play'
|
Caption = 'Play'
|
||||||
|
ShortCut = 24797
|
||||||
OnClick = miRECPlayClick
|
OnClick = miRECPlayClick
|
||||||
end
|
end
|
||||||
object miRECResume: TMenuItem
|
object miRECResume: TMenuItem
|
||||||
|
@ -6314,15 +6408,25 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object miTools: TMenuItem
|
object miTools: TMenuItem
|
||||||
Caption = 'Tools'
|
Caption = 'Tools'
|
||||||
|
OnClick = miToolsClick
|
||||||
object miToolsTracker: TMenuItem
|
object miToolsTracker: TMenuItem
|
||||||
Caption = 'microTracker'
|
Caption = 'microTracker'
|
||||||
OnClick = miToolsTrackerClick
|
OnClick = miToolsTrackerClick
|
||||||
end
|
end
|
||||||
object miToolsWebDebugger: TMenuItem
|
object miToolsWebDebugger: TMenuItem
|
||||||
Caption = 'Web Debugger'
|
Caption = 'Web Debugger'
|
||||||
|
ShortCut = 24642
|
||||||
OnClick = miToolsWebDebuggerClick
|
OnClick = miToolsWebDebuggerClick
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object miHelp: TMenuItem
|
||||||
|
Caption = 'Help'
|
||||||
|
object miMMHelp: TMenuItem
|
||||||
|
Caption = 'microM8 Help'
|
||||||
|
ShortCut = 24648
|
||||||
|
OnClick = miMMHelpClick
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object ToolbarIcons: TImageList
|
object ToolbarIcons: TImageList
|
||||||
Height = 32
|
Height = 32
|
||||||
|
@ -6331,7 +6435,7 @@ object GUIForm: TGUIForm
|
||||||
left = 96
|
left = 96
|
||||||
top = 48
|
top = 48
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
4C691D0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D
|
4C691E0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D
|
||||||
B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68
|
B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68
|
||||||
D54C6E5CEA805A52F69F5353FFB15353FFB15A52F69F6E5CEA808C68D54CAD72
|
D54C6E5CEA805A52F69F5353FFB15353FFB15A52F69F6E5CEA808C68D54CAD72
|
||||||
BB0EB16DB100B16DB100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
BB0EB16DB100B16DB100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
@ -10043,7 +10147,135 @@ object GUIForm: TGUIForm
|
||||||
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED002D99B33C28C6
|
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED002D99B33C28C6
|
||||||
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6
|
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6
|
||||||
ED002B9EBB3528C6ED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
ED002B9EBB3528C6ED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0070107137660068DD660068F76600
|
||||||
|
68F7660068F7660068F7660068F7660068F7660068F7660068F7660068D06600
|
||||||
|
68226600680066006800660068006600680066006800660068006600681A6600
|
||||||
|
68C9660068F7660068F7660068F7660068F7660068F7660068F7660068F76600
|
||||||
|
68F7660068E266006842FFFFFF00FFFFFF00701071CD660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
6891660068006600680066006800660068006600680066006800660068816600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068DDFFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
6871660068006600680066006800660068006600680066006800660068616600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068BD6600688E6600688E6600688E660068686600
|
||||||
|
6802660068006600680066006800660068006600680066006800660068016600
|
||||||
|
68616600688E6600688E6600688E660068B6660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068EF660068346600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
680066006800660068006600682A660068E8660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068EE6600683466006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600682A660068E8660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68C6660068E8660068FF660068FF660068FF660068EE66006834660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600682A660068E8660068FF660068FF660068FF660068EE660068BF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A26600682A660068E8660068FF660068FF660068FF660068EE660068346600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
682A660068E8660068FF660068FF660068FF660068EE66006834660068926600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A1660068006600682A660068E8660068FF660068FF660068FF660068EE6600
|
||||||
|
68346600680066006800660068006600680066006800660068006600682A6600
|
||||||
|
68E8660068FF660068FF660068FF660068EE6600683466006800660068916600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A266006800660068006600682A660068E8660068FF660068FF660068FF6600
|
||||||
|
68EE66006825660068006600680066006800660068006600681C660068E86600
|
||||||
|
68FF660068FF660068FF660068EE660068346600680066006800660068926600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071BE660068FF660068FF6600
|
||||||
|
687D6600680066006800660068006600682A660068E8660068FF660068FF6600
|
||||||
|
68FF660068776600680066006800660068006600680066006867660068FF6600
|
||||||
|
68FF660068FF660068EE660068346600680066006800660068006600686D6600
|
||||||
|
68FF660068FF660068CEFFFFFF00FFFFFF007010711C660068906600687C6600
|
||||||
|
6807660068006600680066006800660068006600682A660068E8660068FF6600
|
||||||
|
68F9660068346600680066006800660068006600680066006828660068F56600
|
||||||
|
68FF660068EE660068348C408E008C408E008C408E008C408E008C408E038C40
|
||||||
|
8E768C408E948C408E23FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
68006600680066006800660068006600680066006800660068206600687B6600
|
||||||
|
683A660068006600680066006800660068006600680066006800660068326600
|
||||||
|
687C6600682666006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006803660068336600
|
||||||
|
680E6600680066006800660068006600680066006800660068006600680C6600
|
||||||
|
68346600680566006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00701071036600684C660068386600
|
||||||
|
6800660068006600680066006800660068006600680C660068C0660068FF6600
|
||||||
|
68ED6600682F6600680066006800660068006600680066006825660068E76600
|
||||||
|
68FF660068CA66006811BC90BD00BC90BD00BC90BD00BC90BD00BC90BD00BC90
|
||||||
|
BD32BC90BD4FBC90BD06FFFFFF00FFFFFF007010719A660068FF660068FF6600
|
||||||
|
68596600680066006800660068006600680C660068C2660068FF660068FF6600
|
||||||
|
68FF6600688D660068006600680066006800660068006600687D660068FF6600
|
||||||
|
68FF660068FF660068CC660068116600680066006800660068006600684A6600
|
||||||
|
68FE660068FF660068AAFFFFFF00FFFFFF00701071E2660068FF660068FF6600
|
||||||
|
689F66006800660068006600680C660068C2660068FF660068FF660068FF6600
|
||||||
|
68FE6600684B660068006600680066006800660068006600683D660068FC6600
|
||||||
|
68FF660068FF660068FF660068CC6600681166006800660068006600688F6600
|
||||||
|
68FF660068FF660068F2FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A1660068006600680C660068C2660068FF660068FF660068FF660068FE7B24
|
||||||
|
7D67D9C0DA00D9C0DA00D9C0DA00D9C0DA00D9C0DA00D9C0DA00833084596600
|
||||||
|
68FC660068FF660068FF660068FF660068CC6600681166006800660068916600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A16600680C660068C2660068FF660068FF660068FF660068FE660068678330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
6859660068FC660068FF660068FF660068FF660068CC66006811660068916600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68AD660068C2660068FF660068FF660068FF660068FE66006867660068008330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
680066006859660068FC660068FF660068FF660068FF660068CC660068A36600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FE6600686766006800660068008330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
68006600680066006859660068FC660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FE660068676600680066006800660068008330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
6800660068006600680066006859660068FC660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068BD660068606600686066006860660068428330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
683D660068606600686066006860660068B3660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF8330
|
||||||
|
846DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E5E6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071DE660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF8330
|
||||||
|
84ACFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E9C6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068EEFFFFFF00FFFFFF0070107157660068F5660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068F78330
|
||||||
|
8448FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E3C6600
|
||||||
|
68F3660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068F866006865FFFFFF00FFFFFF00E5D3E500E3D0E30FE3D0E325E3D0
|
||||||
|
E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E30FE8D9
|
||||||
|
E800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EADCEA00E3D0
|
||||||
|
E30DE3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0
|
||||||
|
E325E3D0E312E3D0E300FFFFFF00
|
||||||
}
|
}
|
||||||
end
|
end
|
||||||
object DiskMenu: TPopupMenu
|
object DiskMenu: TPopupMenu
|
||||||
|
@ -10164,4 +10396,42 @@ object GUIForm: TGUIForm
|
||||||
left = 24
|
left = 24
|
||||||
top = 216
|
top = 216
|
||||||
end
|
end
|
||||||
|
object RecordingMenu: TPopupMenu
|
||||||
|
Images = ToolbarIcons
|
||||||
|
ImagesWidth = 32
|
||||||
|
left = 96
|
||||||
|
top = 216
|
||||||
|
object miStartDiskRec: TMenuItem
|
||||||
|
Caption = 'Start Disk Recording'
|
||||||
|
ImageIndex = 10
|
||||||
|
SubMenuImages = ToolbarIcons
|
||||||
|
OnClick = miRECStartFileClick
|
||||||
|
end
|
||||||
|
object miStartLiveRewindRecord: TMenuItem
|
||||||
|
Caption = 'Enable Live Rewind'
|
||||||
|
ImageIndex = 11
|
||||||
|
SubMenuImages = ToolbarIcons
|
||||||
|
OnClick = miRECLiveRewindClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ProfileMenu: TPopupMenu
|
||||||
|
left = 168
|
||||||
|
top = 216
|
||||||
|
object miPMApple2eEnh: TMenuItem
|
||||||
|
Caption = 'Apple //e Enhanced'
|
||||||
|
OnClick = miPRFIIeEnhancedClick
|
||||||
|
end
|
||||||
|
object miPMApple2eEnhCPM: TMenuItem
|
||||||
|
Caption = 'Apple //e Enhanced (Softcard)'
|
||||||
|
OnClick = miPRFIIeEnhancedSoftcardClick
|
||||||
|
end
|
||||||
|
object miPMApple2e: TMenuItem
|
||||||
|
Caption = 'Apple //e'
|
||||||
|
OnClick = miPRFIIeClick
|
||||||
|
end
|
||||||
|
object miPMApple2plus: TMenuItem
|
||||||
|
Caption = 'Apple ][+'
|
||||||
|
OnClick = miPRFIIplusClick
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
146
backup/main.pas
146
backup/main.pas
|
@ -24,6 +24,16 @@ type
|
||||||
MenuItem14: TMenuItem;
|
MenuItem14: TMenuItem;
|
||||||
MenuItem17: TMenuItem;
|
MenuItem17: TMenuItem;
|
||||||
MenuItem18: TMenuItem;
|
MenuItem18: TMenuItem;
|
||||||
|
miVideoScreenshot: TMenuItem;
|
||||||
|
N10: TMenuItem;
|
||||||
|
miPMApple2plus: TMenuItem;
|
||||||
|
miPMApple2e: TMenuItem;
|
||||||
|
miPMApple2eEnhCPM: TMenuItem;
|
||||||
|
miPMApple2eEnh: TMenuItem;
|
||||||
|
miStartLiveRewindRecord: TMenuItem;
|
||||||
|
miStartDiskRec: TMenuItem;
|
||||||
|
miMMHelp: TMenuItem;
|
||||||
|
miHelp: TMenuItem;
|
||||||
miVM8: TMenuItem;
|
miVM8: TMenuItem;
|
||||||
miVM7: TMenuItem;
|
miVM7: TMenuItem;
|
||||||
miVM6: TMenuItem;
|
miVM6: TMenuItem;
|
||||||
|
@ -66,6 +76,8 @@ type
|
||||||
Image1: TImage;
|
Image1: TImage;
|
||||||
odFreezeFiles: TOpenDialog;
|
odFreezeFiles: TOpenDialog;
|
||||||
pnlContainer: TPanel;
|
pnlContainer: TPanel;
|
||||||
|
ProfileMenu: TPopupMenu;
|
||||||
|
RecordingMenu: TPopupMenu;
|
||||||
sdFreezeFiles: TSaveDialog;
|
sdFreezeFiles: TSaveDialog;
|
||||||
SideImages: TImageList;
|
SideImages: TImageList;
|
||||||
miWarp400: TMenuItem;
|
miWarp400: TMenuItem;
|
||||||
|
@ -174,6 +186,7 @@ type
|
||||||
sidecarPanel: TPanel;
|
sidecarPanel: TPanel;
|
||||||
FSTimer: TTimer;
|
FSTimer: TTimer;
|
||||||
tbVolDown: TToolButton;
|
tbVolDown: TToolButton;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
ToolButton10: TToolButton;
|
ToolButton10: TToolButton;
|
||||||
tbJoystickAxisSwitch: TToolButton;
|
tbJoystickAxisSwitch: TToolButton;
|
||||||
tbCapsMode: TToolButton;
|
tbCapsMode: TToolButton;
|
||||||
|
@ -184,8 +197,9 @@ type
|
||||||
tbSpeedUp: TToolButton;
|
tbSpeedUp: TToolButton;
|
||||||
ToolButton18: TToolButton;
|
ToolButton18: TToolButton;
|
||||||
tbVolUp: TToolButton;
|
tbVolUp: TToolButton;
|
||||||
|
tbFullscreen: TToolButton;
|
||||||
ToolButton3: TToolButton;
|
ToolButton3: TToolButton;
|
||||||
ToolButton4: TToolButton;
|
tbRECState: TToolButton;
|
||||||
ToolButton5: TToolButton;
|
ToolButton5: TToolButton;
|
||||||
ToolButton6: TToolButton;
|
ToolButton6: TToolButton;
|
||||||
ToolButton7: TToolButton;
|
ToolButton7: TToolButton;
|
||||||
|
@ -368,6 +382,7 @@ type
|
||||||
procedure miJSAxisSwapClick(Sender: TObject);
|
procedure miJSAxisSwapClick(Sender: TObject);
|
||||||
procedure miJSXRevClick(Sender: TObject);
|
procedure miJSXRevClick(Sender: TObject);
|
||||||
procedure miJSYRevClick(Sender: TObject);
|
procedure miJSYRevClick(Sender: TObject);
|
||||||
|
procedure miMMHelpClick(Sender: TObject);
|
||||||
procedure miMonoDotsClick(Sender: TObject);
|
procedure miMonoDotsClick(Sender: TObject);
|
||||||
procedure miMonoRasterClick(Sender: TObject);
|
procedure miMonoRasterClick(Sender: TObject);
|
||||||
procedure miMonoVoxelsClick(Sender: TObject);
|
procedure miMonoVoxelsClick(Sender: TObject);
|
||||||
|
@ -409,17 +424,20 @@ type
|
||||||
procedure miSVOL000Click(Sender: TObject);
|
procedure miSVOL000Click(Sender: TObject);
|
||||||
procedure miTintModeClick(Sender: TObject);
|
procedure miTintModeClick(Sender: TObject);
|
||||||
procedure miTMNoneClick(Sender: TObject);
|
procedure miTMNoneClick(Sender: TObject);
|
||||||
|
procedure miToolsClick(Sender: TObject);
|
||||||
procedure miToolsTrackerClick(Sender: TObject);
|
procedure miToolsTrackerClick(Sender: TObject);
|
||||||
procedure miToolsWebDebuggerClick(Sender: TObject);
|
procedure miToolsWebDebuggerClick(Sender: TObject);
|
||||||
procedure miVCRClick(Sender: TObject);
|
procedure miVCRClick(Sender: TObject);
|
||||||
procedure miVD1Click(Sender: TObject);
|
procedure miVD1Click(Sender: TObject);
|
||||||
procedure miVDClick(Sender: TObject);
|
procedure miVDClick(Sender: TObject);
|
||||||
|
procedure miVideoScreenshotClick(Sender: TObject);
|
||||||
procedure miVM1Click(Sender: TObject);
|
procedure miVM1Click(Sender: TObject);
|
||||||
procedure miVMClick(Sender: TObject);
|
procedure miVMClick(Sender: TObject);
|
||||||
procedure miWarp25Click(Sender: TObject);
|
procedure miWarp25Click(Sender: TObject);
|
||||||
procedure MouseTimerTimer(Sender: TObject);
|
procedure MouseTimerTimer(Sender: TObject);
|
||||||
procedure sidecarPanelResize(Sender: TObject);
|
procedure sidecarPanelResize(Sender: TObject);
|
||||||
procedure tbCapsModeClick(Sender: TObject);
|
procedure tbCapsModeClick(Sender: TObject);
|
||||||
|
procedure tbFullscreenClick(Sender: TObject);
|
||||||
procedure tbJoystickAxisSwitchClick(Sender: TObject);
|
procedure tbJoystickAxisSwitchClick(Sender: TObject);
|
||||||
procedure tbRMClick(Sender: TObject);
|
procedure tbRMClick(Sender: TObject);
|
||||||
procedure tbRMColorClick(Sender: TObject);
|
procedure tbRMColorClick(Sender: TObject);
|
||||||
|
@ -467,6 +485,7 @@ type
|
||||||
procedure UpdateWarpSlider;
|
procedure UpdateWarpSlider;
|
||||||
procedure UpdateAllCaps;
|
procedure UpdateAllCaps;
|
||||||
procedure UpdateScanlines;
|
procedure UpdateScanlines;
|
||||||
|
procedure UpdateRecordState;
|
||||||
function IsMouseBtnDown(const AMouseBtn: TMouseBtnType): Boolean;
|
function IsMouseBtnDown(const AMouseBtn: TMouseBtnType): Boolean;
|
||||||
function IsMouseBtnDown: Boolean;
|
function IsMouseBtnDown: Boolean;
|
||||||
private
|
private
|
||||||
|
@ -564,7 +583,7 @@ begin
|
||||||
RepaintWindow;
|
RepaintWindow;
|
||||||
if GetTitleOfActiveWindow <> 'microM8' then
|
if GetTitleOfActiveWindow <> 'microM8' then
|
||||||
HideM8;
|
HideM8;
|
||||||
StatusBar1.SimpleText := GetTitleOfActiveWindow;
|
//StatusBar1.SimpleText := GetTitleOfActiveWindow;
|
||||||
//Memo1.Lines.Add('app is deactivating');
|
//Memo1.Lines.Add('app is deactivating');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -609,7 +628,7 @@ begin
|
||||||
if (y >= 0) and (y < sideCarPanel.Height) then
|
if (y >= 0) and (y < sideCarPanel.Height) then
|
||||||
begin
|
begin
|
||||||
bi := y div Round(sideCarPanel.Height / 5);
|
bi := y div Round(sideCarPanel.Height / 5);
|
||||||
StatusBar1.SimpleText := IntToStr(bi);
|
//StatusBar1.SimpleText := IntToStr(bi);
|
||||||
Image1.PopupMenu := nil;
|
Image1.PopupMenu := nil;
|
||||||
case bi of
|
case bi of
|
||||||
0: begin
|
0: begin
|
||||||
|
@ -670,7 +689,16 @@ begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
4: begin
|
4: begin
|
||||||
SimpleGet(baseUrl + '/api/control/system/reboot');
|
|
||||||
|
if Button = mbRight then
|
||||||
|
begin
|
||||||
|
ProfileMenu.PopUp(Mouse.CursorPos.X, Mouse.CursorPos.Y);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
SimpleGet(baseUrl + '/api/control/system/reboot');
|
||||||
|
end;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
@ -800,7 +828,7 @@ var
|
||||||
begin
|
begin
|
||||||
// DHGR Enhanced menu
|
// DHGR Enhanced menu
|
||||||
value := GetConfig('video/init.video.dhgrhighbit');
|
value := GetConfig('video/init.video.dhgrhighbit');
|
||||||
StatusBar1.SimpleText := value;
|
//.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -906,7 +934,7 @@ var
|
||||||
begin
|
begin
|
||||||
// GR Render Mode menu
|
// GR Render Mode menu
|
||||||
value := GetConfig('video/init.video.grmode');
|
value := GetConfig('video/init.video.grmode');
|
||||||
StatusBar1.SimpleText := value;
|
// StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -978,7 +1006,7 @@ begin
|
||||||
MM_MOUSE_OFF = 4
|
MM_MOUSE_OFF = 4
|
||||||
}
|
}
|
||||||
value := GetConfig('input/init.mouse');
|
value := GetConfig('input/init.mouse');
|
||||||
StatusBar1.SimpleText := value;
|
//StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -1045,6 +1073,11 @@ begin
|
||||||
UpdateConfig( 'input/init.joystick.reversey', '1', true );
|
UpdateConfig( 'input/init.joystick.reversey', '1', true );
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TGUIForm.miMMHelpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SimpleGet(baseUrl + '/api/control/system/help');
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.miMonoDotsClick(Sender: TObject);
|
procedure TGUIForm.miMonoDotsClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
UpdateConfig( 'video/init.video.hgrmode', '3', true );
|
UpdateConfig( 'video/init.video.hgrmode', '3', true );
|
||||||
|
@ -1119,7 +1152,7 @@ end;
|
||||||
|
|
||||||
procedure TGUIForm.miPRFIIplusClick(Sender: TObject);
|
procedure TGUIForm.miPRFIIplusClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2plus' );
|
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-plus' );
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.miPrinterPDFClick(Sender: TObject);
|
procedure TGUIForm.miPrinterPDFClick(Sender: TObject);
|
||||||
|
@ -1246,7 +1279,7 @@ var
|
||||||
begin
|
begin
|
||||||
// SHR Render Mode menu
|
// SHR Render Mode menu
|
||||||
value := GetConfig('video/init.video.scanline');
|
value := GetConfig('video/init.video.scanline');
|
||||||
StatusBar1.SimpleText := value;
|
//StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -1296,7 +1329,7 @@ var
|
||||||
begin
|
begin
|
||||||
// SHR Render Mode menu
|
// SHR Render Mode menu
|
||||||
value := GetConfig('video/init.video.shrmode');
|
value := GetConfig('video/init.video.shrmode');
|
||||||
StatusBar1.SimpleText := value;
|
//StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -1468,6 +1501,11 @@ begin
|
||||||
UpdateTintMode;
|
UpdateTintMode;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TGUIForm.miToolsClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.miToolsTrackerClick(Sender: TObject);
|
procedure TGUIForm.miToolsTrackerClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
LaunchCommand( 'fp', '/local', '@music.edit{}' );
|
LaunchCommand( 'fp', '/local', '@music.edit{}' );
|
||||||
|
@ -1510,6 +1548,17 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TGUIForm.miVideoScreenshotClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
s: string;
|
||||||
|
begin
|
||||||
|
s := SimpleGet(baseUrl+'/api/control/window/screenshot');
|
||||||
|
if s <> '' then
|
||||||
|
StatusBar1.SimpleText := 'Screenshot saved: ' + s;
|
||||||
|
|
||||||
|
SendKey( $e092, $e092, 1, 0 );
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.miVM1Click(Sender: TObject);
|
procedure TGUIForm.miVM1Click(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
SimpleGet(baseUrl+'/api/control/vm/'+TMenuItem(sender).Caption);
|
SimpleGet(baseUrl+'/api/control/vm/'+TMenuItem(sender).Caption);
|
||||||
|
@ -1571,6 +1620,12 @@ begin
|
||||||
UpdateAllCaps;
|
UpdateAllCaps;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TGUIForm.tbFullscreenClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UpdateConfig('video/current.fullscreen', '1', false);
|
||||||
|
isFS := true;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.UpdateAllCaps;
|
procedure TGUIForm.UpdateAllCaps;
|
||||||
begin
|
begin
|
||||||
case GetConfig( 'input/init.uppercase' ) of
|
case GetConfig( 'input/init.uppercase' ) of
|
||||||
|
@ -1731,6 +1786,24 @@ begin
|
||||||
SimpleGet(baseUrl+'/api/control/pause');
|
SimpleGet(baseUrl+'/api/control/pause');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TGUIForm.UpdateRecordState;
|
||||||
|
begin
|
||||||
|
case SimpleGet(baseUrl+'/api/control/recorder' ) of
|
||||||
|
'0': begin
|
||||||
|
tbRECState.ImageIndex := 9;
|
||||||
|
tbRECState.Caption := 'Start Recording';
|
||||||
|
end;
|
||||||
|
'1': begin
|
||||||
|
tbRECState.ImageIndex := 11;
|
||||||
|
tbRECState.Caption := 'Live Rewind Active';
|
||||||
|
end;
|
||||||
|
'2': begin
|
||||||
|
tbRECState.ImageIndex := 10;
|
||||||
|
tbRECState.Caption := 'Disk Recording Active';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.ToolTimerTimer(Sender: TObject);
|
procedure TGUIForm.ToolTimerTimer(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
UpdateRenderMode;
|
UpdateRenderMode;
|
||||||
|
@ -1741,6 +1814,7 @@ begin
|
||||||
UpdateWarpSlider;
|
UpdateWarpSlider;
|
||||||
UpdateAllCaps;
|
UpdateAllCaps;
|
||||||
UpdateScanlines;
|
UpdateScanlines;
|
||||||
|
UpdateRecordState;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.tbMasterVolumeChange(Sender: TObject);
|
procedure TGUIForm.tbMasterVolumeChange(Sender: TObject);
|
||||||
|
@ -1839,7 +1913,7 @@ begin
|
||||||
if S.Size > 0 then
|
if S.Size > 0 then
|
||||||
begin
|
begin
|
||||||
filename := GetUserDir + PathSeparator + 'microm8scrn.png';
|
filename := GetUserDir + PathSeparator + 'microm8scrn.png';
|
||||||
StatusBar1.SimpleText:='Got '+IntToStr(S.Size)+' bytes of PNG data';
|
//StatusBar1.SimpleText:='Got '+IntToStr(S.Size)+' bytes of PNG data';
|
||||||
S.SaveToFile(filename);
|
S.SaveToFile(filename);
|
||||||
backdrop.Picture.LoadFromFile(filename);
|
backdrop.Picture.LoadFromFile(filename);
|
||||||
S.Free;
|
S.Free;
|
||||||
|
@ -1880,7 +1954,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/window/position',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/window/position',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -1894,7 +1968,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -1910,7 +1984,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -1924,7 +1998,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -1939,7 +2013,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/input/mouseevent',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/input/mouseevent',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -1994,7 +2068,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/input/keyevent',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/input/keyevent',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2013,7 +2087,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/hardware/disk/insert',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/hardware/disk/insert',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=json;
|
//self.StatusBar1.SimpleText:=json;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2033,7 +2107,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/settings/update',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/settings/update',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=json;
|
//self.StatusBar1.SimpleText:=json;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2048,7 +2122,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/settings/get',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/settings/get',json,Respo);
|
||||||
Result := Respo.DataString;
|
Result := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=json;
|
//self.StatusBar1.SimpleText:=json;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2069,7 +2143,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/system/freeze/save',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/system/freeze/save',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=json;
|
//self.StatusBar1.SimpleText:=json;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2087,7 +2161,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/system/freeze/restore',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/system/freeze/restore',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=json;
|
//self.StatusBar1.SimpleText:=json;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2095,14 +2169,14 @@ procedure TGUIForm.tbDisk1MouseDown(Sender: TObject; Button: TMouseButton;
|
||||||
Shift: TShiftState; X, Y: Integer);
|
Shift: TShiftState; X, Y: Integer);
|
||||||
begin
|
begin
|
||||||
DiskMenu.Tag := TToolButton(Sender).Tag;
|
DiskMenu.Tag := TToolButton(Sender).Tag;
|
||||||
StatusBar1.SimpleText := 'Disk 1';
|
//StatusBar1.SimpleText := 'Disk 1';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.tbDisk2MouseDown(Sender: TObject; Button: TMouseButton;
|
procedure TGUIForm.tbDisk2MouseDown(Sender: TObject; Button: TMouseButton;
|
||||||
Shift: TShiftState; X, Y: Integer);
|
Shift: TShiftState; X, Y: Integer);
|
||||||
begin
|
begin
|
||||||
DiskMenu.Tag := TToolButton(Sender).Tag;
|
DiskMenu.Tag := TToolButton(Sender).Tag;
|
||||||
StatusBar1.SimpleText := 'Disk 2';
|
//StatusBar1.SimpleText := 'Disk 2';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.ToolButton5Click(Sender: TObject);
|
procedure TGUIForm.ToolButton5Click(Sender: TObject);
|
||||||
|
@ -2185,8 +2259,10 @@ begin
|
||||||
if GetTitleOfActiveWindow = 'microM8' then
|
if GetTitleOfActiveWindow = 'microM8' then
|
||||||
begin
|
begin
|
||||||
|
|
||||||
|
{$IFNDEF WINDOWS}
|
||||||
if IsMouseBtnDown then
|
if IsMouseBtnDown then
|
||||||
exit;
|
exit;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
//Application.Restore;
|
//Application.Restore;
|
||||||
Application.BringToFront;
|
Application.BringToFront;
|
||||||
|
@ -2209,10 +2285,22 @@ begin
|
||||||
inPopup := true;
|
inPopup := true;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{$IFDEF WINDOWS}
|
||||||
|
const
|
||||||
|
EXENAME: string = 'microm8.exe';
|
||||||
|
{$ELSE}
|
||||||
|
const
|
||||||
|
EXENAME: string = 'microm8';
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
|
||||||
procedure TGUIForm.FormCreate(Sender: TObject);
|
procedure TGUIForm.FormCreate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
self.httpc := TFPHttpClient.Create(Nil);
|
self.httpc := TFPHttpClient.Create(Nil);
|
||||||
|
|
||||||
|
//ShowMessage( ExtractFilePath(Application.ExeName) + EXENAME );
|
||||||
|
MicroM8Process.Executable := ExtractFilePath(Application.ExeName) + EXENAME;
|
||||||
|
|
||||||
//if SimpleGet( baseUrl+'/api/control/health' ) <> 'ok' then
|
//if SimpleGet( baseUrl+'/api/control/health' ) <> 'ok' then
|
||||||
//begin
|
//begin
|
||||||
MicroM8Process.Active := true;
|
MicroM8Process.Active := true;
|
||||||
|
@ -2324,7 +2412,9 @@ begin
|
||||||
end;
|
end;
|
||||||
VK_A..VK_Z:
|
VK_A..VK_Z:
|
||||||
begin
|
begin
|
||||||
if ssShift in Shift then
|
if (ssCtrl in Shift) and (ssShift in Shift) then
|
||||||
|
Result := Integer(Key)
|
||||||
|
else if ssShift in Shift then
|
||||||
Result := Integer(Key)
|
Result := Integer(Key)
|
||||||
else if ssCtrl in Shift then
|
else if ssCtrl in Shift then
|
||||||
begin
|
begin
|
||||||
|
@ -2369,7 +2459,7 @@ end;
|
||||||
procedure TGUIForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
|
procedure TGUIForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||||
begin
|
begin
|
||||||
SendKey( MapKeyCode(Key, Shift), 0, 0, MapShiftState(Key, Shift) );
|
SendKey( MapKeyCode(Key, Shift), 0, 0, MapShiftState(Key, Shift) );
|
||||||
StatusBar1.SimpleText := 'keycode ' + IntToStr(Key);
|
//StatusBar1.SimpleText := 'keycode ' + IntToStr(Key);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.FormResize(Sender: TObject);
|
procedure TGUIForm.FormResize(Sender: TObject);
|
||||||
|
@ -2439,7 +2529,7 @@ var
|
||||||
begin
|
begin
|
||||||
// HGR Render Mode menu
|
// HGR Render Mode menu
|
||||||
value := GetConfig('video/init.video.hgrmode');
|
value := GetConfig('video/init.video.hgrmode');
|
||||||
StatusBar1.SimpleText := value;
|
//StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -2459,7 +2549,7 @@ var
|
||||||
begin
|
begin
|
||||||
// DHGR Render Mode menu
|
// DHGR Render Mode menu
|
||||||
value := GetConfig('video/init.video.dhgrmode');
|
value := GetConfig('video/init.video.dhgrmode');
|
||||||
StatusBar1.SimpleText := value;
|
//StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
|
|
@ -4,7 +4,7 @@
|
||||||
<PathDelim Value="\"/>
|
<PathDelim Value="\"/>
|
||||||
<Version Value="11"/>
|
<Version Value="11"/>
|
||||||
<BuildModes Active="Default"/>
|
<BuildModes Active="Default"/>
|
||||||
<Units Count="4">
|
<Units Count="5">
|
||||||
<Unit0>
|
<Unit0>
|
||||||
<Filename Value="poc.lpr"/>
|
<Filename Value="poc.lpr"/>
|
||||||
<IsPartOfProject Value="True"/>
|
<IsPartOfProject Value="True"/>
|
||||||
|
@ -21,8 +21,8 @@
|
||||||
<HasResources Value="True"/>
|
<HasResources Value="True"/>
|
||||||
<ResourceBaseClass Value="Form"/>
|
<ResourceBaseClass Value="Form"/>
|
||||||
<IsVisibleTab Value="True"/>
|
<IsVisibleTab Value="True"/>
|
||||||
<TopLine Value="1512"/>
|
<TopLine Value="1745"/>
|
||||||
<CursorPos X="3" Y="1514"/>
|
<CursorPos X="51" Y="1772"/>
|
||||||
<UsageCount Value="323"/>
|
<UsageCount Value="323"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
<LoadedDesigner Value="True"/>
|
<LoadedDesigner Value="True"/>
|
||||||
|
@ -43,129 +43,137 @@
|
||||||
<EditorIndex Value="-1"/>
|
<EditorIndex Value="-1"/>
|
||||||
<TopLine Value="576"/>
|
<TopLine Value="576"/>
|
||||||
<CursorPos X="49" Y="591"/>
|
<CursorPos X="49" Y="591"/>
|
||||||
<UsageCount Value="115"/>
|
<UsageCount Value="114"/>
|
||||||
</Unit3>
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
|
||||||
|
<UnitName Value="UTF8Process"/>
|
||||||
|
<EditorIndex Value="-1"/>
|
||||||
|
<TopLine Value="636"/>
|
||||||
|
<CursorPos Y="654"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</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="1291" Column="18" TopLine="1260"/>
|
<Caret Line="2463" Column="3" TopLine="2435"/>
|
||||||
</Position1>
|
</Position1>
|
||||||
<Position2>
|
<Position2>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1371" Column="16" TopLine="1340"/>
|
<Caret Line="2464" Column="3" TopLine="2436"/>
|
||||||
</Position2>
|
</Position2>
|
||||||
<Position3>
|
<Position3>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1439" Column="12" TopLine="1408"/>
|
<Caret Line="2465" Column="3" TopLine="2437"/>
|
||||||
</Position3>
|
</Position3>
|
||||||
<Position4>
|
<Position4>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1717" Column="17" TopLine="1686"/>
|
<Caret Line="2466" Column="3" TopLine="2438"/>
|
||||||
</Position4>
|
</Position4>
|
||||||
<Position5>
|
<Position5>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1725" Column="17" TopLine="1694"/>
|
<Caret Line="2473" Column="3" TopLine="2445"/>
|
||||||
</Position5>
|
</Position5>
|
||||||
<Position6>
|
<Position6>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1740" Column="17" TopLine="1709"/>
|
<Caret Line="1514" Column="67" TopLine="1512"/>
|
||||||
</Position6>
|
</Position6>
|
||||||
<Position7>
|
<Position7>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1751" Column="17" TopLine="1720"/>
|
<Caret Line="1515" Column="3" TopLine="1513"/>
|
||||||
</Position7>
|
</Position7>
|
||||||
<Position8>
|
<Position8>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1859" Column="28" TopLine="1828"/>
|
<Caret Line="1528" Column="32" TopLine="1513"/>
|
||||||
</Position8>
|
</Position8>
|
||||||
<Position9>
|
<Position9>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1891" Column="6" TopLine="1865"/>
|
<Caret Line="1529" Column="32" TopLine="1514"/>
|
||||||
</Position9>
|
</Position9>
|
||||||
<Position10>
|
<Position10>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="544" Column="10" TopLine="512"/>
|
<Caret Line="1531" Column="32" TopLine="1516"/>
|
||||||
</Position10>
|
</Position10>
|
||||||
<Position11>
|
<Position11>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="523" Column="22" TopLine="502"/>
|
<Caret Line="1579" Column="35" TopLine="1577"/>
|
||||||
</Position11>
|
</Position11>
|
||||||
<Position12>
|
<Position12>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="504" Column="9" TopLine="495"/>
|
<Caret Line="2440" TopLine="2437"/>
|
||||||
</Position12>
|
</Position12>
|
||||||
<Position13>
|
<Position13>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="502" Column="44" TopLine="485"/>
|
<Caret Line="1580" Column="22" TopLine="1577"/>
|
||||||
</Position13>
|
</Position13>
|
||||||
<Position14>
|
<Position14>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="507" Column="29" TopLine="484"/>
|
<Caret Line="2242" Column="62" TopLine="2215"/>
|
||||||
</Position14>
|
</Position14>
|
||||||
<Position15>
|
<Position15>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="519" Column="19" TopLine="497"/>
|
<Caret Line="2240" Column="57" TopLine="2221"/>
|
||||||
</Position15>
|
</Position15>
|
||||||
<Position16>
|
<Position16>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="457" Column="29" TopLine="448"/>
|
<Caret Line="1477" Column="3" TopLine="1475"/>
|
||||||
</Position16>
|
</Position16>
|
||||||
<Position17>
|
<Position17>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="17"/>
|
<Caret Line="1478" Column="3" TopLine="1476"/>
|
||||||
</Position17>
|
</Position17>
|
||||||
<Position18>
|
<Position18>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="521" Column="11" TopLine="498"/>
|
<Caret Line="1485" Column="3" TopLine="1483"/>
|
||||||
</Position18>
|
</Position18>
|
||||||
<Position19>
|
<Position19>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1596" Column="30" TopLine="1582"/>
|
<Caret Line="1057" Column="8" TopLine="1055"/>
|
||||||
</Position19>
|
</Position19>
|
||||||
<Position20>
|
<Position20>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2458" Column="3" TopLine="2430"/>
|
<Caret Line="902" Column="5" TopLine="900"/>
|
||||||
</Position20>
|
</Position20>
|
||||||
<Position21>
|
<Position21>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2459" Column="3" TopLine="2431"/>
|
<Caret Line="1062" Column="28" TopLine="1055"/>
|
||||||
</Position21>
|
</Position21>
|
||||||
<Position22>
|
<Position22>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2460" Column="3" TopLine="2432"/>
|
<Caret Line="2256" Column="14" TopLine="2244"/>
|
||||||
</Position22>
|
</Position22>
|
||||||
<Position23>
|
<Position23>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2461" Column="3" TopLine="2433"/>
|
<Caret Line="2396" Column="47" TopLine="2393"/>
|
||||||
</Position23>
|
</Position23>
|
||||||
<Position24>
|
<Position24>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2462" Column="3" TopLine="2434"/>
|
<Caret Line="2390" Column="17" TopLine="2378"/>
|
||||||
</Position24>
|
</Position24>
|
||||||
<Position25>
|
<Position25>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2463" Column="3" TopLine="2435"/>
|
<Caret Line="2406" Column="17" TopLine="2378"/>
|
||||||
</Position25>
|
</Position25>
|
||||||
<Position26>
|
<Position26>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2464" Column="3" TopLine="2436"/>
|
<Caret Line="2363" Column="37" TopLine="2349"/>
|
||||||
</Position26>
|
</Position26>
|
||||||
<Position27>
|
<Position27>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2465" Column="3" TopLine="2437"/>
|
<Caret Line="2364" Column="37" TopLine="2350"/>
|
||||||
</Position27>
|
</Position27>
|
||||||
<Position28>
|
<Position28>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2466" Column="3" TopLine="2438"/>
|
<Caret Line="2365" Column="37" TopLine="2351"/>
|
||||||
</Position28>
|
</Position28>
|
||||||
<Position29>
|
<Position29>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2473" Column="3" TopLine="2445"/>
|
<Caret Line="2366" Column="37" TopLine="2352"/>
|
||||||
</Position29>
|
</Position29>
|
||||||
<Position30>
|
<Position30>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1514" Column="67" TopLine="1512"/>
|
<Caret Line="480" Column="15" TopLine="465"/>
|
||||||
</Position30>
|
</Position30>
|
||||||
</JumpHistory>
|
</JumpHistory>
|
||||||
<RunParams>
|
<RunParams>
|
||||||
|
|
|
@ -1,13 +1,13 @@
|
||||||
object GUIForm: TGUIForm
|
object GUIForm: TGUIForm
|
||||||
Left = 2072
|
Left = 2260
|
||||||
Height = 574
|
Height = 668
|
||||||
Top = 321
|
Top = 311
|
||||||
Width = 945
|
Width = 1014
|
||||||
AlphaBlendValue = 128
|
AlphaBlendValue = 128
|
||||||
Caption = 'microM8 GUI'
|
Caption = 'microM8 GUI'
|
||||||
ClientHeight = 554
|
ClientHeight = 648
|
||||||
ClientWidth = 945
|
ClientWidth = 1014
|
||||||
Constraints.MinWidth = 945
|
Constraints.MinWidth = 1014
|
||||||
DoubleBuffered = False
|
DoubleBuffered = False
|
||||||
Menu = MainMenu1
|
Menu = MainMenu1
|
||||||
OnChangeBounds = FormChangeBounds
|
OnChangeBounds = FormChangeBounds
|
||||||
|
@ -28,15 +28,15 @@ object GUIForm: TGUIForm
|
||||||
object StatusBar1: TStatusBar
|
object StatusBar1: TStatusBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 23
|
Height = 23
|
||||||
Top = 531
|
Top = 625
|
||||||
Width = 945
|
Width = 1014
|
||||||
Panels = <>
|
Panels = <>
|
||||||
end
|
end
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 36
|
Height = 36
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 945
|
Width = 1014
|
||||||
ButtonHeight = 32
|
ButtonHeight = 32
|
||||||
ButtonWidth = 32
|
ButtonWidth = 32
|
||||||
Caption = 'ToolBar1'
|
Caption = 'ToolBar1'
|
||||||
|
@ -44,89 +44,123 @@ object GUIForm: TGUIForm
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object tbTintMode: TToolButton
|
object tbTintMode: TToolButton
|
||||||
Left = 1
|
Left = 1
|
||||||
|
Hint = 'Tint mode'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbTintMode'
|
Caption = 'tbTintMode'
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
OnClick = tbTintModeClick
|
OnClick = tbTintModeClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbRMVoxels: TToolButton
|
object tbRMVoxels: TToolButton
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 549
|
Left = 549
|
||||||
|
Hint = 'Voxel Render'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'Voxels'
|
Caption = 'Voxels'
|
||||||
Down = True
|
Down = True
|
||||||
Grouped = True
|
Grouped = True
|
||||||
ImageIndex = 4
|
ImageIndex = 4
|
||||||
OnClick = tbRMClick
|
OnClick = tbRMClick
|
||||||
|
ParentShowHint = False
|
||||||
|
PopupMenu = RecordingMenu
|
||||||
|
ShowHint = True
|
||||||
Style = tbsCheck
|
Style = tbsCheck
|
||||||
end
|
end
|
||||||
object tbRMDots: TToolButton
|
object tbRMDots: TToolButton
|
||||||
Left = 585
|
Left = 585
|
||||||
|
Hint = 'Dot Render'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'Dots'
|
Caption = 'Dots'
|
||||||
Grouped = True
|
Grouped = True
|
||||||
ImageIndex = 5
|
ImageIndex = 5
|
||||||
OnClick = tbRMClick
|
OnClick = tbRMClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
Style = tbsCheck
|
Style = tbsCheck
|
||||||
end
|
end
|
||||||
object tbRMRaster: TToolButton
|
object tbRMRaster: TToolButton
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 621
|
Left = 621
|
||||||
|
Hint = 'Raster Render'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'Raster'
|
Caption = 'Raster'
|
||||||
Grouped = True
|
Grouped = True
|
||||||
ImageIndex = 6
|
ImageIndex = 6
|
||||||
OnClick = tbRMClick
|
OnClick = tbRMClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
Style = tbsCheck
|
Style = tbsCheck
|
||||||
end
|
end
|
||||||
object tbRMColor: TToolButton
|
object tbRMColor: TToolButton
|
||||||
Left = 657
|
Left = 657
|
||||||
|
Hint = 'Toggle Color/Mono'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbRMColor'
|
Caption = 'tbRMColor'
|
||||||
ImageIndex = 7
|
ImageIndex = 7
|
||||||
OnClick = tbRMColorClick
|
OnClick = tbRMColorClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton4: TToolButton
|
object tbRECState: TToolButton
|
||||||
Left = 725
|
Left = 725
|
||||||
|
Hint = 'Start Recording'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton4'
|
Caption = 'tbRECState'
|
||||||
|
DropdownMenu = RecordingMenu
|
||||||
ImageIndex = 9
|
ImageIndex = 9
|
||||||
OnClick = miRECStartFileClick
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton5: TToolButton
|
object ToolButton5: TToolButton
|
||||||
Left = 761
|
Left = 761
|
||||||
|
Hint = 'Rewind'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton5'
|
Caption = 'ToolButton5'
|
||||||
ImageIndex = 12
|
ImageIndex = 12
|
||||||
OnClick = miRECRewindClick
|
OnClick = miRECRewindClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton6: TToolButton
|
object ToolButton6: TToolButton
|
||||||
Left = 797
|
Left = 797
|
||||||
|
Hint = 'Forwards'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton6'
|
Caption = 'ToolButton6'
|
||||||
ImageIndex = 13
|
ImageIndex = 13
|
||||||
OnClick = miRECPlayClick
|
OnClick = miRECPlayClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton7: TToolButton
|
object ToolButton7: TToolButton
|
||||||
Left = 833
|
Left = 833
|
||||||
|
Hint = 'Resume'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton7'
|
Caption = 'ToolButton7'
|
||||||
ImageIndex = 14
|
ImageIndex = 14
|
||||||
OnClick = miRECResumeClick
|
OnClick = miRECResumeClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton8: TToolButton
|
object ToolButton8: TToolButton
|
||||||
Left = 869
|
Left = 869
|
||||||
|
Hint = 'Stop Recording'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton8'
|
Caption = 'ToolButton8'
|
||||||
ImageIndex = 15
|
ImageIndex = 15
|
||||||
OnClick = miRECStopClick
|
OnClick = miRECStopClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton9: TToolButton
|
object ToolButton9: TToolButton
|
||||||
Left = 905
|
Left = 905
|
||||||
|
Hint = 'Pause'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton9'
|
Caption = 'ToolButton9'
|
||||||
ImageIndex = 16
|
ImageIndex = 16
|
||||||
OnClick = ToolButton9Click
|
OnClick = ToolButton9Click
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton10: TToolButton
|
object ToolButton10: TToolButton
|
||||||
Left = 693
|
Left = 693
|
||||||
|
@ -136,31 +170,43 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbJoystickAxisSwitch: TToolButton
|
object tbJoystickAxisSwitch: TToolButton
|
||||||
Left = 37
|
Left = 37
|
||||||
|
Hint = 'Swap Joystick Axis'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbJoystickAxisSwitch'
|
Caption = 'tbJoystickAxisSwitch'
|
||||||
ImageIndex = 21
|
ImageIndex = 21
|
||||||
OnClick = tbJoystickAxisSwitchClick
|
OnClick = tbJoystickAxisSwitchClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbCapsMode: TToolButton
|
object tbCapsMode: TToolButton
|
||||||
Left = 73
|
Left = 73
|
||||||
|
Hint = 'Toggle CAPS mode'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbCapsMode'
|
Caption = 'tbCapsMode'
|
||||||
ImageIndex = 17
|
ImageIndex = 17
|
||||||
OnClick = tbCapsModeClick
|
OnClick = tbCapsModeClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbScanlines: TToolButton
|
object tbScanlines: TToolButton
|
||||||
Left = 109
|
Left = 109
|
||||||
|
Hint = 'Toggle Interlacing'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbScanlines'
|
Caption = 'tbScanlines'
|
||||||
ImageIndex = 19
|
ImageIndex = 19
|
||||||
OnClick = tbScanlinesClick
|
OnClick = tbScanlinesClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbWebDebugger: TToolButton
|
object tbWebDebugger: TToolButton
|
||||||
Left = 145
|
Left = 145
|
||||||
|
Hint = 'Web Debugger'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbWebDebugger'
|
Caption = 'tbWebDebugger'
|
||||||
ImageIndex = 28
|
ImageIndex = 28
|
||||||
OnClick = miToolsWebDebuggerClick
|
OnClick = miToolsWebDebuggerClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton15: TToolButton
|
object ToolButton15: TToolButton
|
||||||
Left = 181
|
Left = 181
|
||||||
|
@ -170,10 +216,13 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbVolDown: TToolButton
|
object tbVolDown: TToolButton
|
||||||
Left = 213
|
Left = 213
|
||||||
|
Hint = 'Volume Down'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbVolDown'
|
Caption = 'tbVolDown'
|
||||||
ImageIndex = 23
|
ImageIndex = 23
|
||||||
OnClick = tbVolDownClick
|
OnClick = tbVolDownClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbMasterVolume: TTrackBar
|
object tbMasterVolume: TTrackBar
|
||||||
Left = 249
|
Left = 249
|
||||||
|
@ -182,17 +231,23 @@ object GUIForm: TGUIForm
|
||||||
Width = 64
|
Width = 64
|
||||||
OnChange = tbMasterVolumeChange
|
OnChange = tbMasterVolumeChange
|
||||||
Position = 0
|
Position = 0
|
||||||
TickStyle = tsNone
|
ScalePos = trBottom
|
||||||
|
TabStop = False
|
||||||
|
TickMarks = tmBoth
|
||||||
|
TickStyle = tsManual
|
||||||
OnKeyDown = FormKeyDown
|
OnKeyDown = FormKeyDown
|
||||||
OnKeyUp = FormKeyUp
|
OnKeyUp = FormKeyUp
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
end
|
end
|
||||||
object tbVolUp: TToolButton
|
object tbVolUp: TToolButton
|
||||||
Left = 313
|
Left = 313
|
||||||
|
Hint = 'Volume Up'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbVolUp'
|
Caption = 'tbVolUp'
|
||||||
ImageIndex = 24
|
ImageIndex = 24
|
||||||
OnClick = tbVolUpClick
|
OnClick = tbVolUpClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton3: TToolButton
|
object ToolButton3: TToolButton
|
||||||
Left = 349
|
Left = 349
|
||||||
|
@ -202,10 +257,13 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbSpeedDown: TToolButton
|
object tbSpeedDown: TToolButton
|
||||||
Left = 381
|
Left = 381
|
||||||
|
Hint = 'CPU Speed Down'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbSpeedDown'
|
Caption = 'tbSpeedDown'
|
||||||
ImageIndex = 25
|
ImageIndex = 25
|
||||||
OnClick = tbSpeedDownClick
|
OnClick = tbSpeedDownClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object TrackBar2: TTrackBar
|
object TrackBar2: TTrackBar
|
||||||
Left = 417
|
Left = 417
|
||||||
|
@ -215,16 +273,23 @@ object GUIForm: TGUIForm
|
||||||
Max = 4
|
Max = 4
|
||||||
OnChange = TrackBar2Change
|
OnChange = TrackBar2Change
|
||||||
Position = 0
|
Position = 0
|
||||||
|
ScalePos = trBottom
|
||||||
|
TabStop = False
|
||||||
|
TickMarks = tmBoth
|
||||||
|
TickStyle = tsManual
|
||||||
OnKeyDown = FormKeyDown
|
OnKeyDown = FormKeyDown
|
||||||
OnKeyUp = FormKeyUp
|
OnKeyUp = FormKeyUp
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
end
|
end
|
||||||
object tbSpeedUp: TToolButton
|
object tbSpeedUp: TToolButton
|
||||||
Left = 481
|
Left = 481
|
||||||
|
Hint = 'CPU Speed Up'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbSpeedUp'
|
Caption = 'tbSpeedUp'
|
||||||
ImageIndex = 26
|
ImageIndex = 26
|
||||||
OnClick = tbSpeedUpClick
|
OnClick = tbSpeedUpClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton18: TToolButton
|
object ToolButton18: TToolButton
|
||||||
Left = 517
|
Left = 517
|
||||||
|
@ -232,35 +297,51 @@ object GUIForm: TGUIForm
|
||||||
Caption = 'ToolButton18'
|
Caption = 'ToolButton18'
|
||||||
Enabled = False
|
Enabled = False
|
||||||
end
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 941
|
||||||
|
Top = 2
|
||||||
|
Caption = 'ToolButton1'
|
||||||
|
Enabled = False
|
||||||
|
end
|
||||||
|
object tbFullscreen: TToolButton
|
||||||
|
Left = 973
|
||||||
|
Hint = 'Fullscreen'
|
||||||
|
Top = 2
|
||||||
|
Caption = 'tbFullscreen'
|
||||||
|
ImageIndex = 29
|
||||||
|
OnClick = tbFullscreenClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object pnlContainer: TPanel
|
object pnlContainer: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 495
|
Height = 589
|
||||||
Top = 36
|
Top = 36
|
||||||
Width = 945
|
Width = 1014
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
ClientHeight = 495
|
ClientHeight = 589
|
||||||
ClientWidth = 945
|
ClientWidth = 1014
|
||||||
Color = clAqua
|
Color = clAqua
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object sidecarPanel: TPanel
|
object sidecarPanel: TPanel
|
||||||
Left = 775
|
Left = 844
|
||||||
Height = 495
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 170
|
Width = 170
|
||||||
Align = alRight
|
Align = alRight
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
Caption = 'sidecarPanel'
|
Caption = 'sidecarPanel'
|
||||||
ClientHeight = 495
|
ClientHeight = 589
|
||||||
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 = 495
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 170
|
Width = 170
|
||||||
Align = alClient
|
Align = alClient
|
||||||
|
@ -5353,13 +5434,13 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object embedPanel: TPanel
|
object embedPanel: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 495
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 775
|
Width = 844
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
ClientHeight = 495
|
ClientHeight = 589
|
||||||
ClientWidth = 775
|
ClientWidth = 844
|
||||||
Color = clBlack
|
Color = clBlack
|
||||||
Font.Color = clWhite
|
Font.Color = clWhite
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
|
@ -5367,9 +5448,9 @@ object GUIForm: TGUIForm
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object backdrop: TImage
|
object backdrop: TImage
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 495
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 775
|
Width = 844
|
||||||
Align = alClient
|
Align = alClient
|
||||||
OnClick = backdropClick
|
OnClick = backdropClick
|
||||||
Stretch = True
|
Stretch = True
|
||||||
|
@ -5422,6 +5503,58 @@ object GUIForm: TGUIForm
|
||||||
OnClick = miIntLOGOClick
|
OnClick = miIntLOGOClick
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object miVM: TMenuItem
|
||||||
|
Caption = 'VM'
|
||||||
|
OnClick = miVMClick
|
||||||
|
object miVM1: TMenuItem
|
||||||
|
Caption = '1'
|
||||||
|
RadioItem = True
|
||||||
|
ShortCut = 24625
|
||||||
|
OnClick = miVM1Click
|
||||||
|
end
|
||||||
|
object miVM2: TMenuItem
|
||||||
|
Caption = '2'
|
||||||
|
RadioItem = True
|
||||||
|
ShortCut = 24626
|
||||||
|
OnClick = miVM1Click
|
||||||
|
end
|
||||||
|
object miVM3: TMenuItem
|
||||||
|
Caption = '3'
|
||||||
|
RadioItem = True
|
||||||
|
ShortCut = 24627
|
||||||
|
OnClick = miVM1Click
|
||||||
|
end
|
||||||
|
object miVM4: TMenuItem
|
||||||
|
Caption = '4'
|
||||||
|
RadioItem = True
|
||||||
|
ShortCut = 24628
|
||||||
|
OnClick = miVM1Click
|
||||||
|
end
|
||||||
|
object miVM5: TMenuItem
|
||||||
|
Caption = '5'
|
||||||
|
RadioItem = True
|
||||||
|
ShortCut = 24629
|
||||||
|
OnClick = miVM1Click
|
||||||
|
end
|
||||||
|
object miVM6: TMenuItem
|
||||||
|
Caption = '6'
|
||||||
|
RadioItem = True
|
||||||
|
ShortCut = 24630
|
||||||
|
OnClick = miVM1Click
|
||||||
|
end
|
||||||
|
object miVM7: TMenuItem
|
||||||
|
Caption = '7'
|
||||||
|
RadioItem = True
|
||||||
|
ShortCut = 24631
|
||||||
|
OnClick = miVM1Click
|
||||||
|
end
|
||||||
|
object miVM8: TMenuItem
|
||||||
|
Caption = '8'
|
||||||
|
RadioItem = True
|
||||||
|
ShortCut = 24632
|
||||||
|
OnClick = miVM1Click
|
||||||
|
end
|
||||||
|
end
|
||||||
object N7: TMenuItem
|
object N7: TMenuItem
|
||||||
Caption = '-'
|
Caption = '-'
|
||||||
end
|
end
|
||||||
|
@ -5799,6 +5932,14 @@ object GUIForm: TGUIForm
|
||||||
ShortCut = 32781
|
ShortCut = 32781
|
||||||
OnClick = MenuItem14Click
|
OnClick = MenuItem14Click
|
||||||
end
|
end
|
||||||
|
object N10: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object miVideoScreenshot: TMenuItem
|
||||||
|
Caption = 'Take Screenshot'
|
||||||
|
ShortCut = 24796
|
||||||
|
OnClick = miVideoScreenshotClick
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object Input: TMenuItem
|
object Input: TMenuItem
|
||||||
Caption = 'Input'
|
Caption = 'Input'
|
||||||
|
@ -6226,10 +6367,12 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object miRECRewind: TMenuItem
|
object miRECRewind: TMenuItem
|
||||||
Caption = 'Rewind'
|
Caption = 'Rewind'
|
||||||
|
ShortCut = 24795
|
||||||
OnClick = miRECRewindClick
|
OnClick = miRECRewindClick
|
||||||
end
|
end
|
||||||
object miRECPlay: TMenuItem
|
object miRECPlay: TMenuItem
|
||||||
Caption = 'Play'
|
Caption = 'Play'
|
||||||
|
ShortCut = 24797
|
||||||
OnClick = miRECPlayClick
|
OnClick = miRECPlayClick
|
||||||
end
|
end
|
||||||
object miRECResume: TMenuItem
|
object miRECResume: TMenuItem
|
||||||
|
@ -6265,15 +6408,25 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object miTools: TMenuItem
|
object miTools: TMenuItem
|
||||||
Caption = 'Tools'
|
Caption = 'Tools'
|
||||||
|
OnClick = miToolsClick
|
||||||
object miToolsTracker: TMenuItem
|
object miToolsTracker: TMenuItem
|
||||||
Caption = 'microTracker'
|
Caption = 'microTracker'
|
||||||
OnClick = miToolsTrackerClick
|
OnClick = miToolsTrackerClick
|
||||||
end
|
end
|
||||||
object miToolsWebDebugger: TMenuItem
|
object miToolsWebDebugger: TMenuItem
|
||||||
Caption = 'Web Debugger'
|
Caption = 'Web Debugger'
|
||||||
|
ShortCut = 24642
|
||||||
OnClick = miToolsWebDebuggerClick
|
OnClick = miToolsWebDebuggerClick
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object miHelp: TMenuItem
|
||||||
|
Caption = 'Help'
|
||||||
|
object miMMHelp: TMenuItem
|
||||||
|
Caption = 'microM8 Help'
|
||||||
|
ShortCut = 24648
|
||||||
|
OnClick = miMMHelpClick
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object ToolbarIcons: TImageList
|
object ToolbarIcons: TImageList
|
||||||
Height = 32
|
Height = 32
|
||||||
|
@ -6282,7 +6435,7 @@ object GUIForm: TGUIForm
|
||||||
left = 96
|
left = 96
|
||||||
top = 48
|
top = 48
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
4C691D0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D
|
4C691E0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D
|
||||||
B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68
|
B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68
|
||||||
D54C6E5CEA805A52F69F5353FFB15353FFB15A52F69F6E5CEA808C68D54CAD72
|
D54C6E5CEA805A52F69F5353FFB15353FFB15A52F69F6E5CEA808C68D54CAD72
|
||||||
BB0EB16DB100B16DB100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
BB0EB16DB100B16DB100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
@ -9994,7 +10147,135 @@ object GUIForm: TGUIForm
|
||||||
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED002D99B33C28C6
|
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED002D99B33C28C6
|
||||||
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6
|
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6
|
||||||
ED002B9EBB3528C6ED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
ED002B9EBB3528C6ED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0070107137660068DD660068F76600
|
||||||
|
68F7660068F7660068F7660068F7660068F7660068F7660068F7660068D06600
|
||||||
|
68226600680066006800660068006600680066006800660068006600681A6600
|
||||||
|
68C9660068F7660068F7660068F7660068F7660068F7660068F7660068F76600
|
||||||
|
68F7660068E266006842FFFFFF00FFFFFF00701071CD660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
6891660068006600680066006800660068006600680066006800660068816600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068DDFFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
6871660068006600680066006800660068006600680066006800660068616600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068BD6600688E6600688E6600688E660068686600
|
||||||
|
6802660068006600680066006800660068006600680066006800660068016600
|
||||||
|
68616600688E6600688E6600688E660068B6660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068EF660068346600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
680066006800660068006600682A660068E8660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068EE6600683466006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600682A660068E8660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68C6660068E8660068FF660068FF660068FF660068EE66006834660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600682A660068E8660068FF660068FF660068FF660068EE660068BF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A26600682A660068E8660068FF660068FF660068FF660068EE660068346600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
682A660068E8660068FF660068FF660068FF660068EE66006834660068926600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A1660068006600682A660068E8660068FF660068FF660068FF660068EE6600
|
||||||
|
68346600680066006800660068006600680066006800660068006600682A6600
|
||||||
|
68E8660068FF660068FF660068FF660068EE6600683466006800660068916600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A266006800660068006600682A660068E8660068FF660068FF660068FF6600
|
||||||
|
68EE66006825660068006600680066006800660068006600681C660068E86600
|
||||||
|
68FF660068FF660068FF660068EE660068346600680066006800660068926600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071BE660068FF660068FF6600
|
||||||
|
687D6600680066006800660068006600682A660068E8660068FF660068FF6600
|
||||||
|
68FF660068776600680066006800660068006600680066006867660068FF6600
|
||||||
|
68FF660068FF660068EE660068346600680066006800660068006600686D6600
|
||||||
|
68FF660068FF660068CEFFFFFF00FFFFFF007010711C660068906600687C6600
|
||||||
|
6807660068006600680066006800660068006600682A660068E8660068FF6600
|
||||||
|
68F9660068346600680066006800660068006600680066006828660068F56600
|
||||||
|
68FF660068EE660068348C408E008C408E008C408E008C408E008C408E038C40
|
||||||
|
8E768C408E948C408E23FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
68006600680066006800660068006600680066006800660068206600687B6600
|
||||||
|
683A660068006600680066006800660068006600680066006800660068326600
|
||||||
|
687C6600682666006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006803660068336600
|
||||||
|
680E6600680066006800660068006600680066006800660068006600680C6600
|
||||||
|
68346600680566006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00701071036600684C660068386600
|
||||||
|
6800660068006600680066006800660068006600680C660068C0660068FF6600
|
||||||
|
68ED6600682F6600680066006800660068006600680066006825660068E76600
|
||||||
|
68FF660068CA66006811BC90BD00BC90BD00BC90BD00BC90BD00BC90BD00BC90
|
||||||
|
BD32BC90BD4FBC90BD06FFFFFF00FFFFFF007010719A660068FF660068FF6600
|
||||||
|
68596600680066006800660068006600680C660068C2660068FF660068FF6600
|
||||||
|
68FF6600688D660068006600680066006800660068006600687D660068FF6600
|
||||||
|
68FF660068FF660068CC660068116600680066006800660068006600684A6600
|
||||||
|
68FE660068FF660068AAFFFFFF00FFFFFF00701071E2660068FF660068FF6600
|
||||||
|
689F66006800660068006600680C660068C2660068FF660068FF660068FF6600
|
||||||
|
68FE6600684B660068006600680066006800660068006600683D660068FC6600
|
||||||
|
68FF660068FF660068FF660068CC6600681166006800660068006600688F6600
|
||||||
|
68FF660068FF660068F2FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A1660068006600680C660068C2660068FF660068FF660068FF660068FE7B24
|
||||||
|
7D67D9C0DA00D9C0DA00D9C0DA00D9C0DA00D9C0DA00D9C0DA00833084596600
|
||||||
|
68FC660068FF660068FF660068FF660068CC6600681166006800660068916600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A16600680C660068C2660068FF660068FF660068FF660068FE660068678330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
6859660068FC660068FF660068FF660068FF660068CC66006811660068916600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68AD660068C2660068FF660068FF660068FF660068FE66006867660068008330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
680066006859660068FC660068FF660068FF660068FF660068CC660068A36600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FE6600686766006800660068008330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
68006600680066006859660068FC660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FE660068676600680066006800660068008330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
6800660068006600680066006859660068FC660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068BD660068606600686066006860660068428330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
683D660068606600686066006860660068B3660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF8330
|
||||||
|
846DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E5E6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071DE660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF8330
|
||||||
|
84ACFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E9C6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068EEFFFFFF00FFFFFF0070107157660068F5660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068F78330
|
||||||
|
8448FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E3C6600
|
||||||
|
68F3660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068F866006865FFFFFF00FFFFFF00E5D3E500E3D0E30FE3D0E325E3D0
|
||||||
|
E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E30FE8D9
|
||||||
|
E800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EADCEA00E3D0
|
||||||
|
E30DE3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0
|
||||||
|
E325E3D0E312E3D0E300FFFFFF00
|
||||||
}
|
}
|
||||||
end
|
end
|
||||||
object DiskMenu: TPopupMenu
|
object DiskMenu: TPopupMenu
|
||||||
|
@ -10078,7 +10359,7 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object MicroM8Process: TAsyncProcess
|
object MicroM8Process: TAsyncProcess
|
||||||
Active = False
|
Active = False
|
||||||
Executable = 'C:/Users/aag65/Projects/octalyzer/GoPath/src/paleotronic.com/octalyzer/microM8.exe'
|
Executable = '/home/april/Projects/octalyzer/GoPath/src/paleotronic.com/octalyzer/microM8'
|
||||||
Parameters.Strings = (
|
Parameters.Strings = (
|
||||||
'-control-port'
|
'-control-port'
|
||||||
'-disable-border'
|
'-disable-border'
|
||||||
|
@ -10115,4 +10396,42 @@ object GUIForm: TGUIForm
|
||||||
left = 24
|
left = 24
|
||||||
top = 216
|
top = 216
|
||||||
end
|
end
|
||||||
|
object RecordingMenu: TPopupMenu
|
||||||
|
Images = ToolbarIcons
|
||||||
|
ImagesWidth = 32
|
||||||
|
left = 96
|
||||||
|
top = 216
|
||||||
|
object miStartDiskRec: TMenuItem
|
||||||
|
Caption = 'Start Disk Recording'
|
||||||
|
ImageIndex = 10
|
||||||
|
SubMenuImages = ToolbarIcons
|
||||||
|
OnClick = miRECStartFileClick
|
||||||
|
end
|
||||||
|
object miStartLiveRewindRecord: TMenuItem
|
||||||
|
Caption = 'Enable Live Rewind'
|
||||||
|
ImageIndex = 11
|
||||||
|
SubMenuImages = ToolbarIcons
|
||||||
|
OnClick = miRECLiveRewindClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ProfileMenu: TPopupMenu
|
||||||
|
left = 168
|
||||||
|
top = 216
|
||||||
|
object miPMApple2eEnh: TMenuItem
|
||||||
|
Caption = 'Apple //e Enhanced'
|
||||||
|
OnClick = miPRFIIeEnhancedClick
|
||||||
|
end
|
||||||
|
object miPMApple2eEnhCPM: TMenuItem
|
||||||
|
Caption = 'Apple //e Enhanced (Softcard)'
|
||||||
|
OnClick = miPRFIIeEnhancedSoftcardClick
|
||||||
|
end
|
||||||
|
object miPMApple2e: TMenuItem
|
||||||
|
Caption = 'Apple //e'
|
||||||
|
OnClick = miPRFIIeClick
|
||||||
|
end
|
||||||
|
object miPMApple2plus: TMenuItem
|
||||||
|
Caption = 'Apple ][+'
|
||||||
|
OnClick = miPRFIIplusClick
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
Binary file not shown.
Binary file not shown.
|
@ -1,5 +1,5 @@
|
||||||
<?xml version="1.0" encoding="UTF-8"?>
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
<CONFIG>
|
<CONFIG>
|
||||||
<Compiler Value="C:\lazarus\fpc\3.0.4\bin\x86_64-win64\fpc.exe" Date="1313015448"/>
|
<Compiler Value="C:\lazarus\fpc\3.0.4\bin\x86_64-win64\fpc.exe" Date="1313015448"/>
|
||||||
<Params Value=" -MObjFPC -Scghi -O1 -g -gl -WG -l -vewnhibq -FiC:\Users\aag65\Documents\poc\lib\x86_64-win64 -FuC:\Users\aag65\AppData\Local\lazarus\onlinepackagemanager\packages\Indy10\lib\x86_64-win64 -FuC:\lazarus\components\ideintf\units\x86_64-win64\win32 -FuC:\lazarus\components\opengl\lib\x86_64-win64\win32 -FuC:\lazarus\components\lazcontrols\lib\x86_64-win64\win32 -FuC:\lazarus\lcl\units\x86_64-win64\win32 -FuC:\lazarus\lcl\units\x86_64-win64 -FuC:\lazarus\components\lazutils\lib\x86_64-win64 -FuC:\lazarus\packager\units\x86_64-win64 -FuC:\Users\aag65\Documents\poc\ -FUC:\Users\aag65\Documents\poc\lib\x86_64-win64\ -FEC:\Users\aag65\Documents\poc\ -oC:\Users\aag65\Documents\poc\poc.exe -dLCL -dLCLwin32 poc.lpr"/>
|
<Params Value=" -MObjFPC -Scghi -O1 -g -gl -WG -l -vewnhibq -FiC:\Users\aag65\Documents\poc\lib\x86_64-win64 -FuC:\lazarus\components\opengl\lib\x86_64-win64\win32 -FuC:\lazarus\lcl\units\x86_64-win64\win32 -FuC:\lazarus\lcl\units\x86_64-win64 -FuC:\lazarus\components\lazutils\lib\x86_64-win64 -FuC:\lazarus\packager\units\x86_64-win64 -FuC:\Users\aag65\Documents\poc\ -FUC:\Users\aag65\Documents\poc\lib\x86_64-win64\ -FEC:\Users\aag65\Documents\poc\ -oC:\Users\aag65\Documents\poc\poc.exe -dLCL -dLCLwin32 poc.lpr"/>
|
||||||
</CONFIG>
|
</CONFIG>
|
||||||
|
|
Binary file not shown.
Binary file not shown.
326
main.lfm
326
main.lfm
|
@ -1,13 +1,13 @@
|
||||||
object GUIForm: TGUIForm
|
object GUIForm: TGUIForm
|
||||||
Left = 2270
|
Left = 2260
|
||||||
Height = 574
|
Height = 668
|
||||||
Top = 247
|
Top = 311
|
||||||
Width = 945
|
Width = 1014
|
||||||
AlphaBlendValue = 128
|
AlphaBlendValue = 128
|
||||||
Caption = 'microM8 GUI'
|
Caption = 'microM8 GUI'
|
||||||
ClientHeight = 549
|
ClientHeight = 648
|
||||||
ClientWidth = 945
|
ClientWidth = 1014
|
||||||
Constraints.MinWidth = 945
|
Constraints.MinWidth = 1014
|
||||||
DoubleBuffered = False
|
DoubleBuffered = False
|
||||||
Menu = MainMenu1
|
Menu = MainMenu1
|
||||||
OnChangeBounds = FormChangeBounds
|
OnChangeBounds = FormChangeBounds
|
||||||
|
@ -27,16 +27,16 @@ object GUIForm: TGUIForm
|
||||||
LCLVersion = '2.0.0.4'
|
LCLVersion = '2.0.0.4'
|
||||||
object StatusBar1: TStatusBar
|
object StatusBar1: TStatusBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 19
|
Height = 23
|
||||||
Top = 530
|
Top = 625
|
||||||
Width = 945
|
Width = 1014
|
||||||
Panels = <>
|
Panels = <>
|
||||||
end
|
end
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 36
|
Height = 36
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 945
|
Width = 1014
|
||||||
ButtonHeight = 32
|
ButtonHeight = 32
|
||||||
ButtonWidth = 32
|
ButtonWidth = 32
|
||||||
Caption = 'ToolBar1'
|
Caption = 'ToolBar1'
|
||||||
|
@ -44,89 +44,123 @@ object GUIForm: TGUIForm
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object tbTintMode: TToolButton
|
object tbTintMode: TToolButton
|
||||||
Left = 1
|
Left = 1
|
||||||
|
Hint = 'Tint mode'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbTintMode'
|
Caption = 'tbTintMode'
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
OnClick = tbTintModeClick
|
OnClick = tbTintModeClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbRMVoxels: TToolButton
|
object tbRMVoxels: TToolButton
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 549
|
Left = 549
|
||||||
|
Hint = 'Voxel Render'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'Voxels'
|
Caption = 'Voxels'
|
||||||
Down = True
|
Down = True
|
||||||
Grouped = True
|
Grouped = True
|
||||||
ImageIndex = 4
|
ImageIndex = 4
|
||||||
OnClick = tbRMClick
|
OnClick = tbRMClick
|
||||||
|
ParentShowHint = False
|
||||||
|
PopupMenu = RecordingMenu
|
||||||
|
ShowHint = True
|
||||||
Style = tbsCheck
|
Style = tbsCheck
|
||||||
end
|
end
|
||||||
object tbRMDots: TToolButton
|
object tbRMDots: TToolButton
|
||||||
Left = 585
|
Left = 585
|
||||||
|
Hint = 'Dot Render'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'Dots'
|
Caption = 'Dots'
|
||||||
Grouped = True
|
Grouped = True
|
||||||
ImageIndex = 5
|
ImageIndex = 5
|
||||||
OnClick = tbRMClick
|
OnClick = tbRMClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
Style = tbsCheck
|
Style = tbsCheck
|
||||||
end
|
end
|
||||||
object tbRMRaster: TToolButton
|
object tbRMRaster: TToolButton
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 621
|
Left = 621
|
||||||
|
Hint = 'Raster Render'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'Raster'
|
Caption = 'Raster'
|
||||||
Grouped = True
|
Grouped = True
|
||||||
ImageIndex = 6
|
ImageIndex = 6
|
||||||
OnClick = tbRMClick
|
OnClick = tbRMClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
Style = tbsCheck
|
Style = tbsCheck
|
||||||
end
|
end
|
||||||
object tbRMColor: TToolButton
|
object tbRMColor: TToolButton
|
||||||
Left = 657
|
Left = 657
|
||||||
|
Hint = 'Toggle Color/Mono'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbRMColor'
|
Caption = 'tbRMColor'
|
||||||
ImageIndex = 7
|
ImageIndex = 7
|
||||||
OnClick = tbRMColorClick
|
OnClick = tbRMColorClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton4: TToolButton
|
object tbRECState: TToolButton
|
||||||
Left = 725
|
Left = 725
|
||||||
|
Hint = 'Start Recording'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton4'
|
Caption = 'tbRECState'
|
||||||
|
DropdownMenu = RecordingMenu
|
||||||
ImageIndex = 9
|
ImageIndex = 9
|
||||||
OnClick = miRECStartFileClick
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton5: TToolButton
|
object ToolButton5: TToolButton
|
||||||
Left = 761
|
Left = 761
|
||||||
|
Hint = 'Rewind'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton5'
|
Caption = 'ToolButton5'
|
||||||
ImageIndex = 12
|
ImageIndex = 12
|
||||||
OnClick = miRECRewindClick
|
OnClick = miRECRewindClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton6: TToolButton
|
object ToolButton6: TToolButton
|
||||||
Left = 797
|
Left = 797
|
||||||
|
Hint = 'Forwards'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton6'
|
Caption = 'ToolButton6'
|
||||||
ImageIndex = 13
|
ImageIndex = 13
|
||||||
OnClick = miRECPlayClick
|
OnClick = miRECPlayClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton7: TToolButton
|
object ToolButton7: TToolButton
|
||||||
Left = 833
|
Left = 833
|
||||||
|
Hint = 'Resume'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton7'
|
Caption = 'ToolButton7'
|
||||||
ImageIndex = 14
|
ImageIndex = 14
|
||||||
OnClick = miRECResumeClick
|
OnClick = miRECResumeClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton8: TToolButton
|
object ToolButton8: TToolButton
|
||||||
Left = 869
|
Left = 869
|
||||||
|
Hint = 'Stop Recording'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton8'
|
Caption = 'ToolButton8'
|
||||||
ImageIndex = 15
|
ImageIndex = 15
|
||||||
OnClick = miRECStopClick
|
OnClick = miRECStopClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton9: TToolButton
|
object ToolButton9: TToolButton
|
||||||
Left = 905
|
Left = 905
|
||||||
|
Hint = 'Pause'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'ToolButton9'
|
Caption = 'ToolButton9'
|
||||||
ImageIndex = 16
|
ImageIndex = 16
|
||||||
OnClick = ToolButton9Click
|
OnClick = ToolButton9Click
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton10: TToolButton
|
object ToolButton10: TToolButton
|
||||||
Left = 693
|
Left = 693
|
||||||
|
@ -136,31 +170,43 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbJoystickAxisSwitch: TToolButton
|
object tbJoystickAxisSwitch: TToolButton
|
||||||
Left = 37
|
Left = 37
|
||||||
|
Hint = 'Swap Joystick Axis'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbJoystickAxisSwitch'
|
Caption = 'tbJoystickAxisSwitch'
|
||||||
ImageIndex = 21
|
ImageIndex = 21
|
||||||
OnClick = tbJoystickAxisSwitchClick
|
OnClick = tbJoystickAxisSwitchClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbCapsMode: TToolButton
|
object tbCapsMode: TToolButton
|
||||||
Left = 73
|
Left = 73
|
||||||
|
Hint = 'Toggle CAPS mode'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbCapsMode'
|
Caption = 'tbCapsMode'
|
||||||
ImageIndex = 17
|
ImageIndex = 17
|
||||||
OnClick = tbCapsModeClick
|
OnClick = tbCapsModeClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbScanlines: TToolButton
|
object tbScanlines: TToolButton
|
||||||
Left = 109
|
Left = 109
|
||||||
|
Hint = 'Toggle Interlacing'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbScanlines'
|
Caption = 'tbScanlines'
|
||||||
ImageIndex = 19
|
ImageIndex = 19
|
||||||
OnClick = tbScanlinesClick
|
OnClick = tbScanlinesClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbWebDebugger: TToolButton
|
object tbWebDebugger: TToolButton
|
||||||
Left = 145
|
Left = 145
|
||||||
|
Hint = 'Web Debugger'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbWebDebugger'
|
Caption = 'tbWebDebugger'
|
||||||
ImageIndex = 28
|
ImageIndex = 28
|
||||||
OnClick = miToolsWebDebuggerClick
|
OnClick = miToolsWebDebuggerClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton15: TToolButton
|
object ToolButton15: TToolButton
|
||||||
Left = 181
|
Left = 181
|
||||||
|
@ -170,19 +216,23 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbVolDown: TToolButton
|
object tbVolDown: TToolButton
|
||||||
Left = 213
|
Left = 213
|
||||||
|
Hint = 'Volume Down'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbVolDown'
|
Caption = 'tbVolDown'
|
||||||
ImageIndex = 23
|
ImageIndex = 23
|
||||||
OnClick = tbVolDownClick
|
OnClick = tbVolDownClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object tbMasterVolume: TTrackBar
|
object tbMasterVolume: TTrackBar
|
||||||
Left = 249
|
Left = 249
|
||||||
Height = 38
|
Height = 32
|
||||||
Top = 2
|
Top = 2
|
||||||
Width = 64
|
Width = 64
|
||||||
OnChange = tbMasterVolumeChange
|
OnChange = tbMasterVolumeChange
|
||||||
Position = 0
|
Position = 0
|
||||||
ScalePos = trBottom
|
ScalePos = trBottom
|
||||||
|
TabStop = False
|
||||||
TickMarks = tmBoth
|
TickMarks = tmBoth
|
||||||
TickStyle = tsManual
|
TickStyle = tsManual
|
||||||
OnKeyDown = FormKeyDown
|
OnKeyDown = FormKeyDown
|
||||||
|
@ -191,10 +241,13 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbVolUp: TToolButton
|
object tbVolUp: TToolButton
|
||||||
Left = 313
|
Left = 313
|
||||||
|
Hint = 'Volume Up'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbVolUp'
|
Caption = 'tbVolUp'
|
||||||
ImageIndex = 24
|
ImageIndex = 24
|
||||||
OnClick = tbVolUpClick
|
OnClick = tbVolUpClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton3: TToolButton
|
object ToolButton3: TToolButton
|
||||||
Left = 349
|
Left = 349
|
||||||
|
@ -204,20 +257,24 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbSpeedDown: TToolButton
|
object tbSpeedDown: TToolButton
|
||||||
Left = 381
|
Left = 381
|
||||||
|
Hint = 'CPU Speed Down'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbSpeedDown'
|
Caption = 'tbSpeedDown'
|
||||||
ImageIndex = 25
|
ImageIndex = 25
|
||||||
OnClick = tbSpeedDownClick
|
OnClick = tbSpeedDownClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object TrackBar2: TTrackBar
|
object TrackBar2: TTrackBar
|
||||||
Left = 417
|
Left = 417
|
||||||
Height = 38
|
Height = 32
|
||||||
Top = 2
|
Top = 2
|
||||||
Width = 64
|
Width = 64
|
||||||
Max = 4
|
Max = 4
|
||||||
OnChange = TrackBar2Change
|
OnChange = TrackBar2Change
|
||||||
Position = 0
|
Position = 0
|
||||||
ScalePos = trBottom
|
ScalePos = trBottom
|
||||||
|
TabStop = False
|
||||||
TickMarks = tmBoth
|
TickMarks = tmBoth
|
||||||
TickStyle = tsManual
|
TickStyle = tsManual
|
||||||
OnKeyDown = FormKeyDown
|
OnKeyDown = FormKeyDown
|
||||||
|
@ -226,10 +283,13 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object tbSpeedUp: TToolButton
|
object tbSpeedUp: TToolButton
|
||||||
Left = 481
|
Left = 481
|
||||||
|
Hint = 'CPU Speed Up'
|
||||||
Top = 2
|
Top = 2
|
||||||
Caption = 'tbSpeedUp'
|
Caption = 'tbSpeedUp'
|
||||||
ImageIndex = 26
|
ImageIndex = 26
|
||||||
OnClick = tbSpeedUpClick
|
OnClick = tbSpeedUpClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
end
|
end
|
||||||
object ToolButton18: TToolButton
|
object ToolButton18: TToolButton
|
||||||
Left = 517
|
Left = 517
|
||||||
|
@ -237,35 +297,51 @@ object GUIForm: TGUIForm
|
||||||
Caption = 'ToolButton18'
|
Caption = 'ToolButton18'
|
||||||
Enabled = False
|
Enabled = False
|
||||||
end
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 941
|
||||||
|
Top = 2
|
||||||
|
Caption = 'ToolButton1'
|
||||||
|
Enabled = False
|
||||||
|
end
|
||||||
|
object tbFullscreen: TToolButton
|
||||||
|
Left = 973
|
||||||
|
Hint = 'Fullscreen'
|
||||||
|
Top = 2
|
||||||
|
Caption = 'tbFullscreen'
|
||||||
|
ImageIndex = 29
|
||||||
|
OnClick = tbFullscreenClick
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object pnlContainer: TPanel
|
object pnlContainer: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 494
|
Height = 589
|
||||||
Top = 36
|
Top = 36
|
||||||
Width = 945
|
Width = 1014
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
ClientHeight = 494
|
ClientHeight = 589
|
||||||
ClientWidth = 945
|
ClientWidth = 1014
|
||||||
Color = clAqua
|
Color = clAqua
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object sidecarPanel: TPanel
|
object sidecarPanel: TPanel
|
||||||
Left = 775
|
Left = 844
|
||||||
Height = 494
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 170
|
Width = 170
|
||||||
Align = alRight
|
Align = alRight
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
Caption = 'sidecarPanel'
|
Caption = 'sidecarPanel'
|
||||||
ClientHeight = 494
|
ClientHeight = 589
|
||||||
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 = 494
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 170
|
Width = 170
|
||||||
Align = alClient
|
Align = alClient
|
||||||
|
@ -5358,13 +5434,13 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object embedPanel: TPanel
|
object embedPanel: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 494
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 775
|
Width = 844
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
ClientHeight = 494
|
ClientHeight = 589
|
||||||
ClientWidth = 775
|
ClientWidth = 844
|
||||||
Color = clBlack
|
Color = clBlack
|
||||||
Font.Color = clWhite
|
Font.Color = clWhite
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
|
@ -5372,9 +5448,9 @@ object GUIForm: TGUIForm
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object backdrop: TImage
|
object backdrop: TImage
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 494
|
Height = 589
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 775
|
Width = 844
|
||||||
Align = alClient
|
Align = alClient
|
||||||
OnClick = backdropClick
|
OnClick = backdropClick
|
||||||
Stretch = True
|
Stretch = True
|
||||||
|
@ -5856,6 +5932,14 @@ object GUIForm: TGUIForm
|
||||||
ShortCut = 32781
|
ShortCut = 32781
|
||||||
OnClick = MenuItem14Click
|
OnClick = MenuItem14Click
|
||||||
end
|
end
|
||||||
|
object N10: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object miVideoScreenshot: TMenuItem
|
||||||
|
Caption = 'Take Screenshot'
|
||||||
|
ShortCut = 24796
|
||||||
|
OnClick = miVideoScreenshotClick
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object Input: TMenuItem
|
object Input: TMenuItem
|
||||||
Caption = 'Input'
|
Caption = 'Input'
|
||||||
|
@ -6283,10 +6367,12 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object miRECRewind: TMenuItem
|
object miRECRewind: TMenuItem
|
||||||
Caption = 'Rewind'
|
Caption = 'Rewind'
|
||||||
|
ShortCut = 24795
|
||||||
OnClick = miRECRewindClick
|
OnClick = miRECRewindClick
|
||||||
end
|
end
|
||||||
object miRECPlay: TMenuItem
|
object miRECPlay: TMenuItem
|
||||||
Caption = 'Play'
|
Caption = 'Play'
|
||||||
|
ShortCut = 24797
|
||||||
OnClick = miRECPlayClick
|
OnClick = miRECPlayClick
|
||||||
end
|
end
|
||||||
object miRECResume: TMenuItem
|
object miRECResume: TMenuItem
|
||||||
|
@ -6322,15 +6408,25 @@ object GUIForm: TGUIForm
|
||||||
end
|
end
|
||||||
object miTools: TMenuItem
|
object miTools: TMenuItem
|
||||||
Caption = 'Tools'
|
Caption = 'Tools'
|
||||||
|
OnClick = miToolsClick
|
||||||
object miToolsTracker: TMenuItem
|
object miToolsTracker: TMenuItem
|
||||||
Caption = 'microTracker'
|
Caption = 'microTracker'
|
||||||
OnClick = miToolsTrackerClick
|
OnClick = miToolsTrackerClick
|
||||||
end
|
end
|
||||||
object miToolsWebDebugger: TMenuItem
|
object miToolsWebDebugger: TMenuItem
|
||||||
Caption = 'Web Debugger'
|
Caption = 'Web Debugger'
|
||||||
|
ShortCut = 24642
|
||||||
OnClick = miToolsWebDebuggerClick
|
OnClick = miToolsWebDebuggerClick
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object miHelp: TMenuItem
|
||||||
|
Caption = 'Help'
|
||||||
|
object miMMHelp: TMenuItem
|
||||||
|
Caption = 'microM8 Help'
|
||||||
|
ShortCut = 24648
|
||||||
|
OnClick = miMMHelpClick
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object ToolbarIcons: TImageList
|
object ToolbarIcons: TImageList
|
||||||
Height = 32
|
Height = 32
|
||||||
|
@ -6339,7 +6435,7 @@ object GUIForm: TGUIForm
|
||||||
left = 96
|
left = 96
|
||||||
top = 48
|
top = 48
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
4C691D0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D
|
4C691E0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D
|
||||||
B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68
|
B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68
|
||||||
D54C6E5CEA805A52F69F5353FFB15353FFB15A52F69F6E5CEA808C68D54CAD72
|
D54C6E5CEA805A52F69F5353FFB15353FFB15A52F69F6E5CEA808C68D54CAD72
|
||||||
BB0EB16DB100B16DB100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
BB0EB16DB100B16DB100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
@ -10051,7 +10147,135 @@ object GUIForm: TGUIForm
|
||||||
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED002D99B33C28C6
|
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED002D99B33C28C6
|
||||||
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6
|
ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6ED0028C6
|
||||||
ED002B9EBB3528C6ED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
ED002B9EBB3528C6ED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0070107137660068DD660068F76600
|
||||||
|
68F7660068F7660068F7660068F7660068F7660068F7660068F7660068D06600
|
||||||
|
68226600680066006800660068006600680066006800660068006600681A6600
|
||||||
|
68C9660068F7660068F7660068F7660068F7660068F7660068F7660068F76600
|
||||||
|
68F7660068E266006842FFFFFF00FFFFFF00701071CD660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
6891660068006600680066006800660068006600680066006800660068816600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068DDFFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
6871660068006600680066006800660068006600680066006800660068616600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068BD6600688E6600688E6600688E660068686600
|
||||||
|
6802660068006600680066006800660068006600680066006800660068016600
|
||||||
|
68616600688E6600688E6600688E660068B6660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068EF660068346600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
680066006800660068006600682A660068E8660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068EE6600683466006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600682A660068E8660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68C6660068E8660068FF660068FF660068FF660068EE66006834660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600682A660068E8660068FF660068FF660068FF660068EE660068BF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A26600682A660068E8660068FF660068FF660068FF660068EE660068346600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
682A660068E8660068FF660068FF660068FF660068EE66006834660068926600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A1660068006600682A660068E8660068FF660068FF660068FF660068EE6600
|
||||||
|
68346600680066006800660068006600680066006800660068006600682A6600
|
||||||
|
68E8660068FF660068FF660068FF660068EE6600683466006800660068916600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A266006800660068006600682A660068E8660068FF660068FF660068FF6600
|
||||||
|
68EE66006825660068006600680066006800660068006600681C660068E86600
|
||||||
|
68FF660068FF660068FF660068EE660068346600680066006800660068926600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071BE660068FF660068FF6600
|
||||||
|
687D6600680066006800660068006600682A660068E8660068FF660068FF6600
|
||||||
|
68FF660068776600680066006800660068006600680066006867660068FF6600
|
||||||
|
68FF660068FF660068EE660068346600680066006800660068006600686D6600
|
||||||
|
68FF660068FF660068CEFFFFFF00FFFFFF007010711C660068906600687C6600
|
||||||
|
6807660068006600680066006800660068006600682A660068E8660068FF6600
|
||||||
|
68F9660068346600680066006800660068006600680066006828660068F56600
|
||||||
|
68FF660068EE660068348C408E008C408E008C408E008C408E008C408E038C40
|
||||||
|
8E768C408E948C408E23FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
68006600680066006800660068006600680066006800660068206600687B6600
|
||||||
|
683A660068006600680066006800660068006600680066006800660068326600
|
||||||
|
687C6600682666006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006800660068006600
|
||||||
|
68006600680066006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007010710066006800660068006600
|
||||||
|
6800660068006600680066006800660068006600680066006803660068336600
|
||||||
|
680E6600680066006800660068006600680066006800660068006600680C6600
|
||||||
|
68346600680566006800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00701071036600684C660068386600
|
||||||
|
6800660068006600680066006800660068006600680C660068C0660068FF6600
|
||||||
|
68ED6600682F6600680066006800660068006600680066006825660068E76600
|
||||||
|
68FF660068CA66006811BC90BD00BC90BD00BC90BD00BC90BD00BC90BD00BC90
|
||||||
|
BD32BC90BD4FBC90BD06FFFFFF00FFFFFF007010719A660068FF660068FF6600
|
||||||
|
68596600680066006800660068006600680C660068C2660068FF660068FF6600
|
||||||
|
68FF6600688D660068006600680066006800660068006600687D660068FF6600
|
||||||
|
68FF660068FF660068CC660068116600680066006800660068006600684A6600
|
||||||
|
68FE660068FF660068AAFFFFFF00FFFFFF00701071E2660068FF660068FF6600
|
||||||
|
689F66006800660068006600680C660068C2660068FF660068FF660068FF6600
|
||||||
|
68FE6600684B660068006600680066006800660068006600683D660068FC6600
|
||||||
|
68FF660068FF660068FF660068CC6600681166006800660068006600688F6600
|
||||||
|
68FF660068FF660068F2FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A1660068006600680C660068C2660068FF660068FF660068FF660068FE7B24
|
||||||
|
7D67D9C0DA00D9C0DA00D9C0DA00D9C0DA00D9C0DA00D9C0DA00833084596600
|
||||||
|
68FC660068FF660068FF660068FF660068CC6600681166006800660068916600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68A16600680C660068C2660068FF660068FF660068FF660068FE660068678330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
6859660068FC660068FF660068FF660068FF660068CC66006811660068916600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68AD660068C2660068FF660068FF660068FF660068FE66006867660068008330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
680066006859660068FC660068FF660068FF660068FF660068CC660068A36600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FE6600686766006800660068008330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
68006600680066006859660068FC660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FE660068676600680066006800660068008330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
6800660068006600680066006859660068FC660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068BD660068606600686066006860660068428330
|
||||||
|
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E006600
|
||||||
|
683D660068606600686066006860660068B3660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071E4660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF8330
|
||||||
|
846DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E5E6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068F4FFFFFF00FFFFFF00701071DE660068FF660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF8330
|
||||||
|
84ACFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E9C6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068FF660068EEFFFFFF00FFFFFF0070107157660068F5660068FF6600
|
||||||
|
68FF660068FF660068FF660068FF660068FF660068FF660068FF660068F78330
|
||||||
|
8448FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C408E3C6600
|
||||||
|
68F3660068FF660068FF660068FF660068FF660068FF660068FF660068FF6600
|
||||||
|
68FF660068F866006865FFFFFF00FFFFFF00E5D3E500E3D0E30FE3D0E325E3D0
|
||||||
|
E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E30FE8D9
|
||||||
|
E800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EADCEA00E3D0
|
||||||
|
E30DE3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0E325E3D0
|
||||||
|
E325E3D0E312E3D0E300FFFFFF00
|
||||||
}
|
}
|
||||||
end
|
end
|
||||||
object DiskMenu: TPopupMenu
|
object DiskMenu: TPopupMenu
|
||||||
|
@ -10172,4 +10396,42 @@ object GUIForm: TGUIForm
|
||||||
left = 24
|
left = 24
|
||||||
top = 216
|
top = 216
|
||||||
end
|
end
|
||||||
|
object RecordingMenu: TPopupMenu
|
||||||
|
Images = ToolbarIcons
|
||||||
|
ImagesWidth = 32
|
||||||
|
left = 96
|
||||||
|
top = 216
|
||||||
|
object miStartDiskRec: TMenuItem
|
||||||
|
Caption = 'Start Disk Recording'
|
||||||
|
ImageIndex = 10
|
||||||
|
SubMenuImages = ToolbarIcons
|
||||||
|
OnClick = miRECStartFileClick
|
||||||
|
end
|
||||||
|
object miStartLiveRewindRecord: TMenuItem
|
||||||
|
Caption = 'Enable Live Rewind'
|
||||||
|
ImageIndex = 11
|
||||||
|
SubMenuImages = ToolbarIcons
|
||||||
|
OnClick = miRECLiveRewindClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ProfileMenu: TPopupMenu
|
||||||
|
left = 168
|
||||||
|
top = 216
|
||||||
|
object miPMApple2eEnh: TMenuItem
|
||||||
|
Caption = 'Apple //e Enhanced'
|
||||||
|
OnClick = miPRFIIeEnhancedClick
|
||||||
|
end
|
||||||
|
object miPMApple2eEnhCPM: TMenuItem
|
||||||
|
Caption = 'Apple //e Enhanced (Softcard)'
|
||||||
|
OnClick = miPRFIIeEnhancedSoftcardClick
|
||||||
|
end
|
||||||
|
object miPMApple2e: TMenuItem
|
||||||
|
Caption = 'Apple //e'
|
||||||
|
OnClick = miPRFIIeClick
|
||||||
|
end
|
||||||
|
object miPMApple2plus: TMenuItem
|
||||||
|
Caption = 'Apple ][+'
|
||||||
|
OnClick = miPRFIIplusClick
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
140
main.pas
140
main.pas
|
@ -24,6 +24,16 @@ type
|
||||||
MenuItem14: TMenuItem;
|
MenuItem14: TMenuItem;
|
||||||
MenuItem17: TMenuItem;
|
MenuItem17: TMenuItem;
|
||||||
MenuItem18: TMenuItem;
|
MenuItem18: TMenuItem;
|
||||||
|
miVideoScreenshot: TMenuItem;
|
||||||
|
N10: TMenuItem;
|
||||||
|
miPMApple2plus: TMenuItem;
|
||||||
|
miPMApple2e: TMenuItem;
|
||||||
|
miPMApple2eEnhCPM: TMenuItem;
|
||||||
|
miPMApple2eEnh: TMenuItem;
|
||||||
|
miStartLiveRewindRecord: TMenuItem;
|
||||||
|
miStartDiskRec: TMenuItem;
|
||||||
|
miMMHelp: TMenuItem;
|
||||||
|
miHelp: TMenuItem;
|
||||||
miVM8: TMenuItem;
|
miVM8: TMenuItem;
|
||||||
miVM7: TMenuItem;
|
miVM7: TMenuItem;
|
||||||
miVM6: TMenuItem;
|
miVM6: TMenuItem;
|
||||||
|
@ -66,6 +76,8 @@ type
|
||||||
Image1: TImage;
|
Image1: TImage;
|
||||||
odFreezeFiles: TOpenDialog;
|
odFreezeFiles: TOpenDialog;
|
||||||
pnlContainer: TPanel;
|
pnlContainer: TPanel;
|
||||||
|
ProfileMenu: TPopupMenu;
|
||||||
|
RecordingMenu: TPopupMenu;
|
||||||
sdFreezeFiles: TSaveDialog;
|
sdFreezeFiles: TSaveDialog;
|
||||||
SideImages: TImageList;
|
SideImages: TImageList;
|
||||||
miWarp400: TMenuItem;
|
miWarp400: TMenuItem;
|
||||||
|
@ -174,6 +186,7 @@ type
|
||||||
sidecarPanel: TPanel;
|
sidecarPanel: TPanel;
|
||||||
FSTimer: TTimer;
|
FSTimer: TTimer;
|
||||||
tbVolDown: TToolButton;
|
tbVolDown: TToolButton;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
ToolButton10: TToolButton;
|
ToolButton10: TToolButton;
|
||||||
tbJoystickAxisSwitch: TToolButton;
|
tbJoystickAxisSwitch: TToolButton;
|
||||||
tbCapsMode: TToolButton;
|
tbCapsMode: TToolButton;
|
||||||
|
@ -184,8 +197,9 @@ type
|
||||||
tbSpeedUp: TToolButton;
|
tbSpeedUp: TToolButton;
|
||||||
ToolButton18: TToolButton;
|
ToolButton18: TToolButton;
|
||||||
tbVolUp: TToolButton;
|
tbVolUp: TToolButton;
|
||||||
|
tbFullscreen: TToolButton;
|
||||||
ToolButton3: TToolButton;
|
ToolButton3: TToolButton;
|
||||||
ToolButton4: TToolButton;
|
tbRECState: TToolButton;
|
||||||
ToolButton5: TToolButton;
|
ToolButton5: TToolButton;
|
||||||
ToolButton6: TToolButton;
|
ToolButton6: TToolButton;
|
||||||
ToolButton7: TToolButton;
|
ToolButton7: TToolButton;
|
||||||
|
@ -368,6 +382,7 @@ type
|
||||||
procedure miJSAxisSwapClick(Sender: TObject);
|
procedure miJSAxisSwapClick(Sender: TObject);
|
||||||
procedure miJSXRevClick(Sender: TObject);
|
procedure miJSXRevClick(Sender: TObject);
|
||||||
procedure miJSYRevClick(Sender: TObject);
|
procedure miJSYRevClick(Sender: TObject);
|
||||||
|
procedure miMMHelpClick(Sender: TObject);
|
||||||
procedure miMonoDotsClick(Sender: TObject);
|
procedure miMonoDotsClick(Sender: TObject);
|
||||||
procedure miMonoRasterClick(Sender: TObject);
|
procedure miMonoRasterClick(Sender: TObject);
|
||||||
procedure miMonoVoxelsClick(Sender: TObject);
|
procedure miMonoVoxelsClick(Sender: TObject);
|
||||||
|
@ -409,17 +424,20 @@ type
|
||||||
procedure miSVOL000Click(Sender: TObject);
|
procedure miSVOL000Click(Sender: TObject);
|
||||||
procedure miTintModeClick(Sender: TObject);
|
procedure miTintModeClick(Sender: TObject);
|
||||||
procedure miTMNoneClick(Sender: TObject);
|
procedure miTMNoneClick(Sender: TObject);
|
||||||
|
procedure miToolsClick(Sender: TObject);
|
||||||
procedure miToolsTrackerClick(Sender: TObject);
|
procedure miToolsTrackerClick(Sender: TObject);
|
||||||
procedure miToolsWebDebuggerClick(Sender: TObject);
|
procedure miToolsWebDebuggerClick(Sender: TObject);
|
||||||
procedure miVCRClick(Sender: TObject);
|
procedure miVCRClick(Sender: TObject);
|
||||||
procedure miVD1Click(Sender: TObject);
|
procedure miVD1Click(Sender: TObject);
|
||||||
procedure miVDClick(Sender: TObject);
|
procedure miVDClick(Sender: TObject);
|
||||||
|
procedure miVideoScreenshotClick(Sender: TObject);
|
||||||
procedure miVM1Click(Sender: TObject);
|
procedure miVM1Click(Sender: TObject);
|
||||||
procedure miVMClick(Sender: TObject);
|
procedure miVMClick(Sender: TObject);
|
||||||
procedure miWarp25Click(Sender: TObject);
|
procedure miWarp25Click(Sender: TObject);
|
||||||
procedure MouseTimerTimer(Sender: TObject);
|
procedure MouseTimerTimer(Sender: TObject);
|
||||||
procedure sidecarPanelResize(Sender: TObject);
|
procedure sidecarPanelResize(Sender: TObject);
|
||||||
procedure tbCapsModeClick(Sender: TObject);
|
procedure tbCapsModeClick(Sender: TObject);
|
||||||
|
procedure tbFullscreenClick(Sender: TObject);
|
||||||
procedure tbJoystickAxisSwitchClick(Sender: TObject);
|
procedure tbJoystickAxisSwitchClick(Sender: TObject);
|
||||||
procedure tbRMClick(Sender: TObject);
|
procedure tbRMClick(Sender: TObject);
|
||||||
procedure tbRMColorClick(Sender: TObject);
|
procedure tbRMColorClick(Sender: TObject);
|
||||||
|
@ -467,6 +485,7 @@ type
|
||||||
procedure UpdateWarpSlider;
|
procedure UpdateWarpSlider;
|
||||||
procedure UpdateAllCaps;
|
procedure UpdateAllCaps;
|
||||||
procedure UpdateScanlines;
|
procedure UpdateScanlines;
|
||||||
|
procedure UpdateRecordState;
|
||||||
function IsMouseBtnDown(const AMouseBtn: TMouseBtnType): Boolean;
|
function IsMouseBtnDown(const AMouseBtn: TMouseBtnType): Boolean;
|
||||||
function IsMouseBtnDown: Boolean;
|
function IsMouseBtnDown: Boolean;
|
||||||
private
|
private
|
||||||
|
@ -564,7 +583,7 @@ begin
|
||||||
RepaintWindow;
|
RepaintWindow;
|
||||||
if GetTitleOfActiveWindow <> 'microM8' then
|
if GetTitleOfActiveWindow <> 'microM8' then
|
||||||
HideM8;
|
HideM8;
|
||||||
StatusBar1.SimpleText := GetTitleOfActiveWindow;
|
//StatusBar1.SimpleText := GetTitleOfActiveWindow;
|
||||||
//Memo1.Lines.Add('app is deactivating');
|
//Memo1.Lines.Add('app is deactivating');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -609,7 +628,7 @@ begin
|
||||||
if (y >= 0) and (y < sideCarPanel.Height) then
|
if (y >= 0) and (y < sideCarPanel.Height) then
|
||||||
begin
|
begin
|
||||||
bi := y div Round(sideCarPanel.Height / 5);
|
bi := y div Round(sideCarPanel.Height / 5);
|
||||||
StatusBar1.SimpleText := IntToStr(bi);
|
//StatusBar1.SimpleText := IntToStr(bi);
|
||||||
Image1.PopupMenu := nil;
|
Image1.PopupMenu := nil;
|
||||||
case bi of
|
case bi of
|
||||||
0: begin
|
0: begin
|
||||||
|
@ -670,7 +689,16 @@ begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
4: begin
|
4: begin
|
||||||
SimpleGet(baseUrl + '/api/control/system/reboot');
|
|
||||||
|
if Button = mbRight then
|
||||||
|
begin
|
||||||
|
ProfileMenu.PopUp(Mouse.CursorPos.X, Mouse.CursorPos.Y);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
SimpleGet(baseUrl + '/api/control/system/reboot');
|
||||||
|
end;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
@ -800,7 +828,7 @@ var
|
||||||
begin
|
begin
|
||||||
// DHGR Enhanced menu
|
// DHGR Enhanced menu
|
||||||
value := GetConfig('video/init.video.dhgrhighbit');
|
value := GetConfig('video/init.video.dhgrhighbit');
|
||||||
StatusBar1.SimpleText := value;
|
//.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -906,7 +934,7 @@ var
|
||||||
begin
|
begin
|
||||||
// GR Render Mode menu
|
// GR Render Mode menu
|
||||||
value := GetConfig('video/init.video.grmode');
|
value := GetConfig('video/init.video.grmode');
|
||||||
StatusBar1.SimpleText := value;
|
// StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -978,7 +1006,7 @@ begin
|
||||||
MM_MOUSE_OFF = 4
|
MM_MOUSE_OFF = 4
|
||||||
}
|
}
|
||||||
value := GetConfig('input/init.mouse');
|
value := GetConfig('input/init.mouse');
|
||||||
StatusBar1.SimpleText := value;
|
//StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -1045,6 +1073,11 @@ begin
|
||||||
UpdateConfig( 'input/init.joystick.reversey', '1', true );
|
UpdateConfig( 'input/init.joystick.reversey', '1', true );
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TGUIForm.miMMHelpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SimpleGet(baseUrl + '/api/control/system/help');
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.miMonoDotsClick(Sender: TObject);
|
procedure TGUIForm.miMonoDotsClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
UpdateConfig( 'video/init.video.hgrmode', '3', true );
|
UpdateConfig( 'video/init.video.hgrmode', '3', true );
|
||||||
|
@ -1119,7 +1152,7 @@ end;
|
||||||
|
|
||||||
procedure TGUIForm.miPRFIIplusClick(Sender: TObject);
|
procedure TGUIForm.miPRFIIplusClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2plus' );
|
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-plus' );
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.miPrinterPDFClick(Sender: TObject);
|
procedure TGUIForm.miPrinterPDFClick(Sender: TObject);
|
||||||
|
@ -1246,7 +1279,7 @@ var
|
||||||
begin
|
begin
|
||||||
// SHR Render Mode menu
|
// SHR Render Mode menu
|
||||||
value := GetConfig('video/init.video.scanline');
|
value := GetConfig('video/init.video.scanline');
|
||||||
StatusBar1.SimpleText := value;
|
//StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -1296,7 +1329,7 @@ var
|
||||||
begin
|
begin
|
||||||
// SHR Render Mode menu
|
// SHR Render Mode menu
|
||||||
value := GetConfig('video/init.video.shrmode');
|
value := GetConfig('video/init.video.shrmode');
|
||||||
StatusBar1.SimpleText := value;
|
//StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -1468,6 +1501,11 @@ begin
|
||||||
UpdateTintMode;
|
UpdateTintMode;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TGUIForm.miToolsClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.miToolsTrackerClick(Sender: TObject);
|
procedure TGUIForm.miToolsTrackerClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
LaunchCommand( 'fp', '/local', '@music.edit{}' );
|
LaunchCommand( 'fp', '/local', '@music.edit{}' );
|
||||||
|
@ -1510,6 +1548,11 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TGUIForm.miVideoScreenshotClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SendKey( $e092, $e092, 1, 0 );
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.miVM1Click(Sender: TObject);
|
procedure TGUIForm.miVM1Click(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
SimpleGet(baseUrl+'/api/control/vm/'+TMenuItem(sender).Caption);
|
SimpleGet(baseUrl+'/api/control/vm/'+TMenuItem(sender).Caption);
|
||||||
|
@ -1571,6 +1614,12 @@ begin
|
||||||
UpdateAllCaps;
|
UpdateAllCaps;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TGUIForm.tbFullscreenClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UpdateConfig('video/current.fullscreen', '1', false);
|
||||||
|
isFS := true;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.UpdateAllCaps;
|
procedure TGUIForm.UpdateAllCaps;
|
||||||
begin
|
begin
|
||||||
case GetConfig( 'input/init.uppercase' ) of
|
case GetConfig( 'input/init.uppercase' ) of
|
||||||
|
@ -1731,6 +1780,24 @@ begin
|
||||||
SimpleGet(baseUrl+'/api/control/pause');
|
SimpleGet(baseUrl+'/api/control/pause');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TGUIForm.UpdateRecordState;
|
||||||
|
begin
|
||||||
|
case SimpleGet(baseUrl+'/api/control/recorder' ) of
|
||||||
|
'0': begin
|
||||||
|
tbRECState.ImageIndex := 9;
|
||||||
|
tbRECState.Caption := 'Start Recording';
|
||||||
|
end;
|
||||||
|
'1': begin
|
||||||
|
tbRECState.ImageIndex := 11;
|
||||||
|
tbRECState.Caption := 'Live Rewind Active';
|
||||||
|
end;
|
||||||
|
'2': begin
|
||||||
|
tbRECState.ImageIndex := 10;
|
||||||
|
tbRECState.Caption := 'Disk Recording Active';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.ToolTimerTimer(Sender: TObject);
|
procedure TGUIForm.ToolTimerTimer(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
UpdateRenderMode;
|
UpdateRenderMode;
|
||||||
|
@ -1741,6 +1808,7 @@ begin
|
||||||
UpdateWarpSlider;
|
UpdateWarpSlider;
|
||||||
UpdateAllCaps;
|
UpdateAllCaps;
|
||||||
UpdateScanlines;
|
UpdateScanlines;
|
||||||
|
UpdateRecordState;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.tbMasterVolumeChange(Sender: TObject);
|
procedure TGUIForm.tbMasterVolumeChange(Sender: TObject);
|
||||||
|
@ -1839,7 +1907,7 @@ begin
|
||||||
if S.Size > 0 then
|
if S.Size > 0 then
|
||||||
begin
|
begin
|
||||||
filename := GetUserDir + PathSeparator + 'microm8scrn.png';
|
filename := GetUserDir + PathSeparator + 'microm8scrn.png';
|
||||||
StatusBar1.SimpleText:='Got '+IntToStr(S.Size)+' bytes of PNG data';
|
//StatusBar1.SimpleText:='Got '+IntToStr(S.Size)+' bytes of PNG data';
|
||||||
S.SaveToFile(filename);
|
S.SaveToFile(filename);
|
||||||
backdrop.Picture.LoadFromFile(filename);
|
backdrop.Picture.LoadFromFile(filename);
|
||||||
S.Free;
|
S.Free;
|
||||||
|
@ -1880,7 +1948,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/window/position',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/window/position',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -1894,7 +1962,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -1910,7 +1978,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -1924,7 +1992,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -1939,7 +2007,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/input/mouseevent',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/input/mouseevent',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -1994,7 +2062,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/input/keyevent',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/input/keyevent',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=S;
|
//self.StatusBar1.SimpleText:=S;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2013,7 +2081,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/hardware/disk/insert',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/hardware/disk/insert',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=json;
|
//self.StatusBar1.SimpleText:=json;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2033,7 +2101,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/settings/update',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/settings/update',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=json;
|
//self.StatusBar1.SimpleText:=json;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2048,7 +2116,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/settings/get',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/settings/get',json,Respo);
|
||||||
Result := Respo.DataString;
|
Result := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=json;
|
//self.StatusBar1.SimpleText:=json;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2069,7 +2137,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/system/freeze/save',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/system/freeze/save',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=json;
|
//self.StatusBar1.SimpleText:=json;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2087,7 +2155,7 @@ begin
|
||||||
Respo := TStringStream.Create('');
|
Respo := TStringStream.Create('');
|
||||||
SimpleFormPost(baseUrl + '/api/control/system/freeze/restore',json,Respo);
|
SimpleFormPost(baseUrl + '/api/control/system/freeze/restore',json,Respo);
|
||||||
S := Respo.DataString;
|
S := Respo.DataString;
|
||||||
self.StatusBar1.SimpleText:=json;
|
//self.StatusBar1.SimpleText:=json;
|
||||||
Respo.Destroy;
|
Respo.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -2095,14 +2163,14 @@ procedure TGUIForm.tbDisk1MouseDown(Sender: TObject; Button: TMouseButton;
|
||||||
Shift: TShiftState; X, Y: Integer);
|
Shift: TShiftState; X, Y: Integer);
|
||||||
begin
|
begin
|
||||||
DiskMenu.Tag := TToolButton(Sender).Tag;
|
DiskMenu.Tag := TToolButton(Sender).Tag;
|
||||||
StatusBar1.SimpleText := 'Disk 1';
|
//StatusBar1.SimpleText := 'Disk 1';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.tbDisk2MouseDown(Sender: TObject; Button: TMouseButton;
|
procedure TGUIForm.tbDisk2MouseDown(Sender: TObject; Button: TMouseButton;
|
||||||
Shift: TShiftState; X, Y: Integer);
|
Shift: TShiftState; X, Y: Integer);
|
||||||
begin
|
begin
|
||||||
DiskMenu.Tag := TToolButton(Sender).Tag;
|
DiskMenu.Tag := TToolButton(Sender).Tag;
|
||||||
StatusBar1.SimpleText := 'Disk 2';
|
//StatusBar1.SimpleText := 'Disk 2';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.ToolButton5Click(Sender: TObject);
|
procedure TGUIForm.ToolButton5Click(Sender: TObject);
|
||||||
|
@ -2185,8 +2253,10 @@ begin
|
||||||
if GetTitleOfActiveWindow = 'microM8' then
|
if GetTitleOfActiveWindow = 'microM8' then
|
||||||
begin
|
begin
|
||||||
|
|
||||||
|
{$IFNDEF WINDOWS}
|
||||||
if IsMouseBtnDown then
|
if IsMouseBtnDown then
|
||||||
exit;
|
exit;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
//Application.Restore;
|
//Application.Restore;
|
||||||
Application.BringToFront;
|
Application.BringToFront;
|
||||||
|
@ -2209,10 +2279,22 @@ begin
|
||||||
inPopup := true;
|
inPopup := true;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{$IFDEF WINDOWS}
|
||||||
|
const
|
||||||
|
EXENAME: string = 'microm8.exe';
|
||||||
|
{$ELSE}
|
||||||
|
const
|
||||||
|
EXENAME: string = 'microm8';
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
|
||||||
procedure TGUIForm.FormCreate(Sender: TObject);
|
procedure TGUIForm.FormCreate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
self.httpc := TFPHttpClient.Create(Nil);
|
self.httpc := TFPHttpClient.Create(Nil);
|
||||||
|
|
||||||
|
//ShowMessage( ExtractFilePath(Application.ExeName) + EXENAME );
|
||||||
|
MicroM8Process.Executable := ExtractFilePath(Application.ExeName) + EXENAME;
|
||||||
|
|
||||||
//if SimpleGet( baseUrl+'/api/control/health' ) <> 'ok' then
|
//if SimpleGet( baseUrl+'/api/control/health' ) <> 'ok' then
|
||||||
//begin
|
//begin
|
||||||
MicroM8Process.Active := true;
|
MicroM8Process.Active := true;
|
||||||
|
@ -2324,7 +2406,9 @@ begin
|
||||||
end;
|
end;
|
||||||
VK_A..VK_Z:
|
VK_A..VK_Z:
|
||||||
begin
|
begin
|
||||||
if ssShift in Shift then
|
if (ssCtrl in Shift) and (ssShift in Shift) then
|
||||||
|
Result := Integer(Key)
|
||||||
|
else if ssShift in Shift then
|
||||||
Result := Integer(Key)
|
Result := Integer(Key)
|
||||||
else if ssCtrl in Shift then
|
else if ssCtrl in Shift then
|
||||||
begin
|
begin
|
||||||
|
@ -2369,7 +2453,7 @@ end;
|
||||||
procedure TGUIForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
|
procedure TGUIForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||||
begin
|
begin
|
||||||
SendKey( MapKeyCode(Key, Shift), 0, 0, MapShiftState(Key, Shift) );
|
SendKey( MapKeyCode(Key, Shift), 0, 0, MapShiftState(Key, Shift) );
|
||||||
StatusBar1.SimpleText := 'keycode ' + IntToStr(Key);
|
//StatusBar1.SimpleText := 'keycode ' + IntToStr(Key);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.FormResize(Sender: TObject);
|
procedure TGUIForm.FormResize(Sender: TObject);
|
||||||
|
@ -2439,7 +2523,7 @@ var
|
||||||
begin
|
begin
|
||||||
// HGR Render Mode menu
|
// HGR Render Mode menu
|
||||||
value := GetConfig('video/init.video.hgrmode');
|
value := GetConfig('video/init.video.hgrmode');
|
||||||
StatusBar1.SimpleText := value;
|
//StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
@ -2459,7 +2543,7 @@ var
|
||||||
begin
|
begin
|
||||||
// DHGR Render Mode menu
|
// DHGR Render Mode menu
|
||||||
value := GetConfig('video/init.video.dhgrmode');
|
value := GetConfig('video/init.video.dhgrmode');
|
||||||
StatusBar1.SimpleText := value;
|
//StatusBar1.SimpleText := value;
|
||||||
if value <> '' then
|
if value <> '' then
|
||||||
begin
|
begin
|
||||||
case value of
|
case value of
|
||||||
|
|
76
poc.lps
76
poc.lps
|
@ -4,7 +4,7 @@
|
||||||
<PathDelim Value="\"/>
|
<PathDelim Value="\"/>
|
||||||
<Version Value="11"/>
|
<Version Value="11"/>
|
||||||
<BuildModes Active="Default"/>
|
<BuildModes Active="Default"/>
|
||||||
<Units Count="4">
|
<Units Count="5">
|
||||||
<Unit0>
|
<Unit0>
|
||||||
<Filename Value="poc.lpr"/>
|
<Filename Value="poc.lpr"/>
|
||||||
<IsPartOfProject Value="True"/>
|
<IsPartOfProject Value="True"/>
|
||||||
|
@ -21,8 +21,8 @@
|
||||||
<HasResources Value="True"/>
|
<HasResources Value="True"/>
|
||||||
<ResourceBaseClass Value="Form"/>
|
<ResourceBaseClass Value="Form"/>
|
||||||
<IsVisibleTab Value="True"/>
|
<IsVisibleTab Value="True"/>
|
||||||
<TopLine Value="1513"/>
|
<TopLine Value="1750"/>
|
||||||
<CursorPos X="13" Y="1528"/>
|
<CursorPos X="51" Y="1777"/>
|
||||||
<UsageCount Value="323"/>
|
<UsageCount Value="323"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
<LoadedDesigner Value="True"/>
|
<LoadedDesigner Value="True"/>
|
||||||
|
@ -43,129 +43,137 @@
|
||||||
<EditorIndex Value="-1"/>
|
<EditorIndex Value="-1"/>
|
||||||
<TopLine Value="576"/>
|
<TopLine Value="576"/>
|
||||||
<CursorPos X="49" Y="591"/>
|
<CursorPos X="49" Y="591"/>
|
||||||
<UsageCount Value="115"/>
|
<UsageCount Value="114"/>
|
||||||
</Unit3>
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
|
||||||
|
<UnitName Value="UTF8Process"/>
|
||||||
|
<EditorIndex Value="-1"/>
|
||||||
|
<TopLine Value="636"/>
|
||||||
|
<CursorPos Y="654"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</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="1371" Column="16" TopLine="1340"/>
|
<Caret Line="1514" Column="67" TopLine="1512"/>
|
||||||
</Position1>
|
</Position1>
|
||||||
<Position2>
|
<Position2>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1439" Column="12" TopLine="1408"/>
|
<Caret Line="1515" Column="3" TopLine="1513"/>
|
||||||
</Position2>
|
</Position2>
|
||||||
<Position3>
|
<Position3>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1717" Column="17" TopLine="1686"/>
|
<Caret Line="1528" Column="32" TopLine="1513"/>
|
||||||
</Position3>
|
</Position3>
|
||||||
<Position4>
|
<Position4>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1725" Column="17" TopLine="1694"/>
|
<Caret Line="1529" Column="32" TopLine="1514"/>
|
||||||
</Position4>
|
</Position4>
|
||||||
<Position5>
|
<Position5>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1740" Column="17" TopLine="1709"/>
|
<Caret Line="1531" Column="32" TopLine="1516"/>
|
||||||
</Position5>
|
</Position5>
|
||||||
<Position6>
|
<Position6>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1751" Column="17" TopLine="1720"/>
|
<Caret Line="1579" Column="35" TopLine="1577"/>
|
||||||
</Position6>
|
</Position6>
|
||||||
<Position7>
|
<Position7>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1859" Column="28" TopLine="1828"/>
|
<Caret Line="2440" TopLine="2437"/>
|
||||||
</Position7>
|
</Position7>
|
||||||
<Position8>
|
<Position8>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1891" Column="6" TopLine="1865"/>
|
<Caret Line="1580" Column="22" TopLine="1577"/>
|
||||||
</Position8>
|
</Position8>
|
||||||
<Position9>
|
<Position9>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="544" Column="10" TopLine="512"/>
|
<Caret Line="2242" Column="62" TopLine="2215"/>
|
||||||
</Position9>
|
</Position9>
|
||||||
<Position10>
|
<Position10>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="523" Column="22" TopLine="502"/>
|
<Caret Line="2240" Column="57" TopLine="2221"/>
|
||||||
</Position10>
|
</Position10>
|
||||||
<Position11>
|
<Position11>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="504" Column="9" TopLine="495"/>
|
<Caret Line="1477" Column="3" TopLine="1475"/>
|
||||||
</Position11>
|
</Position11>
|
||||||
<Position12>
|
<Position12>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="502" Column="44" TopLine="485"/>
|
<Caret Line="1478" Column="3" TopLine="1476"/>
|
||||||
</Position12>
|
</Position12>
|
||||||
<Position13>
|
<Position13>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="507" Column="29" TopLine="484"/>
|
<Caret Line="1485" Column="3" TopLine="1483"/>
|
||||||
</Position13>
|
</Position13>
|
||||||
<Position14>
|
<Position14>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="519" Column="19" TopLine="497"/>
|
<Caret Line="1057" Column="8" TopLine="1055"/>
|
||||||
</Position14>
|
</Position14>
|
||||||
<Position15>
|
<Position15>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="457" Column="29" TopLine="448"/>
|
<Caret Line="902" Column="5" TopLine="900"/>
|
||||||
</Position15>
|
</Position15>
|
||||||
<Position16>
|
<Position16>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="17"/>
|
<Caret Line="1062" Column="28" TopLine="1055"/>
|
||||||
</Position16>
|
</Position16>
|
||||||
<Position17>
|
<Position17>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="521" Column="11" TopLine="498"/>
|
<Caret Line="2256" Column="14" TopLine="2244"/>
|
||||||
</Position17>
|
</Position17>
|
||||||
<Position18>
|
<Position18>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1596" Column="30" TopLine="1582"/>
|
<Caret Line="2396" Column="47" TopLine="2393"/>
|
||||||
</Position18>
|
</Position18>
|
||||||
<Position19>
|
<Position19>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2458" Column="3" TopLine="2430"/>
|
<Caret Line="2390" Column="17" TopLine="2378"/>
|
||||||
</Position19>
|
</Position19>
|
||||||
<Position20>
|
<Position20>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2459" Column="3" TopLine="2431"/>
|
<Caret Line="2406" Column="17" TopLine="2378"/>
|
||||||
</Position20>
|
</Position20>
|
||||||
<Position21>
|
<Position21>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2460" Column="3" TopLine="2432"/>
|
<Caret Line="2363" Column="37" TopLine="2349"/>
|
||||||
</Position21>
|
</Position21>
|
||||||
<Position22>
|
<Position22>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2461" Column="3" TopLine="2433"/>
|
<Caret Line="2364" Column="37" TopLine="2350"/>
|
||||||
</Position22>
|
</Position22>
|
||||||
<Position23>
|
<Position23>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2462" Column="3" TopLine="2434"/>
|
<Caret Line="2365" Column="37" TopLine="2351"/>
|
||||||
</Position23>
|
</Position23>
|
||||||
<Position24>
|
<Position24>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2463" Column="3" TopLine="2435"/>
|
<Caret Line="2366" Column="37" TopLine="2352"/>
|
||||||
</Position24>
|
</Position24>
|
||||||
<Position25>
|
<Position25>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2464" Column="3" TopLine="2436"/>
|
<Caret Line="480" Column="15" TopLine="465"/>
|
||||||
</Position25>
|
</Position25>
|
||||||
<Position26>
|
<Position26>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2465" Column="3" TopLine="2437"/>
|
<Caret Line="1772" Column="51" TopLine="1745"/>
|
||||||
</Position26>
|
</Position26>
|
||||||
<Position27>
|
<Position27>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2466" Column="3" TopLine="2438"/>
|
<Caret Line="1773" Column="51" TopLine="1746"/>
|
||||||
</Position27>
|
</Position27>
|
||||||
<Position28>
|
<Position28>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="2473" Column="3" TopLine="2445"/>
|
<Caret Line="1774" Column="51" TopLine="1747"/>
|
||||||
</Position28>
|
</Position28>
|
||||||
<Position29>
|
<Position29>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1514" Column="67" TopLine="1512"/>
|
<Caret Line="1775" Column="51" TopLine="1748"/>
|
||||||
</Position29>
|
</Position29>
|
||||||
<Position30>
|
<Position30>
|
||||||
<Filename Value="main.pas"/>
|
<Filename Value="main.pas"/>
|
||||||
<Caret Line="1515" Column="3" TopLine="1513"/>
|
<Caret Line="1776" Column="51" TopLine="1749"/>
|
||||||
</Position30>
|
</Position30>
|
||||||
</JumpHistory>
|
</JumpHistory>
|
||||||
<RunParams>
|
<RunParams>
|
||||||
|
|
Loading…
Reference in New Issue
Block a user