Também é possível acessar a documentação em Inglês (EN-US), bem como visualizar os últimos changelog.

Este material foi elaborado com o apoio de Inteligência Artificial, tendo como base exclusivamente a documentação oficial do uniGUI, preservando a estrutura, os conceitos e o conteúdo técnico original.

📘 A documentação em português pode ser acessada em:
👉 https://unigui-doc.falconsistemas.com.br/

Feedbacks, sugestões de melhoria e correções são muito bem-vindos para evoluirmos esse material em conjunto com a comunidade.

Na minha tela tenho um unidbgrid com os eventos: OnCellClick, OnDblClick, OnFieldImage e OnSetCellValue.
Em OnDblClick eu chamo um procedimento que cria um UniTabShet em um UniPageControl.

procedure TFormConsultaContasReceberVencidas2.UniDBGrid1DblClick(
  Sender: TObject);
begin
  inherited;
  if uniDBGrid1.CurrCol = uniDBGrid1.Columns.Items[0].Index then begin
    if not qryTotalizado.IsEmpty then begin
      isFechaAba := True;
      criarAba(TFormCadastroCliente2, 'Cadastro de Clientes', 'CLIEA13ID = ' + QuotedStr(qryTotalizadoCLIEA13ID.AsString), EmptyStr);
    end;
  end;
  if uniDBGrid1.CurrCol = uniDBGrid1.Columns.Items[5].Index then begin
    DSMasterSys := dsTotalizado;
    criarAba(TFormCadastroClienteHistorico2, 'Cadastro Cliente Histórico', 'CLIEA13ID = ' + QuotedStr(qryTotalizadoCLIEA13ID.AsString), 'Cliente ' + qryTotalizadoCLIEA60RAZAOSOC.AsString)
  end;
end;

procedure criarAba(frame: TUniFrameClass; tituloTab, filtro, titulo: String);
var
  tab: TUniTabSheet;
  FCurrentFrame: TUniFrame;
  qryTemplate: TFDQuery;
  tabName: String;
begin
  try
    tab := getAba(frame, FormPrincipal.upcPrincipal);
    if tab <> nil then
    begin
      if frame = TFormCadastroCliente2 then
      begin
        if isFechaAba then
        begin
          isFechaAba := False;
          tab.Close;
        end
        else
        begin
          FormPrincipal.upcPrincipal.ActivePage := tab;
          Exit;
        end;
      end
      else
      begin
        FormPrincipal.upcPrincipal.ActivePage := tab;
        Exit;
      end;
    end;

    FormPrincipal.ShowMask('Aguarde...');
    UniSession.Synchronize();

    tab := TUniTabSheet.Create(FormPrincipal.upcPrincipal);

    if frame.ClassName.Contains('TFrmCadastro') then
      tabName := StringReplace(frame.ClassName, 'TFrmCadastro', 'tab', [rfReplaceAll, rfIgnoreCase])
    else if frame.ClassName.Contains('TFrame') then
      tabName := StringReplace(frame.ClassName, 'TFrame', 'tab', [rfReplaceAll, rfIgnoreCase])
    else if frame.ClassName.Contains('TFrm') then
      tabName := StringReplace(frame.ClassName, 'TFrm', 'tab', [rfReplaceAll, rfIgnoreCase])
    else
      tabName := 'tab' + frame.ClassName;

    tab.Name := tabName;
    tab.caption := tituloTab;
    tab.PageControl := FormPrincipal.upcPrincipal;
    tab.OnClose := FormPrincipal.TabClose;
    tab.Closable := True;

    FCurrentFrame := TUniFrameClass(frame).Create(tab);

    if not Trim(titulo).IsEmpty then begin
      if Trim(FCurrentFrame.Hint).IsEmpty then
        FCurrentFrame.Hint := titulo
      else
        FCurrentFrame.Hint := titulo + ' - ' + FCurrentFrame.Hint;
    end;

    if FCurrentFrame.FindComponent('lblTitulo') <> nil then
      (FCurrentFrame.FindComponent('lblTitulo') as TUniLabel).caption := FCurrentFrame.Hint;
    qryTemplate := (FCurrentFrame.FindComponent('qryTemplate') as TFDQuery);

    if qryTemplate <> nil then begin
      if filtro.IsEmpty then
        qryTemplate.MacroByName('filtro').Value := qryTemplate.Fields.Fields[0].FieldName + ' IS NULL'
      else
       qryTemplate.MacroByName('filtro').Value := filtro;
       qryTemplate.Open();
    end;

    FCurrentFrame.Align := alClient;
    FCurrentFrame.Parent := tab;
    FormPrincipal.pnlEsquerdo.Width := 210;
    FormPrincipal.upcPrincipal.ActivePage := tab;
  finally
    FormPrincipal.HideMask;
  end;
