[D11] Autre chose que le Toolbar

Version imprimable

14/06/2022, 09h44
SergioMaster

2 pièce(s) jointe(s)

[D11] Autre chose que le Toolbar

Bonjour,

je suis fortement déçu par le ToolBar de mon interface
Pièce jointe 620760
Autant par l'image (mais ça, ça peut se gérer, ce sont des TPaths) que par le comportement quelque peu erratique après quelques "resize" de forme ou de zone (avec le splitter)

Pièce jointe 620763
un bug probable de D11 :koi:

Quelle serait les alternatives (non TMS ;)) ?
14/06/2022, 11h58
SergioMaster

1 pièce(s) jointe(s)

Pour l'instant j'ai choisi un Multiview en mode tiroir
Pièce jointe 620771

Cela dit, le mode tiroir, me fait hésiter, le multiview aussi d'ailleurs.
14/06/2022, 16h00
pprem

La toolbar c'est quand même plus pratique pour des trucs de mise en forme. Bizarre que tu aies ces problèmes de taille. Tout est aligné et recardé automatiquement ou y a du code quelque part ?
14/06/2022, 16h53
ShaiLeTroll

Je sais que c'est en FMX mais en VCL, plusieurs TSplitter, ça peut déconner sur les resize aussi, sans compter le scale de windows pour le 4K ... et parle même pas de la zone cliente d'un MDI qui dupliquait il y a longtemps le dessin des TSplitter (en D7 par exemple)

Entre les Anchors, les Constraints, j'ai remarqué que les Align sont moins souvent "abimés", cela oblige à avoir plus de conteneur imbriqué.

Tu l'as remplacé par une sorte de Burger Menu, je ne connaissais même pas le terme français "menu à tiroir", j'ai appris un truc !
14/06/2022, 17h24
SergioMaster

1 pièce(s) jointe(s)

Citation:

Envoyé par ShaiLeTroll

en VCL, plusieurs TSplitter, ça peut déconner sur les resize.. Entre les Anchors, les Constraints, j'ai remarqué que les Align sont moins souvent "abimés"

@Patrick Oui, c'est bizarre cette toolbar qui se retaille mal. Je ferais un test avec juste une toolbar pour vérifier ça et à l'occasion soumettre.

Finalement, j'ai viré le tiroir et mis les divers Expanders dans un TLayout ce qui donne un truc pas trop moche (je vais devoir mettre ces trucs dans un VertScrollBox)

Pièce jointe 620787

- récupération des Todos de chaque source du projet en prime, avec image pour les priorités (diodes à revoir) et DONE (double check)
14/06/2022, 21h28
pprem

PS : désolé de t'avoir donné du travail supplémentaire :ptdr:
15/06/2022, 07h33
SergioMaster

