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

shift left/right, shift up/down mappings

This commit is contained in:
April Ayres-Griffiths 2019-04-14 19:26:50 +10:00
parent eeeddeba36
commit ba2db4e5d5
5 changed files with 42 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
backup/main.pas
View File

@ -2162,10 +2162,12 @@ var
S: TStringStream;
filename, json: string;
begin
backdrop.Visible := false;
filename := GetUserDir + DirectorySeparator + 'microm8scrn.png';
json := '{ "path": "' + ReplaceStr(filename, '\', '/') + '" }';
SimpleFormPost(baseUrl + '/api/control/window/screen', json, S);
backdrop.Picture.LoadFromFile(filename);
backdrop.Visible := true;
end;
procedure TGUIForm.ReposWindow;
@ -2665,6 +2667,10 @@ const
CSR_DOWN = $e003;
CTRL_A = $e041;
SHIFT_CTRL_A = $e071;
PAGE_UP = $e004;
PAGE_DOWN = $e005;
SHIFT_LEFT = $e014;
SHIFT_RIGHT = $e015;
begin
case Key of
219:
@ -2722,10 +2728,22 @@ begin
Result := Ord('~')
else
Result := Ord('`');
VK_Up: Result := CSR_UP;
VK_Down: Result := CSR_DOWN;
VK_Left: Result := CSR_LEFT;
VK_Right: Result := CSR_RIGHT;
VK_Up: if (ssShift in Shift) then
Result := PAGE_UP
else
Result := CSR_UP;
VK_Down: if (ssShift in Shift) then
Result := PAGE_DOWN
else
Result := CSR_DOWN;
VK_Left: if (ssShift in Shift) then
Result := SHIFT_LEFT
else
Result := CSR_LEFT;
VK_Right: if (ssShift in Shift) then
Result := SHIFT_RIGHT
else
Result := CSR_RIGHT;
VK_0..VK_9:
begin
if ssShift in Shift then

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.

24
main.pas
View File

@ -2667,6 +2667,10 @@ const
CSR_DOWN = $e003;
CTRL_A = $e041;
SHIFT_CTRL_A = $e071;
PAGE_UP = $e004;
PAGE_DOWN = $e005;
SHIFT_CSR_LEFT = $e05b;
SHIFT_CSR_RIGHT = $e05c;
begin
case Key of
219:
@ -2724,10 +2728,22 @@ begin
Result := Ord('~')
else
Result := Ord('`');
VK_Up: Result := CSR_UP;
VK_Down: Result := CSR_DOWN;
VK_Left: Result := CSR_LEFT;
VK_Right: Result := CSR_RIGHT;
VK_Up: if (ssShift in Shift) then
Result := PAGE_UP
else
Result := CSR_UP;
VK_Down: if (ssShift in Shift) then
Result := PAGE_DOWN
else
Result := CSR_DOWN;
VK_Left: if (ssShift in Shift) then
Result := SHIFT_CSR_LEFT
else
Result := CSR_LEFT;
VK_Right: if (ssShift in Shift) then
Result := SHIFT_CSR_RIGHT
else
Result := CSR_RIGHT;
VK_0..VK_9:
begin
if ssShift in Shift then