cs_Jean_Jean
Messages postés615Date d'inscriptiondimanche 13 août 2006StatutMembreDernière intervention13 décembre 2018
-
9 avril 2010 à 15:45
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 2022
-
11 avril 2010 à 15:13
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 11 avril 2010 à 15:13
Pour information:
cette portion de code, qui replace le dialogue au centre de la fiche, fait partie intégrante des sources, au moins, depuis TurboDelphi 2006.
Pour les versions de Delphi personnelles ... ben depuis qu'Embarcadero a repris les commandes il n'existe plus de versions gratuites, que des versions d'évaluations d'1 mois.
Alors oui je sais on peut encore télécharger à certains endroits un TurboDelphi mais l'enregistrement de ces produits n'est plus assuré par Embarcadero.
ps:
TuboDelphi Explorer ne m'a jamais empêché de créer et d'utiliser des composants perso et apporte bien plus qu'un D7
ThWilliam
Messages postés418Date d'inscriptionmardi 3 janvier 2006StatutMembreDernière intervention26 novembre 20134 11 avril 2010 à 13:22
@Christophe: merci pour le lien, mais je le connaissais et je ne suis pas certain d'être intéressé par TurboDelphi Explorer.
@Dom: "c'est les "1 mois" qui font problème ?" : eh oui...
A+
Thierry
defis91
Messages postés65Date d'inscriptionsamedi 29 octobre 2005StatutMembreDernière intervention 8 août 2011 11 avril 2010 à 13:04
Pour jean-jean : tu as compris l'inverse.
Au dela de Delphi7 ces constantes ont été ajoutées.
Le code de Thierry utilise BIF_NEWDIALOGSTYLE, et ne se compile donc pas avec delphi6.
C'est pourquoi j'ai effectué une recherche pour connaitre leur valeur et tester si une simple déclaration suffisait, et la réponse est oui.
extrait en VB (désolé):
'Use the new dialog layout with the ability to resize: SHELL 5.0 or later only!
Private Const BIF_NEWDIALOGSTYLE As Long = &H40
Private Const BIF_USENEWUI As Long = (BIF_NEWDIALOGSTYLE Or BIF_EDITBOX)
Pour Thierry, le score de 42% est celui d'un sondage sur les développeurs professionnel uniquement. Si l'on ajoute les non-professionnels, ce score doit surement être plus élevé.
Le lien pour avoir la dernière version gratuite (limitée à un mois)
https://downloads.embarcadero.com/free/delphi Mais je suis sur que tu connais... c'est les "1 mois" qui font problème ?
Encore merci pour ce code.
A+
Dom
cs_Christophe67
Messages postés80Date d'inscriptionlundi 2 juin 2003StatutMembreDernière intervention15 juin 2012 11 avril 2010 à 12:54
Ah oui j'oubliais , d'après le sondage que j'ai mis sur mon site pour le moment 43% des utilisateurs programment encore avec Delphi7.
www.delphinautes.fr rubrique sondage pour voir les chiffres.
cs_Christophe67
Messages postés80Date d'inscriptionlundi 2 juin 2003StatutMembreDernière intervention15 juin 2012 11 avril 2010 à 12:51
Il y a Turbo Delphi 2006 explorer qui est gratuit, il suffit juste de demander une clé d'activation valable 10.000 jours soit environ 90 ans.
Seul hic tu ne peux installer de composants dans cette version , pour le reste c'est ok et complet.
http://delphi.developpez.com/telecharger/gratuit/turbo-delphi/
Cordialement.
Christophe
ThWilliam
Messages postés418Date d'inscriptionmardi 3 janvier 2006StatutMembreDernière intervention26 novembre 20134 11 avril 2010 à 10:12
Salut Dom et merci.
Mais tu m'étonnes avec le faible pourcentage de ceux qui utilisent encore Delphi7. Si je ne me trompe pas, après Delphi2005, Delphi n'a plus fait de versions perso gratuites (si je me trompe, je suis preneur pour un lien !).
Cordialement.
Thierry
cs_Jean_Jean
Messages postés615Date d'inscriptiondimanche 13 août 2006StatutMembreDernière intervention13 décembre 20183 11 avril 2010 à 08:05
D'après le lien donné, Les deux constantes dont tu parles defis91 ne concernent que les versions postérieures à D7.
Donc pour moi ça ne change pas;
Précision qui servira pour d'autres.
Cordialement!
Jean_Jean
defis91
Messages postés65Date d'inscriptionsamedi 29 octobre 2005StatutMembreDernière intervention 8 août 2011 10 avril 2010 à 22:58
Super,
Pour les 42% qui ont encore delphi7 (ou moins), ajouter ces constantes oubliées dans ShlObj :
ThWilliam
Messages postés418Date d'inscriptionmardi 3 janvier 2006StatutMembreDernière intervention26 novembre 20134 9 avril 2010 à 15:55
Merci Jean_Jean.
Heureux de voir que ce code t'est utile.
cs_Jean_Jean
Messages postés615Date d'inscriptiondimanche 13 août 2006StatutMembreDernière intervention13 décembre 20183 9 avril 2010 à 15:45
Bravo ThWilliam!
Voilà qui m'est bien utile! qu'elle bonne idée tu as eu là!
Pour ceux que ça intéresse, voici le test de ta fonction :
procedure TForm1.Button1Click(Sender: TObject);
var Rep : string;
R : TRect;
begin
R:= Rect(Left, Top, Left + Width, Top + Height);
if SelectDirectoryEx('Saisissez votre répertoire d''installation', Rep,R,True) then
begin
showmessage('Traitement');
end;
end;
11 avril 2010 à 15:13
cette portion de code, qui replace le dialogue au centre de la fiche, fait partie intégrante des sources, au moins, depuis TurboDelphi 2006.
Pour les versions de Delphi personnelles ... ben depuis qu'Embarcadero a repris les commandes il n'existe plus de versions gratuites, que des versions d'évaluations d'1 mois.
Alors oui je sais on peut encore télécharger à certains endroits un TurboDelphi mais l'enregistrement de ces produits n'est plus assuré par Embarcadero.
ps:
TuboDelphi Explorer ne m'a jamais empêché de créer et d'utiliser des composants perso et apporte bien plus qu'un D7
11 avril 2010 à 13:22
@Dom: "c'est les "1 mois" qui font problème ?" : eh oui...
A+
Thierry
11 avril 2010 à 13:04
Au dela de Delphi7 ces constantes ont été ajoutées.
Le code de Thierry utilise BIF_NEWDIALOGSTYLE, et ne se compile donc pas avec delphi6.
C'est pourquoi j'ai effectué une recherche pour connaitre leur valeur et tester si une simple déclaration suffisait, et la réponse est oui.
extrait en VB (désolé):
'Use the new dialog layout with the ability to resize: SHELL 5.0 or later only!
Private Const BIF_NEWDIALOGSTYLE As Long = &H40
Private Const BIF_USENEWUI As Long = (BIF_NEWDIALOGSTYLE Or BIF_EDITBOX)
Pour voir la signification de ces constantes, voir ici par exemple:
http://vbnet.mvps.org/index.html?code/browse/browsenetwork.htm
Pour Thierry, le score de 42% est celui d'un sondage sur les développeurs professionnel uniquement. Si l'on ajoute les non-professionnels, ce score doit surement être plus élevé.
Le lien pour avoir la dernière version gratuite (limitée à un mois)
https://downloads.embarcadero.com/free/delphi
Mais je suis sur que tu connais... c'est les "1 mois" qui font problème ?
Encore merci pour ce code.
A+
Dom
11 avril 2010 à 12:54
www.delphinautes.fr rubrique sondage pour voir les chiffres.
11 avril 2010 à 12:51
Seul hic tu ne peux installer de composants dans cette version , pour le reste c'est ok et complet.
http://delphi.developpez.com/telecharger/gratuit/turbo-delphi/
Cordialement.
Christophe
11 avril 2010 à 10:12
Mais tu m'étonnes avec le faible pourcentage de ceux qui utilisent encore Delphi7. Si je ne me trompe pas, après Delphi2005, Delphi n'a plus fait de versions perso gratuites (si je me trompe, je suis preneur pour un lien !).
Cordialement.
Thierry
11 avril 2010 à 08:05
Donc pour moi ça ne change pas;
Précision qui servira pour d'autres.
Cordialement!
Jean_Jean
10 avril 2010 à 22:58
Pour les 42% qui ont encore delphi7 (ou moins), ajouter ces constantes oubliées dans ShlObj :
const
BIF_NEWDIALOGSTYLE=$40;
BIF_NONEWFOLDERBUTTON=$200;
voir aussi ici :
http://www.cryer.co.uk/brian/delphi/howto_browseforfolder.htm
Amicalement
Dom
9 avril 2010 à 15:55
Heureux de voir que ce code t'est utile.
9 avril 2010 à 15:45
Voilà qui m'est bien utile! qu'elle bonne idée tu as eu là!
Pour ceux que ça intéresse, voici le test de ta fonction :
procedure TForm1.Button1Click(Sender: TObject);
var Rep : string;
R : TRect;
begin
R:= Rect(Left, Top, Left + Width, Top + Height);
if SelectDirectoryEx('Saisissez votre répertoire d''installation', Rep,R,True) then
begin
showmessage('Traitement');
end;
end;