Discussion :

[Jipété]

Bonjour,

je bricole un petit prog pour gérer mes fontes, là j'en suis au tout début, aux essais sur une maquette pour voir à quoi ça ressemble, et déjà ça part en sucette :


Vous voyez une différence ? Pas au niveau des barres de titre, en tout cas, puisqu'elles sont identiques, et c'est bien ce qu'on voit en examinant la zone MoneyGreen (une ScrollBox que je remplis de TEdit et qui s'adapte automagiquement en dimensions).

Et personne ne se demande pourquoi, dans le TPanel du haut, l'un présente 185 quand l'autre affiche 210 ?
C'est tout simple (et c'est l'enfer) : pour en haut, j'ai l'instruction
Form1.Height:=pnlTop.Height+SBox0.Height+25; tout à la fin de TForm1.FormCreate, et pour en bas je me contente de
Form1.Height:=pnlTop.Height+SBox0.Height; dans TForm1.CombosizeChange.

Le trait vertical dans la zone du texte du Combobox indique que je l'ai utilisé en demandant taille 10 d'abord puis taille 12 ensuite (sinon il ne se passe rien).

Si quelqu'un peut m'expliquer ce mystère...
Merci et bon dimanche.

[Guesset]

Bonjour,

185 vs 210 quoi ?

Si c'est la hauteur, vérifier les marges. Elles ne se voient pas mais elle sont là et comptent dans la dimension totale.

Salutations

[Jipété]

Bonsoir,

désolé pour le retard à répondre, suis un peu harcelé de tous côtés en moment...

185 vs 210 quoi ?

il s'agit bêtement de pixels concernant la hauteur d'objets. Et ce que je voulais montrer là, c'est que pour avoir la même valeur visuelle, selon où on se trouve dans le code, il ne faut pas faire les mêmes calculs,
Assez perturbant.

(ce qui suis a été écrit ce matin)
Alors vu que le forum a des soucis, je ne vais pas m'éterniser, d'autant plus que je suis sûr que des choses ne fonctionnent pas, ou pas convenablement :
J'ai une ScrollBox avec AutoSize à True, la petite aide dans l'inspecteur d'objets indique

Allows automatic adjustment of the size for the control, according to its content.

ce qui donne envie, mais j'ai beau empiler les objets dans ma ScrollBox, celle-ci ne bronche pas, en termes de hauteur puisque c'est le point qui m'intéresse.
À partir de là, on peut chercher tout et n'importe quoi et n'importe où, on ne sait pas où on va -- enfin, moi.

Une intuition (mon ange gardien ?) m'ayant fait regarder l'aide complète de la propriété Autosize, j'en ai conclu qu'il me fallait virer tous ces AutoSize à True, et tout recalculer/repositionner à la main, mais ça ne suffit pas.

(et ce qui suit a été écrit il y a 10 minutes)
Alors j'ai beaucoup bataillé et j'ai terminé par l'aide de AutoSize, la vraie aide, qui dit des choses qu'on ne trouve pas dans la petite aide sous les propriétés.
Et c'est ce gag qui m'a fait perdre des heures et des heures...
Selon comment sont gérés et configurés les objets parent, l'Autosize ne fonctionnera pas pour les objets enfant !

