Un petit tutoriel (si on peut appeler sa comme sa) en delphi a 100 %

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 284 fois - Téléchargée 29 fois

Contenu du snippet

Bonjour,
Ce logiciel que j'ai creer est un logiciel (mon premier vraiment tres simple a creer )qui vous donne les codes en hexadecimal de 16 couleurs.
Il a été compiler entierement avec delphi 7 studio. J'ai pour projet d'en sortir un nouveau avec
un petit editeur html environ 30 couluers et leur code en hexa, des codes pour inserer des images, des codes pour donner des motifs a nos textes , etc, etc ,...
J'espere qu'il vous plaira mais je repete il est tres simple c'est juste pour aider les gens en html
en en delphi grace a la source et au programme. La source que je vais vous mettre est un peu plus complete que le soft en lui meme. La source que j'ai deposerepresente le debut de la 2eme version en comptant juste les codes en hexadecimal. C'est a disans l'editeur html et les codes des images , etc, etc ....

Source / Exemple :


unit eliotthtml;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    eliotthtml: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button32: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
  
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur bleu : #0000FF ')
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur verte : #008000 ')
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur rouge : #FF0000 ')
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur orange : #FFA500 ')
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur jaune : #FFFF00 ')
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ShowMessage (' le code de la couleur gris : #808080 ')
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur beige : F5F5DC ')
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur violet : #800080 ')
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur turquoise : #40E0D0 ')
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur brun : #A52A2A ')
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur bleu sombre : #00008B ')
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
ShowMessage (' le code de la couleur corail : #FF7F50 ')
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur violet sombre : #9400D3 ')
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
ShowMessage (' le code de la couleur bleu ciel : #87CEEB ')
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur chocolat : #D2691E ')
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur rouge sombre : #8B0000 ')
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur parme bleuté : #8A2BE2 ')
end;

procedure TForm1.Button32Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur vert chartreuse : #7FFF00 ')
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
 ShowMessage ('le code de la couleur pourpre : #DC143C ')
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur or : #FFD700 ')
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur indigo : #4B0082 ')
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur rose clair : #FFB6C1 ')
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur bleu ardoise : #6A5ACD ')
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur azurin : #F0FFFF ')
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur bois dur : #DEB887 ')
end;

procedure TForm1.Button29Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur petrole clair = #5F9EA0 ')
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur bleuet : #6495ED ')
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur cyan : #00FFFF ')
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
 ShowMessage ('le code de la couleur kaki sombre : #BDB76B ')
end;

procedure TForm1.Button30Click(Sender: TObject);
begin
ShowMessage ('le code de la couleur rose profond : #FF1493 ')
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
 ShowMessage ('le code de la couleur blanc antique : #FAEBD7 ')
end;

end.

Conclusion :


pour avoir une date de la derniere version venez faire un tour sur http://elprog.site.voila.fr
et pour telecharger le soft compiler (lien direct) http://elprog.site.voila.fr/eliotthtml_1.0.exe

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
15 juin 2005

O_o
Je sais que je suis pas un pro en pascal ss delphi,mais quand même,là j'en reste baba.
A part donner l'hexa ça fait quoi?
En tout cas, je comprend que tu te sois limité à 30 couleurs.
256 couleurs ç'aurait été long mais à 16000000 de couleurs ça aurait été horrible.
Je suis peut être dur, mais moi aussi j'ai fait des trucs dans ce style ;-).
Regarde du coté de l'aide,ce que propose Assemple est la meilleure solution.
Messages postés
72
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
16 décembre 2011

Dur dur les commentaires !
On se croirait dans "A la recherche de la Nouvelle Star"
Les critiques sont fondées, mais leur forme et bien cruelle.
Le source pourrait être beaucoup plus court en remplacant l'énumération de composants/évènements par une fonction ou méthode "calculant" la réponse en fonction d'une couleur passée en paramètre.
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009

Je viens de faire une source qui se nomme capture d'ecran vous aller la voir.Dites moi si j'ai progresser par rapport a mes dernieres sources
Messages postés
65
Date d'inscription
dimanche 3 avril 2005
Statut
Membre
Dernière intervention
9 octobre 2007

y'a pas d'age pour se mettre à la programmation, mais si tu le fais en autodidacte, achète au moins un bouquin... parceque là, tu débutes de chez débute.
C'est quand même trivial, ce que tu proposes; c'est pas parceque y'a plein de composants posés sur la fiche que ca en fait quelque chose de complexe
Bon courage...
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
9
Aucun intérêt (je trouve, mais je pense que je ne suis pas le seul...)
Il me semble que cette contribution ne sert à rien... parce-que ShowMessage, c'est le genre de commande que tu vois en général sur la première page de tous les manuels Delphi pour débutants...
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.