HOROSCOPE GAULOIS
Bacterius
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
-
16 nov. 2009 à 00:02
cs_MicZ Messages postés 4 Date d'inscription vendredi 27 avril 2007 Statut Membre Dernière intervention 17 février 2008 - 21 févr. 2010 à 20:39
cs_MicZ Messages postés 4 Date d'inscription vendredi 27 avril 2007 Statut Membre Dernière intervention 17 février 2008 - 21 févr. 2010 à 20:39
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/50854-horoscope-gaulois
https://codes-sources.commentcamarche.net/source/50854-horoscope-gaulois
21 févr. 2010 à 20:39
J'ai essayé un ImageList
mais apparement on ne peut pas dépasser 255 x 255 pixels
en plus dans mon exemple les images se superposent
et si je mets toutes les images le programme plante
j'ai joint un exemple ci-dessous
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ImgList;
type
TForm1 = class(TForm)
Image1: TImage;
ImageList1: TImageList;
procedure Image1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Image1Click(Sender: TObject);
var d:integer;
begin
Image1.Picture.Bitmap := nil;
for d := 0 to 2 do
ImageList1.GetBitmap(d,Image1.Picture.Bitmap);
end;
end.
18 nov. 2009 à 14:57
Originale et pédagogique.
@MicZ
Si tu regardes l'Aide Delphi sur TStringList, tu t'apercevras qu'à chaque String de la liste, on peut associer un objet. Un Bitmap, par exemple. Ne dirait-on pas que TStringList a été créé pour toi ? ^^
Attention avec TImageList. Les images doivent toutes avoir la même taille et être des Bitmaps. Un fichier de jpeg n'est peut-être pas une si mauvaise idée que ça... ;)
18 nov. 2009 à 11:08
Pouvons nous attendre une nouvelle version de ce projet avec des optimisations ? :)
18 nov. 2009 à 11:04
Pour les images, j'ai utilisé PhotoPhiltre, mais je n'ai pas voulu pousser la compression,
je vois que c'est une fausse idée (hélas bien ancrée!)pour les photos de petit format,
Pour la correspondance Solaire Lunaire, je me suis fié à ce que j'ai lu sur des bouquins
traitant le sujet, de toute façon cet horoscope est juste un premier pas vers nos ancêtres,
en faisant une recherche sur le net avec Horoscope Gaulois onen apprends beaucoup plus.
je me disais aussi pour le Hêtre...
18 nov. 2009 à 04:31
TImageList et TStringList sont bien suffisants.
Et pour la procedure "Test", un simple tableau en 'Const' rapide et facile à coder et à corriger.
Le tout relié... et hop ! le prog tient en 3 lignes.
Au fait, pour la photo du hêtre... Pendant que le papa était au boulot, y'a sa maman qu'a dû fauter avec un bouleau de passage...
Parce qu'il est bien pâlot pour un hêtre, je trouve.
17 nov. 2009 à 06:37
Cordialement, Bacterius !
16 nov. 2009 à 19:26
Je suis très sceptique sur la méthode employée pour faire correspondre un calendrier lunaire et notre calendrier solaire...
Mais comme il n'y a pas non plus ni figuier ni olivier à Lille, ce n'est qu'un détail.
Ca doit être un truc pour gaulois du sud... ^^
16 nov. 2009 à 13:31
ok merci cirec je vais retélécharger pour voir :p
16 nov. 2009 à 12:21
Comment ?
ben tout simplement en virant tout ce qui était inutile dans le Zip !!!
Les images .. tu les as faites avec quoi ?
Moi je les ai juste ouvertes avec Paint et enregistrées sans modification aucune ...
résultat elles ont perdues 75% de leurs poids :D
PS: le lien fonctionne mais un espace vient se rajouter après validation du code ... il suffit donc de le traquer et le supprimer ... mais tout est dans le zip cette fois ;)
16 nov. 2009 à 10:56
Je trouve que les fichiers images ne doivent pas etre en .res, ça permets de pouvoir modifier ces arbres avec d'autres "skins".
Il y a un sacré paquet de répétitions dûes aux dates mais je suis persuadé qu'il y a moyen d'optimiser ça.
Comme bactérius : idée à creuser et sympa.
Bonne continuation
16 nov. 2009 à 09:34
Cordialement, Bacterius !
16 nov. 2009 à 09:31
pour les chemin relatif met signe.txt dans le répertoire de l'application et remplace tes chemins par la fonction GetCurrentDir()+'\nomduficher' plus facile pour l'application de trouver le chemin des fichiers, pour les image le lien que tu a donner ne fonctionne pas il dit fichier introuvable :s
j'attend de voir les images :) ( il y a encore des personnes comme moi qui utilise delphi 6 :) ? )
16 nov. 2009 à 00:10
- Tu pourrais faire en sorte que le fichier Signes.txt soit immédiatement reconnu sans avoir besoin de le mettre dans un dossier "Gaulois" ?
Sinon, idée originale, à creuser.
Cordialement, Bacterius !
16 nov. 2009 à 00:02
- Tu peux retirer le DFM de l'aperçu ? (il sera quand même dans le zip).
- Les arbres ne passent même pas en JPG 90% ?
Cordialement, Bacterius !