Apple-2-Tools
/
microm8-gui
mirror of https://github.com/paleotronic/microm8-gui.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Update profiles / add irata to menu

This commit is contained in:
April Ayres-Griffiths 2019-05-26 20:43:24 +10:00
parent 4b5c542a16
commit 7c7795de3b
13 changed files with 723 additions and 538 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

143
backup/main.lfm
View File

@ -6,7 +6,7 @@ object GUIForm: TGUIForm
AllowDropFiles = True AllowDropFiles = True
AlphaBlendValue = 128 AlphaBlendValue = 128
Caption = 'microM8 GUI' Caption = 'microM8 GUI'
ClientHeight = 650 ClientHeight = 630
ClientWidth = 1078 ClientWidth = 1078
Constraints.MinWidth = 1078 Constraints.MinWidth = 1078
DoubleBuffered = False DoubleBuffered = False
@ -28,11 +28,11 @@ object GUIForm: TGUIForm
OnUTF8KeyPress = FormUTF8KeyPress OnUTF8KeyPress = FormUTF8KeyPress
OnWindowStateChange = FormWindowStateChange OnWindowStateChange = FormWindowStateChange
ParentDoubleBuffered = False ParentDoubleBuffered = False
LCLVersion = '2.1.0.0' LCLVersion = '2.0.0.4'
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 18 Height = 23
Top = 632 Top = 607
Width = 1078 Width = 1078
Panels = <> Panels = <>
end end
@ -317,31 +317,31 @@ object GUIForm: TGUIForm
end end
object pnlContainer: TPanel object pnlContainer: TPanel
Left = 0 Left = 0
Height = 596 Height = 571
Top = 36 Top = 36
Width = 1078 Width = 1078
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 596 ClientHeight = 571
ClientWidth = 1078 ClientWidth = 1078
ParentColor = False ParentColor = False
TabOrder = 2 TabOrder = 2
object sidecarPanel: TPanel object sidecarPanel: TPanel
Left = 908 Left = 908
Height = 559 Height = 534
Top = 0 Top = 0
Width = 170 Width = 170
Align = alRight Align = alRight
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'sidecarPanel' Caption = 'sidecarPanel'
ClientHeight = 559 ClientHeight = 534
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 = 559 Height = 534
Top = 0 Top = 0
Width = 170 Width = 170
Align = alClient Align = alClient
@ -5435,12 +5435,12 @@ object GUIForm: TGUIForm
end end
object embedPanel: TPanel object embedPanel: TPanel
Left = 0 Left = 0
Height = 559 Height = 534
Top = 0 Top = 0
Width = 908 Width = 908
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 559 ClientHeight = 534
ClientWidth = 908 ClientWidth = 908
Color = clBlack Color = clBlack
Font.Color = clWhite Font.Color = clWhite
@ -5452,7 +5452,7 @@ object GUIForm: TGUIForm
OnMouseUp = FormMouseUp OnMouseUp = FormMouseUp
object backdrop: TImage object backdrop: TImage
Left = 0 Left = 0
Height = 559 Height = 534
Top = 0 Top = 0
Width = 908 Width = 908
Align = alClient Align = alClient
@ -5465,7 +5465,7 @@ object GUIForm: TGUIForm
object pnlMemory: TPanel object pnlMemory: TPanel
Left = 0 Left = 0
Height = 37 Height = 37
Top = 559 Top = 534
Width = 1078 Width = 1078
Align = alBottom Align = alBottom
ClientHeight = 37 ClientHeight = 37
@ -5476,7 +5476,7 @@ object GUIForm: TGUIForm
OnResize = pnlMemoryResize OnResize = pnlMemoryResize
object txtAddress: TEdit object txtAddress: TEdit
Left = 136 Left = 136
Height = 21 Height = 23
Top = 8 Top = 8
Width = 80 Width = 80
OnKeyPress = txtAddressKeyPress OnKeyPress = txtAddressKeyPress
@ -5486,23 +5486,23 @@ object GUIForm: TGUIForm
end end
object Label1: TLabel object Label1: TLabel
Left = 9 Left = 9
Height = 16 Height = 15
Top = 10 Top = 10
Width = 141 Width = 122
Caption = 'Memory Address (hex):' Caption = 'Memory Address (hex):'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 240 Left = 240
Height = 16 Height = 15
Top = 10 Top = 10
Width = 72 Width = 60
Caption = 'Value (hex):' Caption = 'Value (hex):'
ParentColor = False ParentColor = False
end end
object txtValue: TEdit object txtValue: TEdit
Left = 312 Left = 312
Height = 21 Height = 23
Top = 8 Top = 8
Width = 80 Width = 80
OnKeyPress = txtValueKeyPress OnKeyPress = txtValueKeyPress
@ -5555,8 +5555,8 @@ object GUIForm: TGUIForm
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
Images = ToolbarIcons Images = ToolbarIcons
Left = 168 left = 168
Top = 48 top = 48
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
Caption = 'File' Caption = 'File'
OnClick = MenuItem1Click OnClick = MenuItem1Click
@ -5584,6 +5584,16 @@ object GUIForm: TGUIForm
RadioItem = True RadioItem = True
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
object miPRFIIAuto: TMenuItem
Caption = 'Apple ][ (Autostart)'
RadioItem = True
OnClick = miPRFIIAutoClick
end
object miPRFAppleII: TMenuItem
Caption = 'Apple ]['
RadioItem = True
OnClick = miPRFAppleIIClick
end
end end
object MenuItem9: TMenuItem object MenuItem9: TMenuItem
Caption = 'Interpreters' Caption = 'Interpreters'
@ -6552,10 +6562,6 @@ object GUIForm: TGUIForm
end end
object miApps: TMenuItem object miApps: TMenuItem
Caption = 'Applications' Caption = 'Applications'
object miAppsTerminal: TMenuItem
Caption = 'Terminal'
OnClick = miAppsTerminalClick
end
object miAppsPrintShop: TMenuItem object miAppsPrintShop: TMenuItem
Caption = 'Print Shop' Caption = 'Print Shop'
OnClick = miAppsPrintShopClick OnClick = miAppsPrintShopClick
@ -6564,6 +6570,21 @@ object GUIForm: TGUIForm
Caption = '816 Paint' Caption = '816 Paint'
OnClick = miApps816PaintClick OnClick = miApps816PaintClick
end end
object miAppsTerminal: TMenuItem
Caption = 'Dial BBSes'
OnClick = miAppsTerminalClick
end
object MenuItem13: TMenuItem
Caption = 'Platoterm'
object MenuItem17: TMenuItem
Caption = 'Irata Online'
OnClick = MenuItem11Click
end
object MenuItem18: TMenuItem
Caption = 'Cyberserv'
OnClick = MenuItem12Click
end
end
end end
object miTools: TMenuItem object miTools: TMenuItem
Caption = 'Tools' Caption = 'Tools'
@ -6594,8 +6615,8 @@ object GUIForm: TGUIForm
Height = 32 Height = 32
Scaled = True Scaled = True
Width = 32 Width = 32
Left = 96 left = 96
Top = 48 top = 48
Bitmap = { Bitmap = {
4C691E0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D 4C691E0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D
B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68 B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68
@ -10443,8 +10464,8 @@ object GUIForm: TGUIForm
object DiskMenu: TPopupMenu object DiskMenu: TPopupMenu
OnPopup = DiskMenuPopup OnPopup = DiskMenuPopup
OnClose = DiskMenuClose OnClose = DiskMenuClose
Left = 240 left = 240
Top = 104 top = 104
object MenuItem10: TMenuItem object MenuItem10: TMenuItem
Caption = 'Insert Disk' Caption = 'Insert Disk'
OnClick = MenuItem10Click OnClick = MenuItem10Click
@ -10467,26 +10488,26 @@ object GUIForm: TGUIForm
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = CheckTimerTimer OnTimer = CheckTimerTimer
Left = 168 left = 168
Top = 104 top = 104
end end
object odDiskImages: TOpenDialog object odDiskImages: TOpenDialog
Title = 'Open Disk Image' Title = 'Open Disk Image'
DefaultExt = '.*' DefaultExt = '.*'
Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|MicroPAK|*.pak|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv' Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|MicroPAK|*.pak|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv'
Left = 24 left = 24
Top = 104 top = 104
end end
object MouseTimer: TTimer object MouseTimer: TTimer
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = MouseTimerTimer OnTimer = MouseTimerTimer
Left = 96 left = 96
Top = 104 top = 104
end end
object TintMode: TPopupMenu object TintMode: TPopupMenu
Left = 24 left = 24
Top = 48 top = 48
object miTintOff: TMenuItem object miTintOff: TMenuItem
Caption = 'Off' Caption = 'Off'
ImageIndex = 0 ImageIndex = 0
@ -10514,13 +10535,13 @@ object GUIForm: TGUIForm
object ToolTimer: TTimer object ToolTimer: TTimer
Enabled = False Enabled = False
OnTimer = ToolTimerTimer OnTimer = ToolTimerTimer
Left = 24 left = 24
Top = 160 top = 160
end end
object SideImages: TImageList object SideImages: TImageList
Scaled = True Scaled = True
Left = 240 left = 240
Top = 48 top = 48
end end
object MicroM8Process: TAsyncProcess object MicroM8Process: TAsyncProcess
Active = False Active = False
@ -10541,32 +10562,32 @@ object GUIForm: TGUIForm
WindowWidth = 0 WindowWidth = 0
FillAttribute = 0 FillAttribute = 0
OnTerminate = MicroM8ProcessTerminate OnTerminate = MicroM8ProcessTerminate
Left = 240 left = 240
Top = 160 top = 160
end end
object odFreezeFiles: TOpenDialog object odFreezeFiles: TOpenDialog
DefaultExt = '.*.frz' DefaultExt = '.*.frz'
Filter = 'MicroM8 Freeze|*.frz' Filter = 'MicroM8 Freeze|*.frz'
Left = 96 left = 96
Top = 160 top = 160
end end
object FSTimer: TTimer object FSTimer: TTimer
OnTimer = FSTimerTimer OnTimer = FSTimerTimer
Left = 168 left = 168
Top = 160 top = 160
end end
object sdFreezeFiles: TSaveDialog object sdFreezeFiles: TSaveDialog
Title = 'Save state as' Title = 'Save state as'
DefaultExt = '.*.frz' DefaultExt = '.*.frz'
Filter = 'MicroM8 Freeze|*.frz' Filter = 'MicroM8 Freeze|*.frz'
Left = 24 left = 24
Top = 216 top = 216
end end
object RecordingMenu: TPopupMenu object RecordingMenu: TPopupMenu
Images = ToolbarIcons Images = ToolbarIcons
ImagesWidth = 32 ImagesWidth = 32
Left = 96 left = 96
Top = 216 top = 216
object miStartDiskRec: TMenuItem object miStartDiskRec: TMenuItem
Caption = 'Start Disk Recording' Caption = 'Start Disk Recording'
ImageIndex = 10 ImageIndex = 10
@ -10581,8 +10602,8 @@ object GUIForm: TGUIForm
end end
end end
object ProfileMenu: TPopupMenu object ProfileMenu: TPopupMenu
Left = 168 left = 168
Top = 216 top = 216
object miPMApple2eEnh: TMenuItem object miPMApple2eEnh: TMenuItem
Caption = 'Apple //e Enhanced' Caption = 'Apple //e Enhanced'
OnClick = miPRFIIeEnhancedClick OnClick = miPRFIIeEnhancedClick
@ -10599,6 +10620,14 @@ object GUIForm: TGUIForm
Caption = 'Apple ][+' Caption = 'Apple ][+'
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
object miPRFSMApple2Auto: TMenuItem
Caption = 'Apple ][ (Autostart)'
OnClick = miPRFSMApple2AutoClick
end
object miPRFSMApple2: TMenuItem
Caption = 'Apple ]['
OnClick = miPRFSMApple2Click
end
object N14: TMenuItem object N14: TMenuItem
Caption = '-' Caption = '-'
end end
@ -10611,14 +10640,14 @@ object GUIForm: TGUIForm
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = WaitReposTimer OnTimer = WaitReposTimer
Left = 238 left = 238
Top = 223 top = 223
end end
object SPMenu: TPopupMenu object SPMenu: TPopupMenu
OnPopup = DiskMenuPopup OnPopup = DiskMenuPopup
OnClose = DiskMenuClose OnClose = DiskMenuClose
Left = 24 left = 24
Top = 272 top = 272
object miSPConnect: TMenuItem object miSPConnect: TMenuItem
Caption = 'Connect Disk' Caption = 'Connect Disk'
OnClick = miSPFileClick OnClick = miSPFileClick

66
backup/main.pas
View File

@ -25,6 +25,13 @@ type
btnRead: TButton; btnRead: TButton;
btnWrite: TButton; btnWrite: TButton;
btnHide: TButton; btnHide: TButton;
MenuItem13: TMenuItem;
MenuItem17: TMenuItem;
MenuItem18: TMenuItem;
miPRFSMApple2: TMenuItem;
miPRFSMApple2Auto: TMenuItem;
miPRFAppleII: TMenuItem;
miPRFIIAuto: TMenuItem;
miDisableScanlines: TMenuItem; miDisableScanlines: TMenuItem;
miIssue: TMenuItem; miIssue: TMenuItem;
SPMenu: TPopupMenu; SPMenu: TPopupMenu;
@ -369,9 +376,12 @@ type
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure InputClick(Sender: TObject); procedure InputClick(Sender: TObject);
procedure MenuItem10Click(Sender: TObject); procedure MenuItem10Click(Sender: TObject);
procedure MenuItem11Click(Sender: TObject);
procedure MenuItem12Click(Sender: TObject);
procedure MenuItem14Click(Sender: TObject); procedure MenuItem14Click(Sender: TObject);
procedure MenuItem15Click(Sender: TObject); procedure MenuItem15Click(Sender: TObject);
procedure MenuItem16Click(Sender: TObject); procedure MenuItem16Click(Sender: TObject);
procedure MenuItem17Click(Sender: TObject);
procedure MicroM8ProcessTerminate(Sender: TObject); procedure MicroM8ProcessTerminate(Sender: TObject);
procedure miD1InsBlankClick(Sender: TObject); procedure miD1InsBlankClick(Sender: TObject);
procedure miD2InsBlankClick(Sender: TObject); procedure miD2InsBlankClick(Sender: TObject);
@ -454,11 +464,15 @@ type
procedure miOpenPAKClick(Sender: TObject); procedure miOpenPAKClick(Sender: TObject);
procedure miPasteTextClick(Sender: TObject); procedure miPasteTextClick(Sender: TObject);
procedure miPDFTO5sClick(Sender: TObject); procedure miPDFTO5sClick(Sender: TObject);
procedure miPRFAppleIIClick(Sender: TObject);
procedure miPRFIIAutoClick(Sender: TObject);
procedure miPRFIIeClick(Sender: TObject); procedure miPRFIIeClick(Sender: TObject);
procedure miPRFIIeEnhancedClick(Sender: TObject); procedure miPRFIIeEnhancedClick(Sender: TObject);
procedure miPRFIIeEnhancedSoftcardClick(Sender: TObject); procedure miPRFIIeEnhancedSoftcardClick(Sender: TObject);
procedure miPRFIIplusClick(Sender: TObject); procedure miPRFIIplusClick(Sender: TObject);
procedure miPRFRebootClick(Sender: TObject); procedure miPRFRebootClick(Sender: TObject);
procedure miPRFSMApple2AutoClick(Sender: TObject);
procedure miPRFSMApple2Click(Sender: TObject);
procedure miPrinterPDFClick(Sender: TObject); procedure miPrinterPDFClick(Sender: TObject);
procedure miProfilesClick(Sender: TObject); procedure miProfilesClick(Sender: TObject);
procedure miPSG0m100Click(Sender: TObject); procedure miPSG0m100Click(Sender: TObject);
@ -881,7 +895,8 @@ end;
procedure TGUIForm.miAppsTerminalClick(Sender: TObject); procedure TGUIForm.miAppsTerminalClick(Sender: TObject);
begin begin
BootFreeze( '/boot/apps/proterm.frz' ); //BootFreeze( '/boot/apps/proterm.frz' );
LaunchPAK('/micropaks/comms/proterm.pak');
end; end;
procedure TGUIForm.miAR100Click(Sender: TObject); procedure TGUIForm.miAR100Click(Sender: TObject);
@ -1426,6 +1441,16 @@ begin
UpdateConfig( 'hardware/init.printer.timeout', TMenuItem(sender).Caption, true ); UpdateConfig( 'hardware/init.printer.timeout', TMenuItem(sender).Caption, true );
end; end;
procedure TGUIForm.miPRFAppleIIClick(Sender: TObject);
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2' );
end;
procedure TGUIForm.miPRFIIAutoClick(Sender: TObject);
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-dsys' );
end;
procedure TGUIForm.miPRFIIeClick(Sender: TObject); procedure TGUIForm.miPRFIIeClick(Sender: TObject);
var var
reply: integer; reply: integer;
@ -1459,6 +1484,16 @@ begin
SimpleGet( baseUrl+'/api/control/system/reboot' ); SimpleGet( baseUrl+'/api/control/system/reboot' );
end; end;
procedure TGUIForm.miPRFSMApple2AutoClick(Sender: TObject);
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-dsys' );
end;
procedure TGUIForm.miPRFSMApple2Click(Sender: TObject);
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2' );
end;
procedure TGUIForm.miPrinterPDFClick(Sender: TObject); procedure TGUIForm.miPrinterPDFClick(Sender: TObject);
begin begin
case GetConfig( 'hardware/init.printer.timeout' ) of case GetConfig( 'hardware/init.printer.timeout' ) of
@ -1477,7 +1512,9 @@ begin
'apple2e-en': miPRFIIeEnhanced.Checked := true; 'apple2e-en': miPRFIIeEnhanced.Checked := true;
'apple2e-en-cpm': miPRFIIeEnhancedSoftcard.Checked := true; 'apple2e-en-cpm': miPRFIIeEnhancedSoftcard.Checked := true;
'apple2e': miPRFIIe.Checked := true; 'apple2e': miPRFIIe.Checked := true;
'apple2plus': miPRFIIplus.Checked := true; 'apple2-plus': miPRFIIplus.Checked := true;
'apple2-dsys': miPRFIIAuto.Checked := true;
'apple2': miPRFAppleII.Checked := true;
end; end;
end; end;
@ -3127,15 +3164,16 @@ begin
//StatusBar1.SimpleText := 'Shift+Ctrl+'+char(Key); //StatusBar1.SimpleText := 'Shift+Ctrl+'+char(Key);
Result := (Integer(Key) - 65) + SHIFT_CTRL_A; Result := (Integer(Key) - 65) + SHIFT_CTRL_A;
end end
else if (ssShift in Shift) or Caps then
Result := Integer(Key)
else if ssCtrl in Shift then else if ssCtrl in Shift then
begin begin
keyDesc := 'Ctrl+'+char(Key);
if Key = 67 then if Key = 67 then
Result := 3 Result := 3
else else
Result := CTRL_A + Integer(Key-65); Result := CTRL_A + Integer(Key-65);
end end
else if (ssShift in Shift) or Caps then
Result := Integer(Key)
else if ssAlt in Shift then else if ssAlt in Shift then
begin begin
Result := (Integer(Key) - 65) + OPEN_APPLE_A; Result := (Integer(Key) - 65) + OPEN_APPLE_A;
@ -3170,14 +3208,15 @@ begin
code := MapKeyCode(Key,Shift,false); code := MapKeyCode(Key,Shift,false);
if code <> 0 then if code <> 0 then
SendKey( code, 0, 1, MapShiftState(Key, Shift) ); SendKey( code, 0, 1, MapShiftState(Key, Shift) );
if not ssAlt in Shift then if not (ssAlt in Shift) then
Key := 0; Key := 0;
//StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc; //StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc;
end; end;
procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char); procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char);
begin begin
//SendKey( Integer(Ord(Key)), 0, 1, 0 ); //if Key = #1 then
// SendKey( $e042, 0, 1, 0 );
end; end;
procedure TGUIForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TGUIForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -3271,6 +3310,16 @@ begin
ShowM8; ShowM8;
end; end;
procedure TGUIForm.MenuItem11Click(Sender: TObject);
begin
LaunchPAK('/micropaks/comms/platoterm-irataonline.pak');
end;
procedure TGUIForm.MenuItem12Click(Sender: TObject);
begin
LaunchPAK('/micropaks/comms/platoterm-cyberserv.pak');
end;
procedure TGUIForm.MenuItem14Click(Sender: TObject); procedure TGUIForm.MenuItem14Click(Sender: TObject);
begin begin
{ do fullscreen here } { do fullscreen here }
@ -3327,6 +3376,11 @@ begin
end; end;
end; end;
procedure TGUIForm.MenuItem17Click(Sender: TObject);
begin
end;
procedure TGUIForm.MicroM8ProcessTerminate(Sender: TObject); procedure TGUIForm.MicroM8ProcessTerminate(Sender: TObject);
begin begin
//lblTerm.Caption := 'core has terminated'; //lblTerm.Caption := 'core has terminated';

