Pesquisar na Comunidade
Mostrando resultados para as tags ''canvas''.
Encontrado 2 registros
-
Olá, Alguém sabe dizer como se consegue ir imprimindo pontos usando Canvas no Delphi utilizando o seguinte código: procedure TForm1.FormMouseMove( Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Canvas.FillRect(ClientRect); Canvas.MoveTo(0, 0); Canvas.LineTo(X, Y); end; Basta criar no evento "OnMouseMove" do Delphi essas três linhas que ele roda normalmente. Mas eu gostaria de ir além e ir imprimindo pontos na tela, desenhando e fazendo formas na tela. Como eu poderia fazer isso? Obrigado!
-
Olá, Estou tentando carregar uma imagem usando Canvas no Delphi mas não estou conseguindo. Eu não sei o porque a imagem não está aparecendo. O caminho da imagem está certo e o código compila corretamente. Onde está o erro? Porque a imagem não aparece? Código: var Form1: TForm1; Tela: TJPEGImage; implementation {$R *.dfm} procedure TForm1.FormDblClick(Sender: TObject); begin Tela:= TJpegImage.Create; Tela.LoadFromFile('C:\Users\Username\Pictures\imagem.jpg'); Image1.Canvas.Draw(100, 100, Tela); end; end. Obrigado.