J'ai donc viré tous les Align:=al... et d'autres trucs du même tonneau sur lesquels je m'acharnais, et je suis reparti à tout calculer et définir à la mano, avec entre autres SetBounds et ça m'a changé la vie !
Une petite image vite fait et pleine de couleurs (il n'y a que comme ça qu'on peut s'y retrouver) :


Explication : de haut en bas il y a 8 TPanel rouge / bleu clair en alternance, qui hébergent 2 TEdit jaune et fuchsia / vert foncé et vert clair en alternance aussi.
Dans ma boucle principale for i := 0 to 7 do... j'ai simplement mis cette ligne dans la création des panneaux : if Odd(i) then Color := clSkyBlue else Color := clRed; et avec d'autres couleurs pour d'autres cibles.

J'ai remis, pour me simplifier la vie, un seul Align := alTop;, ça concerne les panneaux qui hébergent les TEdit à texte, 2 : l'un pour le nom de la fonte, l'autre pour une ligne d'exemple.
Et ça, répété autant qu'il y a de fontes, sauf qu'ici j'ai bloqué à 8 pour le moment.
Et pour l'esthétique j'ai aussi la main ScrollBox avec Align := alClient;.

On remarquera tout en bas de l'image, juste au-dessus de la scrollbar horizontale, un trait foncé de 2 ou 3 px qui vient de la form elle-même et que je ne peux pas masquer pour le moment : si je diminue la hauteur globale, ça me rajoute une scrollbar verticale à droite,

Bah, quand toutes ces couleurs seront repassées en blanc, ça ne se verra pas.

[Guesset]

Bonjour Jipété,

Form1.Height:=pnlTop.Height+SBox0.Height+25; tout à la fin de TForm1.FormCreate, et pour en bas je me contente de
Form1.Height:=pnlTop.Height+SBox0.Height; dans TForm1.CombosizeChange.

Il n'est pas sûr que, dans le TForm1.FormCreate, les hauteurs de SBox0 et pnlTop soient autres que celles de la conception, lesquelle peuvent différer de celles effectives pour peu que certaines propriétés d'alignement ou autosize soient à l'œuvre. En général, je préfère lâchement faire ces ajustements dans un événement OnsizeChange de la fiche.

Salut

[Jipété]

Bonjour,

En général, je préfère lâchement faire ces ajustements dans un événement OnsizeChange de la fiche.

qui sort d'où ?
La fin de la liste des événements de Form1 (Laz 2.2.6) :


Ou alors tu as confondu avec OnResize ?

[Guesset]

Bonjour,

C'est exact, l'événement de changement de taille s'appelle bien OnResize dans la fiche. Le terme est du reste un peu trompeur puisqu'il est activé dès le début du programme.

Salutations

[Jipété]

Yep !

Le terme est du reste un peu trompeur puisqu'il est activé dès le début du programme

Pas toujours, ça dépend de ce qu'il y a dans ton FormCreate...

Sinon, en ce qui me concerne, c'est un tel enfer les alignements avec des TPanels qui hébergent des TPanels qui hébergent des TEdits dont la taille peut varier en fonction de la fonte, que je sens que je vais passer par un TDrawGrid TStringGrid...

[Jipété]

... je sens que je vais passer par un TDrawGrid TStringGrid...

Ouais, je sens que je vais tout passer par la fenêtre, plutôt, parce que là, j'en ai plus que marre de perdre du temps à essayer de faire fonctionner des trucs qui ne veulent rien savoir...

Le dernier en date : je pose une TSringGrid sur ma fiche, je demande dans les propriétés la présence du ScrollBar ssHorizontal et pour ce faire j'utilise l'option qui va bien dans l'inspecteur d'objets.
Ensuite, pour la configuration de la grille, j'utilise un SetBound :

Code :

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

1
2
3
4
5
6
  sg.SetBounds(
    1, // plus joli
    pnlTop.Height, // parce que j'ai un TPanel alTop tout en haut de la fiche
    Form1.Width+20, // pour dépasser la largeur de la grid
    Form1.Height-pnlTop.Height 
    );

et croyez-le ou pas, mais je n'ai pas de scrollbar affichée :




Dans le FormCreate :

Code :

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

1
2
  sg.SetBounds(1,pnlTop.Height,Form1.Width+20,Form1.Height-pnlTop.Height);//+SCROLLBARHORIZ_HEIGHT);
  sg.Columns[1].Width := sg.Width-sg.Columns[0].Width;

Et dans une proc quelconque appelée par FormCreate :

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
var
  i: integer;
  c: TGridColumn;
begin
  FullHeight :=0;
  sg.RowCount:=8;
  ht := 48; // pour test
  for i := 0 to 7 do begin // pour test
    sg.RowHeights[i]:= ht;
    FullHeight := FullHeight + ht;
    memo1.Append(inttostr(i)+' '+inttostr(FullHeight));
    sg.Cells[0,i] := IntToStr(i);
  end;
  // deux lignes d'un tuto
  sg.Rows[1].CommaText := '1,2,3,4,5';
  sg.Rows[2].Text := 'a'+#13#10+'s'+#13#10+'d'+#13#10+'f'+#13#10+'g';
  // order c,r
  sg.Cells[0,0] := 'test';
  sg.Cells[1,0] := UTF8Encode(LongLine);
 
  sg.Height:=FullHeight + SCROLLBARHORIZ_HEIGHT;
  Form1.Height:= pnlTop.Height+sg.Height;
end;

Et pas moyen de supprimer cette bande blanche sous la dernière row,

Je m'absente, retour en fin d'aprème,

[Jipété]

Allez, ça ira bien pour aujourd'hui :

Donc j'ai intégré la constante oubliée ce matin, j'ai copieusement redimensionné la largeur de la colonne 1 et la largeur de la stringgrid, et j'ai rajouté la longline pour remplir de "matière" la col1, puis F9


et avec un click dans Col1 on récupère la fin de la LongLine -- mais c'est pas du boulot, ça !


et zéro scrollbar.
Je ne vois absolument pas ce qui se passe...

Par contre, si j'enlève sg.Align=alClient pour passer à alNone, alors là, c'est la fête !
Et du coup, pour des copies d'écrans sympathiques, je descends les données de test sur la dernière row :


Le seul truc dommage, c'est que bien qu'ayant activé HorzScrollBar.Smooth et .Tracking, ce dernier n'est pas opérationnel...


Le code :

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
const
  SCROLLBARHORIZ_HEIGHT = 20;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i, ht: integer;
  FullHeight: Integer;
begin
  sg.SetBounds(1,pnlTop.Height,Form1.Width+20,Form1.Height-pnlTop.Height);//+SCROLLBARHORIZ_HEIGHT);
  sg.Columns[1].Width := sg.Width-sg.Columns[0].Width;
 
  FullHeight := 0;
  sg.RowCount:= 8;
  ht := 48; // pour test
 
  for i := 0 to 7 do begin // pour test
    sg.RowHeights[i]:= ht;
    FullHeight := FullHeight + ht;
    sg.Cells[0,i] := IntToStr(i);
    memo1.Append(inttostr(i)+' '+inttostr(FullHeight));
  end;
 
  LongLine := UTF8Encode('0123456789 -- J'+WideChar($2019)+'aime les MOTS de cette LIGNE avec ses lettres '+WideChar($00e0)+' JAMBAGES, '+WideChar($00c9)+'CRITS par la fonte indiqu'+WideChar($00e9)+'e ci-dessus. ');
  // order c,r
  sg.Cells[0,7] := 'test';
  sg.Cells[1,7] := UTF8Encode(LongLine);
  sg.ColWidths[1] := 800; // pour caser le texte de la longline
  sg.Width:=1300; // bien plus grand que la col1
 
  sg.Height:=FullHeight + SCROLLBARHORIZ_HEIGHT;
  Form1.Height:= pnlTop.Height+sg.Height;
end;

[ChPr]

C'est ta ligne 28 qui fiche la pagaille. Commente-la et tu verras ta barre de scroll.

Cordialement.

Pierre.

[Jipété]

Bonsoir,

C'est ta ligne 28 qui fiche la pagaille. Commente-la et tu verras ta barre de scroll.

Pierre, ça aura été bien plus compliqué que ça, la preuve, j'ai passé la journée là-dessus...

Ça avait mal commencé, ce matin, par un mystère : après avoir lu ton post, j'ai voulu vérifier et comm' d'hab' chez moi, ça ne fait pas comme chez les autres...
1-) que je commente ou pas la ligne 28 n'a fait ici aucune différence !
2-) j'ai découvert avec stupéfaction que, si j'ai écrit hier en gros "si j'enlève sg.Align := alClient pour le passer en alNone c'est la fête", sous-entendu bingo !, quand j'ouvre l'inspecteur d'objets pointé sur la Scrollbox, quelle n'a pas ma surprise de constater qu'elle est configurée avec Align := alClient !
À n'y rien comprendre...

