Où sont donc GetPixel et l'unité Graph ?

Version imprimable

13/09/2017, 14h36
mm_71

Où sont donc GetPixel et l'unité Graph ?

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 ?
13/09/2017, 15h03
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 !
13/09/2017, 15h12
anapurna

salut

tu as regardé dans l'unité graphh.inc ?
13/09/2017, 15h32
mm_71

Citation:

Envoyé par anapurna

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:

Interface include file for graph unit

Donc ça devrait être quelque part mais où ?
13/09/2017, 15h46
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:

{$I filename} ou {$INCLUDE filename}

...
dans notre cas ce seras comme ceci

Code:

{$i graphh.inc}

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

Code:

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

Citation:

packages/graph/src/win32/graph.pp
13/09/2017, 18h48
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:

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

Si je le met avant interface j'ai:

Code:

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".

salut

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

Code:

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 "."

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:

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}

13/09/2017, 19h57
mm_71

Citation:

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 ?

Citation:

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.
13/09/2017, 23h10
Jipété
Citation:

Envoyé par mm_71

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:

1 2 3 const cBidon = 'ceci est un test';
Et dans le .pas pour tester :
Code:

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:

1 2 3 procedure TForm1.FormCreate(Sender: TObject); begin ShowMessage(cBidon); // message bien affiché
14/09/2017, 15h23
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:

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