Lazarus и onKeyPress

[swa1]

Данный код не работает совсем.

Совсем, совсем?!!!
В чем же он не работает?!!! Что не так?


попробуйте вместо VK_A..VK_Z поставить 65..90
и "заюзать" LCLProc

[eevee]

Так еще веселее

По поводу LCLProc понятно - для UTF8Delete и UTF8Insert.
Теперь работает код, НО! Если вводить буквы медленно )))) То есть нажатие кнопки - пауза секунду, нажатие еще кнопки. Тогда да - замена происходит. Если вводить быстро, то проскакивают еще и оригинальные буквы ))))))

Вот примерный результат выполнения:

Код: Выделить всё

sadФsdФФФФФdsФsdФsdФsdФФsФФdФФФФФФФФФФФФФФФФФФaФФaФФasФФsФФsФФsФФsФФsФФФФФФ


[wavebvg]

Может быть это и прописная истина, но...
До меня наконец-то же дошло, что не так в TUTF8Char: там нулевой байт, заполнен кодом нажатой клавиши, а не размером string[7], т.е. там не 7, а хрень какая-то...
В смысле, это не нормально как-то

[eevee]

Решил проблему, но не совсем... Помогите пожалуйста, голова не варит что то...

Код: Выделить всё

procedure TMainForm.MemoUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
var
  pos: TPoint;
  key_press: integer;
  str: string;
begin
  pos.X:=Memo.CaretPos.X;
  pos.Y:=Memo.CaretPos.Y;
  key_press := ord(Utf8ToAnsi(UTF8Key)[1]);

  if (key_press in [163,179,192..255]) then
  begin
    UTF8Key := '';
  end;

  if UTF8Key = '' then
  begin
    str := Memo.Lines[pos.Y];
    Insert(AnsiToUtf8(chr(key_press)),str,pos.X);
    Memo.Lines[pos.Y] := str;
    pos.X := pos.X + 1;
    Memo.CaretPos := pos;
  end;
end;                     


По идее курсор должен встать после вставляемого символа, но что то не так... Вставляется как угодно, только не так, как надо

[Brainenjii]

Код: Выделить всё

Procedure TForm1.Memo1UTF8KeyPress(Sender: TObject; Var UTF8Key: TUTF8Char);
Begin
  UTF8Key := #0;
  Memo1.Text := Memo1.Text + 'ф';
end;

Не совсем понял что было нужно... Но в линуксе сработало ^_^

[eevee]

Brainenjii, надо было заменять символ при вводе на какой нибудь другой. Твой вариант добавляет только в конец, а я могу и в середину текста вставить символ

Проблему я решил, универсальность правда не делал, не нужно мне пока это

Была задача: Все вводимые символы должны быть заглавными независимо от того, нажата кнопка Shift, Caps Lock и тд и тп. Также при вводе русских букв ( ёЁ , ъЪ ), заменять их на ( Е , Ь ). Ограничение на длину строки должно быть 69 символов.

Вот мое решение, может кому поможет
Да, там есть переменная telegraf, которая принимает значения true и false по нажатию кнопки, т.е. если telegraf = true, то вводим символы согласно условия, если false - то как есть.

Код: Выделить всё

procedure TMainForm.MemoUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
var
  pos: TPoint;
  key_press: integer;
  key_res: TUTF8Char;
  str: string;
