Aplicativo clx

Question

Ola amigosestou escrevendo um aplicativo em clx, pois minha ideia � migrar todos os sistemas da minha empresa para linux, e estou com uma duvida de como usar as setas para cima e para baixo e o enter ...

Dopi · Answer

Os c�digos de Key na CLX s�o bem diferentes...
Abra o arquivo Qt.pas do diretorio ($Delphi)\Source\clx e procure por key_

Esque�a o uso do Perform... n�o � possivel postar msg Windows na CLX...
para fazer o Enter se comportar como TAB insira o c�digo abaixo no KeyPress do Edit

  if Key = #13 then
  begin
     SelectNext( TWidgetControl( Sender ),true,true) ;
     Key := 0 ;
  end ;

No projeto ACBr criei o componente TACBrEnterTabCLX... basta inseri-lo em algum Form e ajustar a propriedade EnterAsTab para true, que todos os componentes se comportar�o assim...

Uiliangurjon · Answer

eu fiz como vc me falou mas ainda n�o da certo, sempre que teclo enter volta para o primeiro dbedit, mas quando aperto tab vai para a sequencia normal!!!Valeu!!!...

Dopi · Answer

Estranho... deveria funcionar....

Voc� aplicou os Patchs NAO oficiais para a CLX ?
http://unvclx.sourceforge.net/
Sem eles a CLX � impraticavel de tantos Bugs...

Baixe eles aqui:
http://sourceforge.net/project/showfiles.php?group_id=106820&package_id=116130
arquivo: d7clxpatch.zip

Gilbertoscruz · Answer

Voc� poderia usar o seguinte comando para avan�ar de campo usando CLX !

As teclas de atalho para CLX come�am com KEY_ + tecla !
N�o esque�a de adicionar na USES a unit QT para ativar os controle de tecla !

Exemplo:
no onkeydown do form coloque

case Key of
KEY_ENTER, KEY_RETURN: SelectNext(ActiveControl, True, True);
end;

KEY_ENTER, KEY_RETURN = ENTER
KEY_ESCAPE = ESQ

E assim vai !

Espero ter ajudado ! qualquer duvida me envia um e-mail !

falow

Uiliangurjon · Answer

Valeu obrigado!!!!...

Uiliangurjon · Answer

como fa�o para mudar a cor de um listview

usava o seguinte codigo na vcl

procedure TfrmPesquisa.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Odd(Item.Index) then
Listview1.Canvas.Brush.Color := clSilver
else
ListView1.Canvas.Brush.Color := clWhite;
end;

procedure TfrmPesquisa.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if Odd(Item.Index) then
Listview1.Canvas.Brush.Color := clSilver
else
ListView1.Canvas.Brush.Color := clWhite;
end;

F�rum Aplicativo clx #265130