[Alignment on the client side]

1 hora atrás, estrify disse:

Ok, aqui está a mesma ideia que eu anexei antes, mas aplicada a este caso... Espero que isso ajude você...

Sugestão: se você estiver testando, aplique cores aos painéis do seu contêiner para ver os efeitos do redimensionamento.

Atenciosamente

 

TestCase (uma possibilidade 2).zip 3,62 kb · 0 downloads

I understand your idea, separate it into more containers, I will continue my studies, grateful.

[Alignment on the client side]

4 minutos atrás, estrify disse:

Existem várias maneiras de alcançar... Aqui eu anexo outro, usando apenas atributos de layout com RAD...

TestCase (uma possibilidade).zip 3,4 kb · 1 baixar

Look at the second attachment please, maybe you have an idea

[Alignment on the client side]

I forgot a screen of mine, which has a UniSegmentedButton in the center

 

I'm sorry for asking so much.

TestCase.rar

[Alignment on the client side]

3 minutes ago, Sherzod said:

Hello,

Try this approach:

UniContainerPanel1 -> ClientEvents -> ExtEvents ->

function afterrender(sender, eOpts)
{
    sender.insert(2, {xtype: 'component', flex: 1});
}

 

It seems so easy for you
hahahah
tks

[Alignment on the client side]

I'm studying alignment on the client side,

I would like to know how to align within a container,

a button and a label on the left side, and two buttons on the right side.

TestCase.zip

[UniSegmentedButton]

2 minutes ago, artem_niko said:

With case...of?

case Sender.ButtonId of
    
  end;

 

[UniSegmentedButton]

2 minutes ago, artem_niko said:

Há também uma pergunta sobre o tema.
Como processar e descobrir qual botão foi clicado? Preciso executar ações dependendo do botão pressionado.

event = Pressed

[UniSegmentedButton]

1 minute ago, Sherzod said:

Sorry?

I need to add/remove items to a UniSegmentedButton at runtime.

[UniSegmentedButton]

No dia 9/12/2022 às 17:54, picyka disse:

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniListButtom.Items.Add;
  UniListButtom.Items[UniListButtom.Items.Count-1].ButtonId := UniListButtom.Items.Count + 1;
  UniListButtom.Items[UniListButtom.Items.Count-1].ImageIndex := 0;
  UniListButtom.Items[UniListButtom.Items.Count-1].Caption :='teste0';

  UniListButtom.Items.Add;
  UniListButtom.Items[UniListButtom.Items.Count-1].ButtonId := UniListButtom.Items.Count + 1;
  UniListButtom.Items[UniListButtom.Items.Count-1].ImageIndex := 0;
  UniListButtom.Items[UniListButtom.Items.Count-1].Caption :='teste1';
end;

Outro detalhe que a inclusão de itens em tempo de execução não funciona

And how to do the inclusion and exclusion?

[UniSegmentedButton]

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniListButtom.Items.Add;
  UniListButtom.Items[UniListButtom.Items.Count-1].ButtonId := UniListButtom.Items.Count + 1;
  UniListButtom.Items[UniListButtom.Items.Count-1].ImageIndex := 0;
  UniListButtom.Items[UniListButtom.Items.Count-1].Caption :='teste0';

  UniListButtom.Items.Add;
  UniListButtom.Items[UniListButtom.Items.Count-1].ButtonId := UniListButtom.Items.Count + 1;
  UniListButtom.Items[UniListButtom.Items.Count-1].ImageIndex := 0;
  UniListButtom.Items[UniListButtom.Items.Count-1].Caption :='teste1';
end;

Another detail that the inclusion of items at runtime does not work

[UniSegmentedButton]

Is there a way to make a css,

where the buttons have the width according to the caption,

and they must be aligned in the center

TestCase.rar

[UniLabel + Click]

1 minute ago, Sherzod said:

Então, funciona agora?

yes, sorry.

[UniLabel + Click]

I think it's my fault, I must sum the width of the left side panel together.

[UniLabel + Click]

8 minutes ago, Sherzod said:

Do you have a simple testcase to check!?

 

Test.zip

[UniLabel + Click]

1 minute ago, Sherzod said:

Because you are using a client side alignment!?

AlingmentControl = uniAlignmentServer

How should I do?

[UniLabel + Click]

22 minutes ago, Sherzod said:

Hello, 

What is the problem at the moment?

I clicked on the color icon, it doesn't open where I want

 

