Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2538 connectés 

  FORUM HardWare.fr
  Programmation

  [delphi] les blems de Pilou : fonctionement de la paintbox. last post!

 
 


Dernière réponse
Sujet : [delphi] les blems de Pilou : fonctionement de la paintbox. last post!
[SDF]Poire

Thander a écrit a écrit :

Perso c'est Thander, et pas thunder, mais bon je vais pas chipoter :D  
Sinon, voici des liens très intéressants pour Delphi:
 
http://fbeaulieu.free.fr/ (cours sur Delphi, excellent :love: )
http://phidels.com/php/index.php3 (cours et sources, très intéressant)
http://perso.wanadoo.fr/fobec/delphi_index.htm (sources très intéressantes ;) )
http://www.developpez.com/delphi/ (on ne le présente plus)
 
et l'incontournable google :ange:  
http://www.google.fr
http://groups.google.fr
 
et enfin le top, le topic de [sdf]poire :sol:  
 
http://forum.hardware.fr/forum2.ph [...] ic=&trash=
 
 :hello:  
 
 




 :hello:


Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
[SDF]Poire

Thander a écrit a écrit :

Perso c'est Thander, et pas thunder, mais bon je vais pas chipoter :D  
Sinon, voici des liens très intéressants pour Delphi:
 
http://fbeaulieu.free.fr/ (cours sur Delphi, excellent :love: )
http://phidels.com/php/index.php3 (cours et sources, très intéressant)
http://perso.wanadoo.fr/fobec/delphi_index.htm (sources très intéressantes ;) )
http://www.developpez.com/delphi/ (on ne le présente plus)
 
et l'incontournable google :ange:  
http://www.google.fr
http://groups.google.fr
 
et enfin le top, le topic de [sdf]poire :sol:  
 
http://forum.hardware.fr/forum2.ph [...] ic=&trash=
 
 :hello:  
 
 




 :hello:

Pilou2001 QQ pourrait m'expliqué comment foncitone la paintbox ( pour dessiner dedans des barres obliques )
 
Pilou
Pilou2001

DarkOli a écrit a écrit :

 
 
Désolé mais y'a une couille pour les graphismes !!!
 
http://darkoli.free.fr/pendu.gif
 
Tu as utilisé une image pour les barres obliques ?
Mais tu travaillais sur le canvas de la Form ou sur une TPaintBox normalement ?  




 
oui j'ai utilisé des image pour les barres obliques ...
Sur mon PC , elle etaient casiment de la meme couleur que le form  
je v essayé paintbox.. JE supposeque ça permer de dessiner ce qu'on veut dans un carré ou un truc du genre ...
 
Sinon le canvas de la form je c pas trop ce ke c ... Les barres droites c'est des Tshape et les oblikes des images...
 
Pilou

Thander Perso c'est Thander, et pas thunder, mais bon je vais pas chipoter :D  
Sinon, voici des liens très intéressants pour Delphi:
 
http://fbeaulieu.free.fr/ (cours sur Delphi, excellent :love: )
http://phidels.com/php/index.php3 (cours et sources, très intéressant)
http://perso.wanadoo.fr/fobec/delphi_index.htm (sources très intéressantes ;) )
http://www.developpez.com/delphi/ (on ne le présente plus)
 
et l'incontournable google :ange:  
http://www.google.fr
http://groups.google.fr
 
et enfin le top, le topic de [sdf]poire :sol:  
 
http://forum.hardware.fr/forum2.ph [...] ic=&trash=
 
 :hello:

 

[jfdsdjhfuetppo]--Message édité par Thander le 12-05-2002 à 11:13:48--[/jfdsdjhfuetppo]
darkoli

antp a écrit a écrit :

C'est le début aussi hein, quand on apprend à programmer on sait pas faire directement quelque chose de parfait ;) (d'ailleurs on ne sait jamais faire directement quelque chose de parfait :D)  




 
C'est clair, au moins comme ça y'a toujours quelque chose à améliorer !!!  :D

antp C'est le début aussi hein, quand on apprend à programmer on sait pas faire directement quelque chose de parfait ;) (d'ailleurs on ne sait jamais faire directement quelque chose de parfait :D)
darkoli

Je@nb a écrit a écrit :

