Delphi Archivi - Synaptica srl

Xtumble Web Builder 2 for Mac OSX 64bit

by Ivan Revelli
in Delphi, Posts, Software, Xtumble
on May 27, 2021

0

Xtumble Web Builder 2 is the basic tool with which we customize all the WEB experience of the applications built on the brand new cloud business platform Xtumble and with which we have created the e-commerce visible on xtumble.store . To allow developers / designers / web developers to be able to customize the applications…
Read more

Delphi macOSX create and deploy application outside Mac App Store

by Ivan Revelli
in Delphi
on May 27, 2021

0

With Delphi you can create your own applications for Mac OSX 64Bit and distribute them both via the Mac App Store and independently using the Developer ID distribution method. In this article we will see how to distribute an app through the “Notarization” procedure of the app to be able to distribute it independently, even…
Read more

smartFB a new release

by Ivan Revelli
in databases, Delphi, Firebird SQL, Posts
on May 25, 2021

0

A new version of smartFB, the rapid Firebird and Interbase database management tool. New features: Improved usability and minor graphic tweaks Improved management of embedded database creation Integration with Xtumble4Delphi library for JSON to Delphi Record management Started implementation of a tool that allows you to export / import datasets in MIDAS ClientDataset and FiredacMemTable…
Read more

Delphi VCL highlights word in visual components programmatically

by Ivan Revelli
in Delphi, Posts
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;

SmartFB -a new version is avilable….

by Ivan Revelli
in databases, Delphi, Posts
on December 23, 2020

0

SmartFB is our internal tool to manage Firebird & Interbase databases, so we use smartFB instead IBExpert. SmartFB is a simple VCL program that we use to have an access to our databases in every PC and Virtual Machines where we not need a simple access to our databases. So we integrate in smartFB some…
Read more

Delphi FMXLinux – Create Launcher Icon

by Ivan Revelli
in Delphi, Posts
on November 26, 2020

0

With FMXLinux and the latest versions of Delphi it is very easy to build a Linux application. The object of this post is to create a desktop icon and a favorite to make your application launchable from the gnome desktop. In my case I have created a POS (Point of Sale) application demominated XtumbleRetail and…
Read more

Category: Delphi