Bonjour,
Je ne comprends pas trop ce que tu veux faire ... c'est juste une fiche séparée en régions carrées et quand on clique sur une de ces régions elle change de couleur?
Ou bien juste une grande région et dès qu'on clique dessus elle change de couleur?
Tiens voila un peu d'aide pour la grande région (ca change de couleur aléatoirement) :
( On donne Plateau : ton plateau)
procedure PlateauClick(Sender:TObject)
Var
Num: Integer; // Variable pour déterminer la couleur.
begin
randomize; // le générateur de nombres aléatoires se met en place.
for Num := 1 to 10 do // il y a 10 possibilités de couleurs
begin
if Num = 1 then Plateau.Color := clBlack;
if Num = 2 then Plateau.Color := clWhite;
if Num = 3 then Plateau.Color := clRed;
if Num = 4 then Plateau.Color := clBlue;
if Num = 5 then Plateau.Color := clYellow;
if Num = 6 then Plateau.Color := clLime;
if Num = 7 then Plateau.Color := clPurple;
if Num = 8 then Plateau.Color := clFuchsia;
if Num = 9 then Plateau.Color := clNavy;
if Num = 10 then Plateau.Color := clGray;
// Assignation de couleurs à chaque couleur.
end;
end;
end.
Voila maintenant à toi d'optimiser tout ca, je ne t'en dis pas plus. Si tu veux me contacter : thomas777@live.fr => msn live messenger. Ou bien thomas.beneteau@yahoo.fr => e-mail.
Voila bonne programmation et bonne chance :p
A bientot