J'ai "simplement" modifié mon expression régulière, quoique, j'ai quelques faux positifs qu'il faut que je résolve.
J'hésite donc entre plusieurs solutions (brouillon) :
une expression par type de todo/done {\s*(TODO|DONE).*: ....}'|'//\s*(TODO|DONE).*: ....' |'(\*\s*(TODO|DONE).*:....*)
ou ,ce qui me plantait en fin de soirée, une expression unique (?<marqueur>{|//|$\*)\s*(?<type>TODO|DONE)\s*(?<priorite>\d*).*:(?<texte>.*}?|(\*$?))
le hic restant le multiligne possible des "marqueurs" { et *), en fait, c'est là que ça plantait en fin de soirée

N.B. Je ne suis pas un as des expressions régulières, mais grâce à Expresso j'arrive (péniblement) à créer et surtout tester mes expressions
15/06/2022, 09h17
pprem

Connaissais pas ce logiciel. Suis plutôt https://regex101.com car je m'en sers très rarement et aussi pour le web (PHP ou JS).
15/06/2022, 09h53
SergioMaster

Bon, je suis parti sur les trois expressions plutôt qu'une.
J'ai encore quelques cas particuliers à gérer genre : je mets un todo au sein d'une ligne de code :cfou:
Je me suis débrouillé pour récupérer les lignes suivantes (quand plus d'une ligne) mais, là encore, reste le cas particulier où il y a du code sur la même ligne :cfou:

1 pièce(s) jointe(s)

Pour continuer sur ma lancée, je me suis mis en tête de rajouter des tags standards (<H0>..<H4>) au composant DZHTMLText
Après quelques tâtonnements je ne suis pas peu fier d'avoir ce résultat

Pièce jointe 621067

via quelques modifications du code

Code:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
// ligne 1217 du source FMX.DZHTMLText.pas
  const DEF_TOKENS: array[0..25+5] of TDefToken = (
  (Ident: 'BR'; Kind: ttBreak; Single: True),
  (Ident: 'B'; Kind: ttBold),
  (Ident: 'I'; Kind: ttItalic),
  (Ident: 'U'; Kind: ttUnderline),
  (Ident: 'S'; Kind: ttStrike),
  (Ident: 'FN'; Kind: ttFontName; AllowPar: True),
  (Ident: 'FS'; Kind: ttFontSize; AllowPar: True; ProcValue: Tag_IntOneBased_ProcValue),
  {$REGION 'Adding Headers Tags'}
    (Ident: 'H0'; Kind: ttFontSize; AllowPar: False),
    (Ident: 'H1'; Kind: ttFontSize; AllowPar: False),
    (Ident: 'H2'; Kind: ttFontSize; AllowPar: False),
    (Ident: 'H3'; Kind: ttFontSize; AllowPar: False),
    (Ident: 'H4'; Kind: ttFontSize; AllowPar: False),
{$ENDREGION}
  (Ident: 'FC'; Kind: ttFontColor; AllowPar: True; ProcValue: Tag_Color_ProcValue),
  (Ident: 'BC'; Kind: ttBackColor; AllowPar: True; ProcValue: Tag_Color_ProcValue),
  (Ident: 'A'; Kind: ttLink; AllowPar: True; OptionalPar: True),
  (Ident: 'L'; Kind: ttAlignLeft),
  (Ident: 'C'; Kind: ttAlignCenter),
  (Ident: 'R'; Kind: ttAlignRight),
  (Ident: 'T'; Kind: ttTab; Single: True; AllowPar: True; ProcValue: Tag_IntOneBased_ProcValue),
  (Ident: 'TF'; Kind: ttTabF; Single: True; AllowPar: True; ProcValue: Tag_IntOneBased_ProcValue),
  (Ident: 'IMG'; Kind: ttImage; Single: True; AllowPar: True; ProcValue: Tag_IntZeroBased_ProcValue),
  (Ident: 'IMGRES'; Kind: ttImageResource; Single: True; AllowPar: True),
  (Ident: 'UL'; Kind: ttBulletList), //Unordered HTML List
  (Ident: 'OL'; Kind: ttNumberList), //Ordered HTML List
  (Ident: 'LI'; Kind: ttListItem), //HTML List Item
  (Ident: 'FLOAT'; Kind: ttFloat; AllowPar: True), //Floating div
  (Ident: 'SPOILER'; Kind: ttSpoilerTitle; AllowPar: True),
  (Ident: 'SDETAIL'; Kind: ttSpoilerDetail; AllowPar: True),
  (Ident: 'LS'; Kind: ttLineSpace; AllowPar: True; ProcValue: Tag_IntZeroBased_ProcValue),
  (Ident: 'SUP'; Kind: ttSuperscript),
  (Ident: 'SUB'; Kind: ttSubscript)
);
 
function TBuilder.ProcessTag(const Tag: string): Boolean;
..
begin
...
// ligne 1312
{$REGION 'Compute Headers Tags'}
        if A='H0' then value:=40;
        if A='H1' then value:=32;
        if A='H2' then value:=26;
        if A='H3' then value:=22;
        if A='H4' then value:=20;
{$ENDREGION}
      AddToken(Def.Kind, TOff, Par, Value);
      Result := True;
      Exit;
    end;
  end;
end;

Même si je pense que le code de la région 'Compute Headers Tags' est certainement améliorable ?

20/06/2022, 08h34
pprem

bien :)

plus qu'à soumettre tes modifications sur le projet officiel

Citation:

Envoyé par pprem

plus qu'à soumettre tes modifications sur le projet officiel

ce bout
Code:

1 2 3 4 5 6 7 {$REGION 'Compute Headers Tags'} if A='H0' then value:=40; if A='H1' then value:=32; if A='H2' then value:=26; if A='H3' then value:=22; if A='H4' then value:=20; {$ENDREGION}
ne me convaincs pas, il y a certainement mieux que ça mais, je n'arrive pas à avoir d'idée.

Je vois bien une liste avec les items H0=40,....H4=20 c'est l'initialisation de cette liste qui me fait défaut (dans un fichier à part, en $Include ?)

Ensuite, soumettre, hum je suis loin d'avoir l'expérience GitHub ad hoc

Citation:
Envoyé par SergioMaster
ce bout
Code:

1 2 3 4 5 6 7 {$REGION 'Compute Headers Tags'} if A='H0' then value:=40; if A='H1' then value:=32; if A='H2' then value:=26; if A='H3' then value:=22; if A='H4' then value:=20; {$ENDREGION}
ne me convaincs pas, il y a certainement mieux que ça mais, je n'arrive pas à avoir d'idée.

Je vois bien une liste avec les items H0=40,....H4=20 c'est l'initialisation de cette liste qui me fait défaut (dans un fichier à part, en $Include ?)
Je verrais bien un TDictionary, simplement initialisé à la création.
alx.

Citation:
Envoyé par SergioMaster
ce bout
Code:

1 2 3 4 5 6 7 {$REGION 'Compute Headers Tags'} if A='H0' then value:=40; if A='H1' then value:=32; if A='H2' then value:=26; if A='H3' then value:=22; if A='H4' then value:=20; {$ENDREGION}
ne me convaincs pas, il y a certainement mieux que ça mais, je n'arrive pas à avoir d'idée.

Je vois bien une liste avec les items H0=40,....H4=20 c'est l'initialisation de cette liste qui me fait défaut (dans un fichier à part, en $Include ?)
Pour moi il faut bannir les INCLUDE qui rendent le code incomplet dans l'IDE et ne permettent (pour le moment) pas de recherches.

Pour ces tests, tu as suivi l'esprit actuel de son projet. Beau ou moche peu importe. C'est lisible par toute personne s'étant déjà penchée dessus et ça fonctionne.

Citation:

Envoyé par SergioMaster

Ensuite, soumettre, hum je suis loin d'avoir l'expérience GitHub ad hoc

En fait c'est plus simple qu'on le pense :
- aller sur le projet qu'on veut modifier
- cliquer sur "fork" (en haut à droite) pour dupliquer le projet chez nous
- travailler sur la version rapatriée chez nous, faire des commit et les envoyer chez GitHub
(depuis un outil dédié comme Git For windows que j'utilise ou depuis l'IDE qui peut ouvrir notre version du projet depuis le dépôt, faire les COMMIT et synchroniser les mises à jour à condition de lui fournir "git")
- dans l'interface de GitHub, sur ta version du projet, il indique que tu es en avance sur l'autre et propose de faire un "pull request"
- il y a juste à remplir les explications à joindre et valider l'envoi

Explications vers la fin du webinaire sur Git et dans le PDF de la présentation :
https://serialstreameur.fr/webinaire-20201222.php

Citation:

Envoyé par _alx_

Je verrais bien un TDictionary, simplement initialisé à la création.

Oui, c'est l'idée que je me faisais, sauf que, de la théorie à la pratique...
dans l'idéal, je remplace ce bloc code par

Code:

if FHeaderTags.IndexOfName(A)>-1 then Value:=StrToInt(FHeaderTags.Values[A]);

où, FHeaderTags est un simple TStrings, sauf que j'ai une lacune : je n'ai pas encore trouvé le bon endroit de la création

j'ai testé ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 constructor TBuilder.Create; begin inherited; LToken := TListToken.Create; {$REGION 'Headers Tags Values'} FHeaderTags:=TStringList.Create; FHeaderTags.AddPair('H0','40'); FHeaderTags.AddPair('H1','32'); FHeaderTags.AddPair('H2','26'); FHeaderTags.AddPair('H3','22'); FHeaderTags.AddPair('H4','20'); {$ENDREGION} end; destructor TBuilder.Destroy; begin LToken.Free; FHeaderTags.free; inherited; end;
avec succès, mais j'ai l'impression que le programme rentre plusieurs fois dans ce constructeur.
mon idéal serait une constante mais est-ce possible ?

Dans le même ordre d'idée, je me suis penché sur l'interprétation des tags HTML de FastReport FMX, le but étant de pouvoir imprimer mes "todos" selon la même norme que le dzHTML, plutôt que d'imprimer le dzHTMLText.canvas

Citation:

Envoyé par pprem

En fait c'est plus simple qu'on le pense ..

pas pour un Lundi Kiné :)

Citation:
Envoyé par SergioMaster
Oui, c'est l'idée que je me faisais, sauf que, de la théorie à la pratique...
dans l'idéal, je remplace ce bloc code par

Code:

if FHeaderTags.IndexOfName(A)>-1 then Value:=StrToInt(FHeaderTags.Values[A]);

où, FHeaderTags est un simple TStrings, sauf que j'ai une lacune : je n'ai pas encore trouvé le bon endroit de la création

j'ai testé ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 constructor TBuilder.Create; begin inherited; LToken := TListToken.Create; {$REGION 'Headers Tags Values'} FHeaderTags:=TStringList.Create; FHeaderTags.AddPair('H0','40'); FHeaderTags.AddPair('H1','32'); FHeaderTags.AddPair('H2','26'); FHeaderTags.AddPair('H3','22'); FHeaderTags.AddPair('H4','20'); {$ENDREGION} end; destructor TBuilder.Destroy; begin LToken.Free; FHeaderTags.free; inherited; end;
avec succès, mais j'ai l'impression que le programme rentre plusieurs fois dans ce constructeur.
mon idéal serait une constante mais est-ce possible ?
Avec un TDictionary cela donnerait quelque chose comme:
Code:

1 2 3 4 5 6 7 var FHeaderTags: TDictionary<string,string>; ... FHeaderTags.Create([TPair<string,string>.Create('H0','40'), TPair<string,string>.Create('H1','32')] ...etc...); ...
Mais, à ma connaissance, quelque soit la classe à construire (TStringList, TDictionary ou autre), il n'est pas possible en Delphi d'écrire une expression constante qui utilise une instance de classe.
alx.

21/06/2022, 14h17
SergioMaster
Citation:
Envoyé par _alx_

Avec un TDictionary cela donnerait quelque chose comme:

Code:

1 2 3 4 5 6 7 var FHeaderTags: TDictionary<string,string>; ... FHeaderTags.Create([TPair<string,string>.Create('H0','40'), TPair<string,string>.Create('H1','32')] ...etc...); ...
je suis moins TDictionary car il ne faut pas oublier que le composant est censé fonctionner aussi avec Lazarus