Dicas de Delphi for .NET

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja neste artigo de Jefferson Luis, duas importantes dicas de .NET.

Delphi.NET Dicas

 

Nesse artigo estarei disponibilizando duas dicas, uma é como pegar todas as impressoras do Windows e a outro é pegar a resolução da tela do computador do usuário, como será muito simples esse artigo pularemos os passos básicas de abrir Delphi e criar uma nova Aplicação Delphi.net.

Impressoras do Windows

Vamos pegar o nome de todas as impressoras instaladas no computador em que o nosso aplicativo esteja rodando, isso é útil para impressão utilizando a classe PrintDocument, usaremos a classe PrinterSettings para pegar os nomes das impressoras instaladas.

Coloque um ListBox e um Button no Projeto, altere o nome do ListBox para lstImpressoras e do Button para btnImpressoras, altere o Text do Button para Impressoras, coloque o código da Listagem 1 no evento Click do Button, não esqueça de colocar na Uses o namespace System.Drawing.Printing, o resultado você verá na Figura 1.

 

Listagem 1. Código para pegar as impressoras do Windows

var

  i: Integer;

begin

  for i := 0 to Pred(PrinterSettings.InstalledPrinters.Count) do

    lstImpressoras.Items.Add(PrinterSettings.InstalledPrinters[i]);

Dicas1.gif 

Figura 1. Todas as impressoras instaladas no Windows.

Resolução da Tela

Quando distribuímos nosso aplicação aos usuário finais, é comum que cada usuário use um tipo de configuração de resolução de tela diferente, 1027X738, 800X640 entre outras, em alguns casos é necessário fazer o reposicionamente de alguns componentes conforme a resolução da tela, com essa função você vai conseguir pegar a resolução da tela do computador, coloque um novo Button e altere a propriedade Text para Resolução, no evento Click coloque o código da Listagem 2, o resultado você verá na Figura 2.

 

Listagem 2. Código para pegar a Resolução da Tela

MessageBox.Show('Largura: ' + Screen.PrimaryScreen.WorkingArea.Width.ToString + #13 + 'Altura : ' + Screen.PrimaryScreen.WorkingArea.Height.ToString); 

Dicas2.gif 

Figura 2 Resolução da Tela.

Conclusões

Duas dicas muito simples e muito úteis para o dia a dia da vida de programador .NET. Abraços e até a próxima.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?