Ah, ça y est, j'ai compris le principe des properties.
Cette fois, c'est la dernière version. Je n'y touche plus !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 TBGRAChessBoard = class private ... upsidedown: boolean; public ... procedure FlipBoard; property isupsidedown: boolean read upsidedown; end;
Partager