Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2016-10

VK_* problem.

7 messages · 5 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Larry Dalton

I have an application that requires MouseAndKeyInput.lpk. I am using lazarus_1.6-0_amd64.deb, fpc-src_3.0.0-151205_amd64.deb, on Linux Cinnamon. I also am using it on Windows 7, and Windows 10.
I need to print strings at a certain position on a webpage. I can't get it to print uppercase letters.
Here is the test procedure I am using:

procedure TMain_Form.TestButtonClick(Sender: TObject);
var test_string:string;
      right_string:boolean;
begin
        KeyInput.Press(VK_L);
        KeyInput.Press(VK_a);
        KeyInput.Press(VK_r);
        KeyInput.Press(VK_r);
        KeyInput.Press(VK_y);
        KeyInput.Press(VK_SPACE);
        KeyInput.Press(VK_D);
        KeyInput.Press(VK_a);
        KeyInput.Press(VK_l);
        KeyInput.Press(VK_t);
        KeyInput.Press(VK_o);
        KeyInput.Press(VK_n);
end;
The resulting string is 'al';
It should be printing 'Larry Dalton';
Instead, it is printing 'larry dalton';

How can I get it to print the uppercase letters?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20161029/28cf7dde/attachment.html>

Reply by email

Larry Dalton
to Larry Dalton

I need to correct the previous email. The line 'The resulting string is 'al'' should not be there.

Larry Dalton wrote 36 lines
I have an application that requires MouseAndKeyInput.lpk. I am using lazarus_1.6-0_amd64.deb, fpc-src_3.0.0-151205_amd64.deb, on Linux Cinnamon. I also am using it on Windows 7, and Windows 10. I need to print strings at a certain position on a webpage. I can't get it to print uppercase letters. Here is the test procedure I am using: procedure TMain_Form.TestButtonClick(Sender: TObject); var test_string:string; right_string:boolean; begin KeyInput.Press(VK_L); KeyInput.Press(VK_a); KeyInput.Press(VK_r); KeyInput.Press(VK_r); KeyInput.Press(VK_y); KeyInput.Press(VK_SPACE); KeyInput.Press(VK_D); KeyInput.Press(VK_a); KeyInput.Press(VK_l); KeyInput.Press(VK_t); KeyInput.Press(VK_o); KeyInput.Press(VK_n); end; The resulting string is 'al'; It should be printing 'Larry Dalton'; Instead, it is printing 'larry dalton'; How can I get it to print the uppercase letters?

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20161029/4091e67d/attachment.html>

Reply by email

Larry Dalton
to silvioprog

Thanks!

Sent from my iPhone

Show quoted text 20 lines
On Oct 29, 2016, at 10:18, silvioprog via Lazarus wrote: > On Sat, Oct 29, 2016 at 11:59 AM, Balázs Székely via Lazarus wrote: > KeyInput.Down(VK_SHIFT); > KeyInput.Press(VK_L); > KeyInput.Up(VK_SHIFT); > //... It allows you to send string too, eg: KeyInput.Press('hello WORLD'); -- Silvio Clécio -- _______________________________________________ Lazarus mailing list http://lists.lazarus-ide.org/listinfo/lazarus

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20161029/d99ff46b/attachment.html>

Reply by email

Mattias Gaertner
to Alexey
Alexey via Lazarus hat am 1. November 2016 um 10:44 geschrieben: hi I found (CudaText finder, 16 matches) of non UTF8 func

Lazarus Find-in-Files found the same.

GetEnvironmentVariable (no suffix UTF8) in lcl. Consider to replace with GetEnvironmentVariableUTF8. Img of found lines https://postimg.org/image/julazv1h7/

I fixed three places, where UTF-8 could be useful.

Mattias

Mattias

Reply by email