Italian community of Lazarus and Free Pascal

 procedure BarraStatoDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;  const Rect: TRect);  

[b][/b]
procedure BarraStatoDrawPanel([b]StatusBar1: TStatusBar[/b]; Panel: TStatusPanel;  const Rect: TRect);   

sFile := 'F:\ProvaHTM.html';
IpHtmlPanel1.OpenURL(sFile);

  if Node.HasChildren then
    begin
      Sender.Canvas.Font.Color := clNavy;
      Sender.Canvas.Font.Style := [fsBold];
      Sender.SelectionColor := clSilver;        //cambia colore
    end
  else
    begin
      Sender.Canvas.Font.Color := clBlue;
      Sender.Brush.Color := $00F4FEFF;
      Sender.SelectionColor := clSkyBlue;;  //cambia colore se non ha figli
    end;

  if not Node.Expanded then Node.Expand(True);     

{$macro ON}  // attivazione macro

{$define :=}  // sintassi

// Esempi

{$define somma:=10+12;}
{$define write:=ProceduradiScrittura}

// se richiamiamo la prima
A := somma // si espande in A := 10+12; notare l'assenza dei ; in quanto inseriti nella macro

// se richiamiamo la seconda

Write('pippo'); // si espande in ProceduradiScrittura('pippo');

{$macro ON}

{$define somma:=Valore + 10;}

{$define Valore:=5}

Risultato := Somma      // si espande in Risultato := 5 + 10; in quanto 5 è assegnato a Valore

FPC_FULLVERSION	// Versione del compilatore (per esteso)
FPC_VERSION 	// Versione del compilatore (versione master)
FPC_RELEASE 	// Versione del compilatore (numero release)
FPC_PATCH 	// Versione del compilatore (numero patch)