Leaderboard

В общем, кое-как с горем пополам, удалось из двух и меню и контейнера сделать одно меню.

Для иконок.

Еще как вариант Вы можете использовать два компонента...

Ah...Super. Now All is OK. Thank you so much Enjoy your meal

OK, use this for now: procedure TMainForm.UniFormReady(Sender: TObject); begin with UniCalendarPanel1 do //JSInterface.JSCall('calendarStore.eventSource.sorters.addSort', [JSControl.JSObject('direction:"ASC", property:"id"')]); JSInterface.JSCode(#1'.calendarStore.eventSource.sorters.addSort({direction:"ASC", property:"id"});'); end;

It would be nice to have a tutorial on how to use FastMM on unigui, how to configure it.

I never used ssl in that way. I dont now. Just buy a domain an do dynamic dns. so that you will have the domain name

I recommend you go to https://zerossl.com/ and generate a new free certificate (dont set password for certificate) and test with that one. And follow the steps above. Make sure to load files into correct properties. Your private key, your certificate and root certificate(may be with bundle). Good luck

If you set a password (not mandatory but good thing) when generating your certificate at godaddy. Then I think you have to set this password to SSL.SSLPassword before enabling ssl. .... SSL.SSLOptions.Mode := sslmServer; SSL.SSLOptions.SSLVersions := [sslvTLSv1_2]; SSL.SSLPassword := 'the password you used during certificate generation'; SSL.Enabled := True;

Match those files like this: SSL.SSLOptions.RootCertFile := 'gd_bundle-g2-g1.crt'; SSL.SSLOptions.CertFile := 'af6d14e9d.......crt'; SSL.SSLOptions.KeyFile := 'generated-private-key.txt'; or af6d14e9d........pem keyfile should contain -----BEGIN PRIVATE KEY----- (keep it secure) RootCertFile should contain one or more -----BEGIN CERTIFICATE----- (incase of bundle) CertFile contains single -----BEGIN CERTIFICATE----- (this is your certificate) Some thing like this inside UniGUIServerModuleBeforeInit LSSLDir := TPath.Combine(TPath.Combine(TPath.GetPublicPath, PROGRAM_DATA_DIR), 'SSL'); LRoot := TPath.Combine(LSSLDir, 'gd_bundle-g2-g1.crt';); LCert := TPath.Combine(LSSLDir, ''af6d14e9d.......crt'); LKey := TPath.Combine(LSSLDir, ''generated-private-key.txt'; or af6d14e9d........pem'); if FileExists(LRoot) and FileExists(LCert) and FileExists(LKey) then begin SSL.SSLOptions.RootCertFile := LRoot; SSL.SSLOptions.CertFile := LCert; SSL.SSLOptions.KeyFile := LKey; SSL.SSLOptions.Method := sslvTLSv1_2; SSL.SSLOptions.Mode := sslmServer; SSL.SSLOptions.SSLVersions := [sslvTLSv1_2]; SSL.Enabled := True; Log.Info('SSL.Enabled listening Port[' + IntToStr(SSL.SSLPort) + ']', LOG_MAIN); end;