Bref, après avoir sué Blood Sweat and Tears toute la journée, je vois le bon bout du tunnel, mais il aura été impératif d'enlever tous les enrichissements et autres fioritures, résultat je me retrouve avec une ihm plate comme une ihm moderne.
Mais j'essaierai de reprendre ça.
En attendant, je vous présente ce shoot de 10 fontes, j'aurais bien aimé avoir une séparation horizontale pour chacune, on verra ça plus tard :


Allez, un peu de repos...


PS : après mure réflexion, je vais garder les scrollbars, elles seront nécessaires dans le produit fini.

[Jipété]

Bonjour,

Quelques instants de détente, histoire de souffler et de vous montrer des trucs qui expliquent pourquoi, parfois, on se dit qu'on en a pour 10 minutes à torcher l'idée et que 3 jours après on voit à peine le bout du tunnel...

Me suis rendu compte, bien à mes dépens, que la programmation n'est pas un "long fleuve tranquille", loin, bien loin de là :

• entre les bugs des outils, par exemple le paramètre Layout du TLabeledEdit.EditLabel est incapable de faire ce qu'il propose : là, j'ai demandé TlTop, TlCenter et TlBottom et on voit bien que le label à gauche ne bronche pas !
  
• l'aide de l'inspecteur d'objets qui ne dit pas tout, alors quand on crée des composants en mode dynamique, il y a intérêt à regarder la vraie grosse aide, exemple avec ParentBackground := False;, que j'ai parfois découvert à True par défaut, je ne vous raconte pas les sacs de nœuds...
• et enfin les fontes configurées à la one again, genre cette Balloon Caps dont je ne me souviens absolument pas où je l'ai trouvée mais je prends bonne note qu'il ne faut pas l'utiliser en multi-ligne, tel que montré par un essai rapide avec Writer :
  

