[Free Pascal] Créer un bouton

**diden138** · 05/05/2006, 01h16

Salut, je suis programmeur en pascal et j'ai rencontré un probleme concernant un logiciel de facturation (c un tp). Bref, j'ai réalisé le graphisme ainsi qu'une partie du programme. Maintenant, je rencontre un petit problème : je ne sais absolument pas comment créer des boutons ni comment les faires réagir au clic de la souris : par exemple, si je clique sur ce bouton, cela déclenchera cette procedure.
Si vous pouvez m'aider, merci d'avance et encore bravo pour votre site.

**Eric Sigoillot** · 05/05/2006, 07h36

On ne connaît pas l'environnement...
On ne connaît pas le compilateur...
10 contre 1 que ce n'est pas un problème de Pascal mais un problème Win32 ou GTK...

Pour finir, ton problème n'est pas un problème de logiciel de facturation mais d'ajout d'un bouton. Le titre a été modifié en conséquence.

@++

PS: Attention, langage SMS non toléré. Ton clavier à plus de 100 touches, sers-t'en.

**diden138** · 05/05/2006, 11h33

salut,mon probleme c que je veux creer un bouton mais je ne sais absolument comment faire j'ai creer un type bouton (bouton=record text:string;x1,y1,x2,y2:integer;end; )mais apres je sais plus comment continuer,ni commet les faire reagir au clic de la souris

a propos exuser moi pour mon langage sms

et merci encore.

a propos j'utilise free pascal

**Eric Sigoillot** · 05/05/2006, 13h03

On ne connaît toujours pas l'environnement utilisé

mat.M · 05/05/2006, 15h26

free pascal fonctionne sous DOS et il faut alors passer dans un mode graphique par exemple 640*480*16 couleurs et programmer soi-même les boutons.
diden138 prends plutot Delphi c'est vraiment mieux ;

**M.Dlb** · 05/05/2006, 16h47

Mais oui bien sûr

