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 :

[Andnotor]

A toi de voir comment se codait un Canvas.TextRect sous D7

J'avais cru comprendre que la question initiale portait sur la 10.4...

[EDIT]
Ah oui, tu l'as viré... de rage. Dommage !

[ShaiLeTroll]

Ce n'est pas FontName l'erreur, juste l'unité Graphics dans les uses pour tfVerticalCenter si ça existait à l'époque, j'ai quelque doutes car j'utilisais l'API DrawText



Sinon, c'est TextRect(Rect, 0, 0, FontName);

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.

Je confirme et à long terme pour un développeur c'est même mauvais, sans ses libs externes, tu finis par être perdu et ne plus savoir utiliser les classes de bases étant en permanence assisté par des composants qui font même le café (un très mauvais).

[Droïde Système7]

Andnotor,

Donc d'après ce que j'ai compris : me reste à approfondir comment se manie un Canvas.TextRect sous D7 ?

J'ai toutefois des doutes que l'on puisse obtenir ceci au final :



Ce serait trop beau, mais je te fais confiance.


Oui de rage et de découragement j'ai viré D10.4.

Super outil mais décevant en ce qui me concerne, par rapport à la JEDI

Je me doutais bien que lorsque j'avais installé la JEDI y avait ensuite des risques sur autres versions de Delphi.

Merci,

DS7

[ShaiLeTroll]

Suffit de dessiner l'icone selon TrueType ou pas, de changer la Font à chaque Dessin, c'est vraiment sans difficulté.

Et j'ai déjà donné le code en D7, c'est quand simple de faire CTRL+ ESPACE pour voir les paramètres.

[Droïde Système7]

ShaiLeTroll

Merci, y a du mieux au moins ça passe mais j'ai bien d'autres fonts

Suffit de dessiner l'icone selon TrueType ou pas, de changer la Font à chaque Dessin, c'est vraiment sans difficulté.

Pour toi oui...

Je vais finir par croire que ce n'est pas aussi facile puisque ça passe la patate chaude

DS7

[ShaiLeTroll]

Utilse EnumFonts pour la liste de Font, ça sera plus simple, tu n'auras que celle supportée par le Windows en cours

Tient ce code fait exactement ce que tu cherches : https://www.swissdelphicenter.ch/en/showcode.php?id=287

Juste ça suffit

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

[Droïde Système7]

Merci je vais voir.

Tiens encore un exemple de tirs croisés en rapport avec la désinstallation de D10.4

Du 10.4 intervenant des fois sous D7, greuuuuuuuuuu !!!

[Andnotor]

Fatigué le Droïde

TextRect(Rect, 0, 0, FontName), forcément que tu écris toujours au sommet du canvas.

[Droïde Système7]

Oui en effet c'est pas mal du tout :



Je vais voir si je peux arriver à transposer cet exemple sur une ComboBox suivant mon souhait au début.

Merci,

DS7

[Droïde Système7]

Fatigué le Droïde

TextRect(Rect, 0, 0, FontName), forcément que tu écris toujours au sommet du canvas.

Pas te moquer hein

Non mais découragé suite à ce que tu sais.

Merci pour la piste

DS7

[ShaiLeTroll]

Je ne l'ai pas en Delphi mais pour l'ajout d'un icone ça donne ça

Code cpp :

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

1
2
3
4
5
6
7
8
//---------------------------------------------------------------------------
void __fastcall TShaiDVRDahuaTechnology_Generic_CameraConfiguratorForm::cbxChannelDrawItem(TWinControl *Control,
          int Index, TRect &Rect, TOwnerDrawState State)
{
  TComboBox *ComboBox = dynamic_cast<TComboBox*>(Control);
  if (ComboBox)
    TComboChannelManager::DrawComboChannel(ComboBox, dynamic_cast<TIdentObjChannel*>(ComboBox->Items->Objects[Index]), Rect, State);
}

