couleur Résolu

Question

Bonjour , je debute en delphi et j'en suis vraiment au debut. 
En cliquant sur un tbutton je sait changer la couleur de l'ecran avec la formule

Form().color :=Clyellow par exemple , mais je n'arrive pas 

1- a attribuer 2 ou 3 couleur consecutives pour le meme bouton 

2- a alterner en permanence 2 couleur comme "bleu" puis "blanc" pour le meme bouton

merci

f0xi · Accepted Answer

tu integre mon codes { mycolor start a end } entre le {$R *.dfm} et le End.

ensuite, 
click sur le boutton de ta fiche
click sur l'onglet "evenements" de la fenetre "inspecteur d'objet"
trouve l'evenement "OnClick" et double click dans la zone de saisie a coté.
la si tu a tout bien fait, une nouvelle procedure apparait dans ton unité,
cette procedure se presentera comme suis :

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

insere ce code entre le begin et le end; 
self.color := MyColorsNext;

self.color permet d'acceder a la classe TForm1 (regarder l'aide delphi pour self)

appuis sur F9 pour compiler et lancer le programme, hop, click sur le bouton et le fond de la fiche vas alors changer de couleur a chaque click.

f0xi · Answer

{ MyColors start ---- }
const
  __MyColorsMax = 3; // nombres de couleurs maxi
  __MyColors : array[0..__MyColorsMax-1] of TColor = (
    { colors start > } // couleurs
    clWhite,
    clBlack,
    clBlue
    { < colors end }
  );

var
  __CurrentColor : integer = 0;

function MyColorsFirst: TColor; // renvois la premiere couleur
begin
  __CurrentColor := 0;
  result := __MyColors[__CurrentColor];
end;

function MyColorsLast: TColor; // renvois la derniere couleur
begin
  __CurrentColor := __MyColorsMax;
  result := __MyColors[__CurrentColor];
end;

function MyColorsNext: TColor; // renvois la couleur suivante
begin
  __CurrentColor := (__CurrentColor+1) mod __MyColorsMax;
  result := __MyColors[__CurrentColor];
end;


function MyColorsPrec: TColor; // renvois la couleur precedente
begin
  __CurrentColor := (__CurrentColor+__MyColorsMax-1) mod __MyColorsMax;
  result := __MyColors[__CurrentColor];
end;

{ MyColors end ---- }

{ buttons }

procedure TForm1.ButtonFirstClick(Sender: TObject);

begin

  Self.Color := MyColorsFirst;

end;


procedure TForm1.ButtonPrecClick(Sender: TObject);

begin

  Self.Color := MyColorsPrec;

end;


procedure TForm1.ButtonNextClick(Sender: TObject);

begin

  Self.Color := MyColorsNext;

end;


procedure TForm1.ButtonLastClick(Sender: TObject);

begin

  Self.Color := MyColorsLast;

end;

f0xi · Answer

créer un index rotatif :

exemple a deux elements :

MAX =  2
CUR = 0

CUR := (CUR + 1) mod MAX;

generera les indexs suivants en permanence:
1, 0, 1, 0 ...

utilisable avec par exemple :
const TAB : array[0..1] of {type data} = ({data 0}, {data 1});

 exemple a 42 elements : 

MAX  = 42
CUR = 0

CUR = (CUR + 1) mod MAX

generera les indexs suivants en permanence :
1, 2, 3,..., 39, 41, 0, 1, 2, ..., 39, 41, 0, ...

utilisable avec par exemple :
const TAB : array[0..41] of {type data} = ({data 0}, {data 1}, {...}, {data 41});

en gros cela fonctionne avec tout type de tableau ayant pour index de depart [0..n] ==> CUR := (CUR+1) mod MAX;
cela est moins aisé avec des tableaux a index negatif/positif [-n..n] ==> CUR := -n+((CUR+1) mod MAX);
il faut penser a decaler avec les tableaux qui commence a 0+ [5..n] ==> CUR := 5+((CUR+1) mod MAX);

watrem · Answer

Bon deja merci pour votre reponse, mais comme je l'ai dis je debute carrement.Quand j'ouvre delphi , j'ai ma FORM sur celle ci j'y ajoute un TButton et j'obtiens ceci et je ne sais pas encore integre les elements a leurs bonne place;
unit Unit1;




interface




uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;




type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;




var
  Form1: TForm1;




implementation




{$R *.dfm}




end.

comment dois je integre vos codes dans ma page d'acceuil ? merci

watrem · Answer

J'ai fait exactement ce que vous m'avez dit , j'ai compris quelques processus mais j'ai des erreurs ici :
{ buttons }
procedure TForm1.ButtonFirstClick(Sender: TObject);
begin
  Self.Color := MyColorsFirst;
end;


procedure TForm1.ButtonPrecClick(Sender: TObject);
begin
  Self.Color := MyColorsPrec;
end;


procedure TForm1.ButtonNextClick(Sender: TObject);
begin
  Self.Color := MyColorsNext;
