[UniServerModule.GetSession - new powerfull feature]

At what time do I run the query

[UniServerModule.GetSession - new powerfull feature]

3 minutes ago, picyka said:

Unidac.

Is this example complete?

[UniServerModule.GetSession - new powerfull feature]

On 4/26/2020 at 6:38 PM, Tokay said:

I was constantly missing feature of find defined session. It very important in some cases. I show you idea (if I understand all properly):

unit Main;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics,
 Controls, Forms, Uni, uniGUITypes, uniGUIAbstractClasses,
 uniGUIClasses, uniGUIRegClasses, uniGUIForm;

//this case shows how to run a long query without stopping the interface
//additional thread for query
type
 THelpThread = class(TThread)
 private
  FQuery:       TUniQuery;
  FSessionName: string;
 protected
  procedure Execute; override;
 public
  property Query: TUniQuery Read FQuery Write FQuery;
  property SessionName: string Read FSessionName Write FSessionName;
 end;

type
 TMainForm = class(TUniForm)
  UniQuery1:      TUniQuery;
  UniDataSource1: TUniDataSource;
  UniDBGrid1:     TUniDBGrid;
 private
  FThread: THelpThread;
  procedure Thread1Finish(Sender: TObject);
  procedure StartCalcThread(const s: string);
  procedure AssignDataSet;
  { Private declarations }
 public
  { Public declarations }
 end;

function MainForm: TMainForm;

implementation

{$R *.dfm}

uses
 uniGUIVars, MainModule, uniGUIApplication;

function MainForm: TMainForm;
begin
 Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;

procedure TMainForm.StartCalcThread(const s: string);
begin
 //startin of query thread
 if not Assigned(FThread) then
 begin
  //the query
  UniQuery1.SQL.Clear;
  UniQuery1.SQL.Add('select MAPS.MAPS_SOURCE,');
  UniQuery1.SQL.Add(s);
  UniQuery1.SQL.Add('from MAPS');
  UniQuery1.SQL.Add('group by MAPS_SOURCE');
  UniQuery1.SQL.Add('union');
  UniQuery1.SQL.Add('select "all",');
  UniQuery1.SQL.Add(s);
  UniQuery1.SQL.Add('from MAPS');
  //off the grid DataSource
  UniDBGrid1.DataSource := nil;
  FThread := THelpThread.Create(True);
  FThread.Query := UniQuery1;
  FThread.OnTerminate := Thread1Finish;
  FThread.FreeOnTerminate := True;
  //store the session ID {!!!!}
  FThread.SessionName := UniSession.SessionId;
  //start querying
  FThread.Start;
 end;
end;

procedure TMainForm.Thread1Finish(Sender: TObject);
begin
 //sync assigned of dataset with the grid
 TThread.Synchronize(nil, AssignDataSet);
 FThread := nil;
end;

procedure TMainForm.AssignDataSet;
var
 Session: TUniGUISession;
 lMainModule: TUniMainModule;
begin
 //find session by ID {!!!!}
 Session := UniServerModule.GetSession(FThread.SessionName);
 //get defined MainModule of session
 lMainModule := TUniMainModule(Session.UniApplication.UniMainModule);
 //get defined MainForm of session
 with TMainForm(lMainModule.GetFormInstance(TMainForm)) do
 //assigne dataset and DataSource with grid
  UniDBGrid1.DataSource := UniDataSource1;
end;

initialization
 RegisterAppFormClass(TMainForm);

end.

 

I tried to simulate your example here, but I didn't find this TUniQuery component

[How do I make a Panel invisible by clicking a button on the client side]

16 minutes ago, gerardocrisci said:

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniButton1.JSInterface.JSAddListener(
     'click', 
     'function(){'+ 
        UniPanel1.JSName +'.setVisible(!'+ UniPanel1.JSName +'.isVisible())'+
     '}'
  );
end;

i think you want to create a switch between visible and invisible

Thank you very much!!

[How do I make a Panel invisible by clicking a button on the client side]

11 minutes ago, gerardocrisci said:

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniButton1.JSInterface.JSAddListener(
     'click', 
     'function(){'+ 
        UniPanel1.JSName +'.setVisible(!'+ UniPanel1.JSName +'.isVisible())'+
     '}'
  );
end;

i think you want to create a switch between visible and invisible

That's right

[How do I make a Panel invisible by clicking a button on the client side]

and to make it visible?

[How do I make a Panel invisible by clicking a button on the client side]

1 hour ago, Sherzod said:

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniButton1.JSInterface.JSAddListener('click', 'function(){'+ UniPanel1.JSName +'.hide()}');
end;

 

and to make it visible?

[How do I make a Panel invisible by clicking a button on the client side]

16 minutes ago, Sherzod said:

Bem, se você não levar em consideração o status do painel no lado do servidor, sim, poderá usar a operação no lado do cliente.

I have a panel that has a width of zero 0, then I click the button and change the size to 300, all on the server side, but sometimes there is a delay in this process. Then I was wondering if you can do it on the client's side, or making it visible and invisible or changing its size.

