diff --git a/backup/main.lfm b/backup/main.lfm index 35dc168..564b9c5 100644 --- a/backup/main.lfm +++ b/backup/main.lfm @@ -6,7 +6,7 @@ object GUIForm: TGUIForm AllowDropFiles = True AlphaBlendValue = 128 Caption = 'microM8 GUI' - ClientHeight = 630 + ClientHeight = 625 ClientWidth = 1078 Constraints.MinWidth = 1078 DoubleBuffered = False @@ -31,8 +31,8 @@ object GUIForm: TGUIForm LCLVersion = '2.0.0.4' object StatusBar1: TStatusBar Left = 0 - Height = 23 - Top = 607 + Height = 19 + Top = 606 Width = 1078 Panels = <> end @@ -234,7 +234,7 @@ object GUIForm: TGUIForm end object tbMasterVolume: TTrackBar Left = 249 - Height = 32 + Height = 38 Top = 2 Width = 96 OnChange = tbMasterVolumeChange @@ -278,7 +278,7 @@ object GUIForm: TGUIForm end object TrackBar2: TTrackBar Left = 449 - Height = 32 + Height = 38 Top = 2 Width = 96 Max = 4 @@ -329,31 +329,31 @@ object GUIForm: TGUIForm end object pnlContainer: TPanel Left = 0 - Height = 571 + Height = 570 Top = 36 Width = 1078 Align = alClient BevelOuter = bvNone - ClientHeight = 571 + ClientHeight = 570 ClientWidth = 1078 ParentColor = False TabOrder = 2 object sidecarPanel: TPanel Left = 908 - Height = 534 + Height = 533 Top = 0 Width = 170 Align = alRight BevelOuter = bvNone Caption = 'sidecarPanel' - ClientHeight = 534 + ClientHeight = 533 ClientWidth = 170 Color = clBlack ParentColor = False TabOrder = 0 object Image1: TImage Left = 0 - Height = 534 + Height = 533 Top = 0 Width = 170 Align = alClient @@ -5447,12 +5447,12 @@ object GUIForm: TGUIForm end object embedPanel: TPanel Left = 0 - Height = 534 + Height = 533 Top = 0 Width = 908 Align = alClient BevelOuter = bvNone - ClientHeight = 534 + ClientHeight = 533 ClientWidth = 908 Color = clBlack Font.Color = clWhite @@ -5464,7 +5464,7 @@ object GUIForm: TGUIForm OnMouseUp = FormMouseUp object backdrop: TImage Left = 0 - Height = 534 + Height = 533 Top = 0 Width = 908 Align = alClient @@ -5477,7 +5477,7 @@ object GUIForm: TGUIForm object pnlMemory: TPanel Left = 0 Height = 37 - Top = 534 + Top = 533 Width = 1078 Align = alBottom ClientHeight = 37 @@ -5488,7 +5488,7 @@ object GUIForm: TGUIForm OnResize = pnlMemoryResize object txtAddress: TEdit Left = 136 - Height = 23 + Height = 29 Top = 8 Width = 80 OnKeyPress = txtAddressKeyPress @@ -5498,23 +5498,23 @@ object GUIForm: TGUIForm end object Label1: TLabel Left = 9 - Height = 15 + Height = 17 Top = 10 - Width = 122 + Width = 130 Caption = 'Memory Address (hex):' ParentColor = False end object Label2: TLabel Left = 240 - Height = 15 + Height = 17 Top = 10 - Width = 60 + Width = 65 Caption = 'Value (hex):' ParentColor = False end object txtValue: TEdit Left = 312 - Height = 23 + Height = 29 Top = 8 Width = 80 OnKeyPress = txtValueKeyPress diff --git a/backup/main.pas b/backup/main.pas index edc07fa..35efb2b 100644 --- a/backup/main.pas +++ b/backup/main.pas @@ -3171,7 +3171,7 @@ begin code := MapKeyCode(Key,Shift,false); if code <> 0 then SendKey( code, 0, 1, MapShiftState(Key, Shift) ); - StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc; + //StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc; end; procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char); diff --git a/backup/poc.lps b/backup/poc.lps index 1c96fab..99f2a1a 100644 --- a/backup/poc.lps +++ b/backup/poc.lps @@ -21,8 +21,8 @@ - - + + @@ -43,7 +43,7 @@ - + @@ -51,7 +51,7 @@ - + @@ -61,129 +61,129 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + diff --git a/main.lfm b/main.lfm index 35dc168..564b9c5 100644 --- a/main.lfm +++ b/main.lfm @@ -6,7 +6,7 @@ object GUIForm: TGUIForm AllowDropFiles = True AlphaBlendValue = 128 Caption = 'microM8 GUI' - ClientHeight = 630 + ClientHeight = 625 ClientWidth = 1078 Constraints.MinWidth = 1078 DoubleBuffered = False @@ -31,8 +31,8 @@ object GUIForm: TGUIForm LCLVersion = '2.0.0.4' object StatusBar1: TStatusBar Left = 0 - Height = 23 - Top = 607 + Height = 19 + Top = 606 Width = 1078 Panels = <> end @@ -234,7 +234,7 @@ object GUIForm: TGUIForm end object tbMasterVolume: TTrackBar Left = 249 - Height = 32 + Height = 38 Top = 2 Width = 96 OnChange = tbMasterVolumeChange @@ -278,7 +278,7 @@ object GUIForm: TGUIForm end object TrackBar2: TTrackBar Left = 449 - Height = 32 + Height = 38 Top = 2 Width = 96 Max = 4 @@ -329,31 +329,31 @@ object GUIForm: TGUIForm end object pnlContainer: TPanel Left = 0 - Height = 571 + Height = 570 Top = 36 Width = 1078 Align = alClient BevelOuter = bvNone - ClientHeight = 571 + ClientHeight = 570 ClientWidth = 1078 ParentColor = False TabOrder = 2 object sidecarPanel: TPanel Left = 908 - Height = 534 + Height = 533 Top = 0 Width = 170 Align = alRight BevelOuter = bvNone Caption = 'sidecarPanel' - ClientHeight = 534 + ClientHeight = 533 ClientWidth = 170 Color = clBlack ParentColor = False TabOrder = 0 object Image1: TImage Left = 0 - Height = 534 + Height = 533 Top = 0 Width = 170 Align = alClient @@ -5447,12 +5447,12 @@ object GUIForm: TGUIForm end object embedPanel: TPanel Left = 0 - Height = 534 + Height = 533 Top = 0 Width = 908 Align = alClient BevelOuter = bvNone - ClientHeight = 534 + ClientHeight = 533 ClientWidth = 908 Color = clBlack Font.Color = clWhite @@ -5464,7 +5464,7 @@ object GUIForm: TGUIForm OnMouseUp = FormMouseUp object backdrop: TImage Left = 0 - Height = 534 + Height = 533 Top = 0 Width = 908 Align = alClient @@ -5477,7 +5477,7 @@ object GUIForm: TGUIForm object pnlMemory: TPanel Left = 0 Height = 37 - Top = 534 + Top = 533 Width = 1078 Align = alBottom ClientHeight = 37 @@ -5488,7 +5488,7 @@ object GUIForm: TGUIForm OnResize = pnlMemoryResize object txtAddress: TEdit Left = 136 - Height = 23 + Height = 29 Top = 8 Width = 80 OnKeyPress = txtAddressKeyPress @@ -5498,23 +5498,23 @@ object GUIForm: TGUIForm end object Label1: TLabel Left = 9 - Height = 15 + Height = 17 Top = 10 - Width = 122 + Width = 130 Caption = 'Memory Address (hex):' ParentColor = False end object Label2: TLabel Left = 240 - Height = 15 + Height = 17 Top = 10 - Width = 60 + Width = 65 Caption = 'Value (hex):' ParentColor = False end object txtValue: TEdit Left = 312 - Height = 23 + Height = 29 Top = 8 Width = 80 OnKeyPress = txtValueKeyPress diff --git a/main.pas b/main.pas index 35efb2b..fa5e101 100644 --- a/main.pas +++ b/main.pas @@ -3000,7 +3000,7 @@ begin else Result := 0; end; - //VK_SHIFT: Result := 0; + VK_SHIFT: Result := 0; VK_CAPITAL: begin {$IFDEF DARWIN} Caps := (not KeyUp); diff --git a/poc.lps b/poc.lps index 99f2a1a..72b9023 100644 --- a/poc.lps +++ b/poc.lps @@ -1,194 +1,190 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +