Discussion :

[Jon Shannow]

Bonjour,

Voilà, je souhaite développer un projet sous Lazarus (un truc perso) avec une charte graphique précise (afin de garder une certaine cohérence entre les différentes fiches). Donc, la couleur, la police, ... des éléments les plus importants devront être les mêmes pour l'ensemble du projet.

Évidemment, je pourrais tout redéfinir à chaque insertion d'un composant...
Mais, je pense qu'il y a mieux à faire. L'idéal serait de redéfinir les propriétés par défaut des composants standards que je compte utiliser (quitte à en personnaliser ultérieurement, en cas d'oubli au démarrage). C'est là que ça coince... Ma connaissance de la LCL n'est pas suffisamment pointue pour être capable de déterminer comment m'y prendre sans faire une usine à gaz...

J'aimerais, grosso modo, créer un modèle de fiche puis un bitbtn, un edit, un label, une stringgrid, et les version db de certains composants, un panel, ...

D'après vous, comment je dois m'y prendre ?

Merci de vos idées

JS

[gvasseur58]

L'idéal serait de redéfinir les propriétés par défaut des composants standards que je compte utiliser (quitte à en personnaliser ultérieurement, en cas d'oubli au démarrage). C'est là que ça coince... Ma connaissance de la LCL n'est pas suffisamment pointue pour être capable de déterminer comment m'y prendre sans faire une usine à gaz...

Bonjour,

Pour régler ce problème, tu peux effectivement créer un nouveau paquet contenant des composants modifiés.
Pour la création du paquet et l'installation des composants, si tu ne sais pas comment procéder, je te renvoie à un tuto que j'avais rédigé il y a quelques mois : ici.
Pour les composants eux-mêmes, il suffit de définir les propriétés voulues dans un constructeur surchargé.

Exemple :

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
interface
 
uses
  Classes, SysUtils, StdCtrls;
 
type
 
  { TGVMyLabel }
 
  TGVMyLabel = class(TLabel)
  public
    // création du composant
    constructor Create(TheOwner: TComponent); override;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TGVMyLabel }
 
constructor TGVMyLabel.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner); // on hérite pour récupérer les comportements de l'ancêtre
  Font.Color := clRed; // écriture en rouge
  Cursor := crHourGlass // nouveau curseur
end;

Quand j'aurai installé ce composant TMyLabel, le fait d'en utiliser un fera que j'aurai un TLabel avec un comportement sur mesure (ici, une écriture rouge de l'étiquette et un curseur particulier pour le survol de la souris).

[Jon Shannow]

Merci de cette réponse plus que détaillée.

Apparemment, tu me conseilles de repartir des composants finaux plutôt que de leur parent "custom", c'est ça ?

JS

[anapurna]

salut

alors moi je ne conseille pas du tout ça ^^
développer tout les composants juste pour leur affecter une propriétés c'est une aberration

il est préférable de te créer une fiche de base dans lequel tu te crée une fonction qui va harmoniser tes composant

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
33
34
35
36
37
38
39
40
41
42
43
44
45
//////////////////////////////////////////////////////////////////////////
//                          NormalizeControls 
//////////////////////////////////////////////////////////////////////////
procedure TFormBase.NormalizeControls(F: TScrollingWinControl);
var
   i: integer;
  c: TComponent;
begin
  for i := 0 to Pred(F.ComponentCount-1) do
  begin
    c := F.Components[i];
    NormalizeControl(c);
  end;
end;
//////////////////////////////////////////////////////////////////////////
//                          NormalizeControl 
//////////////////////////////////////////////////////////////////////////
procedure TFormBase.NormalizeControl(C: TComponent);
begin
   if (C is TEdit) then 
   begin
      TEdit(C).Font.Color := clNavy;
      TEdit(C).Font.Style := [fsBold];
      if not Assigned(TEdit(C).OnEnter) then
         TEdit(C).OnEnter := OnEnterControl;
      if not Assigned(TEdit(C).OnExit)  then
        TEdit(C).OnExit  := OnExitControl;
   end
   else 
...
end;
//////////////////////////////////////////////////////////////////////////
//                          FormCreate 
//////////////////////////////////////////////////////////////////////////
procedure TFormBase.FormCreate(Sender: TObject);
begin
  // propiete de ta form general
  Top  := - GetSystemMetrics(SM_CYBORDER)-GetSystemMetrics(SM_CYCAPTION);
  Left := - GetSystemMetrics(SM_CXBORDER);
  BorderStyle := bsNone;
  Position := poMainFormCenter;
  Scaled := FALSE;
  NormalizeControls(Self);
  ...
end;

[gvasseur58]

développer tout les composants juste pour leur affecter une propriétés c'est une aberration

Qui parle d'une seule propriété et de tous les composants ? La méthode qui consiste à personnaliser des composants est évidemment seulement valable si les composants sont employés à de multiples reprises : sinon, même pas la peine de se fatiguer avec une fonction centrale. Cette dernière ne présente d'ailleurs pas que des avantages : sauf avec une imbrication douteuse de tests, elle passe à la moulinette tous les composants qui traînent. Mais bon, suivant les cas, je choisirais l'une ou l'autre.

Apparemment, tu me conseilles de repartir des composants finaux plutôt que de leur parent "custom", c'est ça ?

Oui : les parents "custom" exigent des compléments qui dépassent largement le point de vue esthétique que tu sembles rechercher. En général, seul le constructeur est à adapter en partant de la classe finale. Autre avantage : des fonctionnalités supplémentaires pourront être développées si nécessaire, tout à fait dans l'esprit de la POO .

[Jon Shannow]

@anapurna, je préfère de loin modifier quelques composants et les mettre dans un paquet que de faire une moulinette qui risque de devenir une usine à gaz.

@gvasseur58, je comprends ta réflexion. C'est simplement que, dans mes souvenirs de Delphi, il était fort déconseillé de partir des composants style TLabel, mais plutôt de partir des TCustomMachin.