end;


procedure TForm1.ButtonLastClick(Sender: TObject);
begin
  Self.Color := MyColorsLast;
end;

f0xi · Answer

Attention :

quand tu depose un bouton sur une fiche, celui ci prend automatiquement le nom "buttonX" 
ou X vaux 1 puis 2 puis 3 etc

pour qu'un boutton s'appel ButtonFirst ou ButtonPrec il faut definir ce nom dans la propriété Name (dans l'inspecteur d'objet).
toutes procedures faisant reference a son ancien nom sera automatiquement renomée.

de plus, tu ne dois pas ecrire toi même ces procedure, double click sur le boutton (dans la fiche) ou double click sur l'evenement dans l'inspecteur d'objet.

watrem · Answer

desole j'arrive tres bien a effectue la premiere procedure de la bonne maniere ( celle que vous m'avez decrite) le hic c'est quand je cherche a renommer le meme bouton , il me remet sur ma 1ere procedure !!


je vais bien modifier "name" ds proprietes pourtant mais il reecrit par dessus et ne me cree pas une deuxieme procedure

Cirec · Answer

Salut,

il y avait plus simple pour faire une bascule entre deux couleurs 
que d'écrire un plâtrée qu'il aura du mal à comprendre 
surtout pour un débutant :

Var 
  {booléen pour 
la bascule entre 2 couleurs}
  BoolColor: Boolean; 
  {Tableau de deux couleurs}
Const ColorArray: Array[Boolean] Of 
TColor =  (clBlue, clWhite); 

Procedure 
TForm1.Button1Click(Sender: TObject); 
Begin 
  {on inverse la 
valeur du booléen}
  BoolColor := Not 
BoolColor; 
  {et on affecte la 
couleur}
  Color := ColorArray[BoolColor]; 
 End ; 

ps: l'appel à Self n'était pas utile 
 
@+
Cirec

<hr siz ="" />

watrem · Answer

AH merci Cirec l'alternance entre les deux couleurs fonctionne tres bien.

J'essaie quand meme de faire la formule de Foxi pour les trois couleurs mais je bloque au renommage du bouton . 


comment renomme t'on ce satane bouton pusieur fois ???


 


merci a vous deux

Cirec · Answer

tu t'y prends mal

il faut en premier:
- déposer un TButton sur la Form
- le nommer (propriété Name)
- double-cliquer sur lui pour génerer le code
- et enfin complèter avec le code de F0xi

Dans son code F0xi utilise 4 boutons 
il te faudra donc répeter 4 fois les étapes ci-dessus

 
@+
Cirec

<hr siz="" />

watrem · Answer

Bon 4 heures pour comprendre comment faire une alternance de couleur , c'est pas gagne lol

Const ColorArray: Array[Boolean] Of TColor =   (clBlue, clWhite); 

 Procedure  TForm1.Button1Click(Sender: TObject); 
Begin 
   {on inverse la valeur du booléen} 
  BoolColor :  = Not BoolColor; 
  {et on affecte la couleur}
  Color :=  ColorArray[BoolColor]; 
 End ; 

J'aurai 2 questions au sujet de ce code 
1)J'ai essayer de rajouter une 3 ieme couleur Const ColorArray: Array[boolean]OfTColor  =(Clblue, ClWhite,ClRed); evidemment ca ne marche pas et je crois comprendre pourquoi le "NOT" signifie dans le cas suivant cad 2 couleurs si c'est pas l'une c'est donc l'autre!!!!
Comment ajouter une 3 ieme couleur a ce code ???

2)Est-il possible d'automatiser l'alternance des couleurs sans avoir a cliquer sur le bouton ? Toujours avec ce bout de code que je connais desormais par coeur  bg

Francky23012301 · Answer

Ze crois que f0xi il a bouffé du lion 




procedure TForm1.ChangerLePetitNomDeMonBouttonClick(Sender: TObject);
Const
  PetitsNomsDeMonBoutton:Array [1..5] of String=('La','Lo','Li','Lu','Le');
Var
  IndexBanane:Cardinal;
Begin
  For IndexBanane:=1 To 5 Do
    Begin
      Button1.Name:=PetitsNomsDeMonBoutton[IndexBanane];
      Button1.Refresh;
      Sleep(500);//

A pas confondre avec slip : ca s'est un rappel pour Cari 

      Application.ProcessMessages; 


    End;
End;

Francky23012301 · Answer

Version de ta fonction avec 3 couleurs

Const 
ColorArray: Array[0..2] Of TColor =   (clBlue, clWhite,ClGreen); 
 Var  IndexColor:Cardinal;

Procedure TForm1.Button1Click(Sender: TObject); 
Begin 
  Color : = ColorArray[IndexColor];  
    Inc(IndexColor);
  If IndexColor>2 Then IndexColor: =0;
End;

Penser à initialiser IndexColor: à zéro dans le OnCreate de ta fiche

Cirec · Answer

