Italian community of Lazarus and Free Pascal

Ho notato che inserendo una StatusBar ad un Form , e su questa dei pannelli  con Style = psOwnerDraw;
quando si aggiunge la gestione dell'evento OnDrawPanel

viene generata in automatico

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


in fase di compilazione segnala che StatusBar e' duplicata,
ovvio nella classe vi e' la dichiarazione del componente StatusBar: TStatusBar;
creata in automatico,

non resta che ovviare cambiando dichiarazione in modo che il parametro StatusBar abbia un nome diverso

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


cosi' StatusBar e StatusBar1 risultano variabili diverse e non si disturbano;

questo solo mantenendo {$mode objfpc}  , se invece la direttiva e' {$mode delphi}  , l'anomalia non si presenta.

Mi sono imbattuto nel problema su come visualizzare un file di Help, quindi un testo formattato con Font e Immagini;
un file Html e' semplice e di veloce realizzazione.

Inizialmente ho provato il componente RTFRichView, ma sembra che alcune parti non siano ancora implementate;
ho virato allora sul file Html, nei componenti TurboPower ho trovato cio' che serviva.

su un Form si utilizzano dal Pannello IPro i componenti IpFileDataProvider ed IpHtmlPanel

IpHtmlPanel1 viene impostato nela proprieta' Dataprovider su IpFileDataProvider

a runtime basterà semplicemente aprire il file voluto.


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


se non si inserisce IpFileDataProvider, il file non si aprira' e sara' sollevata eccezione, la scelta e' quindi obbligata.

Spesso e' utile evidenziare con colori diversi le voci presenti in un controllo TTreView, acnhe solo per
dare l'idea all'utilizzatore di quali voci siano Titoli e quali Voci Operative, per farlo bastano pochi
passaggi:

1 - nel Controllo TreeView andare su Options ed impostare tvoRowSelect = True
questo permettera' di avere una barra colorata larga quanto il TreeView stesso

2 - attivare l'Evento AdvancedCustomDrawItem (doppio click)


  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);    


Sender.Canvas.Font.Color := clNavy;
Assegna un Colore diverso al Nodo che abbia figli

Sender.Canvas.Font.Style := [fsBold];
Assegna un Atrtibuto sul Font diverso al Nodo che abbia figli, in questo esempio Grasetto

Sender.SelectionColor := clSilver;
questa rappresenta il Colore di fondo della Barra Cursore che evidenzia ciascuna voce
verificando se il nodo ha figli   if Node.HasChildren then
possiamo cambiare colore quando ilo cursore o si clicca su uno di questi Nodi

La toolbar (lett. barra degli strumenti) è un componente (widget) delle più usate interfacce utente. È una barra orizzontale o verticale, o un box, che raccoglie, sotto forma di icone, i collegamenti alle funzioni più usate di un software.
Lazarus permette di usare tale strumento in maniera abbastanza semplice, vediamo come con un esempio.

Per prima cosa creiamo un nuovo progetto applicazione e inseriamo sulla nuova form il componente TToolBar che troviamo nella categoria "Common controls" e in più inseriamo un oggetto TImage che troviamo nella categoria "Additional".

Read More

A volte è utile usare delle macro come in C per una miglior leggibilità del codice o un porting più facile.
Freepascal ci viene in contro con la direttiva $macro

Sintassi

{$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');

possiamo anche usare macro in macro come nel seguente esempio

{$macro ON}

{$define somma:=Valore + 10;}

{$define Valore:=5}

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

FreePascal ha alcune macro già impostate

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)