F�rum RTTI - Saber se a propriedade � um array de componentes #461391

19/11/2013

Bom Dia

Pessoal trabalho em uma empresa que tem filiais em outros pa�ses e devido a isso tenho que criar uma maneira de traduzir os captions do sistema para a linguagem do pa�s. Como o sistema � antigo e n�o temos como utilizar a op��o multi idiomas do delphi estamos criando uma forma de traduzir os captions em tempo de execu��o utilizando uma tradu��o que est� no banco de dados, para isso estou utilizando RTTI. Por�m estou tendo problemas com os componentes que possuem a propriedade Items.

Nos componentes que possuem essas propriedades eu tamb�m tenho que traduzir.

Nesta listagem entram os componentes como TComboBox, TGroupBox e TPopupMenu.

No TComboBox a propriedade Items � uma StringList (n�o tenho problema), por�m no caso do TPopupMenu a propriedade Items � um array de outro componente (onde tenho problemas). Como posso fazer para saber qual das duas situa��es � utilizando RTTI e como posso fazer para alterar a propriedade caption do item do menu que est� na propriedade Items?

Abaixo segue o c�digo que estou utilizando

procedure TSISFR022.FormCreate(Sender: TObject);
var
  iCont: integer;
  PropInfo: PPropInfo;
  vSqlIdioma: string;
  vItens: TStringList;
  vTraduz: Boolean;
begin
    vSqlIdioma := ''SELECT componente, traducao from tabela where form= ''+QuotedStr(''frmNotafiscal'')+'' and idioma = ''+QuotedStr(''es'');

    if cdsTraduz.State = dsBrowse then
      cdsTraduz.Close;
    cdsTraduz.DataRequest(vSqlIdioma);
    cdsTraduz.Open;
    if cdsTraduz.RecordCount > 0 then
    begin
      //busca do banco
      for iCont := 0 to (ComponentCount -1) do
      begin
        PropInfo := GetPropInfo(Components[iCont].ClassInfo, ''Caption'');
        if PropInfo <> nil then
        begin
          if trim(GetPropValue(Components[iCont], ''Caption'')) <> '''' then
          begin
            if cdsTraduz.Locate(''componente'', Components[iCont].Name,[]) then
               SetPropValue(Components[iCont], ''Caption'', cdsTraduz.FieldByName(''traducao'').AsString);
          end;
        end;

        PropInfo := GetPropInfo(Components[iCont].ClassInfo, ''Items'');
        if (PropInfo <> nil) then
        begin
              vItens := TStringList.Create;
              vItens.Text := TStringList(Pointer(strtoint(GetPropValue(Components[iCont], ''Items'')))).Text;
              vTraduz := False;
              for iTotal := 0 to (vItens.Count - 1) do
              begin
                if cdsTraduz.Locate(''componente'', Components[iCont].Name+''_L''+IntToStr(iTotal+1),[]) then
                begin
                  vItens[iTotal] := cdsTraduz.FieldByName(''traducao'').AsString;
                  vTraduz := True;
                end;
              end;
              if vTraduz then
                TStringList(TObject(Pointer(strtoint(GetPropValue(Components[iCont], ''Items''))))).Text:=vItens.Text;
              FreeAndNil(vItens);
        end;
      end;
      if cdsTraduz.State = dsBrowse then
        cdsTraduz.Close;
    end;
end;

Fernando Vicari

Curtir t�pico

+ 0

Responder

Posts

19/11/2013

Gustavo Bretas

Fernando, no PopUp os Itens est�o na lista dele, ok, mas vc consegue acessar o TMenuItem, e ele entra no primeiro FOR, insira o nome do componente na sua tabela de tradu��o que vai dar certo!

Mas se seu sistema tiver TreeView, complica um pouco! rsrs

Responder

Gostei + 0

19/11/2013

Fernando Vicari

Ol� Bretas

Correta a sua observa��o, por�m o problema � que para o componente TPopupMenu entra no segundo IF e n�o poderia.

Como posso saber quando pode entrar no segundo if e quando n�o? A �nica maneira que eu vi foi procurar por uma propriedade que tem no TPopupMenu (Ex.: MenuAnimation) e se existir n�o entra no segundo if, por�m achei uma "gambiarra" fazer isso.

Sobre o TreeView tamb�m utilizo esse componente. Voc� pode me ajudar a tratar isso nele tamb�m?

Obrigado.

Responder

Gostei + 0

19/11/2013

Gustavo Bretas

Acho at� que foge um pouco do RTTI, mas vc pode colocar um IF verificando a classe dos componentes que vc n�o quer que verifique os ITEMS!

Por exemplo:

  if (not Components[iCont].InheritsFrom(TTPopupMenu)) then
  begin
    PropInfo := GetPropInfo(Components[iCont].ClassInfo, '' Items '');
    if (PropInfo <> nil) then
    begin
      vItens := TStringList.Create;
      vItens.Text := TStringList(Pointer(strtoint(GetPropValue(Components[iCont], '' Items '')))).Text;
      vTraduz := False;
      for iTotal := 0 to (vItens.Count - 1) do
      begin
        if cdsTraduz.Locate('' componente '', Components[iCont].Name + '' _L '' + IntToStr(iTotal + 1), []) then
        begin
          vItens[iTotal] := cdsTraduz.FieldByName('' traducao '').AsString;
          vTraduz := True;
        end;
      end;
      if vTraduz then
        TStringList(TObject(Pointer(strtoint(GetPropValue(Components[iCont], '' Items ''))))).Text := vItens.Text;
      FreeAndNil(vItens);
    end;
  end;

TreeView n�o sei ainda como fazer! :(

Enquanto isso da uma olhada nesse tutorial: [url]http://www.sisulizer.com/translation/vcl/VCL.pdf[/url]

Responder

Gostei + 0