Free Pascal fonctionne pour DOS, Windows, et Linux (et plein d'autres aussi). Et C'est gratuit, contrairement à Delphi (sauf version personnelle)

mat.M · 05/05/2006, 17h08

Effectivement Mea Culpa

ce compilateur peut produire des exe cible Windows ( j'en étais resté aux vieilles versions )

Pour répondre à la question prendre effectivement Gtk ou autres.
Ou alors utiliser des fonctionnalités Windows

MAIS je préconise Delphi tout de même parce qu'avec Free Pascal pas évident d'avoir accès facilement à un SGBDR

**Eric Sigoillot** · 05/05/2006, 17h34

Envoyé par mat.M

MAIS je préconise Delphi tout de même parce qu'avec Free Pascal pas évident d'avoir accès facilement à un SGBDR

Avec Lazarus, tu disposes de composants d'accès aux bases de données.

Y'a des jours comme ça où il vaut mieux rester couché

**diden138** · 05/05/2006, 19h03

salut a tousle monde et merci de m'avoir repondu j'ai turbo pascal que j'ai telecharger de ce site mais le graphisme ne mente pas dessu c pour ca que j'ai utiliser free parceque le graphisme est monte dessu sou pascal il est compiler (mais toujour le message d'erreur lors de l'execution erreur d'initialisation) mais j'ai toujour pas eu la reponse comment creer un bouton en pascal quel unite doit on ajouter et est ce que tp7 fera l'affaire

salut a tous vous aler sans doutes trouver ca redicule mais peut on avec delphi realiser des executable pascal

bon en recapitule j'ai tp7 mais y'a un ptit probleme (lors de l'execution erreur lors de l'initialisation)je suis en 1ere annee informatique alors vous comprenez mon pro de tp nous a donner un programme a develloper logiciel de facturation le noyau du programme en locurence tous ce qui concerne les diffren,tes procedure (deja fait) j'ai plutot un ptit probleme au cote du graphisme je veux creer des boutons quand en clic dessu ca declenche tel procedure dit moi quel logiciel est le plus approprie (tp7,free)et comment doit je faire mon e@mail c:delta_force138@hotmail.com je suis conecté h24 merci d'avance

mat.M · 05/05/2006, 20h56

Envoyé par diden138

salut a tousle monde et merci de m'avoir repondu j'ai turbo pascal que j'ai telecharger de ce site mais le graphisme ne mente pas dessu c pour ca que j'ai utiliser free parceque le graphisme est monte dessu sou pascal il est compiler (mais toujour le message d'erreur lors de l'execution erreur d'initialisation) mais j'ai toujour pas eu la reponse comment creer un bouton en pascal quel unite doit on ajouter et est ce que tp7 fera l'affaire

J'ai rien pigé évites le style SMS c'est extrêmement pénible.
On se donne la peine de faire des réponses en plus j'ai un clavier QWERTY
Est-ce que TP7 fait des exe cible DOS ou Windows ?

**Eric Sigoillot** · 05/05/2006, 21h19

TP7 ne fait que des exécutables DOS 16 bits mode réel.
FreePascal fait des exécutables multi-plateforme.

Tes messages sont in-com-pré-hen-sibles. Fais l'effort de faire des phrases courtes et aère ton texte ! Chacun de tes messages ne semble contenir qu'une phrase, c'est illisible. L'usage du point est conseillé...

Pour utiliser des boutons sous TP7, il va falloir les créer à la main, et ajouter par-dessus la gestion de la souris. Je ne sais pas pourquoi, mais je ne te sens pas du tout prêt à le faire pour le moment...

Renseigne-toi sur Lazarus. C'est une alternative simplifiée à Delphi construite sur FreePascal. Tu devrais pouvoir en tirer quelque chose assez rapidement.

@++

**diden138** · 05/05/2006, 21h42

Salut, pardonnez-moi encore une fois pour mon langage sms

Bon, je vous explique : je veux concevoir un logiciel de facturation. Le noyau du programme, je l'ai essayé et c'est bon. Par contre, côté graphisme, je sais qu'il faut déclarer de nouvelles unités.
Ne me croyez pas si nul que ça mais je ne sais pas comment commencer pour créer des boutons. Je vous donne mon msn si vous avez du temps bien sûr. Je suis connecté h24, merci (delta_force138 (arobase) homail.com)

**Tuxico** · 05/05/2006, 22h03

Si tu postes sur le forum, on répond sur le forum

Pour ce que tu veux faire, il faut comme l'on dit les autres utiliser un "langage" approprié couplé au pascal :

- tk/Gtk (sur linux/ peut être portable sur windows et mac)
- Cocoa (sur mac / non portable )
- fenêtre windows

**diden138** · 05/05/2006, 23h37

salut mais vous savez que je suis eleve en premiere anne

je conais rien d'autre

en plus le prof de tp nous a demander de faire ca rien qu'en langage pascal
et j'ai meme pas beacoup de temp il nous ont donner juste une semaine alors vous voyez

je sais que c possible en pascal j'esperais avoir de l'aide des professionelle comme vous

**Tuxico** · 06/05/2006, 10h07

essaye avec les librairies : rectangles et outTextXY

**Eric Sigoillot** · 06/05/2006, 11h02

Si tu es limité à Turbo Pascal, alors le travail ne va pas se faire en 15 secondes.

La création des boutons va se faire via l'utilisation de graphismes avec l'unité Graph. Il faudra les dessiner (Bar, Rectangle, OutTextXY, ...) et dessiner l'ensemble de l'interface à la main (aucun bouton tout prêt n'est disponible).

Après, si tu veux gérer la souris, ça va devenir encore plus compliqué, et autant y penser à l'avance. Il faudra se placer sur l'interruption 33h et intercepter les messages de la souris.

Commencer par définir une structure définissant les boutons et la manière de les utiliser avec la souris.

@++

**diden138** · 06/05/2006, 12h02

salut ,merci pour le debut de reponse ,j'ai terminer tous le graphisme j'ai dessiner les boutons et tous ca mais et j'ai lu votre article sur la gestion de la souris sous turbopascal ,maintenant dites moi ce que je doit faire j'ai ajouter l'unite mouse mais y'a un message d'erreur(unite mouse not found)pourtant j'ai telecharger toutes les unites de devellopez.com et j'ai les ai mis a l'endroit indiqué .encore une chose sous tp7 le graphisme ne veut pas s'initialiser toujour le meme message lors de l'execution(erreur lors de l'initialisation)d'apré vous qu'est ce que je doit faire

.
merci encore pour vos reponses j'avance et sincerement j'ai besoin de beacoup d'encouragement

**Eric Sigoillot** · 06/05/2006, 12h27

Re-bonjour !

Il faudrait nous dire où les unités ont été prises. Le problèmes des unités gérant la souris c'est qu'elles s'appellent toutes Mouse, donc difficile de savoir laquelle est utilisée

Pour le graphisme, je suppose que tu te sers de l'unité Graph. Il faut faire attention à bien spécifier le chemin d'accès aux drivers BGI lors de l'initialisation avec InitGraph.
Par exemple, si Turbo Pascal a été installé dans C:\TP7, alors les drivers graphiques sont dans C:\TP7\BGI. Il faut donc initialiser le mode graphique comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses Graph;
var
  Gd, Gm: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, 'C:\TP7\BGI');
  if GraphResult = grOk then
  begin
    ...
  end
  else
  begin
    WriteLn('Erreur lors de l''initialisation du mode graphique !');
  end;
end.

@++