Jump to content
uniGUI Discussion Forums


uniGUI Subscriber
  • Content Count

  • Joined

  • Last visited

  • Days Won


Pep last won the day on February 8

Pep had the most liked content!

Community Reputation

12 Good

About Pep

  • Rank

Recent Profile Visitors

219 profile views
  1. Pep

    strange behavior callbacks!

    In First Anonymous procedure you are checking if Result = mrOk in the other you didn't check Result
  2. Pep

    How return from Anonymous procedure Form

    Hello, try this: procedure CallActionFrm2(I: integer); var AfrmBaseDictionaryList: TfrmBaseDictionaryList; tmp: Integer; begin tmp := I; with TfrmBaseDictionaryList.Create(UniApplication) do begin ShowModal( procedure(Sender: TComponent; AResult: Integer) begin if AResult = mrOk then begin tmp := 100; edtInn.Text := IntToStr(tmp); end; end ); end; end; ... procedure TfrmAdmPlanItem.btnSearchClick(Sender: TObject); var id: Integer; begin id := 1; CallActionFrm2(id); end;
  3. Pep

    TuniScrollbox -> ScrollTo -> howto in TuniFrame?

    Thank you very much to share this code
  4. Pep

    responsive Design Question: Placing TuniPanels

    Thank you very much, the sample is very usefull
  5. Hello Paul, In Delphi 10.2, the Callback procedure "mbDeleteStaff" does'nt compile if is defined inside another procedure / function. You can use an anonymous procedure: MessageDlg('Delete the selected staff member?', mtConfirmation, mbYesNo, procedure(Sender: TComponent; Res: Integer) begin // code here to delete the staff record if Res = mrOk then begin qStaffDelete.ParamByName('pStaffId').AsInteger := qStaff.FieldByName('pStaffId').AsInteger qStaffDelete.ExecSQL; end; end );
  6. Pep

    Actioncolumn and showMask

    "TUniCustomButtonItem" has the ScreenMask property and by code you can use it, but in runtime mode raise exception "invalid class typecast" var Col: TUniBaseDBGridColumn; BtnCol: TUniCustomButtonItem; begin Col := Grid.Columns.Add; Col := Grid.Columns.Add; Col.ActionColumn.Enabled := True; BtnCol := TUniCustomButtonItem(Col.ActionColumn.Buttons.Add); BtnCol.ScreenMask.Enabled := True; // <-- Compiles but in runtime mode raise exception "invalid class typecast" end Anybody knows if Is there another alternative to show ScreenMask on click action column? Thanks in advance!
  7. Hello wprins, I'm using Delphi 10.2 with uniGUI Version:1.90.0 build 1496. The app seems that works ok!
  8. Pep

    EMB interest for WEB development

    Yes, the uniGUI Demo was very power, The classic "Hello World", but with scrpting!!, Very interesting! Take a look if you can.
  9. Thanks a lot for sharing!
  10. Pep

    How to set focus to an uniEdit

    rtalmeida, thanks a lot for this tip. For Frames I tested UniFrameReady an also works!
  11. Hello, Today I decided to do some tests with the tools included in uniGUI: uniStressTest and hyperServer. I have to point out that I am not a specialist in this topic and it is the first time I use them, so there will surely be some parameters or conditions that will not be adequate. These tests are not intended to be very scientific, the intention is to test the application that we are developing. The tests are done in i7-4771 - SSD 250 GB. 12 GB RAM - Win10 Pro 64 bits - SQL Server 2012 64 bits The application to be tested is in 32 bits. The saved session to execute, generates a header with 5 lines and also another header with 1 line (Total 8 records recorded per session) to part one of a paged query. The "Playback Speed" that I have chosen is "Real Time x 8", because if I chose "Max Speed", not all the records are generated, maybe because the recorded session is made by opening several windows linked and grids . The results have been: Without hyperServer: The most I have achieved are 385 active sessions (with 4 errors). With hyperserver (max_nodes = 12): I have achieved 5000 active sessions !! Clearly here we can see the power of this tool! As I mentioned, these tests are not intended to draw scientific conclusions, but the intention was to test the power of this tool and I thought it was opportune to share these results in the forum because I think the uniGUI tool is impressive but now, much more with the inclusion of hyperserver. Thanks for this wonderful framework.
  12. Pep


    Hello skafy, In your sample, you are creating the controls in UniFormShow Event procedure TMainForm.UniFormShow(Sender: TObject); begin ... but if you create the controls in UniFormCreate then tab works ok: procedure TMainForm.UniFormCreate(Sender: TObject); var I: Integer; Edit: TUniEdit; begin for I := 0 to 10 do begin Edit := TUniEdit.Create(Self); edit.Parent:= panel1; edit.Align:= alTop; edit.FieldLabel:= I.ToString; edit.TabOrder:= I; end; end;