[Bug na versão "Unigui - 1.00.00.1479"]

Qual seria a solução para resolver isso? Não posso correr o risco de perder toda estrutura criada com a versão anterior, se não é compatível deveria ser informado .

 

Att. Luciano Benito

[Bug na versão "Unigui - 1.00.00.1479"]

Pessoal, consegui resolver, voltei a versão. Não indico upgrade para a versão 1.50.0.1479, está cheio de Bug.

 

 

[Minha aplicação aparece apenas Loading]

Boa tarde,

   creio que você esqueceu de instalar o "FMSoft_uniGUI_Complete_runtime_versão".

 

Att. Luciano Benito

[Communication with external REST]

Boa tarde,

   é possivel fazer isso com o RestClient + TTimer, você pode implementar no Unigui.

Dá uma olhada no (REST Demo do Delphi).

http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/REST.RESTDemo_Sample

 

Att. Luciano Benito

[Bug na versão "Unigui - 1.00.00.1479"]

Ola Nelson,

   talvez você não tenha percebido ou o problema está aqui, se puder conferir o tamanho do botão se está de acordo com o CSS?

Veja abaixo nas imagens a diferença e o que acontece comigo entre as versões.

 

Observação: Não foi alterado nada no código fonte.

 

versão Unigui - 1.00.00.1425 

 

versão Unigui - 1.00.00.1479. 

 

Inclusive o UniEvents também está com problema, veja que não aparece as bordas em vermelho.

 

UniEvents>beforeinit>function>beforeInit>

 

(sender, config)

{

  sender.inputCls='UniEditTotalParcialPedido';

}

 

Att. Luciano Benito

[Bug na versão "Unigui - 1.00.00.1479"]

Bom dia a todos,

   estou com um problema após atualização da versão Unigui - 1.00.00.1425 para a versão Unigui - 1.00.00.1479. Atualmente utilizo a versão Professional. Meu problema é o seguinte:

 

Utilizo o UniLabel para criar botão personalizado no css, até a versão Unigui - 1.00.00.1425 estava tudo ok. Abaixo um trecho do código.

 

css

 

.personal_carrinho_azul

{

  width: 130;

  height: 35;

  background-color: #003E60;

  border-style: none none groove none;

  box-shadow: 0px 1px 3px #003E60;

  border: 1px solid #003E60;

  color: white;

  text-align: center;

  text-decoration: none;

  display: inline-block;

  font-size: 12px;

  font-family:Source Sans Pro;

  color:#ffffff;

  margin: 2px 2px;

  cursor: pointer;  

}

 

Object Inspector

 

UniLabelBotaoAzul TUniLabel

caption := '<button type="button" class="personal_carrinho_azul">Adicionar iten(s) carrinho</button> ';

TextConversion := 'txtHTML';

 

Att. Luciano Benito

 

 

 

 

 

[Mascara no Edit Mobile]

Boa tarde Pessoal, 

   veja se ajuda,

 

var

  FormatarTelefone: string;

 

  if (UniDBEditTelefoneRefComercial.Text <> '') then

  begin

    if Length(SomenteNumero(UniDBEditTelefoneRefComercial.Text)) = 10 then

    begin

      FormatarTelefone:= '(' + Copy(UniDBEditTelefoneRefComercial.Text, 1,2)

      + ')' + Copy(UniDBEditTelefoneRefComercial.Text, 3,4)

      +'-' + Copy(UniDBEditTelefoneRefComercial.Text, 7,4);

    end

    else

    begin

      if Length(SomenteNumero(UniDBEditTelefoneRefComercial.Text)) = 11 then

      begin

        FormatarTelefone:= '(' + Copy(UniDBEditTelefoneRefComercial.Text, 1,2)

        + ')' + Copy(UniDBEditTelefoneRefComercial.Text, 3,5)

        +'-' + Copy(UniDBEditTelefoneRefComercial.Text, 8,4);

      end

      else

      begin

        ShowMessage('Este Campo é para telefone Celular com "nono dígito" ou telefone fixo, Ex: 41988888888 ou 4133333333');

        UniDBEditTelefoneRefComercial.Clear;

        UniDBEditTelefoneRefComercial.SetFocus;

        Abort;

      end;

    end;

    UniDBEditTelefoneRefComercial.Text:= FormatarTelefone;

  end;

 

