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 498 fois - Téléchargée 31 fois

Commenter

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
DREAMER2208 Messages postés 17 Date d'inscription mardi 2 novembre 2004 Statut Membre Dernière intervention 20 octobre 2005
18 avril 2005 à 18:45
A ta place j'aurais lister les couleurs dans un listbox, combobox ou autre. Sa devrai largement alléger ton code! Ceci dit, si le but est de donner le principe de fonctionnement de DELPHI, pourquoi pas...perso, j'aurais utilisé un exemple avec moins de composants, mais après tout, chacun fais comme bon lui semble !

Bonne prog!
Dreuteu Messages postés 44 Date d'inscription samedi 16 octobre 2004 Statut Membre Dernière intervention 28 février 2006
18 avril 2005 à 23:18
En tout cas ca ne merite pas le niveau initié...

Et tes compos ne sont pas nommés...

Bof tout ca, essaie de passer par les ComboBox plutot
Marneus Calgar Messages postés 39 Date d'inscription mardi 3 octobre 2000 Statut Membre Dernière intervention 10 juin 2005
19 avril 2005 à 15:28
Bof, c'est du niveau très basique, il n'y a même pas de calcul de composantes, pas de conversion TColor -> Hex, pas de factorisation des fonctions, même pas une procédure qui factorise le "ShowMessage ('le code de la couleur xxx est yyy);". C'est tout calculé au préalable, pas grand intéret...
digat Messages postés 1 Date d'inscription lundi 17 janvier 2005 Statut Membre Dernière intervention 27 avril 2005
27 avril 2005 à 12:11
Un pti prog qui donne des boutons!!!
La version D1 aurait été suffisante...
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 12
6 juin 2005 à 21:19
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...
S'inscrire maintenant

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.

Du même auteur (ewertheimer)