et le menu avec les lettres ça le fait pas  :(  




 
Ouais, utilise des TLabel à la place ...

Je@nb et le menu avec les lettres ça le fait pas  :(
darkoli

Pilou2001 a écrit a écrit :

voila  
j'ai fini mon soft , enfin la beta .
C moche mais ça marche :)
 
si vous voulez vous foutre de ma guele ou si vous voulez juste voir mon programme:
 
--> http://membres.lycos.fr/megaromz/delphi/Pendu.exe
 
 
pour plus tard .. il y aura un espece de random qui ira chercher au hasard un mot dans un txt :)  
 
Merci beaucoup a tous ceux qui m'ont aidé et particulierement a antp ( bha oui c lui qui m'a aidé le plus )  
 
Pilou  




 
Désolé mais y'a une couille pour les graphismes !!!
 
http://darkoli.free.fr/pendu.gif  
 
Tu as utilisé une image pour les barres obliques ?
Mais tu travaillais sur le canvas de la Form ou sur une TPaintBox normalement ?

Pilou2001 Antp , m'en veux pas , mais ce post la ...
c pour que le topic il s'enflamme :)  
c le 20 eme post :)  
 
 
 
Pilou
Pilou2001 voila  
j'ai fini mon soft , enfin la beta .
C moche mais ça marche :)
 
si vous voulez vous foutre de ma guele ou si vous voulez juste voir mon programme:
 
--> http://membres.lycos.fr/megaromz/delphi/Pendu.exe
 
 
pour plus tard .. il y aura un espece de random qui ira chercher au hasard un mot dans un txt :)  
 
Merci beaucoup a tous ceux qui m'ont aidé et particulierement a antp ( bha oui c lui qui m'a aidé le plus )  
 
Pilou
Pilou2001 Merci :)
antp Ç'aurait dû être :
 
while Form1.Liste.Items.Count > 0 do
begin
  Form1.Liste.Items.Delete(0);
end;
 
Mais il y a encore plus simple :
 
Form1.Liste.Items.Clear;
 
:D
Pilou2001 Voila c ma derniere question pour mon projet pendu :)
il touche a sa fin la ... et ça marche ...
 
bon en fait le probleme la , c que je voudrai vider une  combobox qui se nomme liste ...
 
j'ai fait ça :  
 
begin
a:=1;
while a<((form1.liste.Items.count)+1) do
begin
form1.Liste.Items.delete(0);
a:=a+1;
end;
end;
 
le probleme ce ke ça n'efface pas tous les items .. ça en laisse dans les 5 ...
 
le code total de la procedure .. est censé vidé la combobox et la reremplir ... :
 
procedure alphabet;
var
a:byte;
begin
a:=1;
while a<((form1.liste.Items.count)+1) do
begin
form1.Liste.Items.delete(0);
a:=a+1;
end;
form1.liste.items.add('a');
form1.liste.items.add('b');
form1.liste.items.add('c');
form1.liste.items.add('d');
form1.liste.items.add('e');
form1.liste.items.add('f');
form1.liste.items.add('g');
form1.liste.items.add('h');
form1.liste.items.add('i');
form1.liste.items.add('j');
form1.liste.items.add('k');
form1.liste.items.add('l');
form1.liste.items.add('m');
form1.liste.items.add('n');
form1.liste.items.add('o');
form1.liste.items.add('p');
form1.liste.items.add('q');
form1.liste.items.add('r');
form1.liste.items.add('s');
form1.liste.items.add('t');
form1.liste.items.add('u');
form1.liste.items.add('v');
form1.liste.items.add('w');
form1.liste.items.add('x');
form1.liste.items.add('y');
form1.liste.items.add('z');
end;
 
Voila :)
where is da problem ??? :)
 
Merci
 
Ps: j'ai mis la fin du titre de mon sujet en anglais parceq'en fr ça ne rentré pas !

 

[jfdsdjhfuetppo]--Message édité par Pilou2001 le 11-05-2002 à 23:28:45--[/jfdsdjhfuetppo]
Pilou2001 procedure affichetrait;
begin
if (form1.taillemot<=2) XOR (form1.taillemot>10) then
  begin
  showmessage('Le mot est trop petit , trop grand ou vous    n''avez pas entré de mot!');
  exit;
  end;
form1.edit1.Visible := false;
form1.command1.Visible := false;
form1.Label1.Visible := false;
form1.liste.Visible := true;
form1.checklettre.Visible := true;
form1.T1.Visible := true;
form1.T2.Visible := true;
form1.T3.Visible := true;
if form1.taillemot = 3 then exit;
form1.T4.Visible := true;
if form1.taillemot = 4 then exit;
form1.T5.Visible := true;
if form1.taillemot = 5 then exit;
form1.T6.Visible := true;
if form1.taillemot = 6 then exit;
form1.T7.Visible := true;
if form1.taillemot = 7 then exit;
form1.T8.Visible := true;
if form1.taillemot = 8 then exit;
form1.T9.Visible := true;
if form1.taillemot = 9 then exit;
form1.T10.Visible := true;
end;
 