Att. Luciano Benito

[Chamar um programa Unigui a partir de um segundo programa unigui já em execução.]

Boa tarde Flavio,

   veja se é isso que precisa.

  UniSession.AddJS('location.href=''https://www.segundoprograma.com.br/segundoprograma.dll');

 

Att. Luciano Benito

[Mudar a cor da fonte de um botão no CSS]

Bom dia rfsilvasp,
   além do CSS você precisa apontar no JavaScript, veja o link abaixo.

 

https://drive.google.com/open?id=1rz1Va1JxTieBtZ9tTL5Lo2MYmG8v3iEF

 

Você também pode criar um botão HTML com "UniLabel", abaixo um formato simples mas você pode explorar melhor o html.

 

Object Inspector

Caption: = <button type="button" class="btn btn-warning btn-lg">Botão Teste</button> 

TextConversion:= txtHTML

 

Att. Luciano

[input type="text"]

Ok, não meu caso, o e-mail anexado ao licenciamento e do gerente de TI aqui da empresa, como eu faço neste caso?

[input type="text"]

Hi, FMSoft_uniGUI_Complete_Professional_1.0.0.1412.

[input type="text"]

Hi,

   build 1.0.0.1412.

[input type="text"]

Boa tarde a todos,

   como faço para receber o valor digitado em um campo type="text"? 

Tenho um Ajaxevent = PesquisaProduto  onde preciso receber o valor digitado para para implementar um select.

 

Tenho um exemplo abaixo do que preciso, agradeço a quem puder me ajudar.

 

 UniHTMLFrame.HTML.Add('<input type="text" id="txtBusca" name="pesquisaproduto" placeholder="O que você está procurando?" />');

 UniHTMLFrame.HTML.Add('<button id="btnBusca" onclick="ajaxRequest(MainForm.form , ''PesquisaProduto'',[]);">Buscar</button>');

 

 

Att. Luciano Benito

[Mudar a cor da fonte de um botão no CSS]

Boa tarde,

   rfssilvasp, veja se ajuda. Abraços.

 

.CorPadraoBotao{

    width:120px;

    height:30px;

    background: #FFCC33; /* amarelo */

    border: 5px solid #00537C; /* borda branca em volta */

    margin: auto; /* centraliza com bordas automáticas nas laterais */

    text-align: center; /* centraliza o texto */

    padding: 6px 0px 6px 0px; /* espaços top right bottom left */

    font-family: Source Sans Pro; /* fonte */

    font-size: 16px;  /* tamanho da fonte */

    color: #4D4D4F; /* cor fonte */ 

}

[Edit UniDBGrid cell]

 

Good afternoon,

Object Inspector

   UniDBGrid> Collumns

Select Cell

 

   Selected Cell

 

        Object Inspector

  Cell> ReadOnly = false

 

Luciano Benito

Boa tarde,

Inspetor de Objetos

   UniDBGrid> Collumns

Selecione Cell

 

   Célula selecionada

 

        Inspetor de Objetos

  Cell> ReadOnly = false

 

Luciano Benito

[UniDBgrid with SMExportToExcel]

Hello, to export I use the following function.

 

procedure GerarExcel(Consulta:TPgQuery);

 

 

Procedure TMainForm.GerarExcel(Consulta:TPgQuery);

var

  coluna, linha: integer;

  excel: variant;

  valor: string;

  ArquivoDownload: string;

