Envoyé par
gvasseur58
Je vais regarder le nouveau source, voir comment je peux le traiter avec Lazarus et essayer d'en faire un composant : l'essentiel a été réalisé, je le sais. Je serai donc un inspecteur des travaux finis, ce qui est assez confortable
Alors ça c'est très gentil. J'ai hâte de voir le résultat. Note que si jamais tu veux passer de fpGUI à la LCL, je pense que tu n'auras qu'à modifier l'en-tête de cette fonction :
procedure DrawToCanvas(x, y: integer; aCanvas: TfpgCanvas);
Une autre remarque (mais tu t'en serais aperçu tout seul), c'est que partout dans mon code j'ai supposé que mes cases étaient de 40 pixels sur 40, et je n'ai pas prévu que ce paramètre puisse être changé. Donc soit tu continues sur la même lancée, soit il y aura du travail supplémentaire.
Partager