procedure TForm1.tvSelectionChanged(Sender: TObject); // tv c'est un TreeView
var
  i: integer;
  aFonte: string;
begin
  CurrentFolder := workdir; 
  ShowMessage('tvselectionChanged: '+CurrentFolder); // OK 
  FLB.Directory := CurrentFolder;
  if FLB.Items.Count > 0 then 
    for i := 0 to FLB.Items.Count-1 do begin
      aFonte := FindTrueTypeFontName(CurrentFolder + FLB.Items[i]);// FindTrueTypeFontName vient de l'unité Fontinfos.pas
      // https://forum.lazarus.freepascal.org/index.php/topic,37329.msg250576.html;
      NextTop := AddaMemoToSBox(Compteur2Memos+i, aFonte, 'fonts');
    end;
end;

procedure TForm2.StringGrid1PrepareCanvas(Sender: TObject; aCol, aRow: Integer;
  aState: TGridDrawState);
begin
 if aRow = 0 then
StringGrid1.Canvas.Font.Style := [fsBold]
else
 stringgrid1.Canvas.Font.Style:=[];
end;

sMemo := RichMemo1.Lines.Text;
    iPosMariage := 0;
    while sMemo.IndexOf('&',iPosMariage) <> -1 do
    begin
      iPosMariage := sMemo.IndexOf('&',iPosMariage);
      if (sMemo[iPosMariage+1] <> '') then
        RichMemo1.SetTextAttributes(iPosMariage+1,4,aFontWedding);
      iPosMariage := iPosMariage+1
    end;

function TfrmMain.GetNodeAttributesAsString(ApNode: TDOMNode): String;
(* Outputs all node attributes as a string *)
var
  Li: Integer;
begin
  Result := '';
  if ApNode.HasAttributes
     then
       for Li := 0 to (ApNode.Attributes.Length - 1) do
         with ApNode.Attributes[Li] do
           Result := Result + Format(' %s="%s"', [NodeName, NodeValue]);
  (* Removes leading and trailing spaces *)
  Result := Trim(Result);
end;
 
procedure TfrmMain.ParseXML(ANode: TDOMNode; ATreeNode: TTreeNode; var ACounter: LongInt);
(* Recursive function to process a node and all its child nodes - Increments the phonebook item counter *)
var
  LNodeName: String;
begin
  if ANode = Nil
     then
       Exit;
  (* Adds the node to the TreeView *)
  LNodeName := ANode.NodeName;
  if LNodeName = 'PhoneBookItemDto'
     then   (* Increments the phonebook item counter *)
       begin
         Inc(ACounter);
         LNodeName := LNodeName + ' - ' + IntToStr(ACounter);
       end;
  ATreeNode := tvMain.Items.AddChild(ATreeNode, Trim(LNodeName + ' ' + GetNodeAttributesAsString(ANode) + ANode.NodeValue));
  (* Processes all child nodes *)
  ANode := ANode.FirstChild;
  while Assigned(ANode) do
    begin
      ParseXML(ANode, ATreeNode, ACounter);
      ANode := ANode.NextSibling;
    end;
end;
 
procedure TfrmMain.ShowXML;
(* Displays an XML file *)
var
  LSourceFile: TXMLDocument;
  LPhonebookItemCounter: LongInt;
begin
  LPhonebookItemCounter := 0;
  ReadXMLFile(LSourceFile, FSourceFileName);
  try
    tvMain.Items.Clear;
    ParseXML(LSourceFile.DocumentElement, Nil, LPhonebookItemCounter);
  finally   (* ReadXMLFile creates the TXMLDocument, just must free it when done *)
    LSourceFile.Free;
  end;
end;