Sherzod

Hi, Try: UniSession.AddJS(UniImage1.JSName + '.el.fadeIn({duration: 1000})'); UniSession.AddJS(UniImage1.JSName + '.el.fadeOut({duration: 1000})'); Best regards.

Hi chefdackel ! I will try.. Best regards.

uses //..., Dialogs, uniGUIApplication;

Hi, If I understand correctly, one of the ways (If you do not create a "Message" programmatically on JS) ... /* * Ext.MessageBox internal button array: * * [0] 'OK' * * [1] 'Yes' * * [2] 'No' * * [3] 'Cancel' */ 1. procedure TMainForm.UniFormCreate(Sender: TObject); begin UniSession.AddJS('Ext.override(Ext.MessageBox, {defaultButton: 3});'); end; 2. Can also be changed in runtime: procedure TMainForm.UniButton8Click(Sender: TObject); begin UniSession.AddJS('Ext.override(Ext.MessageBox, {defaultButton: 2});'); MessageDlg('mbYesNoCancel', mtConfirmation, mbYesNoCancel, DCallBack4); end; Try .. Best regards.

Happy New Year!!! I Wishing you to all a lot of happiness and good luck this Year! Best regards!

Hi, If I understood you correctly, while, try this: function chart.afterrender(sender, eOpts) { sender.series.items[0].label.display = "none" } Best regards.

Hi, Eğer doğru anlamak, bir tane daha koşul ekleyebilirsiniz if ((qkayit.Active) and (qkayit.recordcount > 0)) Best regards.

Hi John, Sorry maybe I misunderstood the question, but I think in any case, you must use the following sequence with repeated queries: ... DA3Datamodule.QryWaybill.Close; DA3Datamodule.QryWaybill.SQL.Clear; DA3Datamodule.QryWaybill.SQL.Add(''); DA3Datamodule.QryWaybill.Prepare; DA3Datamodule.QryWaybill.ParamByName('param').as ...; DA3Datamodule.QryWaybill.Open; ... Best regards.

Better, you can do like so: UniSession.AddJS(uniscrollbox1.JSName + '.el.setStyle("overflow-x", "hidden");'); Or: function afterrender(sender, eOpts) { sender.el.setStyle('overflow-x', 'hidden'); } .. Best regards.

Hi Erich, Maybe this can help you!? http://forums.unigui.com/index.php?/topic/4332-hide-vertical-scrollbar-in-tuniscrollbox/ Best regards.

I think you need some event handlers in the grid to insert a about such code: (I mean you need to use about such code, but this code is not optimal) ....... function columnresize(ct, column, width, eOpts) { Ext.get(this.id).down('.x-docked-summary').dom.scrollLeft = Ext.getCmp(this.id).body.dom.firstChild.scrollLeft } function resize(sender, width, height, oldWidth, oldHeight, eOpts) { Ext.get(this.id).down('.x-docked-summary').dom.scrollLeft = Ext.getCmp(this.id).body.dom.firstChild.scrollLeft } ......

// UniSession.AddJS(AccOborotSvcDBGrid.JSName + '.body.dom.parentElement.getElementsByClassName("x-docked-summary")[0].style.overflowX = "auto"');

Вы в начале правильно объяснили, я понял Вас, я просто подумал, что если "горизонтальную " прокрутку переместить под "grand total", то при появлении "вертикальной" полосы прокрутки "grand total" может "уйти", т.е. может остаться невидимым, Хотя не знаю, может быть можно это как-то реализовать... You correctly explained, I understand you, I just thought, if "horizontal" scroll to move under the "grand total", then when visible a "vertical" scroll bar "grand total" can "get away", ie may remain invisible, Though I do not know, maybe it is possible to somehow implement ... Best regards.

Hi Mediv07 I think it was made for vertical scrolling ... Best regards.

Hi, Try: UniDBGrid1 -> ClentsEvents -> UniEvents ... add beforeInit function beforeInit(sender, config){ config.enableColumnMove = true } Best regards.

