Discussion :

[mm_71]

Normalement cette fonctions devrait exister:
http://orion.lcg.ufrj.br/RPMS/myrpms.../getpixel.html
Mais avec la version 1.8 SVN de ce jour pas plus de getpixel que d'unité Graph, juste graphics, graphmath, graphutil, graphtype.
Ai-je raté quelque chose ?

[mm_71]

C'est un peu la bazar dans la doc pourtant mise à jour en mars 2017.
Ici:
https://www.freepascal.org/docs-html...h/index-5.html
Pas de getpixel ou de putpixel dans la liste qui devrait pourtant contenir toutes les procédures et fonctions, mais ici:
https://www.freepascal.org/docs-html...ncdrawing.html
On trouve au moins putpixel !

[anapurna]

salut

tu as regardé dans l'unité graphh.inc ?

[mm_71]

salut

tu as regardé dans l'unité graphh.inc ?

Oui, j'ai bien ce fichier et il contient bien les fonctions voulues mais comment faire comprendre à Lazarus qu'il doit l'utiliser ? La clause use refuse graph ou graphh. Au début du source je lis:

Code :

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

Interface include file for graph unit

Donc ça devrait être quelque part mais où ?

[anapurna]

salut,

bon a priori il y a du boulot ^^

les fichier avec l'extention ".inc" sont des fichier inclus
pour les inclure il faut utiliser les directives de compilation

Code :

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

{$I filename} ou {$INCLUDE filename}

...
dans notre cas ce seras comme ceci

Code :

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

{$i graphh.inc}

pour l'utiliser .. il te suffit juste d'ajouter

Code :

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

uses ... graph;

l'unité "graph.pas" ou "graph.pp" incluant le fichier inclus "graphh.inc"
si tu n'arrive pas a compiler du fait qu'il te manque cette unité vérifie les chemins de recherche
pour windows tu devrais les trouver dans un sous repertoire du genre

packages/graph/src/win32/graph.pp

[mm_71]

Je viens d'essayer et je n'ai que des messages d'erreur.

Si je le met sous implementation ce qui me semble logique j'ai:

Code :

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

unit1.pas(34,17) Fatal: Syntax error, ";" expected but "." found

Si je le met avant interface j'ai:

Code :

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

graphh.inc(188,1) Fatal: Syntax error, "INTERFACE" expected but "TYPE" found

Et n'importe ou ailleurs des brouettes d'erreur "function nesting" ou forward declaration not solved".

[anapurna]

salut

je pense que tu ne connais pas bien comment fonctionne le pascal
regarde mon exemple ci-dessous

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
16
Unit Unit1; // le .pas n'est pas nécessaire dans la déclaration ... la ligne fini par un ";" et non pas un "."
Interface // pas de ponctuation 
  Uses {..., toutes les autre unité}; //declaration des unité que tu va avoir besoin dans la partit interface la ligne fini par un ";" et non pas un "."
Type  // pas de ponctuation 
   TMonObj = Class 
      Function GetPixel(x,y : Byte) : Word; //Predeclaration de la methode de ton objet ... la ligne fini par un ";" et non pas un "."
   end;                                                 // la ligne fini par un ";" et non pas un "."
Implementation // pas de ponctuation 
   Uses {..., toutes les autre unité} Graph; //declaration des unité que tu va avoir besoin dans la partit implementation
                                                              // la ligne fini par un ";" et non pas un "."
Function TMonObj.GetPixel(x,y : Byte) : Word; //Declaration de la methode de ton objet ... la ligne fini par un ";" et non pas un "."
begin  // pas de ponctuation 
  Result := Graph.GetPixel(x,y); //Utilisation de la fonction declaré dans l'unite graph ... la ligne fini par un ";" et non pas un "."
end;    // la ligne fini par un ";" et non pas un "."

end.   // la ligne fini par un "."

[Jipété]

Salut,

mais pourquoi veux-tu l'utiliser ? Pour récupérer la couleur du pixel survolé par la souris (tu bosses sur un ColorPicker) ?

Moi j'ai ça, dans un coin :

Code :

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

1
2
3
4
5
  {$IFNDEF FPC} // Delphi7
    PickedColor := GetPixel(PickDC, Mouse.CursorPos.x, Mouse.CursorPos.y);
  {$ELSE}
    PickedColor := aCanvas.Pixels[Mouse.CursorPos.x, Mouse.CursorPos.y];
  {$ENDIF}

[mm_71]

je pense que tu ne connais pas bien comment fonctionne le pascal

Euh ? Je crois que tu n'as pas bien compris le problème. Tous mes programmes fonctionnent mais quand j'essaye d'y mettre {$i quelquechose} c'est là ou tout plante et la question est: Je me le mets ou l'include ?

mais pourquoi veux-tu l'utiliser ? Pour récupérer la couleur du pixel survolé par la souris (tu bosses sur un ColorPicker) ?

Rien de précis, juste une question de curiosité à propos de comment utiliser des fichiers d'include dans lazarus.

[Jipété]

Tous mes programmes fonctionnent mais quand j'essaye d'y mettre {$i quelquechose} c'est là ou tout plante et la question est: Je me le mets où, l'include ?

Après implementation, en ce qui me concerne :

Fichier bidon.inc :

Code :

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

1
2
3
 
const
  cBidon = 'ceci est un test';

Et dans le .pas pour tester :

Code :

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

1
2
3
4
5
implementation
 
{$I ./suite/bidon.inc} // parce que certains fichiers complémentaires sont dans un sous-dossier "suite"
 
{$R *.lfm}

Code :

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

1
2
3
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(cBidon); // message bien affiché

[anapurna]

Salut

Ah ben voilà, c'est plus clair comme question.

Bon Jipété a répondu mais ce n'est pas tout-à-fait exact.
En fait tout dépend de ce que tu as mis dans ton fichier include.

Tu peux le mettre soit dans la partie interface, soit dans la partie implementation.

Code :

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

1
2
3
4
5
6
7
8
Unit Unit1;
Implementation
 {$i ObjInterface.inc}
 
Implementation 
 
  {$i ObjImplementation.inc}
End.