end;

https://ibb.co/KwBwMhb

Obs: Nem sempre o erro acontece, acontece de vez em quando!

Se alguém souber o motivo e puder me ajudar a ficarei grato.

Desde já agradeço

alguém já passou por isso poderia me dar uma ajuda? Ou alguém que usa fastreports poderia testar colocando um qrcode no relatório apenas para teste. assim

eu descubro se é um erro geral entre UNIGUI E QRCODE NO FASTREPORTS ou um erro que está acontecendo só na minha maquina!

Obrigado a todos!

Luiz Carlos

imagem 1

imagem 2

quem quizer participar favor deixar o numero (com ddd)

vamos compartilhar nossas experiencias, e fazer com que essa incrível ferramenta seja muito mais usada aqui no brasil.

Como que eu faço para saber qual form está ativo no momento para poder fecha-lo e assim abrir outro?

Obrigado!

Lançamanto dia 18 de Novembro

Parte #1

Parte #2
https://youtu.be/I5EgATuZDag

Parte #3
https://youtu.be/r4PUqUfxPLU

Em breve mais videos...

Preciso desativar o botão voltar do navegador para o meu sistema em unigui/desktop. Alguém já passou por isso?

UniPDFFrame1.JSInterface.JSCode('if ('#1'.iframe&&'#1'.iframe.contentDocument.getElementById("pageNumber")){alert('#1'.iframe.contentDocument.getElementById("pageNumber").value)};');

detalhe não tem leaks aparentes, funciona normal na minha maquina de trabalho, etc. muito estranho...

Visitei outro topico aqui em que recomendavam verificar como era feito na Demo disponível na pasta "C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\GridColumnSort" porém neste exemplo é usado o componente TClientDataSet (uma query pelo que entendi) e utilizo em minhas aplicações a paleta Unidac (TUniQuery).

Na Demo é feita a ordenação usando property's e procedure's que não consegui encontrar, nem as mesmas nem equivalentes, na TUniQuery, tão quanto na documentação (não sei se só não soube procurar ou se realmente não tem nada sobre isso lá).

Alguém que já tenha passado por isso, ou que tenha interesse no assunto, pode me ajudar?

Desde já agradeço.

Sds.

Estamos precisando contratar o programador Delphi com conheçam bem o UNIGUI para um projeto que estamos iniciando.

Interessados me chamem em:

darlan@radiopro.com.br

 Tfunc = record
      codigo : integer;
      nome : string[100];
      empresa : integer;
      filial  : integer;
      plantao : Integer;
      Plantonista: integer;
      dizimista    : integer;
      adm     : string[1];
      nomeusu : string[30]
  end;

var

  Func : TFunc

quando uso as variaveis nome, por exemplo func.nome quando loga em um computador

e depois loga de novo no outro computador com outro usuario

na tela de login ele armazena o nome do usuario.

ai vou utilizar estas variaveis em outro form, ele fica com o usuario que entrou por ultimo, ou seja para cada sessao que ele abriu ele nao

tem sua variavel indepente?

como posso fazer isso?

exemplo do código:

procedure TfrmTelaSenhaPainel.Fala(Frase:string);
begin
  tthread.CreateAnonymousThread(procedure
  var SpVoice:variant;
  begin
    SpVoice         := CreateOleObject('SAPI.SpVoice');
    Spvoice.Rate    := 1;
    Spvoice.Volume  := 100;
    SpVoice.Speak(Frase,0);
  end).Start
end;
 

function CountPermutations02(str: string; r: Integer): Int64;

  function Factorial(n: Integer): Int64;
  var
    I: Integer;
  begin
    Result := 1;
    for I := 2 to n do
      Result := Result * I;
  end;

  function Combination(n, r: Integer): Int64;
  begin
    Result := Factorial(n) div (Factorial(r) * Factorial(n - r));
  end;
var
  I: Integer;
  count: array of Integer;
  n: Int64;
begin
  SetLength(count, 256);
  for I := 1 to Length(str) do
    Inc(count[Ord(str[I])]);
  n := 1;
  for I := 0 to 255 do
    if count[I] <> 0 then
      n := n * Factorial(count[I]);
  Result := Combination(Length(str), r) * Factorial(r) div n;
end;

Tenho Unigui licenciado e aplicação hospedada em servidor remoto com IIS.
Estou com um problema de aplicação caindo varias vezes,
geralmente em momentos em que aumenta o numero de usuários.
Configurei TimeOut para meia hora, porém em dados momentos
a aplicação cai no cliente e reseta para o login.
Gostaria de saber se alguém tem o mesmo problema, 
e/ou dicas para solucionar o problema.