begin

  Application.ProcessMessages;

  DM.qryTemp1.Close;

  DM.qryTemp1.SQL.Clear;

  DM.qryTemp1.SQL.Add('select field1 as NameField1, field2 as NameField2');

  DM.qryTemp1.SQL.Add('from   NameTable');

  DM.qryTemp1.SQL.Add('where (Field1 = :p_Field1)');

  DM.qryTemp1.ParamByName('p_Field1').AsInteger := NameParameter;

  DM.qryTemp1.Open;

  if (not DM.qryTemp1.IsEmpty) then

  begin

    try

      excel := CreateOleObject('Excel.Application');

      excel.Workbooks.add(1);

    except

      Application.MessageBox('Excel Not installed or corrupted, Tell the support!!!', 'attention', MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_SYSTEMMODAL);

      Abort;

    end;

 

    Consulta.First;

    try

      for linha := 0 to Consulta.RecordCount-1 do

      begin

        for coluna := 1 to Consulta.FieldCount do 

        begin

          valor:= Consulta.Fields[coluna-1].AsString;

          excel.cells [linha + 2, coluna] := valor;

        end;

        Consulta.Next;

      end;

 

      for coluna := 1 to Consulta.FieldCount do 

      begin

        valor := Consulta.Fields[coluna - 1].DisplayLabel;

        excel.cells[1,coluna] := valor;

      end;

 

      excel.columns.AutoFit; 

      excel.rows.AutoFit; 

 

      ArquivoDownload := ExtractFilePath(UniServerModule.LocalCachePath) + 'Metadados_' + 'hs' + FormatDateTime('HHMMSS',Now) + '.xls';

      Excel.WorkBooks[1].Sheets[1].SaveAs(ArquivoDownload);///Salvar em Cache

 

      UniSession.SendFile(ArquivoDownload);///Fazer o download  do arquivo

//      excel.visible := True;///Abrir o Excel

    except

      Application.MessageBox('Failed to Generate Metadata, Tell Technical Support !!!', 'attention', MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_SYSTEMMODAL);

      Abort;

    end;

  end;

end;

 

I hope I have collaborated

[Main Form]

Boa tarde a todos,

   estou com dificuldades na propriedade VertScrollBar e BorderStyle do Main Form, alguém pode me ajudar a solucionar este problema?

Preciso criar um Main Form com barra de rolagem e sem bordas, isso é possível com o UniGUI?

 

Att. Luciano Benito

 

[Erro na Publicação ISAPI IIS 8]

Bom dia, isso parece problema de incompatibilidade da versão do UniGui, você precisa instalar a mesma versão do UniGui no servidor, se for o caso precisa também setar a versão no Server Module,veja abaixo.

 

procedure TUniServerModule.UniGUIServerModuleBeforeInit(Sender: TObject);

begin

    Self.ExtRoot:='ext-4.2.5.1763'; \\C:\Program Files (x86)\FMSoft\Framework\uniGUI\"Name Folder"

    Self.UniRoot:='uni-0.99.95.1296'; \\C:\Program Files (x86)\FMSoft\Framework\uniGUI\"Name Folder"

    Self.Port:=8077;

    Self.SessionTimeout:=540000;

    Self.Title :='Title Name';

end;

 

Att. Luciano Benito

[Only "loading ..." in the browser. What is wrong?]

Hello PsBorges, I went through this problem and decided that way.

 

procedure TUniServerModule.UniGUIServerModuleBeforeInit(Sender: TObject);

begin

    Self.ExtRoot:='ext-4.2.5.1763'; \\C:\Program Files (x86)\FMSoft\Framework\uniGUI\"Name Folder"

    Self.UniRoot:='uni-0.99.95.1296'; \\C:\Program Files (x86)\FMSoft\Framework\uniGUI\"Name Folder"

    Self.Port:=8077;

    Self.SessionTimeout:=540000;

    Self.Title :='Title Name';

end;

[aplicações com HTTPS]

Nirlan, confesso a você que eu testei pelo nome do DOMINIO e com DLL e funcionou perfeitamente, não testei pelo IP do servidor e com arquivo EXE.

[aplicações com HTTPS]

Bom dia Nirlan, Estou utilizando o certificado 'COMODO "na Minha Aplicação HTTPS, Funciona 100%. Utilizo IIS 7 na plataforma Windows Server 2008, inclusive voce pode fazer a solicitação do certificado e utilizar gratuitamente POR 90 dias. Qualquer duvida estou a disposição.