Canvas.rectangle pour printer

Canvas.rectangle pour printer - Delphi/Pascal - Programmation

Marsh Posté le 10-04-2008 à 17:30:12    

Je crois que je fatigue , les deux codes sont pas sensé donné la même chose?
A savoir dessiner sur un canvas plein de rectangles côte à côte?
 
La V1  me donne une feuille blanche,
la v2, à la mano, sans boucle, marche  
 
:/
 

Code :
  1. {Tracé de la zone imprimable}
  2. X:=4
  3. Y:=2
  4.    topX:=0;
  5.    topY:=0;
  6.    for xx:=0 to 1 do
  7.    minX:=X*xx;
  8.    topX:=topX+X;
  9.    begin
  10.     for yy:=0 to 1 do
  11.      begin
  12.      minY:=Y*yy;
  13.      topY:=topY+Y;
  14.      Canvas.Rectangle(minX,minY,topX,topY);
  15.      end;
  16.    end;


 

Code :
  1. X:=4
  2. Y:=2
  3. Canvas.Rectangle(0, 0, X, Y);
  4. Canvas.Rectangle(X, 0, X+X,Y);
  5. Canvas.Rectangle(X, Y, X+X,Y+Y);
  6. Canvas.Rectangle(0, Y, X,Y+Y);


---------------
ma vie, ma carrière! - Un trait d’union entre des photos et des mots.
Reply

Marsh Posté le 10-04-2008 à 17:30:12   

Reply

Marsh Posté le 11-04-2008 à 11:31:12    

dans le premier code y'a un prob au niveau des blocks, je pense que le begin de la ligne 9 devrait etre juste apres le premier for ou du genre.


Message édité par rengzehn le 11-04-2008 à 11:33:35
Reply

Marsh Posté le 11-04-2008 à 11:44:45    

tout à fait.
 
ce matin à la fraiche j'ai vu ça tout de suite.
 
Vacances vacances....:cry:


---------------
ma vie, ma carrière! - Un trait d’union entre des photos et des mots.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed