Advertisement
Guest User

Untitled

a guest
Jul 29th, 2017
47
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.43 KB | None | 0 0
  1.       QEventInputMethod:
  2.         begin
  3.           // This is very ugly i believe... trx 2011-03-01
  4.           if LCLObject is TCustomControl then
  5.             begin
  6.               QInputMethodEvent_commitString(QInputMethodEventH(Event), @txs);
  7.               WriteLn(Sender.ClassName);
  8.               FKE := QKeyEvent_Create(QEventKeyPress,0,QtNoModifier,@txs);
  9.               Result := SlotKey(Sender, FKE);
  10.             end;
  11.         end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement