Discussion :

[Jipété]

Ca ca ne viens pas de moi mais de L'IDE (Je l'ai fais en 1.8RC4 64bit) Tu as utilisé quelle version ?? La 1.4 ?

Oui ! J'ai dit que je migrerai un mois après la mise à disposition de la 1.8 définitive.

et Alors ???? je comprend pas bien ce que tu veux dire

C'est quoi toutes ces instructions de copies pour un simple SetSize qui, comme son nom l'indique, devrait définir des tailles et c'est tout :

Code :

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

1
2
3
4
5
  // for delphi compatibility copy old image
 
    // use slow copy of pixeldata till rawimage can also copy to larger destination
 
      NewIntfImage.CopyPixels(CurIntfImage);

En quoi c'est pas bon ? C'est normal que le texte disparaisse le Bmp a une hauteur de 128 si tbPosY.Position = 128, le texte n'est pas dessiner. Il faudrait borner : 128-TextHeight('H') pour qu'il ne sorte pas.

Ben perso je trouve ça très moche ; mon trackbar est vertical : curseur en haut le texte est tout en haut, et curseur en bas le texte est tout en bas, j'y trouve une certaine logique. Bon, c'est un poil plus compliqué que simplement 128-TextHeight('H'), surtout s'il est prévu de jouer sur la taille de la police, mais ce n'est pas insurmontable, sauf quand il faut cliquer deux fois pour faire une action, relis mon dernier post.
Et sur ce coup-là j'ai essayé tout ce qui me passait par la tête (Frame.Repaint, .Update, Image.Refresh, etc.) sans aucun résultat si ce n'est des SIGSEGV...

[BeanzMaster]

Oui ! J'ai dit que je migrerai un mois après la mise à disposition de la 1.8 définitive.


C'est quoi toutes ces instructions de copies pour un simple SetSize qui, comme son nom l'indique, devrait définir des tailles et c'est tout :

Ben perso je trouve ça très moche ; mon trackbar est vertical : curseur en haut le texte est tout en haut, et curseur en bas le texte est tout en bas, j'y trouve une certaine logique. Bon, c'est un poil plus compliqué que simplement 128-TextHeight('H'), surtout s'il est prévu de jouer sur la taille de la police, mais ce n'est pas insurmontable, sauf quand il faut cliquer deux fois pour faire une action, relis mon dernier post.
Et sur ce coup-là j'ai essayé tout ce qui me passait par la tête (Frame.Repaint, .Update, Image.Refresh, etc.) sans aucun résultat si ce n'est des SIGSEGV...

Pour le Font.Size sois mise à jour : TTextStyle.SystemFont := False;Voila comment j'ai rajouté un trackbar pour controler le "Font.Height'. J'ai changé la fonction de dessin du texte dans mon example, ça fonctionne :

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
procedure TForm1.DoDrawTheText;
Var
  aTextStyle : TTextStyle;
  my : Integer;
begin
 BmpText.BeginUpdate(True);
 With BmpText.Canvas do
 begin
   Brush.Style := bsSolid;
   Brush.Color := clWhite;
   FillRect(0,0,400,128);
   Font.Color  := clYellow;
   Font.Height := tbFontSize.Position;
   With aTextStyle do
   begin
     Alignment :=  taCenter;
     Layout :=tlTop;
     SingleLine := False;
     WordBreak := True;
     Opaque := False;
     RightToLeft := False;
     SystemFont := False; // ---> FALSE sinon Canvas.Font.Size/Height ne sont pas mise à jour
     EndEllipsis := True;
   End;
   Brush.Style := bsClear;
   Brush.Color := clNone;
   my := tbPosY.Position;
   if my> 127 then my := my -TextHeight(edtText.Text)-1;  // Valable seulement si le text tiens sur une seule ligne. A voir comment calculer si sur plusieurs lignes
   TextRect(Rect(4,0,396,128),4,my,edtText.Text,aTextStyle);
 End;
 BmpText.EndUpdate();
end;

[Jipété]

Salut à tous,

Alors je re-clique pour réafficher la boîte de dialogue, je me contente de cliquer sur OK sans rien changer et là c'est enfin bon, le TextHeight est pris en compte et les calculs qui en découlent sont bons !

La nuit porte conseil, dit-on, ben moi c'est l'extinction de la machine !
Hier soir après l'avoir arrêtée je me suis dit "bon sang, c'est ça qu'il fallait essayer !"

Ça quoi ? demandez-vous, impatients. Ben, ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TfrmContrast.btnFont4imageClick(Sender: TObject);
begin
  if fdlg.Execute then begin
    FontName := fdlg.Font.Name;
    FontSize := fdlg.Font.Size;
    FontStyle:= fdlg.Font.Style;
    img4contrast.Canvas.Font.Name :=FontName;  // ajout
    img4contrast.Canvas.Font.Size :=FontSize;  // ajout
    img4contrast.Canvas.Font.Style:=FontStyle; // ajout
  end;
end;

Et je ne pouvais pas avoir l'idée de rajouter ces 3 lignes puisque sans elles le TImage reflétait quand même les changements.
Allez comprendre...

Bonne journée,

[anapurna]

salut

dis moi pourquoi faire compliqué alors que l'on peut faire plus simple
je reprend ton exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
begin
  if fdlg.Execute then begin
    FontName := fdlg.Font.Name;
    FontSize := fdlg.Font.Size;
    FontStyle:= fdlg.Font.Style;
    img4contrast.Canvas.Font.Name :=FontName;  // ajout
    img4contrast.Canvas.Font.Size :=FontSize;  // ajout
    img4contrast.Canvas.Font.Style:=FontStyle; // ajout
  end;
end;

moi j'aurais fait ça

Code :

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

1
2
3
4
5
 
begin
  if fdlg.Execute then 
    img4contrast.Canvas.Font :=fdlg.Font;  // ajout
end;

a moins d'une incompatibilité dans les fonts je ne vois aucune raison de le faire autrement

[Jipété]

salut

dis-moi pourquoi faire compliqué alors que l'on peut faire plus simple

Parce que ça ne se voit pas dans l'exemple, mais les trois variables FontName, FontSize et FontStyles sont utilisées ailleurs,

Mais c'est gentil d'y avoir pensé

[anapurna]

salut

ce ne serait pas plus simple d'utiliser une variable TFont par hasard ?
tes 3 variables seront toutes attachées à une entité commune ... je dis ça je dis rien ^^