Discussion :

[Papy214]

Bonjour

Y a t-il quelqu'un ici qui aurait les composants DevExpress dans une mouture récente ?

Papy

[ShaiLeTroll]

Oui DevExpress qui sera ravi de te les vendre à ces prix !

[Papy214]

Sacré Shaï !

C'est pas pour les acheter. Je travaille sur un projet en Delphi 2007 que je dois migrer en XE5. Et j'ai l'impression que les anciens développeurs ont modifié une (ou plusieurs unités) de l'ensemble. N'ayant installé que la version trial pour le dev, je n'ai pas le code source de la version actuelle pour comparer avec l'ancienne version.

Nulle intention de ma part de les avoir gratos

[ShaiLeTroll]

Et j'ai l'impression que les anciens développeurs ont modifié une (ou plusieurs unités) de l'ensemble.

Truc pas prudent du tout ça !
A part, si ils ont chopé des code de patch ou code de langage (le français n'est pas standard chez devexpress ! non ?)

Je te dirais que je verrais plus devexpress, je vais devoir en utiliser prochainement aussi !

[Papy214]

pas prudent du tout ! et même "caca" !
En fait, l'ancien code source (peut-être modifié) implémente des méthodes de classe dans une unité particulière. Et la nouvelle version me refuse la compilation en argumentant que les méthodes employées ne peuvent être que des constructeurs. Ce qui induit que ces méthodes de classe n'en sont plus. Je cherche juste quelqu'un qui ait le code source le plus récent pour comparer. Si la nouvelle version devexpress n'a plus les méthodes de classe, c'est que c'est bien aux qui ont modifié la librairie. Sinon, la modif vient des développeurs précédents.

[Linkin]

Le plus simple serait de donner un extrait du code qui ne compile pas en indiquant l'unité, comme ça on pourrait comparer.

Parce qu'envoyer les sources de dbexpress ne sera pas possible.

[Papy214]

Le plus simple serait de donner un extrait du code qui ne compile pas en indiquant l'unité, comme ça on pourrait comparer.

Parce qu'envoyer les sources de dbexpress ne sera pas possible.

Comme je le disais plus haut, mon but n'est pas d'obtenir les sources :-)

Mon problème se situe dans l'unité cxLookAndFeelPainters.pas. Toutes les méthodes des classes de cette unité sont des méthodes statiques. Je cherche juste à savoir si c'est pareil dans la dernière version.

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
 
 TcxUltraFlatLookAndFeelPainter = class(TcxCustomLookAndFeelPainter)
  protected
    // filter
    class function FilterDropDownButtonBorderColor(AState: TcxButtonState): TColor; virtual;
    // Scheduler
    class procedure DrawSchedulerNavigationButtonContent(ACanvas: TcxCanvas;
      const ARect: TRect; const AArrowRect: TRect; AIsNextButton: Boolean;
      AState: TcxButtonState); override;
    // tabs
    class function TabBorderHighlightColor: TColor; virtual;
    class function TabBorderDarkColor: TColor; virtual;
  public
    class function LookAndFeelStyle: TcxLookAndFeelStyle; override;
    // default
    class function DefaultSchedulerBorderColor: TColor; override;
    // border
    class function BorderHighlightColor: TColor; virtual;
    class function BorderSize: Integer; override;
    class procedure DrawBorder(ACanvas: TcxCanvas; R: TRect); override;
    // buttons
    class function ButtonBorderSize(AState: TcxButtonState = cxbsNormal): Integer; override;
    class function ButtonColor(AState: TcxButtonState): TColor; override;
    class function ButtonFocusRect(ACanvas: TcxCanvas; R: TRect): TRect; override;
    class function ButtonGroupBorderSizes(AButtonCount, AButtonIndex: Integer): TRect; override;
    class function ButtonSymbolColor(AState: TcxButtonState;
      ADefaultColor: TColor = clDefault): TColor; override;

etc.

Soit ça a été modifié par les anciens développeurs, soit c'est la nouvelle version qui est comme ça.

[Linkin]

Ma version est la 2011 vol2.3, tout est en méthode d'objet.

Si ma version est plus ancienne, au vu du code de ces fonctions, c'est logique de Dev Express les ai transformées en méthodes de classes.

Elles ne font que renvoyer des valeurs sans qu'il y ait de rapports avec une instance d'objet.

[Papy214]

J'ai eu un message en privé de quelqu'un qui a la dernière version. Les méthodes de classe n'ont apparemment plus cours.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 TcxUltraFlatLookAndFeelPainter = class(TcxCustomLookAndFeelPainter)
  protected
    // filter
    function FilterDropDownButtonBorderColor(AState: TcxButtonState): TColor; virtual;
    // Scheduler
    procedure DrawSchedulerNavigationButtonContent(ACanvas: TcxCanvas;
      const ARect: TRect; const AArrowRect: TRect; AIsNextButton: Boolean;
      AState: TcxButtonState); override;
    // BreadcrumbEdit
    procedure DrawBreadcrumbEditCustomButton(ACanvas: TcxCanvas; const R: TRect;
      AState: TdxBreadcrumbEditButtonState; ABorders: TcxBorders); virtual;
    // tabs

Je vais bien m'amuser à migrer le projet.