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

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

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)