Con l’avvento di netplan è possibile gestire l’instradamento per sinagola interfaccia di rete in modo semplice. Se ad esempio abbiamo una VM connessa a due lan separate con due schede rete e ovviamente due gateway dobbiamo gestire l’intradamento dei pacchetti, perchè notoriamente Linux instrada tutto sul gateway di default. Per ovviare a questo…
Leggi tutto
Xtumble Web Builder 2 è lo strumento base con cui personalizzaziamo tutta l’esperienza WEB delle applicazioni realizzate sulla nuovissima piattaforma cloud business Xtumble e con cui abbiamo realizzato gli e-commerce visibili su xtumble.store . Per permettere agli sviluppatori / designer / web developer di poter personalizzare le applicazioni pubblicate sulla piattaforma Xtumble abbiamo deciso di…
Leggi tutto
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
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
Dalla versione 2.5 Firebird introduce il predicato “SIMILAR TO” che permette di applicare un sottoinsieme di regular expression in una condizione SQL. La documentazione del predicato “SIMILAR TO” è disponibile alla pagina https://firebirdsql.org/refdocs/langrefupd25-similar-to.html Se volessimo controllare se all’interno di una strina sono presenti numeri (DIGIT), cioè caratteri da ‘0’ a ‘9’ potremmo semplicemente scrivere :…
Leggi tutto
Highlights word in a RichView component programmatically:
|
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; end; |
How to highlitgh full cell in a DBGrid:
|
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; |