begin
  pos.X:=Memo.CaretPos.X;
  pos.Y:=Memo.CaretPos.Y;
  if pos.X < 68 then
  begin
    if telegraf then
    begin
      key_press := ord(Utf8ToAnsi(UTF8Key)[1]);
      if (key_press in [97..122]) then
      begin
        UTF8Key[1] := chr(key_press-32);
      end
      else
      begin
        case key_press of
          163: begin
                 key_res := 'Е';
                 UTF8Key := '';
               end;
          179: begin
                 key_res := 'Е';
                 UTF8Key := '';
               end;
          192: begin
                 key_res := 'Ю';
                 UTF8Key := '';
               end;
          193: begin
                 key_res := 'А';
                 UTF8Key := '';
               end;
          194: begin
                 key_res := 'Б';
                 UTF8Key := '';
               end;
          195: begin
                 key_res := 'Ц';
                 UTF8Key := '';
               end;
          196: begin
                 key_res := 'Д';
                 UTF8Key := '';
               end;
          197: begin
                 key_res := 'Е';
                 UTF8Key := '';
               end;
          198: begin
                 key_res := 'Ф';
                 UTF8Key := '';
               end;
          199: begin
                 key_res := 'Г';
                 UTF8Key := '';
               end;
          200: begin
                 key_res := 'Х';
                 UTF8Key := '';
               end;
          201: begin
                 key_res := 'И';
                 UTF8Key := '';
               end;
          202: begin
                 key_res := 'Й';
                 UTF8Key := '';
               end;
          203: begin
                 key_res := 'К';
                 UTF8Key := '';
               end;
          204: begin
                 key_res := 'Л';
                 UTF8Key := '';
               end;
          205: begin
                 key_res := 'М';
                 UTF8Key := '';
               end;
          206: begin
                 key_res := 'Н';
                 UTF8Key := '';
               end;
          207: begin
                 key_res := 'О';
                 UTF8Key := '';
               end;
          208: begin
                 key_res := 'П';
                 UTF8Key := '';
               end;
          209: begin
                 key_res := 'Я';
                 UTF8Key := '';
               end;
          210: begin
                 key_res := 'Р';
                 UTF8Key := '';
               end;
          211: begin
                 key_res := 'С';
                 UTF8Key := '';
               end;
          212: begin
                 key_res := 'Т';
                 UTF8Key := '';
               end;
          213: begin
                 key_res := 'У';
                 UTF8Key := '';
               end;
          214: begin
                 key_res := 'Ж';
                 UTF8Key := '';
               end;
          215: begin
                 key_res := 'В';
                 UTF8Key := '';
               end;
          216: begin
                 key_res := 'Ь';
                 UTF8Key := '';
               end;
          217: begin
                 key_res := 'Ы';
                 UTF8Key := '';
               end;
          218: begin
                 key_res := 'З';
                 UTF8Key := '';
               end;
          219: begin
                 key_res := 'Ш';
                 UTF8Key := '';
               end;
          220: begin
                 key_res := 'Э';
                 UTF8Key := '';
               end;
          221: begin
                 key_res := 'Щ';
                 UTF8Key := '';
               end;
          222: begin
                 key_res := 'Ч';
                 UTF8Key := '';
               end;
          223: begin
                 key_res := 'Ь';
                 UTF8Key := '';
               end;
          255: begin
                 key_res := 'Ь';
                 UTF8Key := '';
               end;
        end;
      end;
    end;
    if UTF8Key = '' then
    begin
      str := Memo.Lines[pos.Y];
      UTF8Insert(key_res,str,pos.X+1);
      Memo.Lines[pos.Y] := str;
      pos.X := pos.X + 1;
      Memo.CaretPos := pos;
    end;
  end
  else
  begin
    if (ord(Utf8ToAnsi(UTF8Key)[1]) <> 13) and (ord(Utf8ToAnsi(UTF8Key)[1]) <> 8) then
      UTF8Key := '';
  end;
end;


P.S. OS Gentoo Linux; locale KOI8-R

[swa1]

Тогда да - замена происходит. Если вводить быстро, то проскакивают еще и оригинальные буквы ))))))

Ну тут все проще. Я же писал про очередность событий. Так вот , если клавишу нажать и удерживать или одновременно нажать вторую клавишу не отпустив первую (т.е. KeyUp еще не отработало, а опять вывели символ) , то так и будет. Для этого в события KeyPress и KeyDown нужно добавить обработку.
О... что то похоже на РТА

[Padre_Mortius]

Может стоило функцией UpperCase или UTF8UpperCase воспользоваться?

[eevee]

Может быть... Пока не пробовал еще

[kosteek]

Ребята простите может я не правильно понял, но у меня вот так все работает

Код: Выделить всё

procedure TForm1.Memo1UTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
begin
  if UTF8Key=SysToUTF8('Ф') then memo1.text:=memo1.text+' '+UTF8ToSys(UTF8Key);
end;

В коде буква "Ф" большая, и процедура обрабатывается именно при нажатии шифта и буквы "ф".

[eevee]

kosteek, имелось в виду не отслеживание нажатия, а замена нажатой русской буквы на другую русскую. Отследить нажатие можно и по коду клавиши

[Yurakl]

а если дело обстоит в линуксе в консольной программе, которая выполняется в цикле.
и мне надо среагировать на нажатую комбинацию клавиш. если она нажата, то произвести действие, если она не нажата, то продолжить цикл программы