Je me souviens pas du résultat mais en lisant le code, la couleur était à droite du texte.
Une petite pastille de couleur

Toi tu devrais faire l'inverse, un TextOut en Rect.Left + 16 + 2 * 3 et le dessin de l'image par un DrawTo en Rect.Left + 2, a toi de gérer les + 2 pour avoir le spacing qui te plait.

Code cpp :

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
//---------------------------------------------------------------------------
/*static*/ void TComboChannelManager::DrawComboChannel(TComboBox *ACombo, TIdentObjChannel* AChannel, TRect &Rect, TOwnerDrawState State, IShaiDVRDahuaBulkCamerasConfigurationManager* ABulk/* = NULL*/)
{
  if (ACombo && AChannel)
  {
    TCanvas *ComboCanvas = ACombo->Canvas;
 
    // Choix de la couleur de fond selon sélection
    ComboCanvas->Brush->Color = State.Contains(odSelected) ? clHighlight : ACombo->Color;
    ComboCanvas->Pen->Color = ComboCanvas->Brush->Color;
    // Dessin du fond
    ComboCanvas->Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
 
    // Texte
    ComboCanvas->TextOut(Rect.Left + 2, Rect.Top + 1, AChannel->Ident);
 
    // Vérifie l'état du canal
    if (ABulk)
      AChannel->Reserved = ABulk->BulkChannelReservation[AChannel->FriendlyChannel];
 
    // Choix de la couleur indiquant l'affectation d'un canal
    ComboCanvas->Brush->Color = AChannel->Selected ? clSkyBlue : AChannel->Affected ? clWebLightCoral : AChannel->Reserved ? clWebLavenderBlush : clMoneyGreen;
    ComboCanvas->Pen->Color = ComboCanvas->Brush->Color;
 
    // Dessin du pseudo icone d'indication d'état
    int l = Rect.Left + ComboCanvas->TextWidth(AChannel->Ident) + 4 + 2;
    ComboCanvas->Rectangle(l , Rect.Top + 4, l + 8, Rect.Top + 4 + 8);
  }
}

[ShaiLeTroll]

Je vais voir si je peux arriver à transposer cet exemple sur une ComboBox suivant mon souhait au début.

Ce qui ne doit pas changer grand chose ... d'ailleurs, tu as déjà le code ci-dessus : https://www.developpez.net/forums/d2.../#post11766875 juste faire + n sur Left et Top pour un alignement plus propre, je faisais Rect.Left + 2, Rect.Top + 1 qui devait donner la position comme le ferait la VCL

Note TextOut plus simple à utiliser que TextRect

[Droïde Système7]

Merci méchant Troll

Moi qui aurais souhaité du pas trop compliqué ; suis servi

Stp, ne me donne pas l'idée de transformer mon D7 en OVI

DS7

Edit : oupsssss bien de nos messages se sont croisés et j'ai certainement omis de regarder tranquillement vos trouvailles et aides.
Merci à vous deux, je vais regarder ça tranquillou demain.

Bonne nuit, aller... je ferme les lumières de DVP

[Droïde Système7]

Je ne peux m'empêcher de rallumer les lumières de DVP pour vous dire et montrer suivant le code de swissdelphicenter :





Me reste les icônes à gauche de cette Combo, mais oui j'ai vu ton code méchant Troll j'ai déjà du mal avec Delphi, alors n'en rajoute pas une couche.

Ceci dit, grâce à vous deux, je suis déjà amplement satisfait, et même si je n'avais pas les icônes colorées à gauche ; ce serait tout à fait négligeable.

Je vois même du fond de la poubelle mon D10.4 qui me fait signe... Hé oui à part ce compo, les autres allègrement tartinés sur presque toutes mes appli, sont possiblement changeables sans grandes répercussions visuelles je crois.

Merci et bonne nuit, aller, je referme les lumières,

Je taguerais ce thread en résolu bientôt, je laisse encore un peu comme ça.

DS7