Jump to content
uniGUI Discussion Forums

Freeman35

uniGUI Subscriber
  • Content Count

    520
  • Joined

  • Last visited

  • Days Won

    5

Freeman35 last won the day on December 24 2018

Freeman35 had the most liked content!

Community Reputation

23 Excellent

About Freeman35

  • Rank
    Advanced Member

Profile Information

  • Gender
    Not Telling

Recent Profile Visitors

299 profile views
  1. Hello TUniPopupMenu.Popup(X, Y, Sender); This procedure modify "PopupComponent" property. "TUniPopupMenu.PopupComponent:= TComponent(Sender);" PopupComponent property not be in old version delphi but, can add compiler directive. Why need this property? 'cos we wanna know which component opuped up menu. Regrads
  2. Freeman35

    How to discard browser popup menu?

    I wanna use this code in dbgrid filter use. I mean, Example: I have two columns and two TUniEdit for filter. But this string can be in sql where clause "Equal, NotEqual, Starts ,Ends, Contains" for this selection I have popmenu. I need this popup menu just in TUniEdit for filter usage. and not everytime. If end user want, then it will popup via right click. not always. I hope could tranlate my ideas thank you.
  3. Freeman35

    How to discard browser popup menu?

    Thank you it been helpful for me. procedure TFRM_.EDT_MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbRight then begin MainModule.UniMainModule.BrowserOptions:= [boDisableMouseRightClick]; UniSession.AddJS('document.oncontextmenu = document.body.oncontextmenu = function () { return false; }'); end; end; procedure TFRM_.EDT_MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbRight then begin POP_1.Popup( X, Y, Sender); MainModule.UniMainModule.BrowserOptions:= []; UniSession.AddJS('document.oncontextmenu = document.body.oncontextmenu = function () { return true; }'); end; end; Why I used MouseDown, 'cos need delay for run, before popup. regards.
  4. Freeman35

    How to discard browser popup menu?

    Hello, I need to discard browser popup menu. But not all in application. I mean I don't wanna use "MainModule.BrowserOptions.boDisableMouseRightClick = True" My code is: procedure TFRM_.EDT_MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbRight then POP_1.Popup( X, Y, Sender); Result is on screenshot. Browser popup on my popup. both opened.
  5. Freeman35

    Fastreport Refresh

    Exp.ShowProgress := true; if I'm not wrong, this is show VCL component, and this is problem in unigui. You have to set to False;
  6. Its work perfect, thank you so much.
  7. Freeman35

    How to dbgrid columsort in runtime?

    I added video, when run in my system. original demo from this link. I added just two component and reconfigure function thats all. unigui ver. 1480, win10-x64, tokyo. regards. 0 FreeMan.7z
  8. I found bug in your code, Set column's sorting to descending, then open column menu and click to "Ascending" you will see column been "non sort"
  9. Freeman35

    How to dbgrid columsort in runtime?

    function reconfigure(sender, store, columns, oldStore, oldColumns, eOpts) { if (columns[0].isSortable()) { columns[0].sort('ASC') } } This code, remove trigger event. I have TUniDBText and TUniDBEdit. this components's datasource is same with TUniDBGrid. If Add reconfigure code to grid, this component not triggered, I mean when move grid row, (grid's row change) thşs component's values not change, dbedit's onchange events not triggered too. What can be wrong?
  10. Thank you so much for help, Yes, problem about "dgcheckselect". I'm not use this property so I remove this code "if (me.checkboxModel.views.length > 0) {delta = 1; };" from your js. So, now my app is work without error. I'll continue work on Best regards.
  11. I copied your function "AddFunctionToGrid" but I get error when try your code. I can't see error, so I don't know what is error ? how to find this error ? Thank you.
  12. @delagoutte, sorry for late answer. Thank you so much for example. You give me extra bonus "position number in order" In "store.load" that code, what for?
  13. @delagoutte Yes you are. (You asked before, I saw it, but no solution, I hope yet)
  14. Freeman35

    How to dbgrid columsort in runtime?

    Thank you its worked. But If Grid's LoadMask.WaitData is True, (Target is owner form) never unlock.
×