Grade no form...
Ai galera gostaria de criar no meu form uma grade no fundo... tipo aquelas que tem em programas de desenho tipó photoshop, Corel etc..
Gostaria que eslas tivessem 85 por 85 Pixel
alguém me da uma dica de qual componete poderia usar e como fazer isso !!! :wink:
Valew Galera !!!!!
Um Abraço ...
Gostaria que eslas tivessem 85 por 85 Pixel
alguém me da uma dica de qual componete poderia usar e como fazer isso !!! :wink:
Valew Galera !!!!!
Um Abraço ...
Pantoja
Curtidas 0
Respostas
Leanribas
18/02/2004
fiz o código de exemplo, para vc testar, uma novo aplicação no delphi e no form no evento onPaint coloque esse código:
Canvas.FillRect(ClientRect);
//linhas horizontais, 544 e o width do form
Canvas.MoveTo(0,85);
Canvas.LineTo(544,85);
Canvas.MoveTo(0,85 * 2);
Canvas.LineTo(544,85 * 2);
Canvas.MoveTo(0,85 * 3);
Canvas.LineTo(544,85 * 3);
Canvas.MoveTo(0,85 * 4);
Canvas.LineTo(544,85 * 4);
//linhas verticais, 0 375 e o Heigth do form
Canvas.MoveTo(85,0);
Canvas.LineTo(85,375);
Canvas.MoveTo(85 * 2,0);
Canvas.LineTo(85 * 2,375);
Canvas.MoveTo(85 * 3,0);
Canvas.LineTo(85 * 3,375);
Canvas.MoveTo(85 * 4,0);
Canvas.LineTo(85 * 4,375);
Canvas.MoveTo(85 * 5,0);
Canvas.LineTo(85 * 5,375);
Canvas.MoveTo(85 * 6,0);
Canvas.LineTo(85 * 6,375);
end;
Falou.
Leandro
Canvas.FillRect(ClientRect);
//linhas horizontais, 544 e o width do form
Canvas.MoveTo(0,85);
Canvas.LineTo(544,85);
Canvas.MoveTo(0,85 * 2);
Canvas.LineTo(544,85 * 2);
Canvas.MoveTo(0,85 * 3);
Canvas.LineTo(544,85 * 3);
Canvas.MoveTo(0,85 * 4);
Canvas.LineTo(544,85 * 4);
//linhas verticais, 0 375 e o Heigth do form
Canvas.MoveTo(85,0);
Canvas.LineTo(85,375);
Canvas.MoveTo(85 * 2,0);
Canvas.LineTo(85 * 2,375);
Canvas.MoveTo(85 * 3,0);
Canvas.LineTo(85 * 3,375);
Canvas.MoveTo(85 * 4,0);
Canvas.LineTo(85 * 4,375);
Canvas.MoveTo(85 * 5,0);
Canvas.LineTo(85 * 5,375);
Canvas.MoveTo(85 * 6,0);
Canvas.LineTo(85 * 6,375);
end;
Falou.
Leandro
GOSTEI 0