-
Posts
315 -
Joined
-
Last visited
-
Days Won
5
Content Type
Profiles
Forums
Events
Everything posted by Ario.Paxaz
-
Hi Thanks.
-
-
-
رَبَّنَا لَا تُزِغْ قُلُوبَنَا بَعْدَ إِذْ هَدَيْتَنَا وَهَبْ لَنَا مِنْ لَدُنْكَ رَحْمَةً إِنَّكَ أَنْتَ الْوَهَّابُ رمضان مبارک
-
Hi I see you'r sample and create it. procedure TMainForm.UniPanel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbRight then begin LastX:=X; LastY:=Y; ToolsPopUp.Popup(X, Y, WebForm.JSForm); end; end;
-
Hi How to add UniPopupMenu to UniPanel? Best Regards.
-
Hi Happy New Nowruz. https://en.wikipedia.org/wiki/Nowruz Best Regards.
-
Hi How to can Confirmation before closing of tab or browser ? Best Regards.
-
Hi The session remain open if the close button is not clicked and only the tab or browser closes. I write below code in the window.close of Ext.window.Window[Window].and check it in OnAjaxEvent . function window.close(panel, eOpts) { if (confirm("Exit?")) { onbeforeunload = null; onunload = null; ajaxRequest(sender, "CloseThisSession", []); }; } if SameText(EventName, 'CloseThisSession') then begin UniApplication.Terminate; end; But don't work. How to can fix it? Best Regards.
-
Hi I test MsgCli Sample,and by Send using AJAX button ,I don't have any problem in standalone and ISAPI . But when I send message by Send using UniGuiServer button ,in standalone I don't have any problem ,but when I convert project to ISAPI, the browser show : "Could not load SSL library. Of course I change the following Procedure for using SSL. procedure TfrmMsgCliCtrl.UniFormCreate(Sender: TObject); var S: String; begin httpPostMsg.HandleRedirects := true; httpPostMsg.AllowCookies := true; httpPostMsg.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(httpPostMsg); httpPostMsg.CookieManager := TIdCookieManager.Create(httpPostMsg); with TIdSSLIOHandlerSocketOpenSSL(httpPostMsg.IOHandler) do begin SSLOptions.RootCertFile := UniServerModule.StartPath + 'root.crt'; SSLOptions.CertFile := UniServerModule.StartPath + 'cert.cer'; SSLOptions.KeyFile := UniServerModule.StartPath + 'key.pem'; OnGetPassword := OnGetPassword; end; S:='https://MY Addres:8070/'; Script.Text := StringReplace(Script.Text, '$baseUrl$', S, []); edtBaseURL.Text := S; edtSessionID.Text := UniSession.SessionID; // create objects and init: FSL := TStringList.Create; FSL.Add('sid=' + edtSessionID.Text); FSL.Add('msg='); end; procedure TfrmMsgCliCtrl.OnGetPassword(var APassword: string); begin APassword := 'My Password'; end; Best Regards.
-
-
Hi How to can show other google calendar setting in form? For Example I set other google calendar setting to Persian(Farsi). Now I want see Persian calendar and Georgian. Best Regards.
-
HI I could send message from MsgSrv to all client. procedure TfrmMsgSrvCtrl.FormCreate(Sender: TObject); var LIOHandleSSL: TIdServerIOHandlerSSLOpenSSL; begin FServer := TIdHTTPWebBrokerBridge.Create(Self); LIOHandleSSL := TIdServerIOHandlerSSLOpenSSL.Create(FServer); LIOHandleSSL.SSLOptions.CertFile := 'cert.cer'; LIOHandleSSL.SSLOptions.RootCertFile := 'root.crt'; LIOHandleSSL.SSLOptions.KeyFile := 'key.pem'; LIOHandleSSL.OnGetPassword := OnGetSSLPassword; FServer.IOHandler := LIOHandleSSL; FCounter := 1000; end; procedure TfrmMsgSrvCtrl.OnGetSSLPassword(var APassword: String); begin APassword := 'The Pass'; end; Of course must change all URL to URL := Format('https://X.X.X.X:%s/........ And now I try to solve send message from MsgCli to all session. Best Regards.
-
Hi I test in 1421 too.But my problem don't fixed. Notice that I create my UniDBGrid in run time by stored data in table of sql and request user. Best Regards.
-
Hi I use 1425 . best Regards.
-
Hi I attach pic to firs topic. Best Regards.
-
Hi I use UniDbGrid in right to left mode. When all scroll active,the UniDbGrid Gets irregular. Best Regards.