AnsiUpperCase com acentos

[Beto_Souza]

Olá pessoal,

No Lazarus, no evento OnKeyPress de um form coloquei o seguinte comando:

Key := AnsiUpperCase(Key)[1];

Porém quando uso acento ou "ç" a letra não retorna maiúscula como acontece no delphi:

Alguém já passou por isso? Help!

[Daniel Simoes]

Tente apenas "UpperCase".. afinal o Lazarus não usa ANSI, mas sim UTF8

[bylaardt]

Outra opção é setar ecUpercase na propriedade Charcase de qualquer objeto derivado de TCustomEdit

[Beto_Souza]

tentei usando o "UpperCase" e continuou do mesmo jeito, não retorna os caracteres maiúsculos.

[Daniel Simoes]

Tente

UTF8UpperCase da unit LazUTF8

[bylaardt]

porque utf8 não é apenas 8bits (note que você usa [1] para limitar ao primeiro byte).
não use OnKeyPress, caso queira colocar no evento apropriado, coloque em OnUTF8KeyPress e não limite à um byte a alteração com Uppercase
Mas ainda acredito que apenas setar corretamente  a propriedade Charcase deve resolver no seu caso.

[Beto_Souza]

Daniel Simoes, já tentei também, mas dá erro de conversão, usei também o UTF8UpperString e também retorna os caracteres minúsculos  bylaardt  infelizmente o TForm não tem o evento OnUTF8KeyPress e nem a propriedade CharCase, não quero me limitar apenas ao componente TEdit. Enfim vou procurar uma forma, obrigado!

[Daniel Simoes]

Aqui parece funcionar...

 

UpperCase.zip

[bylaardt]

procedure SetControlUpperCase(MyComponent:TWinControl);
Var
  i:Integer;
begin
  if MyComponent is TCustomComboBox then
    TCustomComboBox(MyComponent).CharCase:=ecUppercase
  else if MyComponent is TCustomEdit then
    TCustomEdit(MyComponent).CharCase:=ecUppercase;
  for i:=0 to MyComponent.ControlCount-1 do
    if MyComponent.Controls[i] is TWinControl then
      SetControlUpperCase(TWinControl(MyComponent.Controls[i]));
end;

depois é só chamar a procedure uma vez, exemplo:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetControlUpperCase(Self);
end;  

com a vantagem de poder controlar por Tform, por Tpanel, ou qualquer outro TWinControl ou seus descendentes