6
backup/poc.lpi
View File

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

372
backup/poc.lps
View File

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

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

@ -1,7 +1,7 @@
object GUIForm: TGUIForm object GUIForm: TGUIForm
Left = 290 Left = 420
Height = 650 Height = 650
Top = 130 Top = 127
Width = 1078 Width = 1078
AllowDropFiles = True AllowDropFiles = True
AlphaBlendValue = 128 AlphaBlendValue = 128
@ -60,7 +60,7 @@ object GUIForm: TGUIForm
end end
object tbRMVoxels: TToolButton object tbRMVoxels: TToolButton
Tag = 1 Tag = 1
Left = 577 Left = 585
Hint = 'Voxel Render' Hint = 'Voxel Render'
Top = 2 Top = 2
Caption = 'Voxels' Caption = 'Voxels'
@ -74,7 +74,7 @@ object GUIForm: TGUIForm
Style = tbsCheck Style = tbsCheck
end end
object tbRMDots: TToolButton object tbRMDots: TToolButton
Left = 613 Left = 621
Hint = 'Dot Render' Hint = 'Dot Render'
Top = 2 Top = 2
Caption = 'Dots' Caption = 'Dots'
@ -87,7 +87,7 @@ object GUIForm: TGUIForm
end end
object tbRMRaster: TToolButton object tbRMRaster: TToolButton
Tag = 2 Tag = 2
Left = 649 Left = 657
Hint = 'Raster Render' Hint = 'Raster Render'
Top = 2 Top = 2
Caption = 'Raster' Caption = 'Raster'
@ -99,7 +99,7 @@ object GUIForm: TGUIForm
Style = tbsCheck Style = tbsCheck
end end
object tbRMColor: TToolButton object tbRMColor: TToolButton
Left = 685 Left = 693
Hint = 'Toggle Color/Mono' Hint = 'Toggle Color/Mono'
Top = 2 Top = 2
Caption = 'tbRMColor' Caption = 'tbRMColor'
@ -109,7 +109,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object tbRECState: TToolButton object tbRECState: TToolButton
Left = 753 Left = 761
Hint = 'Start Recording' Hint = 'Start Recording'
Top = 2 Top = 2
Caption = 'tbRECState' Caption = 'tbRECState'
@ -119,7 +119,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 789 Left = 797
Hint = 'Rewind' Hint = 'Rewind'
Top = 2 Top = 2
Caption = 'ToolButton5' Caption = 'ToolButton5'
@ -129,7 +129,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 825 Left = 833
Hint = 'Forwards' Hint = 'Forwards'
Top = 2 Top = 2
Caption = 'ToolButton6' Caption = 'ToolButton6'
@ -139,7 +139,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 861 Left = 869
Hint = 'Resume' Hint = 'Resume'
Top = 2 Top = 2
Caption = 'ToolButton7' Caption = 'ToolButton7'
@ -149,7 +149,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 897 Left = 905
Hint = 'Stop Recording' Hint = 'Stop Recording'
Top = 2 Top = 2
Caption = 'ToolButton8' Caption = 'ToolButton8'
@ -159,7 +159,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 933 Left = 941
Hint = 'Pause' Hint = 'Pause'
Top = 2 Top = 2
Caption = 'ToolButton9' Caption = 'ToolButton9'
@ -169,7 +169,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 721 Left = 729
Top = 2 Top = 2
Caption = 'ToolButton10' Caption = 'ToolButton10'
Enabled = False Enabled = False
@ -226,13 +226,12 @@ object GUIForm: TGUIForm
Left = 213 Left = 213
Height = 32 Height = 32
Top = 2 Top = 2
Width = 96 Width = 100
OnChange = tbMasterVolumeChange OnChange = tbMasterVolumeChange
Position = 0 Position = 0
ScalePos = trBottom ScalePos = trBottom
TabStop = False TabStop = False
TickMarks = tmBoth TickMarks = tmBoth
TickStyle = tsManual
OnEnter = tbMasterVolumeEnter OnEnter = tbMasterVolumeEnter
OnMouseDown = tbMasterVolumeMouseDown OnMouseDown = tbMasterVolumeMouseDown
OnMouseUp = tbMasterVolumeMouseUp OnMouseUp = tbMasterVolumeMouseUp
@ -241,7 +240,7 @@ object GUIForm: TGUIForm
TabOrder = 0 TabOrder = 0
end end
object tbVolUp: TToolButton object tbVolUp: TToolButton
Left = 309 Left = 313
Hint = 'Volume Up' Hint = 'Volume Up'
Top = 2 Top = 2
Caption = 'tbVolUp' Caption = 'tbVolUp'
@ -251,13 +250,13 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 345 Left = 349
Top = 2 Top = 2
Caption = 'ToolButton3' Caption = 'ToolButton3'
Enabled = False Enabled = False
end end
object tbSpeedDown: TToolButton object tbSpeedDown: TToolButton
Left = 377 Left = 381
Hint = 'CPU Speed Down' Hint = 'CPU Speed Down'
Top = 2 Top = 2
Caption = 'tbSpeedDown' Caption = 'tbSpeedDown'
@ -267,17 +266,16 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object TrackBar2: TTrackBar object TrackBar2: TTrackBar
Left = 413 Left = 417
Height = 32 Height = 32
Top = 2 Top = 2
Width = 96 Width = 100
Max = 4 Max = 4
OnChange = TrackBar2Change OnChange = TrackBar2Change
Position = 0 Position = 0
ScalePos = trBottom ScalePos = trBottom
TabStop = False TabStop = False
TickMarks = tmBoth TickMarks = tmBoth
TickStyle = tsManual
OnMouseDown = TrackBar2MouseDown OnMouseDown = TrackBar2MouseDown
OnMouseUp = TrackBar2MouseUp OnMouseUp = TrackBar2MouseUp
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
@ -285,7 +283,7 @@ object GUIForm: TGUIForm
TabOrder = 1 TabOrder = 1
end end
object tbSpeedUp: TToolButton object tbSpeedUp: TToolButton
Left = 509 Left = 517
Hint = 'CPU Speed Up' Hint = 'CPU Speed Up'
Top = 2 Top = 2
Caption = 'tbSpeedUp' Caption = 'tbSpeedUp'
@ -295,19 +293,19 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton18: TToolButton object ToolButton18: TToolButton
Left = 545 Left = 553
Top = 2 Top = 2
Caption = 'ToolButton18' Caption = 'ToolButton18'
Enabled = False Enabled = False
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 969 Left = 977
Top = 2 Top = 2
Caption = 'ToolButton1' Caption = 'ToolButton1'
Enabled = False Enabled = False
end end
object tbFullscreen: TToolButton object tbFullscreen: TToolButton
Left = 1001 Left = 1009
Hint = 'Fullscreen' Hint = 'Fullscreen'
Top = 2 Top = 2
Caption = 'tbFullscreen' Caption = 'tbFullscreen'
@ -5586,6 +5584,16 @@ object GUIForm: TGUIForm
RadioItem = True RadioItem = True
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
object miPRFIIAuto: TMenuItem
Caption = 'Apple ][ (Autostart)'
RadioItem = True
OnClick = miPRFIIAutoClick
end
object miPRFAppleII: TMenuItem
Caption = 'Apple ]['
RadioItem = True
OnClick = miPRFAppleIIClick
end
end end
object MenuItem9: TMenuItem object MenuItem9: TMenuItem
Caption = 'Interpreters' Caption = 'Interpreters'
@ -6554,10 +6562,6 @@ object GUIForm: TGUIForm
end end
object miApps: TMenuItem object miApps: TMenuItem
Caption = 'Applications' Caption = 'Applications'
object miAppsTerminal: TMenuItem
Caption = 'Terminal'
OnClick = miAppsTerminalClick
end
object miAppsPrintShop: TMenuItem object miAppsPrintShop: TMenuItem
Caption = 'Print Shop' Caption = 'Print Shop'
OnClick = miAppsPrintShopClick OnClick = miAppsPrintShopClick
@ -6566,6 +6570,21 @@ object GUIForm: TGUIForm
Caption = '816 Paint' Caption = '816 Paint'
OnClick = miApps816PaintClick OnClick = miApps816PaintClick
end end
object miAppsTerminal: TMenuItem
Caption = 'Dial BBSes'
OnClick = miAppsTerminalClick
end
object MenuItem13: TMenuItem
Caption = 'Platoterm'
object MenuItem17: TMenuItem
Caption = 'Irata Online'
OnClick = MenuItem11Click
end
object MenuItem18: TMenuItem
Caption = 'Cyberserv'
OnClick = MenuItem12Click
end
end
end end
object miTools: TMenuItem object miTools: TMenuItem
Caption = 'Tools' Caption = 'Tools'
@ -10601,6 +10620,14 @@ object GUIForm: TGUIForm
Caption = 'Apple ][+' Caption = 'Apple ][+'
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
object miPRFSMApple2Auto: TMenuItem
Caption = 'Apple ][ (Autostart)'
OnClick = miPRFSMApple2AutoClick
end
object miPRFSMApple2: TMenuItem
Caption = 'Apple ]['
OnClick = miPRFSMApple2Click
end
object N14: TMenuItem object N14: TMenuItem
Caption = '-' Caption = '-'
end end

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

