Discussion :

[SergioMaster]

Bonjour,

Suite à une interrogation sur un forum anglophone (vous devriez trouver facilement où), je me suis lancé le défi de répondre à la question : Dessiner des cases à cocher dans une cellule d'un stringgrid.
Je pense avoir réussi le défi mais, pour cela, j'ai utilisé un simple TList<String> pour mémoriser les cellules devant contenir des cases à cocher.

pour illustrer :

vous remarquerez l'utilisation du style une petite victoire sur les TStyleObject dont je suis assez fier

J'en viens à la partie langage
Ma première idée avait été de créer une TList<Cellules> ou cellules était un objet avec 2 propriétés : col et row

Code :

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

1
2
3
4
5
6
7
8
9
 
type 
  TCell = class
    col : integer;
    row: integer;
  public
    contructor create(acol,arow : integer);  
 
TSelectedCells = TList<TCell>;

Seulement, je suis "tombé" sur un os, comment savoir si l'objet existe dans ma liste autant avec la TList<String> c'est facile : il suffit de faire un ListeString.indexOf('texte')>=0je n'ai aucune idée de la méthode pour un TCell .

[SergioMaster]

Bon, comme d'habitude, à peine posée et en guise d'échauffement avant les heures de boulot, je m'y suis mis

mon "oubli" fut à la déclaration de ma liste.

Voici une solution :

Code :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
  TCell = class
    col : integer;
    raw : integer;
  private
    Fischecked: boolean;
    procedure Setischecked(const Value: boolean);
  public
    property ischecked : boolean read Fischecked write Setischecked;
    constructor Create(acol,araw : Integer; ischecked : boolean = false);
  end;
 
  TSelectedCells = class(TList<TCell>)
  public
    function Find(const aCol,araw : integer): Integer;
  end;
 
 
{ TCell }
 
constructor TCell.Create(acol, araw: Integer; ischecked: boolean=false);
begin
col:=acol;
raw:=araw;
Fischecked:=isChecked;
end;
 
procedure TCell.Setischecked(const Value: boolean);
begin
  Fischecked := Value;
end;
 
{ TSelectedCells }
 
function TSelectedCells.Find(const aCol, araw: integer): Integer;
begin
for Result := 0 to Count-1 do
    if (Self[Result].col=aCol) AND (Self[Result].raw=araw) then
      exit;
  Result := -1;
end;

Point de détail : utiliser ou non des propriétés pour col et raw ?

NB.
J'ai utilisé à dessein un nom de fonction différent de IndexOf.

Utilisation

Code :

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

1
2
3
 ListeCellulesaveccase:=TSelectedCells.Create([TCell.Create(0,2,true)]);
 
 if ListeCellulesavecCase.Find(0,2)>=0 then ....

une autre solution serait de créer un comparateur mais cela me semble bien complexe !

[pprem]

la remarque qui sert à rien : ne pas confondre row et raw, c'est pas trop pareil et ça peut induire des bogues de cerveau

[ShaiLeTroll]

A l'arrache pour le Comparer, surtout que je suis en 10 Seattle, je te le ponds en V11 avec le var inline avec surement une syntaxe approximative

Code :

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

1
2
3
4
  TCellComparer = class(TComparer<TCell>)
  public
     function Compare(const Left, Right: TCell): Integer; override;
  end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
//------------------------------------------------------------------------------
function TCellComparer.Compare(const Left, Right: TCell): Integer;
begin
  // Le résultat est inférieur à zéro (<0) : Left se placera avant Right car Left est plus vers la gauche ou vers le haut que Right 
  // Le résultat est égal à zéro (=0)      : Left est égal à Right.
  // Le résultat est supérieur à zéro (>0) : Left se placera après Right car Left est plus vers la droite ou vers le bas que Right 
 
  // raw, pprem, je l'ai tellement pensé mais je n'ai rien dit vu mon anglais nullissime
  if Right.row = Left.row then
    Result := Right.col - Left.col 
  else
    Result := Right.row - Left.row ;
end;

Exemple d'utilisation

Code :

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

1
2
3
4
5
6
7
8
        var LCellArray: TArray<TCell> = FSelectedCells.ToArray();
 
        var LOrderer: TCellComparer = TCellComparer.Create();
        try
          TArray.Sort<TCell>(CellArray, LOrderer);
        finally
          LOrderer .Free();
        end;

ou

Code :

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

FSelectedCells := TSelectedCells.Create(TCellComparer.Create()); // Paramètre IComparer donc compteur de référence pour la libération

TCellComparer sera utilisé par Sort et BinarySearch et pas évident à comprendre mais le IndexOf via le TListHelper va aussi utiliser le Comparer

[SergioMaster]

la remarque qui ne sert à rien : ne pas confondre row et raw, c'est pas trop pareil et ça peut induire des bogues de cerveau

un cas de dyslexie typique de ma part avec la langue de Shakespeare

[SergioMaster]

A l'arrache pour le Comparer, ...

Merci, je ne suis pas sûr de me lancer sur cette piste.
Franchement cette histoire de cellule avec une case à cocher, c'est tordu
Toutefois, c'est la première fois que je réussis à utiliser un TStyleObject.
Bien évidemment, entre temps, je suis tombé sur quelques styles n'utilisant pas un TSyleObject (ni les mêmes noms de stylelookup d'ailleurs) mais un TPath pimenté d'un trigger pour la coche.
C'est la première fois que je vais pester sur le fait que ce ne soit pas un TStyleObject qui soit utilisé, car obtenir une image à partir de ce style ça va être carabiné !

[SergioMaster]

Pour ne pas rester sur un bec avec des styles avec TPath j'ai pondu le code suivant

Code :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TForm1.StringGrid1DrawColumnCell(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
  const Row: Integer; const Value: TValue; const State: TGridDrawStates);
var sb : TFMXObject;
    aRectF : TRectF;
    img : tfmxobject;
begin
if Assigned(Stylebook) then sb:=Stylebook.Style  else sb:=TStyleManager.ActiveStyle(Self);
if Test.find(Column.Index,Row)>=0 then
 begin
    if Test[Test.Find(Column.Index,Row)].ischecked
      then img := sb.FindStyleResource('checkcellstyle.checkboxchecked')
      else img := sb.FindStyleResource('checkcellstyle.checkboxunchecked');
    if assigned(img) then
      begin
        aRectf:=Bounds;
        arectf.Left:=arectf.Right-20; // to adapt
        TStyleObject(img).DrawToCanvas(Canvas,arectf,1);
      end
    else begin
      img:= sb.FindStyleResource('checkcellstyle');
      if assigned(img) then img:=img.FindStyleResource('checkmark');
      if assigned(img) and (img is Tpath) then
       begin
        if Test[Test.Find(Column.Index,Row)].ischecked
          then Tpath(img).Fill.Color:=TColorAnimation(Img.Children[0]).StopValue
          else Tpath(img).Fill.Color:=TColorAnimation(Img.Children[0]).StartValue;
        var bmp:=Tpath(Img).MakeScreenshot;
        aRectf:=Bounds;
        arectf.Left:=arectf.Right-20; // to adapt
        Canvas.DrawBitmap(bmp,Trectf.Create(0,0,bmp.Width,bmp.Height),aRectf,1);
       end;
    end;
    end;
end;

dans le cas de ce type style par exemple goldenGraphite.style ou aquagraphite.style
cela donne ceci


maintenant que j'ai obtenu cette première "victoire", cela me conforte dans mon intention d'écrire un nouveau chapitre à mon carnet de plongées dans les Styles FMX