Jump to content

Franco Grech

uniGUI Subscriber
  • Posts

  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Franco Grech's Achievements


Newbie (1/4)



  1. Thank you for your answer. I'd like to use this sample in your Android app. Project_mobile.zip
  2. Thank you so much your work it's really nice. I'd like to ask that how can I use camera to record a new video. In my app I'm using the UniGUI mobile upload component where I already set the accept ('video') property. The mobile app every time wants to create photo. When I'm testing this function in Chrome browser, it works properly. Thank you for any help!
  3. We had similar issue under IIS and Fibplus database access component. Is it work without IIS?
  4. I agree 100% with Peter. We're your client. Like the Peter's client we buy the subscription based on the plan which you made in every year. It's a typical buyer seller situation. The Seller want to sell the service which will be include the functions based on the plan. We as Buyer we bought a product / service. If we have any problem with the product (and we followed the procedure what the seller suggested) then the Seller has to fix it or the Seller has to find the other solution how can bypass the issue till fixing the main problem. The subscription/contract has to keep ongoing till every problems (which was submitted by the buyer) will be fixed. I thought the issue which has no alternative solution. The other question. For example I renew the subscription for the next year because the following year the uniGUI will be supports a function what I'm looking for a long time. In this year you doing some releases. These releases aren't care for me because the bugfixes and the new functions weren't affect my project. In this case I spent money for ...? I don't want to complain but our client has not to much patient when we (developer) advertise a new function. They want to know the direction of develop, because they already paid (or they will pay) for the new functions. Please don't forget that your money coming from our client. Please think about that, what you're gonna do if you're at the other (our) side.
  5. Use Mikrotik CHR on your VDS. It can handle the VPN requests more easier.
  6. Good morning everyone. How i can do it under unigui to make some cells editable and some of them not editable in a UniDBGrid in the same row. Thanks for any help
  7. Good Day to all of you. I am having an issue with the UniStringGrid, I Would like to Load HTML to a cell in the Grid, i managed to do this, however i have a gaps in the Cells This is the UniStringGrid and Between the cells there are Gaps how i can remove this? The Code that its in the Cells: function TPricePanel.GetBoxTXT(ADayNo, RightText, LeftText, BoxColor : string) : string; begin Result:= //'<div class="container" style="min-width:' + Self.DefaultColWidth.ToString +'px; min-height:' + Self.DefaultRowHeight.ToString + 'px; position: relative; background-color: ' + BoxColor + ';">' + #13#10 + '<div style="margin: 0px; min-width:' + Self.DefaultColWidth.ToString +'px; min-height:' + Self.DefaultRowHeight.ToString + 'px; position: relative; background-color:' + BoxColor + ';">'+ #13#10 + '<div style="position: absolute; top: 0; left: 10px;" >' + #13#10 + '<p style="font-size: 12px;">' + ADayNo + '</p>' + #13#10 + '</div>' + #13#10 + '<div style="position: absolute; bottom: 0; right: 10px;">' + #13#10 + '<p style="font-size: 15px;">' + RightText + '</p>' + #13#10 + '</div>' + #13#10 + '<div style="position: absolute; bottom: 0; left: 10px;" >' + #13#10 + '<p style="font-size: 15px;">' + LeftText+ '</p>' + #13#10 + '</div>' + #13#10 + '</div>'; //'<div class="box" style="background: blue;"></div>'; end; Thanks for any kind of help
  8. Currently we're using this structure to processing the incoming WebAPI requests. I added URL redirect function with separate main-server. We'll follow this structure to setup the HyperServer as well after we finished our project. The security and safety is the first that's why we never put App.Server directly to internet. Behind a firewall and Apache reverse proxy. The router protects the servers with ddos and flood protection. The loadbalance reverse proxy making the https with LetsEncrypt and chooses a AppServer by number of requests. Sorry for the schematic picture.
  9. Oh come on guys. 😩 Use Apache reverse proxy with load balancing. https://duckduckgo.com/?q=apache+reverse+proxy+with+load+balance&t=newext&atb=v253-1&ia=web It works. Simple and usefully. Leave the Hyperserver as it is. The 3rd option what you prefer is a security nightmare! The uniGUI has more important issues which are still waiting to fix them. I don't want to link the thread where the subscribers complain about the quality of support.
  10. Hello Sherzod, I'd like to ask you something, Regarding this thread, how did you do that the other panels collapsed by automatically? I try to find out but I couldn't. Thank you for your help! Franco
  11. Good day everyone I am having some issues with UniActionList, I wrote a component which stores to DB each time someone execute a Action, however i facing an issue when i put the Action on a button it doesn't call the Action.execute which i need in order to store the action in the DB. However this whole thing is working in VCL. procedure TMainForm.actADD_NEW_COSTUMERExecute(Sender: TObject); begin con1.Open; lst1.Items.Add('act_new'); - like this not end; procedure TMainForm.mgctnlst_OpenModulesMGExecute(Action: TBasicAction; var Handled: Boolean); begin lst1.Items.Add(Action.Name); end; procedure TMainForm.unbtbtn1Click(Sender: TObject); begin actADD_NEW_COSTUMER.Execute; --Liks this works end; The "TMainForm.actADD_NEW_COSTUMERExecute(Sender: TObject);" is on the button onClick evet like this not working its not calling the Execute procedure in the Action But Like this works "procedure TMainForm.unbtbtn1Click(Sender: TObject);" If anybody faced the same issue and someone managed to solve it, i would glad to any kind of help.
  12. Good day everyone I am building an app where i have to populate a UniTreeView from UniMenuItems in code. ItemTree is a UniTreeView ItemList Is a TList of UniMenuItems Code : procedure TdtfrmFolderBuilder.RefreshFolder; var xItem : TCostumeMenuItem; function GetParent(AParentID : integer) : TCostumeMenuItem; var xI :Integer; begin for xI := 0 to ItemList.Count -1 do begin if ItemList[xI].ITEM_ID = AParentID then begin Result := ItemList[xI]; exit; end; end; Result := TCostumeMenuItem(nil); end; procedure PrepareTreeView; begin if Assigned(ItemTree) then begin ItemTree.Free; lst1.Items.Add('DDes'); end; ItemTree := TUniTreeView.Create(Self); lst1.Items.Add('Created'); ItemTree.OnClick := ItemTreeClick; //ItemTree.OnAjaxEvent := ItemTreeAjax; lst1.Items.Add('Events Added'); ItemTree.Items.Clear; lst1.Items.Add('Items Cleared'); end; begin PrepareTreeView; ItemTree.BeginUpdate; fdtrnsctn_buildfulltree.StartTransaction; fdqry_buildfulltree.Open; ItemList.Clear; unmntms_folder.Items.Clear; while fdqry_buildfulltree.Eof = false do begin xItem := TCostumeMenuItem.Create(Self); xItem.ID := fdqry_buildfulltree.FieldByName('O_ID').AsInteger; xItem.Tag := xItem.ID; xItem.HID := fdqry_buildfulltree.FieldByName('O_HID').AsInteger; xItem.ITEM_ID := fdqry_buildfulltree.FieldByName('O_ITEM_ID').AsInteger; xItem.PARENT_ID := fdqry_buildfulltree.FieldByName('O_PARENT_ITEM_ID').AsInteger; xItem.ItemName := fdqry_buildfulltree.FieldByName('finalname').AsString; xItem.Caption := xItem.ItemName; xItem.Name := 'btn_' + xItem.ID.ToString; ItemList.Add(xItem); fdqry_buildfulltree.Next; end; fdqry_buildfulltree.Close; fdtrnsctn_buildfulltree.Commit; for xItem in ItemList do begin if xItem.PARENT_ID = 0 then begin unmntms_folder.Items.Add(xItem); //unpmn_detail1.Items.Add(xItem); end else begin GetParent(xItem.PARENT_ID).Add(xItem); end; end; lst1.Items.Add('Finished Vir Tree Build Totale : ' +unmntms_folder.Items.Count.ToString); ItemTree.Align := alLeft; ItemTree.Parent := Self; ItemTree.Width := 350; ItemTree.SourceMenu := unmntms_folder; lst1.Items.Add('Source menu added'); ItemTree.EndUpdate; lst1.Items.Add('Item count in SOurce : ' + unmntms_folder.Items.Count.ToString + ' Count in View : ' + ItemTree.Items.Count.ToString); end; The problem is after i add the source menu ItemTree.items.count returning a 0 i check in both debug mode and its a 0 however i can see the items in runtime. Why is this happening and how i can fix this issue. Thanks for any kind of help
  13. Good evening Everyone I am trying to use UniGui SendFile procedure and every time i run the procedure i am getting this error Cannot create file "T:\ProgramsCompiled\testapp\cache\testapp_exe\jg6jWWQ8qK10851E524\$$$\files\dressimages\L02\L0201001506_1.jpg". The system cannot find the path specified. and my code is this CurrentFile := \files\dressimages\L02\L0201001506_1.jpg procedure TdtFormTest.act_downloadExecute(Sender: TObject); var imgpath : string; begin imgpath := CurrentFile; UniSession.SendFile(imgpath); end; Did anyone got this error if yes how i can fix it. Thanks for any kind of help
  • Create New...