Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-11-29 14:50:09 +00:00
Code Issues Projects Releases Wiki Activity

if Shift+Ctrl+X keys

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-13 10:19:15 +10:00
parent 9056ed6555
commit d25ff669cb
7 changed files with 380 additions and 378 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
backup/main.pas
View File

@ -1549,13 +1549,7 @@ begin
end; end;
procedure TGUIForm.miVideoScreenshotClick(Sender: TObject); procedure TGUIForm.miVideoScreenshotClick(Sender: TObject);
var
s: string;
begin begin
s := SimpleGet(baseUrl+'/api/control/window/screenshot');
if s <> '' then
StatusBar1.SimpleText := 'Screenshot saved: ' + s;
SendKey( $e092, $e092, 1, 0 ); SendKey( $e092, $e092, 1, 0 );
end; end;
@ -2331,6 +2325,7 @@ const
CSR_UP = $e002; CSR_UP = $e002;
CSR_DOWN = $e003; CSR_DOWN = $e003;
CTRL_A = $e041; CTRL_A = $e041;
SHIFT_CTRL_A = $e071;
begin begin
case Key of case Key of
219: 219:
@ -2413,7 +2408,10 @@ begin
VK_A..VK_Z: VK_A..VK_Z:
begin begin
if (ssCtrl in Shift) and (ssShift in Shift) then if (ssCtrl in Shift) and (ssShift in Shift) then
Result := Integer(Key) begin
StatusBar1.SimpleText := 'Shift+Ctrl+'+char(Key);
Result := (Integer(Key) - 65) + SHIFT_CTRL_A;
end
else if ssShift in Shift then else if ssShift in Shift then
Result := Integer(Key) Result := Integer(Key)
else if ssCtrl in Shift then else if ssCtrl in Shift then
@ -2421,7 +2419,7 @@ begin
if Key = 67 then if Key = 67 then
Result := 3 Result := 3
else else
Result := CTRL_A + Integer(Key-64); Result := CTRL_A + Integer(Key-65);
end end
else else
Result := Integer(Key)+32; Result := Integer(Key)+32;

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.

8
main.pas
View File

@ -2325,6 +2325,7 @@ const
CSR_UP = $e002; CSR_UP = $e002;
CSR_DOWN = $e003; CSR_DOWN = $e003;
CTRL_A = $e041; CTRL_A = $e041;
SHIFT_CTRL_A = $e071;
begin begin
case Key of case Key of
219: 219:
@ -2407,7 +2408,10 @@ begin
VK_A..VK_Z: VK_A..VK_Z:
begin begin
if (ssCtrl in Shift) and (ssShift in Shift) then if (ssCtrl in Shift) and (ssShift in Shift) then
Result := Integer(Key) begin
//StatusBar1.SimpleText := 'Shift+Ctrl+'+char(Key);
Result := (Integer(Key) - 65) + SHIFT_CTRL_A;
end
else if ssShift in Shift then else if ssShift in Shift then
Result := Integer(Key) Result := Integer(Key)
else if ssCtrl in Shift then else if ssCtrl in Shift then
@ -2415,7 +2419,7 @@ begin
if Key = 67 then if Key = 67 then
Result := 3 Result := 3
else else
Result := CTRL_A + Integer(Key-64); Result := CTRL_A + Integer(Key-65);
end end
else else
Result := Integer(Key)+32; Result := Integer(Key)+32;