143
main.lfm
View File

@ -6,7 +6,7 @@ object GUIForm: TGUIForm
AllowDropFiles = True AllowDropFiles = True
AlphaBlendValue = 128 AlphaBlendValue = 128
Caption = 'microM8 GUI' Caption = 'microM8 GUI'
ClientHeight = 650 ClientHeight = 630
ClientWidth = 1078 ClientWidth = 1078
Constraints.MinWidth = 1078 Constraints.MinWidth = 1078
DoubleBuffered = False DoubleBuffered = False
@ -28,11 +28,11 @@ object GUIForm: TGUIForm
OnUTF8KeyPress = FormUTF8KeyPress OnUTF8KeyPress = FormUTF8KeyPress
OnWindowStateChange = FormWindowStateChange OnWindowStateChange = FormWindowStateChange
ParentDoubleBuffered = False ParentDoubleBuffered = False
LCLVersion = '2.1.0.0' LCLVersion = '2.0.0.4'
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 18 Height = 23
Top = 632 Top = 607
Width = 1078 Width = 1078
Panels = <> Panels = <>
end end
@ -317,31 +317,31 @@ object GUIForm: TGUIForm
end end
object pnlContainer: TPanel object pnlContainer: TPanel
Left = 0 Left = 0
Height = 596 Height = 571
Top = 36 Top = 36
Width = 1078 Width = 1078
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 596 ClientHeight = 571
ClientWidth = 1078 ClientWidth = 1078
ParentColor = False ParentColor = False
TabOrder = 2 TabOrder = 2
object sidecarPanel: TPanel object sidecarPanel: TPanel
Left = 908 Left = 908
Height = 559 Height = 534
Top = 0 Top = 0
Width = 170 Width = 170
Align = alRight Align = alRight
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'sidecarPanel' Caption = 'sidecarPanel'
ClientHeight = 559 ClientHeight = 534
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 = 559 Height = 534
Top = 0 Top = 0
Width = 170 Width = 170
Align = alClient Align = alClient
@ -5435,12 +5435,12 @@ object GUIForm: TGUIForm
end end
object embedPanel: TPanel object embedPanel: TPanel
Left = 0 Left = 0
Height = 559 Height = 534
Top = 0 Top = 0
Width = 908 Width = 908
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 559 ClientHeight = 534
ClientWidth = 908 ClientWidth = 908
Color = clBlack Color = clBlack
Font.Color = clWhite Font.Color = clWhite
@ -5452,7 +5452,7 @@ object GUIForm: TGUIForm
OnMouseUp = FormMouseUp OnMouseUp = FormMouseUp
object backdrop: TImage object backdrop: TImage
Left = 0 Left = 0
Height = 559 Height = 534
Top = 0 Top = 0
Width = 908 Width = 908
Align = alClient Align = alClient
@ -5465,7 +5465,7 @@ object GUIForm: TGUIForm
object pnlMemory: TPanel object pnlMemory: TPanel
Left = 0 Left = 0
Height = 37 Height = 37
Top = 559 Top = 534
Width = 1078 Width = 1078
Align = alBottom Align = alBottom
ClientHeight = 37 ClientHeight = 37
@ -5476,7 +5476,7 @@ object GUIForm: TGUIForm
OnResize = pnlMemoryResize OnResize = pnlMemoryResize
object txtAddress: TEdit object txtAddress: TEdit
Left = 136 Left = 136
Height = 21 Height = 23
Top = 8 Top = 8
Width = 80 Width = 80
OnKeyPress = txtAddressKeyPress OnKeyPress = txtAddressKeyPress
@ -5486,23 +5486,23 @@ object GUIForm: TGUIForm
end end
object Label1: TLabel object Label1: TLabel
Left = 9 Left = 9
Height = 16 Height = 15
Top = 10 Top = 10
Width = 141 Width = 122
Caption = 'Memory Address (hex):' Caption = 'Memory Address (hex):'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 240 Left = 240
Height = 16 Height = 15
Top = 10 Top = 10
Width = 72 Width = 60
Caption = 'Value (hex):' Caption = 'Value (hex):'
ParentColor = False ParentColor = False
end end
object txtValue: TEdit object txtValue: TEdit
Left = 312 Left = 312
Height = 21 Height = 23
Top = 8 Top = 8
Width = 80 Width = 80
OnKeyPress = txtValueKeyPress OnKeyPress = txtValueKeyPress
@ -5555,8 +5555,8 @@ object GUIForm: TGUIForm
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
Images = ToolbarIcons Images = ToolbarIcons
Left = 168 left = 168
Top = 48 top = 48
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
Caption = 'File' Caption = 'File'
OnClick = MenuItem1Click OnClick = MenuItem1Click
@ -5584,6 +5584,16 @@ object GUIForm: TGUIForm
RadioItem = True RadioItem = True
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
object miPRFIIAuto: TMenuItem
Caption = 'Apple ][ (Autostart)'
RadioItem = True
OnClick = miPRFIIAutoClick
end
object miPRFAppleII: TMenuItem
Caption = 'Apple ]['
RadioItem = True
OnClick = miPRFAppleIIClick
end
end end
object MenuItem9: TMenuItem object MenuItem9: TMenuItem
Caption = 'Interpreters' Caption = 'Interpreters'
@ -6552,10 +6562,6 @@ object GUIForm: TGUIForm
end end
object miApps: TMenuItem object miApps: TMenuItem
Caption = 'Applications' Caption = 'Applications'
object miAppsTerminal: TMenuItem
Caption = 'Terminal'
OnClick = miAppsTerminalClick
end
object miAppsPrintShop: TMenuItem object miAppsPrintShop: TMenuItem
Caption = 'Print Shop' Caption = 'Print Shop'
OnClick = miAppsPrintShopClick OnClick = miAppsPrintShopClick
@ -6564,6 +6570,21 @@ object GUIForm: TGUIForm
Caption = '816 Paint' Caption = '816 Paint'
OnClick = miApps816PaintClick OnClick = miApps816PaintClick
end end
object miAppsTerminal: TMenuItem
Caption = 'Dial BBSes'
OnClick = miAppsTerminalClick
end
object MenuItem13: TMenuItem
Caption = 'Platoterm'
object MenuItem17: TMenuItem
Caption = 'Irata Online'
OnClick = MenuItem11Click
end
object MenuItem18: TMenuItem
Caption = 'Cyberserv'
OnClick = MenuItem12Click
end
end
end end
object miTools: TMenuItem object miTools: TMenuItem
Caption = 'Tools' Caption = 'Tools'
@ -6594,8 +6615,8 @@ object GUIForm: TGUIForm
Height = 32 Height = 32
Scaled = True Scaled = True
Width = 32 Width = 32
Left = 96 left = 96
Top = 48 top = 48
Bitmap = { Bitmap = {
4C691E0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D 4C691E0000002000000020000000CA9BCA00B16DB100B16DB100B16DB100B16D
B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68 B100B16DB100B16DB100B16DB100B16DB100B16DB100B16DB100AD72BB0E8C68
@ -10443,8 +10464,8 @@ object GUIForm: TGUIForm
object DiskMenu: TPopupMenu object DiskMenu: TPopupMenu
OnPopup = DiskMenuPopup OnPopup = DiskMenuPopup
OnClose = DiskMenuClose OnClose = DiskMenuClose
Left = 240 left = 240
Top = 104 top = 104
object MenuItem10: TMenuItem object MenuItem10: TMenuItem
Caption = 'Insert Disk' Caption = 'Insert Disk'
OnClick = MenuItem10Click OnClick = MenuItem10Click
@ -10467,26 +10488,26 @@ object GUIForm: TGUIForm
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = CheckTimerTimer OnTimer = CheckTimerTimer
Left = 168 left = 168
Top = 104 top = 104
end end
object odDiskImages: TOpenDialog object odDiskImages: TOpenDialog
Title = 'Open Disk Image' Title = 'Open Disk Image'
DefaultExt = '.*' DefaultExt = '.*'
Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|MicroPAK|*.pak|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv' Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|MicroPAK|*.pak|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv'
Left = 24 left = 24
Top = 104 top = 104
end end
object MouseTimer: TTimer object MouseTimer: TTimer
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = MouseTimerTimer OnTimer = MouseTimerTimer
Left = 96 left = 96
Top = 104 top = 104
end end
object TintMode: TPopupMenu object TintMode: TPopupMenu
Left = 24 left = 24
Top = 48 top = 48
object miTintOff: TMenuItem object miTintOff: TMenuItem
Caption = 'Off' Caption = 'Off'
ImageIndex = 0 ImageIndex = 0
@ -10514,13 +10535,13 @@ object GUIForm: TGUIForm
object ToolTimer: TTimer object ToolTimer: TTimer
Enabled = False Enabled = False
OnTimer = ToolTimerTimer OnTimer = ToolTimerTimer
Left = 24 left = 24
Top = 160 top = 160
end end
object SideImages: TImageList object SideImages: TImageList
Scaled = True Scaled = True
Left = 240 left = 240
Top = 48 top = 48
end end
object MicroM8Process: TAsyncProcess object MicroM8Process: TAsyncProcess
Active = False Active = False
@ -10541,32 +10562,32 @@ object GUIForm: TGUIForm
WindowWidth = 0 WindowWidth = 0
FillAttribute = 0 FillAttribute = 0
OnTerminate = MicroM8ProcessTerminate OnTerminate = MicroM8ProcessTerminate
Left = 240 left = 240
Top = 160 top = 160
end end
object odFreezeFiles: TOpenDialog object odFreezeFiles: TOpenDialog
DefaultExt = '.*.frz' DefaultExt = '.*.frz'
Filter = 'MicroM8 Freeze|*.frz' Filter = 'MicroM8 Freeze|*.frz'
Left = 96 left = 96
Top = 160 top = 160
end end
object FSTimer: TTimer object FSTimer: TTimer
OnTimer = FSTimerTimer OnTimer = FSTimerTimer
Left = 168 left = 168
Top = 160 top = 160
end end
object sdFreezeFiles: TSaveDialog object sdFreezeFiles: TSaveDialog
Title = 'Save state as' Title = 'Save state as'
DefaultExt = '.*.frz' DefaultExt = '.*.frz'
Filter = 'MicroM8 Freeze|*.frz' Filter = 'MicroM8 Freeze|*.frz'
Left = 24 left = 24
Top = 216 top = 216
end end
object RecordingMenu: TPopupMenu object RecordingMenu: TPopupMenu
Images = ToolbarIcons Images = ToolbarIcons
ImagesWidth = 32 ImagesWidth = 32
Left = 96 left = 96
Top = 216 top = 216
object miStartDiskRec: TMenuItem object miStartDiskRec: TMenuItem
Caption = 'Start Disk Recording' Caption = 'Start Disk Recording'
ImageIndex = 10 ImageIndex = 10
@ -10581,8 +10602,8 @@ object GUIForm: TGUIForm
end end
end end
object ProfileMenu: TPopupMenu object ProfileMenu: TPopupMenu
Left = 168 left = 168
Top = 216 top = 216
object miPMApple2eEnh: TMenuItem object miPMApple2eEnh: TMenuItem
Caption = 'Apple //e Enhanced' Caption = 'Apple //e Enhanced'
OnClick = miPRFIIeEnhancedClick OnClick = miPRFIIeEnhancedClick
@ -10599,6 +10620,14 @@ object GUIForm: TGUIForm
Caption = 'Apple ][+' Caption = 'Apple ][+'
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
object miPRFSMApple2Auto: TMenuItem
Caption = 'Apple ][ (Autostart)'
OnClick = miPRFSMApple2AutoClick
end
object miPRFSMApple2: TMenuItem
Caption = 'Apple ]['
OnClick = miPRFSMApple2Click
end
object N14: TMenuItem object N14: TMenuItem
Caption = '-' Caption = '-'
end end
@ -10611,14 +10640,14 @@ object GUIForm: TGUIForm
Enabled = False Enabled = False
Interval = 50 Interval = 50
OnTimer = WaitReposTimer OnTimer = WaitReposTimer
Left = 238 left = 238
Top = 223 top = 223
end end
object SPMenu: TPopupMenu object SPMenu: TPopupMenu
OnPopup = DiskMenuPopup OnPopup = DiskMenuPopup
OnClose = DiskMenuClose OnClose = DiskMenuClose
Left = 24 left = 24
Top = 272 top = 272
object miSPConnect: TMenuItem object miSPConnect: TMenuItem
Caption = 'Connect Disk' Caption = 'Connect Disk'
OnClick = miSPFileClick OnClick = miSPFileClick

68
main.pas
View File

@ -25,6 +25,13 @@ type
btnRead: TButton; btnRead: TButton;
btnWrite: TButton; btnWrite: TButton;
btnHide: TButton; btnHide: TButton;
MenuItem13: TMenuItem;
MenuItem17: TMenuItem;
MenuItem18: TMenuItem;
miPRFSMApple2: TMenuItem;
miPRFSMApple2Auto: TMenuItem;
miPRFAppleII: TMenuItem;
miPRFIIAuto: TMenuItem;
miDisableScanlines: TMenuItem; miDisableScanlines: TMenuItem;
miIssue: TMenuItem; miIssue: TMenuItem;
SPMenu: TPopupMenu; SPMenu: TPopupMenu;
@ -369,9 +376,12 @@ type
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure InputClick(Sender: TObject); procedure InputClick(Sender: TObject);
procedure MenuItem10Click(Sender: TObject); procedure MenuItem10Click(Sender: TObject);
procedure MenuItem11Click(Sender: TObject);
procedure MenuItem12Click(Sender: TObject);
procedure MenuItem14Click(Sender: TObject); procedure MenuItem14Click(Sender: TObject);
procedure MenuItem15Click(Sender: TObject); procedure MenuItem15Click(Sender: TObject);
procedure MenuItem16Click(Sender: TObject); procedure MenuItem16Click(Sender: TObject);
procedure MenuItem17Click(Sender: TObject);
procedure MicroM8ProcessTerminate(Sender: TObject); procedure MicroM8ProcessTerminate(Sender: TObject);
procedure miD1InsBlankClick(Sender: TObject); procedure miD1InsBlankClick(Sender: TObject);
procedure miD2InsBlankClick(Sender: TObject); procedure miD2InsBlankClick(Sender: TObject);
@ -454,11 +464,15 @@ type
procedure miOpenPAKClick(Sender: TObject); procedure miOpenPAKClick(Sender: TObject);
procedure miPasteTextClick(Sender: TObject); procedure miPasteTextClick(Sender: TObject);
procedure miPDFTO5sClick(Sender: TObject); procedure miPDFTO5sClick(Sender: TObject);
procedure miPRFAppleIIClick(Sender: TObject);
procedure miPRFIIAutoClick(Sender: TObject);
procedure miPRFIIeClick(Sender: TObject); procedure miPRFIIeClick(Sender: TObject);
procedure miPRFIIeEnhancedClick(Sender: TObject); procedure miPRFIIeEnhancedClick(Sender: TObject);
procedure miPRFIIeEnhancedSoftcardClick(Sender: TObject); procedure miPRFIIeEnhancedSoftcardClick(Sender: TObject);
procedure miPRFIIplusClick(Sender: TObject); procedure miPRFIIplusClick(Sender: TObject);
procedure miPRFRebootClick(Sender: TObject); procedure miPRFRebootClick(Sender: TObject);
procedure miPRFSMApple2AutoClick(Sender: TObject);
procedure miPRFSMApple2Click(Sender: TObject);
procedure miPrinterPDFClick(Sender: TObject); procedure miPrinterPDFClick(Sender: TObject);
procedure miProfilesClick(Sender: TObject); procedure miProfilesClick(Sender: TObject);
procedure miPSG0m100Click(Sender: TObject); procedure miPSG0m100Click(Sender: TObject);
@ -881,7 +895,8 @@ end;
procedure TGUIForm.miAppsTerminalClick(Sender: TObject); procedure TGUIForm.miAppsTerminalClick(Sender: TObject);
begin begin
BootFreeze( '/boot/apps/proterm.frz' ); //BootFreeze( '/boot/apps/proterm.frz' );
LaunchPAK('/micropaks/comms/proterm.pak');
end; end;
procedure TGUIForm.miAR100Click(Sender: TObject); procedure TGUIForm.miAR100Click(Sender: TObject);
@ -1426,6 +1441,16 @@ begin
UpdateConfig( 'hardware/init.printer.timeout', TMenuItem(sender).Caption, true ); UpdateConfig( 'hardware/init.printer.timeout', TMenuItem(sender).Caption, true );
end; end;
procedure TGUIForm.miPRFAppleIIClick(Sender: TObject);
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2' );
end;
procedure TGUIForm.miPRFIIAutoClick(Sender: TObject);
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-dsys' );
end;
procedure TGUIForm.miPRFIIeClick(Sender: TObject); procedure TGUIForm.miPRFIIeClick(Sender: TObject);
var var
reply: integer; reply: integer;
@ -1459,6 +1484,16 @@ begin
SimpleGet( baseUrl+'/api/control/system/reboot' ); SimpleGet( baseUrl+'/api/control/system/reboot' );
end; end;
procedure TGUIForm.miPRFSMApple2AutoClick(Sender: TObject);
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-dsys' );
end;
procedure TGUIForm.miPRFSMApple2Click(Sender: TObject);
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2' );
end;
procedure TGUIForm.miPrinterPDFClick(Sender: TObject); procedure TGUIForm.miPrinterPDFClick(Sender: TObject);
begin begin
case GetConfig( 'hardware/init.printer.timeout' ) of case GetConfig( 'hardware/init.printer.timeout' ) of
@ -1477,7 +1512,9 @@ begin
'apple2e-en': miPRFIIeEnhanced.Checked := true; 'apple2e-en': miPRFIIeEnhanced.Checked := true;
'apple2e-en-cpm': miPRFIIeEnhancedSoftcard.Checked := true; 'apple2e-en-cpm': miPRFIIeEnhancedSoftcard.Checked := true;
'apple2e': miPRFIIe.Checked := true; 'apple2e': miPRFIIe.Checked := true;
'apple2plus': miPRFIIplus.Checked := true; 'apple2-plus': miPRFIIplus.Checked := true;
'apple2-dsys': miPRFIIAuto.Checked := true;
'apple2': miPRFAppleII.Checked := true;
end; end;
end; end;
@ -3127,15 +3164,12 @@ begin
//StatusBar1.SimpleText := 'Shift+Ctrl+'+char(Key); //StatusBar1.SimpleText := 'Shift+Ctrl+'+char(Key);
Result := (Integer(Key) - 65) + SHIFT_CTRL_A; Result := (Integer(Key) - 65) + SHIFT_CTRL_A;
end end
else if (ssShift in Shift) or Caps then
Result := Integer(Key)
else if ssCtrl in Shift then else if ssCtrl in Shift then
begin begin
if Key = 67 then Result := Integer(Key-64);
Result := 3
else
Result := CTRL_A + Integer(Key-65);
end end
else if (ssShift in Shift) or Caps then
Result := Integer(Key)
else if ssAlt in Shift then else if ssAlt in Shift then
begin begin
Result := (Integer(Key) - 65) + OPEN_APPLE_A; Result := (Integer(Key) - 65) + OPEN_APPLE_A;
@ -3177,7 +3211,8 @@ end;
procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char); procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char);
begin begin
//SendKey( Integer(Ord(Key)), 0, 1, 0 ); //if Key = #1 then
// SendKey( $e042, 0, 1, 0 );
end; end;
procedure TGUIForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TGUIForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -3271,6 +3306,16 @@ begin
ShowM8; ShowM8;
end; end;
procedure TGUIForm.MenuItem11Click(Sender: TObject);
begin
LaunchPAK('/micropaks/comms/platoterm-irataonline.pak');
end;
procedure TGUIForm.MenuItem12Click(Sender: TObject);
begin
LaunchPAK('/micropaks/comms/platoterm-cyberserv.pak');
end;
procedure TGUIForm.MenuItem14Click(Sender: TObject); procedure TGUIForm.MenuItem14Click(Sender: TObject);
begin begin
{ do fullscreen here } { do fullscreen here }
@ -3327,6 +3372,11 @@ begin
end; end;
end; end;
procedure TGUIForm.MenuItem17Click(Sender: TObject);
begin
end;
procedure TGUIForm.MicroM8ProcessTerminate(Sender: TObject); procedure TGUIForm.MicroM8ProcessTerminate(Sender: TObject);
begin begin
//lblTerm.Caption := 'core has terminated'; //lblTerm.Caption := 'core has terminated';