[How do I make a Panel invisible by clicking a button on the client side]

1 minute ago, Sherzod said:

Por que não usar o lado do servidor para isso?

Wouldn't it be faster on the client side?

[How do I make a Panel invisible by clicking a button on the client side]

How do I make a Panel invisible by clicking a button on the client side

[GridGrouping - Dynamic]

1 hour ago, Farshad Mohajeri said:

Está relacionado apenas à nova versão?

I'm still on version 1.90.0.1526

[GridGrouping - Dynamic]

The folder example
C: \ Program Files (x86) \ FMSoft \ Framework \ uniGUI \ Demos \ Desktop \ GridGrouping - Dynamic

it is not working properly. If at design time I deselect the option UniDBGrid1.Grouping.Enabled and execute, dbgrid is unable to group the columns. You can only group it if the option UniDBGrid1.Grouping.Enabled is checked before execution. Can you adjust this?

[Highcharts Component]

On 04/09/2019 at 09:14, eduardosuruagy said:

Esses cilindro como vc fez?

 

On 21/08/2019 at 16:45, Andriws Luna said:

 

Olá a todos!

Há um tempo atrás, procurei um componente ou algo que facilitasse o uso do Highcharts no Unigui, mas não obtive êxito.

Então, decidi desenvolver meu próprio componente para fazer isso.

Após 2 meses de trabalho, está em uma versão mais estável e decidiu compartilhar com a comunidade.

 

Lembro que o Highcharts é gratuito apenas para uso pessoal.

 

Faça o download no github:  https://github.com/andriwsluna/Unigui-Components

EchoHightChart1.HighChartOptions.title.text.Value: = 'Introdução';
EchoHightChart1.HighChartOptions.series.Datasource.DataSet: = FDMemTable1;
EchoHightChart1.HighChartOptions.series.List.FieldNameForSerie: = 'Operação';
EchoHightChart1.HighChartOptions.series.List.FieldNameForX: = 'month';
EchoHightChart1.HighChartOptions.series.List.FieldNameForY: = 'value';
EchoHightChart1.Load;

 

 

Observe que existe uma fonte de dados para acesso a dados.

Veja a demonstração:

 

PM me a contribuir com este projeto.

Obrigado.

 

Is there an example of how we can use this cylinder graph?

[How to change color in group area if TUniDBGrid.Grouping.Enabled = True]

4 minutes ago, Sherzod said:

with UniDBGrid1 do if Grouping.Collapsible then JSInterface.JSCall('getView().getFeature("grouping").collapseAll', []);

Thank you very much!!

[How to change color in group area if TUniDBGrid.Grouping.Enabled = True]

1 hour ago, Sherzod said:

I still do not understand ...

Perhaps you mean this (JS codes):

  //collapseAll
  MainForm.UniDBGrid1.getView().getFeature('grouping').collapseAll();
  //expandAll
  MainForm.UniDBGrid1.getView().getFeature('grouping').expandAll();

 

Which unit do I need to declare to use this command?
MainForm .UniDBGrid1.getView (). GetFeature ('grouping'). CollapseAll ();

[How to change color in group area if TUniDBGrid.Grouping.Enabled = True]

1 minute ago, Sherzod said:

Deseja expandir tudo?

I want to collect everything, not expand

[How to change color in group area if TUniDBGrid.Grouping.Enabled = True]

1 minute ago, Sherzod said:

É no começo?

This, when opening the form already showed it like this.

[How to change color in group area if TUniDBGrid.Grouping.Enabled = True]

3 minutes ago, Sherzod said:

Por favor explique.

My grid has the option Grouping.Collapsible: = True;
I wanted all the groups on the grid to be minimized as in the photo.

[How to change color in group area if TUniDBGrid.Grouping.Enabled = True]

On 6/21/2018 at 2:35 AM, Sherzod said:

Also in "runtime":

 

 

Add:

<GridObject>.JSInterface.JSCall('addCls', ['custom-grid']);

Remove:

<GridObject>.JSInterface.JSCall('removeCls', ['custom-grid']);

I have the grid grouped and I wanted it to show all the groups collected, how can I do it?

[Print Screen]

I want to give a print on the screen and send it by email, this function that was placed here it downloads the image.

[Print Screen]

Is it possible to leave the image on the server and send it by email? I would not like to download it.

[Screen examples of you're application designs]

18 hours ago, mhmda said:

Usando uma grade e uma consulta, o resultado:

 

Great job, how did you do? Can you send an example to us simple mortals ?? kkkkkk

[Explanation of new features]

26 minutes ago, Farshad Mohajeri said:

Hi Farshad, thank you very much for the quick response. Where do I find this material with these explanations?

[Explanation of new features]

An explanation of the new features when they were released would be interesting, an example is this DontCompressDownloads, what exactly does it do and when should we use it?

[Error in UniListBox, when I click on a ListBox item I need to know its description, but the way it does not appear.]

33 minutes ago, Farshad Mohajeri said:

Support portal

It was created under the number FSD-2009