Tramage
Description
On a la possibilité de faire en sorte que la feuille soit tramés automatiquement.
Pour cela on surchargé la méthode paint.
Pour cela on surchargé la méthode paint.
Source / Exemple :
procedure TForm1.FormPaint(Sender: TObject);
var xf,yf : word;
begin
for xf := 0 to width div 10 do
for yf := 0 to height div 10 do
canvas.pixels[xf*10,yf*10] := clred;
end;
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.