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;