Discussion :

[Droïde Système7]

Je me demandais une chose suite à une galère pas possible : serait-il possible suivant licence et aspect technique le la JEDI, de "retirer" simplement par exemple le compo JvFontComboBox de la librairie JEDI ?

Car cette bibio comporte des centaines de compo, mais combien en utilisons-nous réellement ?

Cela permettrait ensuite une grande agilité lors de migration ou changement de version de Delphi

Merci de vos commentaires et idées,

DS7

[Andnotor]

Moins tu compteras sur des composants externes, plus tu seras "agile". A part des choses compliquées à la Fast Report, je n'utilise aucun composant tiers.

Ce que tu souhaites avec ce JvFontComboBox se fait simplement avec un TComboBox dessiné manuellement (Style = csOwnerDrawFixed) :

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
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Assign(Screen.Fonts);
end;
 
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with ComboBox1, Canvas do
  begin
    var FontName := Items[Index];
    Font.Name    := FontName;
 
    FillRect(Rect);
    TextRect(Rect, FontName, [tfVerticalCenter]);
  end;
end;

[Droïde Système7]

Andnotor

Tu disais :
Moins tu compteras sur des composants externes, plus tu seras "agile".

Tu prêches un converti !

Mais cette JEDI est tellement alllllllléchante...

Oupsssss ce soir je vais tranquillement tenter de correctement lancer ton code.

Ta réponse me parait trop belle pour être vraie, whaouhhhh

Merci, à ce soir,

DS7

[Droïde Système7]

En testant sous mon Delphi 7, j'ai cette ligne qui ne passe pas du tout :

Code :

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

 var FontName := Items[Index];

Ce serait sur mon D10.4 que j'ai viré de rage sans doute que cela aurait passé.

Si ton astuce fonctionne sous D7, ce serait super !

Cela me permettrait sans doute de voir les choses autrement.

DS7

[Andnotor]

Déplace la déclaration.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var 
  FontName :string;
begin
  with ComboBox1, Canvas do
  begin
    FontName  := Items[Index];
    Font.Name := FontName;
 
    FillRect(Rect);
    TextRect(Rect, FontName, [tfVerticalCenter]);
  end;
end;

[Droïde Système7]

C'est mieux mais :

Code :

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

TextRect(Rect, FontName, [tfVerticalCenter]);

Type incompatible : Integer et String

J'ai transtypé mais :