6
poc.lpi
View File

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

372
poc.lps
View File

@ -1,186 +1,186 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectSession> <ProjectSession>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="12"/> <Version Value="11"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="5"> <Units Count="5">
<Unit0> <Unit0>
<Filename Value="poc.lpr"/> <Filename Value="poc.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="-1"/> <TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/> <CursorPos X="-1" Y="-1"/>
<UsageCount Value="323"/> <UsageCount Value="323"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="GUIForm"/> <ComponentName Value="GUIForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="3152"/> <TopLine Value="3311"/>
<CursorPos X="10" Y="3173"/> <CursorPos X="3" Y="3313"/>
<UsageCount Value="323"/> <UsageCount Value="323"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="mixer.pas"/> <Filename Value="mixer.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmMixer"/> <ComponentName Value="frmMixer"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="3"/> <TopLine Value="3"/>
<CursorPos X="26" Y="25"/> <CursorPos X="26" Y="25"/>
<UsageCount Value="206"/> <UsageCount Value="206"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="C:\lazarus\lcl\include\picture.inc"/> <Filename Value="C:\lazarus\lcl\include\picture.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="576"/> <TopLine Value="576"/>
<CursorPos X="49" Y="591"/> <CursorPos X="49" Y="591"/>
<UsageCount Value="93"/> <UsageCount Value="93"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="images\memory.pas"/> <Filename Value="images\memory.pas"/>
<ComponentName Value="memform"/> <ComponentName Value="memform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="40"/> <TopLine Value="40"/>
<CursorPos X="17" Y="44"/> <CursorPos X="17" Y="44"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
</Unit4> </Unit4>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3046" Column="36" TopLine="3032"/> <Caret Line="3189" Column="12" TopLine="3152"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2882" Column="27" TopLine="2867"/> <Caret Line="3156" Column="25" TopLine="3153"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2888" Column="23" TopLine="2877"/> <Caret Line="3157" Column="25" TopLine="3154"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2752" Column="28" TopLine="2729"/> <Caret Line="3158" Column="25" TopLine="3155"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1788" Column="61" TopLine="1785"/> <Caret Line="1479" Column="33" TopLine="1468"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2341" Column="6" TopLine="2313"/> <Caret Line="2711" Column="3" TopLine="2709"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1801" Column="28" TopLine="1786"/> <Caret Line="1462" Column="3" TopLine="1458"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2900" Column="14" TopLine="2888"/> <Caret Line="1440" Column="66" TopLine="1438"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1897" Column="16" TopLine="1894"/> <Caret Line="1445" Column="69" TopLine="1433"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="426" Column="15" TopLine="408"/> <Caret Line="1446" Column="69" TopLine="1434"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1183" TopLine="1178"/> <Caret Line="1448" Column="69" TopLine="1436"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1923" Column="42" TopLine="1895"/> <Caret Line="1482" Column="66" TopLine="1480"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2892" Column="43" TopLine="2879"/> <Caret Line="1491" Column="122" TopLine="1480"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2899" Column="43" TopLine="2886"/> <Caret Line="1492" Column="122" TopLine="1481"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1833" Column="87" TopLine="1829"/> <Caret Line="1493" Column="122" TopLine="1482"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1839" Column="38" TopLine="1820"/> <Caret Line="895" Column="7" TopLine="892"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1098" Column="15" TopLine="1092"/> <Caret Line="592" Column="45" TopLine="576"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1925" Column="3" TopLine="1923"/> <Caret Line="586" Column="25" TopLine="576"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3205" Column="13" TopLine="3198"/> <Caret Line="895" Column="13" TopLine="882"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3279" Column="24" TopLine="3223"/> <Caret Line="1417" Column="16" TopLine="1407"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="581" Column="11" TopLine="563"/> <Caret Line="2400" Column="34" TopLine="2400"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2250" Column="17" TopLine="2231"/> <Caret Line="3318" Column="65" TopLine="3309"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2255" Column="14" TopLine="2231"/> <Caret Line="3316" Column="50" TopLine="3309"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2265" Column="21" TopLine="2234"/> <Caret Line="3317" Column="50" TopLine="3310"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3202" Column="9" TopLine="3174"/> <Caret Line="3319" Column="50" TopLine="3312"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="893" Column="40" TopLine="871"/> <Caret Line="3380" Column="3" TopLine="3378"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="348" Column="22" TopLine="330"/> <Caret Line="3314" Column="3" TopLine="3312"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="349" Column="22" TopLine="330"/> <Caret Line="3315" Column="3" TopLine="3313"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="350" Column="22" TopLine="330"/> <Caret Line="3314" Column="3" TopLine="3312"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3189" Column="12" TopLine="3152"/> <Caret Line="3313" Column="3" TopLine="3311"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="0" ActiveMode=""/> <Modes Count="0" ActiveMode=""/>
</RunParams> </RunParams>
</ProjectSession> </ProjectSession>
</CONFIG> </CONFIG>

BIN
poc.res
View File

Binary file not shown.