Discussion :

[michel71]

Bonjour à tous

me revoila !!



comment je peux afficher ce truc sachant que

La collection est du texte
macollec est le nom de la table (ça je sais faire le récupérer)
4122 est le nombre de ligne de la table (ça se sais le récupérer)
fiches est du texte

j'ai donc des couleurs, du texte, un nom de table et une quantité (integer)

Comment je peux afficher tout ça

avec un label, un edit, une image ???

je sèche

merci

[ShaiLeTroll]

Il y a une plein de possibilité
un RichEdit en lecture seule, faut calculer les endroits en couleur
un TImage/TPaintBox, tu affiches directement le text à coup de DrawText en changeant la couleur
plusieurs StaticText ou Label, selon ta version de Delphi, il faut jouer sur StyleElements pour forcer la couleur, avec un TextWidth ou un AutoSize, le tu pourras calculer le Left des Labels les un par rapport aux autres.

En fait, à toi de choisir celle que tu préfères, de nous proposer un essai, au besoin, on le corrigea

[ShaiLeTroll]

Code dfm :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
object lblCollection: TLabel
  Left = 19
  Top = 6
  Width = 68
  Height = 13
  Caption = 'La collection : '
end
object lblCollectionName: TLabel
  Left = 115
  Top = 6
  Width = 83
  Height = 13
  Caption = 'lblCollectionName'
end
object lblCollectionInfo: TLabel
  Left = 213
  Top = 6
  Width = 76
  Height = 13
  Caption = 'lblCollectionInfo'
end

un exemple avec données aléatoires pour la démonstration

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  Dummy: TDateTime;
  Count: Integer;
begin
  Dummy := EncodeDate(2000, RandomRange(1, 12), RandomRange(1, 28)); // SysUtils;
  lblCollectionName.Left := lblCollection.Left + lblCollection.Width;
  lblCollectionName.Caption := FormatDateTime('mmmm dddd', Dummy);
  lblCollectionName.StyleElements := lblCollectionName.StyleElements - [seFont];
  lblCollectionName.Font.Color := RandomRange(255, 255 * 255 * 255);
  lblCollectionInfo.Left := lblCollectionName.Left + lblCollectionName.Width;
  Count := Random(10000);
  lblCollectionInfo.Caption := Format(' contient %d fiche%s', [Count, IfThen(Count > 1, 's', '')]); // StrUtils;
end;

[Papy214]

Là pour le coup, un TLabel qui sait afficher du html

https://www.yunqa.de/delphi/products/htmllabel/index
http://www.infintuary.org/stlabel.php

[SergioMaster]

Déjà, je demanderai avec quelle version de Delphi et s'il s'agit de VCL ou FMX ? Parce que moi, j'aurais répondu : en utilisant TSkialabel

vite fait, à la louche, mais en VCL

et en FMX

[michel71]

Merci à tous
je vais regarder vos propositions de près

Bonne journée