avec ce code il n'est pas possible de mettre plus que deux couleurs dans le tableau:
Const ColorArray: Array[Boolean] Of TColor =  (clBlue, clWhite); 
est identique à :
 Const  ColorArray: Array[0..1] Of TColor  = (clBlue, clWhite); 

Un Boolean n'a que valeurs possible : True où False (0 où 1)

et : BoolColor :=   Not  BoolColor;
ne fait qu'unverser ces deux valeurs (il bascule entre True et False "Vrai ou Faux")

sinon c'est possible bien sûr avec plusieurs couleurs mais il faut
changer de méthode ... celle de F0xi en est une 

si il te faut un autre exemple (si tu n'y arrives vraiment pas avec le code de F0xi) je te donnerai ça ... mais plus maintenant ... c'est l'heure d'aller au dodo là 

Francky t'es pas encore couché où déjà levé 

sur ce bonne nuit les petits 

 
@+
Cirec

<hr siz ="" />

Cirec · Answer

Francky a eu le courage de le faire ... chapeau .. 
moi j'ai les yeux qui me brulent ... lol

 
@+
Cirec

<hr siz="" />

Cirec · Answer

Pour l'initialisation de IndexColor il suffit de faire :
Var IndexColor:Cardinal = 0;

Cette fois j'y vais 

 
@+
Cirec

<hr siz="" />

Caribensila · Answer

... Se faire initier à delphi au milieu de la nuit, et par les plus grands, il n'y a que sur CS qu'on voit ça.

Chapeau!

JulioDelphi · Answer

Foxi y va un peu fort pour renseigner un débutant, FAUT S'ADAPTER FOXI ! ^^

Cirec · Answer

@Caribensila: 
franchement ... 
on assure sur CS hein 
et tout ça gratos 

je n'ai q'une chose à dire :

 
@+
Cirec

<hr siz="" />

Francky23012301 · Answer

Je viens juste de me reveiller  : Dis donc cette question elle a du succes

Francky23012301 · Answer

"

... ça tombe bien. Il y a une question pour toi (Delphi + AutoCad) :" : je te la laisse moi je me suis occupé du Timer. Je sais que tu aimes  les choses tortueux et on sait tous que  tu as  AutoCad (à plus de 3000 euros la licence)

Caribensila · Answer

Nan.

Depuis que j'ai Catia, j'ai plus AutoCad...

f0xi · Answer

BOOLEAN : ne peu avoir que deux valeur unique : FALSE ou TRUE (faux ou vrai)

array[boolean] ==> est un tableau de 2 elements seulement
array[0..3] ==> est un tableau de 4 elements (0, 1, 2, 3 = 4) ouai c'est dur a comprendre au debut.

NOT : mets les bits 0 a 1 et les bits 1 a 0 d'un mots binaire.

avec boolean :

NOT TRUE = FALSE
NOT FALSE = TRUE

simple comme bonjour, c'est l'inverse.

ça se complique un peu avec les entiers puisque la il faut composer avec la taille binaire du type de valeur.

avec byte :
NOT 0 = 255
NOT 255 = 0
puisque byte est un entier non signé (sans partie negative) de 8bits (2 puissance 8 = 256)donc 0..255 256 valeurs 2^8 

tu suis ?

bon même principe avec cardinal, longword, word, etc.

ça se corse avec les entiers signé (avec partie negative) puisque la moitiée sert au chiffre positif et l'autre moitié sert au chiffre negatif :
integer = (-2^32)..(+2^32)-1
hou!
donc 
NOT 0 (integer) =  -1
NOT -1 (integer) = 0 
ouillaaaa

bon je fait plus simple :

chaque donnée dans un ordinateur est codée avec des 1 et des 0 ... c'est le code binaire.

un entier, qu'il soit positif ou negatif, la on s'en fout un peu, n'est jamais que des 0 et des 1.

ce mot : 01101001 (0x69) quel beau chiffre pour l'exemple du NOT :)
NOT mets tout les bits 0 a 1 et tout les bits 1 a 0 ... pour rappel

donc NOT 01101001 = 10010110 (0x96)
MIRROR POWER! ça nous fait un palindrome! hahaha

c'est la que je complique la chose, le 8eme bit en partant de droite (sens de lecture du binaire) est a 0 ... c'est un nombre positif.
une fois passé avec NOT, le bits s'allume a 1 ... hop ça devient un nombre negatif si on considere que l'on été dans un contexte d'exemple avec un entier 8 bits signé :)
tu suis ?

L'exemple le plus amusant pour démontrer a quoi sert NOT c'est :

- un filtre negatif pour image!
- l'inversion de booléens dans les conditions.
- la transformation de donnée dans un algorithme de chiffrement/hash 

sinon au plus basique, NOT equivaux au "Non logique".
si tu te rappel de tes cours de math/physique/techno avec les porte ET, OU, NON ET, NON OU etc...

JulioDelphi · Answer

<3 foxi

Couleur

24 réponses

Votre réponse

Discussions similaires