Discussion :

[thierrybo]

Bon,

je suis débutant et comme d'habitude ça doit venir d'une boulette mais quand même, des fois j'ai l'impression que Lazarus perd la boule.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function TSaneDev.DrawPNMtoForm(
    rowcount, linecount: longint;
    var Str: TStream;
    var bmp: TForm): Boolean;
var
  ct: integer;
  B: string;
  row: integer;
  line: integer;
  PixelRGB: array[0..2] of byte;
  bytesread: longint;
begin
  bmp.Height := linecount+10;
  bmp.Width := rowcount+10;

Le code ne compile pas avec le message

.../sanedev.pas(295,7) Error: Unknown record field identifier "HEIGHT"

D'ou sort le record field ?

J'ai bien bmp qui est un paramètre de type TForm. Si je me place au niveau du . du premier "bmp" après "begin", la completion m'ouvre l'unité "form" et me place à la ligne

Code :

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

function FrmInitForm(rscID: UInt16): FormPtr; syscall sysTrapFrmInitForm;

[thierrybo]

, j'ai trouvé. Ca m'arrive de temps en temps, mais à chaque fois j'oublie. En changeant l'ordre des unités dans "uses", le problème disparait, bien que je ne comprenne pas forcément pourquoi.

J'avais

Code :

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

 Classes, SysUtils, Graphics, Sane, Forms;

, maintenant

Code :

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

Classes, SysUtils, Graphics, Forms, Sane;