COMPOSANT GRILLE AVEC NOUVELLES PROPRIÉTÉS
offlake
Messages postés
190
Date d'inscription
mercredi 3 septembre 2008
Statut
Membre
Dernière intervention
17 janvier 2009
-
31 déc. 2008 à 23:41
podi11 - 15 févr. 2015 à 11:11
podi11 - 15 févr. 2015 à 11:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/48843-composant-grille-avec-nouvelles-proprietes
https://codes-sources.commentcamarche.net/source/48843-composant-grille-avec-nouvelles-proprietes
15 févr. 2015 à 11:11
7 janv. 2009 à 13:14
Voir --> Grille = class(TStringGrid)etc...
7 janv. 2009 à 11:17
Pourquoi Grille et pas TGrille ?
6 janv. 2009 à 13:49
If Not(Ord(Copy(Value,1,1))) In [49..59] Then Value:='';FCol:=Value; peut être remplacé par :
If Ord(Copy(Value,1,1)) In [49..59] Then FCol:=Value Else FCol:=''; ou
If Copy(Value,1,1) In ['0'..'9'] Then FCol:=Value Else FCol:='';
------------------------------------------------------------------------
PWideChar = essayer PChar... PAnsiChar
------------------------------------------------------------------------
Pour MessageDlg remplacez le par la fonction MessageBox ou remplacer dans Uses
Dialogs par QDialogs
6 janv. 2009 à 11:44
Je suis sur D7 pro et beaucoup d'erreurs de compilations ex
[Erreur] TGrille.pas(107): Types incompatibles
[Erreur] TGrille.pas(111): Types incompatibles
[Avertissement] TGrille.pas(118): Transtypage ambigu de String en PWideChar
[Avertissement] TGrille.pas(121): Transtypage ambigu de String en PWideChar
[Avertissement] TGrille.pas(123): Transtypage ambigu de String en PWideChar
[Avertissement] TGrille.pas(125): Transtypage ambigu de String en PWideChar
[Erreur] TGrille.pas(140): Trop de paramètres originaux
[Erreur] TGrille.pas(146): Trop de paramètres originaux
[Erreur] TGrille.pas(159): Trop de paramètres originaux
[Erreur] TGrille.pas(165): Trop de paramètres originaux
[Erreur] TGrille.pas(170): Trop de paramètres originaux
[Avertissement] TGrille.pas(183): Transtypage ambigu de String en PWideChar
[Avertissement] TGrille.pas(186): Transtypage ambigu de String en PWideChar
[Avertissement] TGrille.pas(188): Transtypage ambigu de String en PWideChar
[Avertissement] TGrille.pas(190): Transtypage ambigu de String en PWideChar
[Erreur fatale] Ttest.pas(4): Impossible de compiler l'unité utilisée 'TGrille.pas'
Genre
Procedure TCellColor.SetCol(Value:String);
Begin
If Not(Ord(Copy(Value,1,1))) In [49..59] Then Value:='';FCol:=Value;
End;
Ord demande un numerique...
5 janv. 2009 à 16:08
he bien impossible d'executer le test , manque le fichier .PAS.
et impossible de mettre en place le TGrille.BPL , dans quelle version de Delphi a t'il ete creé , j'ai D7 pro.
A+ et bonne programmation.
5 janv. 2009 à 14:12
Impossible d'ouvrir le fichier
Ttest.pas" Le fichier spécifié est introuvable.
Est-il possible d'avoir un exemple qui fonctionne ?
Merci
4 janv. 2009 à 09:03
- tu ne respectes aucune convention d'écriture dans la manière de nommer tes composants et/ou classes.
- le code est tassé au point de devenir illisible et incompréhensible pour un humain
- certaines déclarations n'ont rien à faire dans la partie Interface de l'unité (const Mess)
- A quoi servent la déclaration et l'implémentation de "Constructor TCellColor.Create(Owner:TComponent);" si tu ne mets aucun code dedans ?
- Idem pour le destructeur suivant :
destructor Grille.Destroy; // Destruction du Composant
begin
inherited Destroy;
end;
Ce code ne sert à rien en l'état.
Globalement, le concept est intéressant mais le travail ne semble pas vraiment fini et soigné.
1 janv. 2009 à 13:35
pourrais-tu remplacer les *.dcu par des *.pas?
Merci d'avance et bonne année.
31 déc. 2008 à 23:41
BY OFFLAKE