Bon, ça avance, doucement, car il faut tout vérifier à chaque étape...

Ah, vous noterez que j'ai rajouté un BevelOuter := bvRaised et un BorderStyle := bsSingle au panneau principal (le grand horizontal, un par fonte) à la toute fin de l'opération et ma foi, ça n'a rien cassé, même si, pour l'anecdote (et pour me repérer), j'avais poussé de 1 px à droite les panneaux blancs placés à droite, du coup je voyais la couleur de l'objet qui était dessous, et ce repère a disparu, masqué par l'arrivée de la bordure. Bah...

Mais ça permet de séparer les fontes, et ça, c'est bien sympa :


Prochaine étape : rajouter deux boutons sur chaque CommandPanel et là, il va y avoir du sport, vu le peu de place disponible dans certains cas...

[Jipété]

Hello,

• ... le paramètre Layout du TLabeledEdit.EditLabel est incapable de faire ce qu'il propose : là, j'ai demandé TlTop, TlCenter et TlBottom et on voit bien que le label à gauche ne bronche pas !
  

Bon, ce gag est corrigé, mais pas en dur dans la 3.0...


Voilà ce dont j'avais discuté il y a quelques grosses semaines dans le forum FreePascal, avec un commentaire rajouté concernant le Build (qui s'appelle "Créer" dans la version française) :

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
   Load file "customlabelededit.inc" from folder lcl/include of your Lazarus installation. 
Find procedure TCustomLabeledEdit.DoPositionLabel. 
In the block "case FLabelPosition", remove the two "FLabelEdit.AnchorVerticalCenterTo(...)" lines; they are in the lpLeft and lpRight cases.

    Load file "boundlabel.inc" from the same folder. 
It contains only a single procedure, "constructor TBoundlabel.Create(...)". Add two lines: "Alignment := taLeftJustify;" and "Layout := tlCenter;".

    Finally load file "extctrls.pp" in folder lcl. 
Find the declaration of TBoundLabel (about line 970). 
In the "published" section of the declaration add "property Alignment;", and change the line "property Layout" to be "property Layout default tlCenter;"

    Now rebuild the IDE: go to "Tools" > "Configure Build Lazarus", in the "Clean up" box check "Clean all" and "Switch after building to automatically".
J'ai barré ce bout, lire dessous... 
Then click "Build" and wait until the IDE restarts.
ça ne fonctionne pas ! La boite de messages en sortie de reconstruction -->
Nettoyer les codes sources de Lazarus: Code de sortie 2, Erreurs : 1
make[2]: *** interfaces/carbon: No such file or directory.  Stop. <-- Pas de carbon folder trouvé...
make[1]: *** [Makefile:5607: cleanall] Error 2
*** [Makefile(3151,0) Error: linker: cleanlaz] Error 2
Il faut laisser les params de base.

    Don't forget that you'll have to repeat these steps whenever you install a new Lazarus version.

Ce qui m'ennuie, c'est qu'il me semblait bien en avoir déjà parlé ici et je ne retrouve rien...
Bah...

EDIT : j'ai retrouvé la discussion in english : https://forum.lazarus.freepascal.org...hp/topic,65452