[Lazarus] Mantis issue 0015565 - GTK2: Menu with big images

[cobines]

Silvio Clecio escreveu:
> Please, see complete description on this link:
> 
> http://bugs.freepascal.org/view.php?id=15988 (including attached).
> 
> Hm... Is OnKeyPress again ¬¬'

I solved, the 'powerfull' solution:

(...)
procedure TDBEdit.KeyPress(var Key: char);
  function CanAcceptKey: boolean;
  begin
    case Field.DataType of
      ftFloat..ftBCD: Result := Key in ['0'..'9', '+', '-',
DecimalSeparator];
    else
      Result := Field.IsValidChar(Key);
    end;
    Result := Result and (Field.DataType <> ftAutoInc);
  end;
var
  SavedKey: Char;
begin
(...)

-- 
[]'s

Silvio Clécio
--
programmer ObjectPascal - Blog: http://blog.silvioprog.com.br
programmer ObjectPascal - Site: http://www.silvioprog.com.br
programmer ObjectPascal - Twitter: http://twitter.com/silvioprog
--
grupo Lazarus-BR no Google - http://groups.google.com/group/lazarus-br/
--
Mensagem assinada com PGP Public Key, Ver.: GnuPG v1.4.9 (GNU/Linux)