procedure TMainForm.lbColorLayoutClick(Sender: TObject);
begin
  with TUniFormCorLayout.Create(UniApplication) do
  begin
    var lControllerUsuario := TControllerUsuario.Create(UniMainModule.GetClientApiApp,UniMainModule.UserInfo);
    try
      var lUsuario := lControllerUsuario.Find(UniMainModule.UserActive.Id);
      if UniMainModule.UserActive.MenuSuperior then
      begin
        Left := Self.lbColorLayout.Left + Width;
        Top := Self.lbColorLayout.Top + lbColorLayout.Height + 28;
      end
      else
      begin
        Left := Self.lbColorLayout.Left + Width;
        Top := Self.lbColorLayout.Top + lbColorLayout.Height;
      end;
      ShowForm(lControllerUsuario, lUsuario);
    finally
      Free;
    end;
  end;
end;

Form: Position = poDesigned

[UniLabel + Click]

Is there a possibility to click on a label and get its left and top position?

 

Note:

 

procedure TMainForm.lbColorLayoutClick(Sender: TObject);
begin
  with TUniFormCorLayout.Create(UniApplication) do
  begin
    try
      Left := Self.lbColorLayout.Left + Width;
      Top := Self.lbColorLayout.Top + lbColorLayout.Height + 28;
      ShowModal;
    finally
      Free;      
    end;
  end;
end;

 

[Dashboard Responsive]

Very well, congratulations,

[UniSegmentedButton]

3 horas atrás, picyka disse:

Gostaria de poder colorir o plano de fundo de um evento de

item: código UniFrameReady
:

 

with UniSegmentedButtonOpcoes do
  begin
    JSInterface.JSCall('setTooltip', ['Teste'], Items[0].JSMenuItem);    
    JSInterface.JSCall('setStyle', ['background-color', '"#dc3545"'], Items[0].JSMenuItem);
  end;

 

 

I found the error.

JSInterface.JSCall('setStyle', ['background-color', '#dc3545'], Items[4].JSMenuItem);

delete "".

[UniSegmentedButton]

I would like to be able to color the background of an item

event: UniFrameReady
code:

 

with UniSegmentedButtonOpcoes do
  begin
    JSInterface.JSCall('setTooltip', ['Teste'], Items[0].JSMenuItem);    
    JSInterface.JSCall('setStyle', ['background-color', '"#dc3545"'], Items[0].JSMenuItem);
  end;

 

 

[Occasional access violation while accessing sessions from ServerModule]

5 hours ago, lfgarrido said:

Obrigado novamente por sua contribuição Oliver, mas como mencionei acima, tentamos mesmo  com ou sem s.Lock como a demonstração uniGUI, mas em ambos os casos tivemos o mesmo problema, às vezes obtemos "Não foi possível bloquear sessões" definido como UserString, então acho é algo interno do uniGUI para mostrar que não foi possível bloquear uma sessão por algum motivo, e ainda precisamos saber como consertar, para usar nossa API de licença em produção, lançaremos nosso aplicativo no próximo mês e não podemos lidar com sessões ativas usando corretamente o HyperServer, infelizmente.

 

an ugly alternative would be to record the sessions in the database

[UniCheckComboBox]

4 horas atrás, Sherzod disse:

Uma solução possível eu acho, usando gatilhos:

procedure TMainForm.UniCheckComboBox1TriggerEvent(Sender: TUniCustomComboBox;
  AButtonId: Integer);
var
  I: Integer;
begin
  if AButtonId = 0 then
  begin
    for I := 0 to (Sender as TUniCheckComboBox).Items.Count-1 do
      (Sender as TUniCheckComboBox).Selected[I] := True;

    (Sender as TUniCheckComboBox).JSInterface.JSCall('fireEvent', ['select', (Sender as TUniCheckComboBox).JSControl]);

  end
  else if AButtonId = 1 then
  begin
    (Sender as TUniCheckComboBox).ClearSelection;
  end;

end;

 

Thank you, I will check

[UniCheckComboBox]

Would you like to add an option to select all, or deselect all. Thanks

[IIS Server Variables visibility on url rewrite]

3 minutes ago, Corsol said:

Oi

Estou batendo em um problema simples.

No meu servidor windows 2019 eu configurei o IIS para reescrever url para enviar solicitação do meu aplicativo para o aplicativo unigui de serviço local construído em delfos.

No Url Rewrite config, eu configurei algumas variáveis personalizadas do servidor (como https://learn.microsoft.com/en-us/iis/web-dev-reference/server-variables) que eu quero ler no meu aplicativo, mas eu não sei como lê-lo!

Existe uma maneira de ler variáveis de cabeçalhos personalizados em http request do Server Module ou Main Module ou outro componente?

Obrigado

C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\URLParameters

[Unidbgrid append]

35 minutos atrás, heronim disse:

Isso significa que a Unigrid não foi feita para incluir dados?

As "I" said, I don't like it.
And if you look at web systems,
this is not common.