Ivan Revelli - Synaptica srl

Firebird SQL – Verify if a string contains digit (number char)

by Ivan Revelli
in databases, Firebird SQL, Posts, Programmazione, Programmazione
on May 20, 2021

0

From version 2.5 Firebird introduces the “SIMILAR TO” predicate which allows you to apply a subset of regular expressions in an SQL condition. The documentation of the “SIMILAR TO” predicate is available at https://firebirdsql.org/refdocs/langrefupd25-similar-to.html If we wanted to check if there are numbers (DIGIT) inside a string, i.e. characters from ‘0’ to ‘9’ we could…
Read more

Delphi VCL highlights word in visual components programmatically

by Ivan Revelli
in Delphi
on May 1, 2021

0

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, []);

          while iPos > -1 do begin
                oRichEdit.SelStart  := iPos;
                oRichEdit.SelLength := Length(sText) ;
                oRichEdit.SelAttributes.Color := rAttributes.Font.Color;
                oRichEdit.SelAttributes.Size  := rAttributes.Font.Size;
                oRichEdit.SelAttributes.Style := rAttributes.Font.Style;
                oRichEdit.SelAttributes.Name  := rAttributes.Font.Name;

                oRichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));

                iPos := oRichEdit.FindText(sText,iPos + Length(sText),iLen, []) ;
          end;
end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

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, []);

while iPos > -1 do begin

oRichEdit.SelStart := iPos;

oRichEdit.SelLength := Length(sText) ;

oRichEdit.SelAttributes.Color := rAttributes.Font.Color;

oRichEdit.SelAttributes.Size := rAttributes.Font.Size;

oRichEdit.SelAttributes.Style := rAttributes.Font.Style;

oRichEdit.SelAttributes.Name := rAttributes.Font.Name;

oRichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));

iPos := oRichEdit.FindText(sText,iPos + Length(sText),iLen, []) ;

end;

How to highlitgh full cell in a DBGrid:

procedure TfrmRuleCreator.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  mstr: String;
  I : Integer;
  currValue: string;
begin
  currValue := Column.Field.AsString.ToUpper().Trim;
  if (Length(currValue) > 3)and(Column.Field.FieldName.ToUpper <> 'NOTE') then
  Begin
    If FDMemTable1.FieldByName('NOTE').AsString.ToUpper.IndexOf(currValue) <> -1
    then
    Begin
      DBGrid1.Canvas.Brush.Color := clYellow;
    End
  End;

  if Column.Field.FieldName.ToUpper = 'NOTE' then
   DBGrid1.Canvas.Brush.Color := $00D7FFD7;


  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

procedure TfrmRuleCreator.DBGrid1DrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

var

mstr: String;

I : Integer;

currValue: string;

begin

currValue := Column.Field.AsString.ToUpper().Trim;

if (Length(currValue) > 3)and(Column.Field.FieldName.ToUpper <> 'NOTE') then

Begin

If FDMemTable1.FieldByName('NOTE').AsString.ToUpper.IndexOf(currValue) <> -1

then

Begin

DBGrid1.Canvas.Brush.Color := clYellow;

End

End;

if Column.Field.FieldName.ToUpper = 'NOTE' then

DBGrid1.Canvas.Brush.Color := $00D7FFD7;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

Configure Open VPN over PFSense 2.5

by Ivan Revelli
in Uncategorized
on March 25, 2021

0

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.

Subversion over Ubuntu Server 20.04

by Ivan Revelli
in Sistemi, Software
on March 25, 2021

0

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

1

2

3

4

5

6

7

8

9

10

11

12

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

now let’s set the password of the first user:

sudo htpasswd -cm /etc/apache2/dav_svn.passwd <username>

1	sudo htpasswd -cm /etc/apache2/dav_svn.passwd <username>

configuriamo gli accessi:

sudo nano /etc/apache2/mods-enabled/dav_svn.conf

1	sudo nano /etc/apache2/mods-enabled/dav_svn.conf

we configure the accesses to the svn folders

sudo nano /etc/apache2/dav_svn.authz

1	sudo nano /etc/apache2/dav_svn.authz

Apache restart:

  sudo service apache2 restart

1	sudo service apache2 restart

Delphi …. retrive locale format setting

by Ivan Revelli
in Delphi, Posts, Posts, Posts, Posts, Posts, Programmazione
on March 17, 2021

0

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;

1

2

3

4

5

6

7

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 local settings for conversions you can do for example:

procedure TForm1.Button1Click(Sender: TObject);
var
  myMoney : String;
  FS : TFormatSettings; 
  myMoneyFloat: Extended;
begin
  myMoney := '100000,66'; 
  FS.DecimalSeparator := ',';
  myMoneyFloat :=  StrToFloat(myMoney,FS);
  ShowMessage('Your actual balance:' + myMoneyFloat.toString); 
end;

1

2

3

4

5

6

7

8

9

10

11

procedure TForm1.Button1Click(Sender: TObject);

var

myMoney : String;

FS : TFormatSettings;

myMoneyFloat: Extended;

begin

myMoney := '100000,66';

FS.DecimalSeparator := ',';

myMoneyFloat := StrToFloat(myMoney,FS);

ShowMessage('Your actual balance:' + myMoneyFloat.toString);

end;

If you want to…
Read more

Firebird 3 – How to get record number of dataset

by Ivan Revelli
in Firebird SQL
on February 27, 2021

0

How to get record number of dataset using row_number window function with over().

SELECT 
 row_number() over(), 
 t.* 
FROM test t

1

2

3

4

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 t ORDER BY t.description
) custom

1

2

3

4

5

6

7

8

9

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 t ORDER BY t.description

) custom

Author: Ivan Revelli

Firebird SQL – Verify if a string contains digit (number char)

Delphi VCL highlights word in visual components programmatically

Configure Open VPN over PFSense 2.5

Subversion over Ubuntu Server 20.04

Delphi …. retrive locale format setting

Firebird 3 – How to get record number of dataset

Ricerca Articolo

Categorie

Synaptica srl