Hi, Try: procedure TMainmForm.UnimButton1Click(Sender: TObject); var ListJSName: string; begin //scrollToTop ListJSName := UnimList1.JSName; UniSession.AddJS(ListJSName + '.select(0);' + ListJSName + '.getScrollable().getScroller().scrollToTop(true);'); end; procedure TMainmForm.UnimButton2Click(Sender: TObject); var ListJSName: string; begin //scrollToEnd ListJSName := UnimList1.JSName; UniSession.AddJS(ListJSName + '.select(' + ListJSName + '.store.getCount() - 1);' + ListJSName + '.getScrollable().getScroller().scrollToEnd(true);'); end; Best regards.

Hi, For example: procedure TMainForm.UniButton1Click(Sender: TObject); begin UniSession.AddJS(UniDBGrid1.JSName + '.headerCt.move(1,5);' + UniDBGrid1.JSName + '.view.refresh();'); end; Best regards.

Hi, Try: http://forums.unigui.com/index.php?/topic/3675-unidbgrid-columns-change-index/&do=findComment&comment=17585 http://forums.unigui.com/index.php?/topic/4521-move-column-dbgrid/&do=findComment&comment=24089 Best regards.

https://prime.fmsoft.net/userv/mportal.dll

Hi, From your example, I think that you want to use an "empty text", If so for this you can do the following: procedure TMainForm.UniEdit1Click(Sender: TObject); begin //if UniEdit1.Text = 'نام کاربری' then //begin // UniEdit1.Clear; // UniEdit1.Font.Color := clBlack; // UniEdit1.Font.Color := clWindowText //end; end; procedure TMainForm.UniEdit1Exit(Sender: TObject); begin //if UniEdit1.Text = '' then //begin // UniEdit1.Text := 'نام کاربری'; // UniEdit1.Font.Color := clInactiveCaption; //end; end; UniEdit1.Font.Color := clWindowText 1. Use the property: UniEdit1.EmptyText: = "نام کاربری" Or 2. In DesignTime: Or 3. procedure TMainForm.UniFormCreate(Sender: TObject); begin UniEdit1.ClientEvents.UniEvents.Values['beforeInit'] := 'function(sender, config){sender.emptyText = "نام کاربری";}'; end; Best regards.

Hi Kanatshym, Try: procedure TestClose(Sender: TObject; var AllowClose: Boolean); procedure TMainForm.TestClose(Sender: TObject; var AllowClose: Boolean); begin ShowMessage('Hello!'); end; ... NewTabSheet := TUniTabSheet.Create(UniPageControl1); NewTabSheet.Caption := 'TabSheet1'; NewTabSheet.Name := 'TabSheet1'; NewTabSheet.PageControl := UniPageControl1; NewTabSheet.Parent := UniPageControl1; NewTabSheet.Closable := True; TUniTabSheet(NewTabSheet).OnClose := TestClose; ... Best regards.

Hi, Try: ... if Pos('http://',lowercase(AURL)) = 0 then AURL := 'http://' + AURL; UniURLFrame1.URL := AURL; ... Best regards.

Hi, Try (One way...) maximize: procedure TUniForm1.UniButton1Click(Sender: TObject); begin UniSession.AddJS(UniForm1.WebForm.JSName + '.maximize();'); end; restore: procedure TUniForm1.UniButton2Click(Sender: TObject); begin UniSession.AddJS(UniForm1.WebForm.JSName + '.restore();'); end; Best regards.

Hi Erich, I analyzed, after calling show, calls another function _axy_, which re-establishes the position of the form. If Farshad will give consent, then we can edit the function! _axy_ ... if(c[0]<0){a=true;c[0]=0} ... Best regards.

Hi, Which version are you using? The latest versions have a boolean property "clearButton". In previous versions, we could use this: http://forums.unigui.com/index.php?/topic/4179-help-to-program-an-own-component-based-on-tunidatetimepicker/ Best regards.