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 :
Le code ne compile pas avec le message
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;
D'ou sort le record field ?.../sanedev.pas(295,7) Error: Unknown record field identifier "HEIGHT"
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;
Partager