Highlights word in a RichView component programmatically: uses Winapi.RichEdit; procedure SetTextColor(oRichEdit : TRichEdit; sText : String; rAttributes : TTextAttributes); var iPos : Integer; iLen : Integer; Format: CHARFORMAT2; begin FillChar(Format, SizeOf(Format), 0); Format.cbSize := SizeOf(Format); Format.dwMask := CFM_BACKCOLOR; Format.crBackColor := rAttributes.BackColor; iPos := 0; iLen := Length(oRichEdit.Lines.Text) ; iPos := oRichEdit.FindText(sText, iPos, iLen, []);…
Read more
A reverse proxy is a type of proxy server that accepts HTTP (S) requests and transparently distributes them to one or more backend servers. You can use a reverse proxy to prevent direct access to these underlying application servers. They can also be used to distribute the load of incoming requests to different application servers.…
Read more
Configuring an OpenVPN over pfSense is quite simple. In this video you can see, how to configure a VPN on the lastest release of pfSense using the VPN Wizard.
Configure svn server over Apache2, using https. sudo apt update sudo apt upgrade sudo apt-get install apache2 sudo apt-get install subversion libapache2-mod-svn subversion-tools libsvn-dev sudo a2enmod dav dav_svn sudo service apache2 restart sudo mkdir -p /var/lib/svn/ sudo svnadmin create /var/lib/svn/apprepo sudo chown -R www-data:www-data /var/lib/svn sudo chmod -R 775 /var/lib/svn sudo touch /etc/apache2/dav_svn.passwd …
Read more
TFormatsettings is record type in Delphi which is used to get or set local information’s like DateTimeFormat, CurrencyFormat, DecimalSeparator etc. wich is declared in System.SysUtils. For Example you need to retrive your current DecimalSeparator: procedure TForm1.Button1Click(Sender: TObject); var fs: TFormatSettings; begin GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fs); ShowMessage(‘Actual decimalseparato is:’ + fs.DecimalSeparator); end; If you need to force some…
Read more
How to get record number of dataset using row_number window function with over(). SELECT row_number() over(), t.* FROM test t Example of record number of dataset with even and odd column sorting. SELECT row_number() over(), (CASE WHEN mod(row_number() over(),2) = 0 THEN ‘even’ ELSE ‘odd’ END) AS my_column, custom.* FROM ( SELECT t.* FROM test…
Read more
