Obter a letra do drive onde está o Windows no Delphi
Inclua na seção uses: Windows
Como saber em qual unidade de disco (drive) o Windows está instalado? Consulte mais informação
Inclua na seção uses: Windows
Como saber em qual unidade de disco (drive) o Windows está instalado? Consulte mais informação
Inclua na seção uses: Printers
{ Coloque este código no OnClick de um botão }
with Printer.Fonts do
if IndexOf('Draft 10cpi') >= 0 then
ShowMessage('A impressora possui a fonte.')
else
ShowMessage('A impressora NÃO possui a fonte.');
Ou seja, gostaria que, ao visualizar ou imprimir um relatório do Quick Report, saia em cada página apenas um registro, mesmo que o espaço permita mais de um. Consulte mais informação
Inclua na seção uses: tbPrn
{ - Peque em nosso Download o arquivo tbPrn.zip. Ele contém
a unit tbPrn.pas, onde está a função tbPrnSetPaperSize
usada no exemplo abaixo;
Consulte mais informação
{ A impressora Epson LX-300 dispõe de um comando que justifica
o texto. Este recurso é interessante, pois com ele podemos
continuar a enviar os comandos de formatação de caracteres
como condensado, negrito, italico, expandido, etc.
Consulte mais informação
{ Usando comandos da impressora podemos fazer isto de uma
forma bastante simples. Quando enviamos o caractere ASCII
número 8 (oito) para a impressora, a cabeça de impressão
retrocede uma posição, pois este caractere é o BackSpace.
Então podemos imprimir a letra sem acento e, sem seguida,
voltar e imprimir o acento desejado. Vejamos um exemplo:
Consulte mais informação
Antes de enviar seu relatório, faça assim: Printer.Title := 'Nome do relatório';
Esta solução aplica-se perfeitamente aos relatórios feitos usando o objeto Printer. Nos casos de geradores de relatórios, estes provavelmente possuem uma propriedade equivalente.
Usando instruções Assembly podemos fazer isto. A função abaixo retorna true se a porta informada está pronta. Consulte mais informação
Inclua na seção uses: Printers
Já vimos em outra dica como imprimir um memo acessando a impressora como se fosse um arquivo. Aqui usaremos outra técnica. Vamos usar o objeto Printer e "desenhar" na impressora usando Canvas. Esta técnica, dentre outras coisas, nos permite controlar: Consulte mais informação
Para imprimir um campo memo (objeto TMemo) podemos usar diversos métodos. Um deles é acessar a impressora como se fosse um arquivo. Para isto é necessário atribuir a impressora a uma variável arquivo (AssignPrn), abrir o arquivo (ReWrite), escrever nele (write e writeln) e finalmente fechar o arquivo (CloseFile). Talvez seja mais fácil entender o que estou dizendo estudando a rotina abaixo. Consulte mais informação
Inclua na seção uses: Windows
{ - Coloque um botão no form e escreva seu OnClick como
abaixo: }
Consulte mais informação
{ - Coloque um Label no form (Label1);
- Mude a propriedade KeyPreview do form para true;
- Altere o evento OnKeyDown do form como abaixo: }
Consulte mais informação
Inclua na seção uses: Windows
{ Coloque um botão no form e altera o evento OnClick dele
conforme abaixo: }
Consulte mais informação
Inclua na seção uses: Windows
{ Digite a procedure abaixo imediatamente após a palavra
implementation no código do seu formulário. }
Consulte mais informação
{ Mude a propriedade "KeyPreview" do Form para true. }
{ No evento "OnKeyPress" do Form acrescente o código abaixo: }
Consulte mais informação