Jump to content

FXSystems

uniGUI Subscriber
  • Posts

    36
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by FXSystems

  1. Hi.
    I switched to Delphi 12 about two weeks ago (due to Android application compatibility with SDK 33) and I'm currently testing its operation with the latest uniGUI release.

    No problems so far.
    I think I will finish the tests within the next week and migrate the entire solution to Delphi 12 and uniGUI 1.95.0.1580.

  2. So: The IIS server with uniGUI application runs on Windows Server 2016 Standard on an Intel Xeon Gold 6348 processor with 16 GB RAM. The machine was rather average, but it managed without any major problems. Initially, we assumed as much as 2.5 thousand. users, and 1.5 thousand sessions were simply the result of communication layering. uniGUI did it!

  3. I don't know if it will be useful, but once a year the company I work for uses a small uniGUI application to book gifts for employees and last year (December 2023) after the publication of information about the launch of the campaign, most people logged in within the first few minutes and in at peak load there were 1500 simultaneous sessions (I was also curious about this). uniGUI application on IIS.

  4. Hi Sherzod.


    This is indeed an unusual situation.
    I need to prepare a tabular view for one of my projects in which every two records are an integral business part.
    We have multiple repeating columns for different dates.
    But every one pair of records is important in thit case.
    The first record (of the pair) contains a large amount of text data, and the second set of keywords that do not take up much space.
    I've tried setting the dynamic height, but my bussiness client requests that these sizes be set default.

  5. Hello everyone.


    Does anyone have an idea or a workaround for the following problem:
    How to change the height of any single row in UnidbGrid?
    I know how to change the height of all rows, but is it possible to change the height of e.g. only the third or any other row?


    Any hints?
    Thanks for any answer.

  6. I do not know if this solution will ultimately be for you, but I solve a similar problem by running uniForm as pages in uniPageControl.

    procedure TMainForm.RunTheFormAsPage(form_caption: string);
    var
      Ts : TUniTabSheet;
      isShow : Boolean;
      i: Integer;
    begin
     isShow:=False;
     if uniPageControl.PageCount>0 then
      Begin
       for i := 0 to uniPageControl.PageCount-1 do
        Begin
         if uniPageControl.Pages[i].Caption = form_caption then
          Begin
           isShow:=True;
           uniPageControl.ActivePage:=uniPageControl.Pages[i];
          End;
        End;
      End;

      if isShow=False then
      Begin
       Ts := TUniTabSheet.Create(Self);
       Ts.PageControl := uniPageControl;

       Ts.Closable  := True;
       Ts.Layout    := 'fit';
       Ts.Caption   := form_caption;
       Ts.AlignmentControl := uniAlignmentClient;

       uniForm.Parent:=Ts;
       uniForm.Show();
      End;
    end;

    It is also useful to remove border for this attached form.

  7. Hi everyone. I struggled with this problem for a long time and probably the solution is not elegant, but it works fine to rebuild the whole treeView. You can hide / show menu items or rename them.

     

    procedure TMainForm.BuildHamburgerMenu;
    var
      i: Integer;
      newItem : TUniTreeNode;

     procedure BuildSubordinateElements(NadrzedneMenu: TUniTreeNode; whichMenu : TUniMenuItem);
     Var
      ip: Integer;
     Begin
      for ip := 0 to whichMenu.Count - 1 do
       Begin
        if whichMenu.Items[ip].Visible then
         Begin
          newItem           := treeMenu.Items.Add(NadrzedneMenu,whichMenu.Items[ip].Caption);
          newItem.ImageIndex:= whichMenu.Items[ip].ImageIndex;
          newItem.OnClick   := whichMenu.Items[ip].OnClick;
          if (whichMenu.Items[ip].Count > 0) then BuildSubordinateElements(newItem,whichMenu.Items[ip]);
         End;
       End;
     end;

    Begin
     treeMenu.Items.Clear;
     if HamburgerMenuItems.Items.Count > 0 then
      Begin
       for i := 0 to HamburgerMenuItems.Items.Count - 1 do
        Begin
         if HamburgerMenuItems.Items[i].Visible then
          Begin
           newItem            := treeMenu.Items.Add(nil,HamburgerMenuItems.Items[i].Caption);
           newItem.ImageIndex := HamburgerMenuItems.Items[i].ImageIndex;
           newItem.OnClick    := HamburgerMenuItems.Items[i].OnClick;
           if (HamburgerMenuItems.Items[i].Count > 0) then BuildSubordinateElements(newItem,HamburgerMenuItems.Items[i]);
          End;
        End;
      End;
    End;

     

    Maybe someone will come in handy.

    • Thanks 1
    • Upvote 1
×
×
  • Create New...