TEdit && TStringGrid Keypress Event

[GAlex]

i've used Lazarus 0.9.6+Freepascal 1.9.8 to develop a small app used to edit csv files for the VegaStrike project (an OpenSource SpaceSimEngine).

it works fine in win32...

BUT when i build this on linux (i use a SuSE 9.2 waiting the 9.3) with the same version of Lazarus+Freepascal, i got problems in the KeyPressEvent.

a keypress of <enter> in either one of the TEdit or the TStringGrid components at runtime does not spawn the relative function.

the two portions of the code are the following:

Code: [Select]

procedure TForm1.EditKeyPress(Sender: TObject; var Key: char);
begin
    if (Key = chr(10)) or (Key = chr(13)) then begin
        csv.Cells[csv.Col, csv.Row] := edit.text;
        csv.setfocus;
    end;
end;
for the TEdit named Edit and

Code: [Select]

procedure TForm1.csvKeyPress(Sender: TObject; var Key: char);
begin
    if (Key = chr(10)) or (Key = chr(13)) then begin
        edit.text := csv.Cells[csv.Col, csv.Row];
        edit.setfocus;
    end;
end;
for the TStringGrid named csv.

again: in win32 it DOES work.

why not in Linux???

need help.

[jesusr]

i've used Lazarus 0.9.6+Freepascal 1.9.8 to develop a small app used to edit csv files for the VegaStrike project (an OpenSource SpaceSimEngine).

it works fine in win32...

BUT when i build this on linux (i use a SuSE 9.2 waiting the 9.3) with the same version of Lazarus+Freepascal, i got problems in the KeyPressEvent.

a keypress of <enter> in either one of the TEdit or the TStringGrid components at runtime does not spawn the relative function.

the two portions of the code are the following:

Code: [Select]

procedure TForm1.EditKeyPress(Sender: TObject; var Key: char);
begin
    if (Key = chr(10)) or (Key = chr(13)) then begin
        csv.Cells[csv.Col, csv.Row] := edit.text;
        csv.setfocus;
    end;
end;
for the TEdit named Edit and

Code: [Select]

procedure TForm1.csvKeyPress(Sender: TObject; var Key: char);
begin
    if (Key = chr(10)) or (Key = chr(13)) then begin
        edit.text := csv.Cells[csv.Col, csv.Row];
        edit.setfocus;
    end;
end;
for the TStringGrid named csv.

again: in win32 it DOES work.

why not in Linux???

need help.

The return key is handled by the editor in KEYDOWN, as result the Key is set to 0, this seems to prevent doing a posterior KEYPRESS for key #13 under linux but not in windows where KEYDOWN->KEYPRESS->KEYUP methods are called always.

Can you please submit a bugreport? so this will serve as a reminder.

[Anonymous]

bug posted. will wait for fix. thanks.

[jesusr]

bug posted. will wait for fix. thanks.

Why don't you use KeyDown instead?

[Marc]

Besides that, I don't think you will get a #10 (or Chr(10)) in a keypress event

[GAlex]

Besides that, I don't think you will get a #10 (or Chr(10)) in a keypress event

i know... but it is only for compatibility issues with (very) old keyboards like mine that generates a #13 on <enter> and a #10 on <keypadenter> (lots of problems having it works correctly).

in fact i'm now using keydown event in my linux build, but it's not so stylistically correct, and again i've developed my app originally in win32, then opened it in linux and... well you know... if one release an application wich should be multi-os and multi-platform it should also compile and run the same way...

thanks again.