J'ai fait comme ça .. c le plus propre que j'arrive a faire :)
antp Bah tu peux le faire de manière détournée avec Form1.Components[], Form1.ComponentCount, etc... mais tu vas peut-être trouvé ça compliqué :D
Pilou2001 Arf bon bha tant pis et moi qui essayait d'avoir un code PROPRE  
:( :( :(
Pilou2001 Whaow thunder :) je pensais pas que j'en avait fait autant lol :)  
remarque mes kestions sont de moins en moins conne non ? :D  
 
j'ai mis l'adresse dans mes favoris :)  
 
J'ai bien fait de me creer un topic lol
antp Tu peux pas faire ça directement...
Pilou2001 Bon ça je suppose que c pas dans le F1 ...
 
bon voila ...
Toujours pour mon programme de pendu ... c pour les traits en desous des lettres ça :)  
 
j'ai une dizaine de trait apellés t1 t2 t3 t4 .... t10
et je voudrait les faire apparaitre come ça( je c que c faux , je demande ce kil faut mettre a la place et si c possible):
 
while a<=length(mot) do  
begin
T(a).visible:=true;
a = a + 1;
end;  
 
c juste ça ..  
a est integer qui commence de  1
 
 
je sent que je v encore me prendre le panno f1 en pleine tronche mais bon ... :) Qui ne tente rien n'a rien :)  
 
MErci
Thander http://forum.hardware.fr/forum1.ph [...] aterange=2
 
Put'1, il l'a fait son topic à lui :lol:
antp

[SDF]Poire a écrit a écrit :

 
T trop gentil Antp... :hello:  




 
Ouais je sais :(

Pilou2001 Merci Beaucoup!!!!
[SDF]Poire

antp a écrit a écrit :

Y a des versions en Français de Delphi...
Sinon faut apprendre l'anglais.
 
Allez je te le donne:
 
if Liste.ItemIndex <> -1 then
  toto := Liste.Items[Liste.ItemIndex]
else
  toto := '';
 
ou
 
with Liste do
  if ItemIndex <> -1 then
    toto := Items[ItemIndex]
  else
    toto := '';
 
ou encore plus simple:
 
toto := List.Text;
 
Même sans l'aide t'aurais pu trouver :/  




T trop gentil Antp... :hello:

antp Y a des versions en Français de Delphi...
Sinon faut apprendre l'anglais.
 
Allez je te le donne:
 
if Liste.ItemIndex <> -1 then
  toto := Liste.Items[Liste.ItemIndex]
else
  toto := '';
 
ou
 
with Liste do
  if ItemIndex <> -1 then
    toto := Items[ItemIndex]
  else
    toto := '';
 
ou encore plus simple:
 
toto := List.Text;
 
Même sans l'aide t'aurais pu trouver :/
Je@nb Et ben fallait l'avoir en fr  :na:
Pilou2001 Je trouve pas .. en plus c tout en anglais :(
si au moins delphi etait en fr :)
 
allez dites moi svp ...  
svp svp svp svp svp svp
 
j'esseairai de poser des kestions moins connes que certaines que j'ai posé ..
antp

[SDF]Poire a écrit a écrit :

[:f1key]  




 
C'est clair que là faudrait penser à utiliser l'aide :/
Y a maximum 20 propriétés, ça fait pas de mal lire leur description.

[SDF]Poire [:f1key]
Pilou2001 recup ce ki a ete selectione ds un combobox
J'ai essayé , j'ai cherché et j'ai pas trouvé :(  
 
alors voila :  
 
en fait j'ai une combobox et quand lutilisateur selectione un truc de ma combo.je voudrai qu'il assigne ce qui a ete selectioné a une variable
 
 
ma combo s'appelle liste donc ça donnerai :  
 
procedure TForm1.listeChange(Sender: TObject);
var
toto:string;
begin
toto:=liste.lecaptiondutrucselectioné;
showmessage(toto);//ça s'est pour testé que ça marche ...
end;
 
 
Pilou
 
 
PS: Oui antp .. je ferait moins de topic :)  je renomerai celui la :)

 

[jfdsdjhfuetppo]--Message édité par Pilou2001 le 12-05-2002 à 12:22:55--[/jfdsdjhfuetppo]

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)