Delphi - Synaptica srl

Delphi macOSX create and deploy application outside Mac App Store

per Ivan Revelli
in Delphi, Delphi, Delphi, Delphi, Delphi, Delphi, Pascal, Programmazione, Software
on Maggio 27, 2021

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…
Leggi tutto

smartFB nuova versione

per Ivan Revelli
in databases, Firebird SQL
on Maggio 25, 2021

Una nuova versione di smartFB, il tool rapido di gestione database Firebird e Interbase. Nuove features: Migliorata usabilità e piccoli ritocchi grafici Migliorata la gestione della creazione di database embedded Integrazione con libreria Xtumble4Delphi per la gestione da JSON a Delphi Record Iniziata implementazione di un tool che permetta di esportare/importare i dataset nei formati…
Leggi tutto

Delphi VCL highlights word in visual components programmatically

per Ivan Revelli
in Articoli
on Maggio 1, 2021

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;

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;

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;

Delphi …. retrive locale format setting

per Ivan Revelli
in Programmazione, Programmazione
on Marzo 17, 2021

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;

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;

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…
Leggi tutto

Xtumble News 08 02 2021

per Ivan Revelli
in Xtumble
on Febbraio 9, 2021

Da oggi la piattaforma Xtumble si arricchisce di due nuove applicazioni per essere sempre piu’ smart e offrire un esperienza di utilizzo facile e senza vincoli: Magazzino e Comande. Nello specifico la app Magazzino (disponibile al momento solo per Android su play store qui ), che ti permette di classificare e ricercare i tuoi articoli…
Leggi tutto

Delphi 10.4.1 on Android error : java.lang.NullPointerException: Attempt to invoke virtual method

per Ivan Revelli
in Articoli, Articoli, Articoli, Articoli, Articoli
on Gennaio 25, 2021

When you try to use the camera component and you get “java.lang.NullPointerException: Attempt to invoke virtual method ‘android.content.res.XmlResourceParser android.content.pm.ProviderInfo.loadXmlMetaData (android.content.pm.PackageManager, java.lang.String)” only on “release” version of your application, probably you don’t have this setting to true: Check that the Project Options > Entitlements List > Secure File Sharing option is set to true. good job

Categorie

Articoli (536)
- databases (44)
  - Firebird SQL (24)
  - oracle (14)
- Hardware (16)
  - Iot Embedded (3)
- hosting (17)
- Programmazione (163)
  - Android (20)
  - Apple iOS (5)
  - c (4)
  - C++ (2)
  - Delphi (109)
    - Thread Execution (1)
  - Delphi .Net (8)
  - DotNet (6)
  - FP – Lazarus (3)
  - JAVA (9)
  - Javascript (4)
    - jQuery (1)
  - Pascal (31)
  - pHp (8)
  - PLC (1)
  - Zkoss (1)
- Sistemi Operativi (40)
- Software (31)
- Xtumble (17)
  - XumbleTools (6)
Eventi (1)
Sistemi (36)
- Firewall (5)
- KVM (7)

Categoria: Delphi

Delphi macOSX create and deploy application outside Mac App Store

smartFB nuova versione

Delphi VCL highlights word in visual components programmatically

Delphi …. retrive locale format setting

Xtumble News 08 02 2021

Delphi 10.4.1 on Android error : java.lang.NullPointerException: Attempt to invoke virtual method

Ricerca Articolo

Categorie

Synaptica srl