diff --git a/backup/main.pas b/backup/main.pas
index 82c0aab..ad048b7 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -1549,13 +1549,7 @@ begin
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;
@@ -2331,6 +2325,7 @@ const
CSR_UP = $e002;
CSR_DOWN = $e003;
CTRL_A = $e041;
+ SHIFT_CTRL_A = $e071;
begin
case Key of
219:
@@ -2413,7 +2408,10 @@ begin
VK_A..VK_Z:
begin
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
Result := Integer(Key)
else if ssCtrl in Shift then
@@ -2421,7 +2419,7 @@ begin
if Key = 67 then
Result := 3
else
- Result := CTRL_A + Integer(Key-64);
+ Result := CTRL_A + Integer(Key-65);
end
else
Result := Integer(Key)+32;
diff --git a/backup/poc.lps b/backup/poc.lps
index d1b4f77..49ccc15 100644
--- a/backup/poc.lps
+++ b/backup/poc.lps
@@ -1,184 +1,184 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/lib/x86_64-win64/main.o b/lib/x86_64-win64/main.o
index a8701e6..176606f 100644
Binary files a/lib/x86_64-win64/main.o and b/lib/x86_64-win64/main.o differ
diff --git a/lib/x86_64-win64/main.ppu b/lib/x86_64-win64/main.ppu
index 1a47b37..40daf57 100644
Binary files a/lib/x86_64-win64/main.ppu and b/lib/x86_64-win64/main.ppu differ
diff --git a/lib/x86_64-win64/poc.obj b/lib/x86_64-win64/poc.obj
index a26df9d..a6e2422 100644
Binary files a/lib/x86_64-win64/poc.obj and b/lib/x86_64-win64/poc.obj differ
diff --git a/main.pas b/main.pas
index 4975bca..74fe51a 100644
--- a/main.pas
+++ b/main.pas
@@ -2325,6 +2325,7 @@ const
CSR_UP = $e002;
CSR_DOWN = $e003;
CTRL_A = $e041;
+ SHIFT_CTRL_A = $e071;
begin
case Key of
219:
@@ -2407,7 +2408,10 @@ begin
VK_A..VK_Z:
begin
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
Result := Integer(Key)
else if ssCtrl in Shift then
@@ -2415,7 +2419,7 @@ begin
if Key = 67 then
Result := 3
else
- Result := CTRL_A + Integer(Key-64);
+ Result := CTRL_A + Integer(Key-65);
end
else
Result := Integer(Key)+32;
diff --git a/poc.lps b/poc.lps
index 784474c..8f8b90b 100644
--- a/poc.lps
+++ b/poc.lps
@@ -1,184 +1,184 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+