Ir para conteúdo
Fórum Script Brasil

D31v1d1

Membros
  • Total de itens

    648
  • Registro em

  • Última visita

Tudo que D31v1d1 postou

  1. algueim tem alguma previsao de quanto sairá em R$
  2. ai vai o codigo que estou usando para poderem me ajudar melhor procedure TForm1.FormShow(Sender: TObject); var I : Integer; begin ComboBox1.Items.Clear; For I:= 1 to Printer.Printers.Count do Begin if Pos('LPT', printer.Printers.Strings[I-1]) > 0Then ComboBox1.Items.Add('LPT1') Else if Pos('\\', printer.Printers.Strings[I-1]) > 0 Then ComboBox1.Items.Add(Copy(printer.Printers.Strings[I-1], Pos('\\', printer.Printers.Strings[I-1]), length(printer.Printers.Strings[I-1]) - Pos('\\', printer.Printers.Strings[I-1]) + 1)); End; End; procedure TForm1.btImprimirClick(Sender: TObject); var I:Integer; Arquivo : TextFile; begin AssignFile(Arquivo,ComboBox1.text); Rewrite(Arquivo); WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 1'); WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 2'); WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 3'); WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 4'); CloseFile(Arquivo); end; bom eu creio que o contra tempo esta na parte onde ta ali LPT1 se algueim souber a solução á e mais uma coisa como faso para imprimir em negrito italico sublinhado .... etc ??? se algueim souber irá me ajudar muitu Obrigado desde já
  3. so não gostei da cor letra do menu e o fundo poderia botar um efeito bem fraquinho sei la, o resto esta muitu bom e organisado
  4. tambem a fonte o menu e o site ta bem quadradao e o jogo nen abri
  5. bom sei que é uma pergunta bem ridicula pois quase todos aqui devem saber disso mais gostaria de saber como colocar uma animaçao em flash no meu site??? primeira esperiencia no flash se puder me ajudem falou abs
  6. muitu legal so não gostei muitu daquelas cores ali não combinou mais vale 9,0
  7. sim isto funciona, mais no win2000 não, e eu presizava tambem de como imprimir negrito ... etc
  8. existem programas que fasem isso é so procurar pela net que voce acha mais não darei nomes e nem links pra não me comprometer
  9. tem um tópico so cm servidores free so da uma olhada cara abs e boa sorte
  10. acho que free vai ser dificil mais ai no forum ta cheio de freelancers mais se achar posta ai
  11. sei que estou flodando e peso desculpas por isso mais foi o unico metodo que encontrei de faser com que meu tópico seja solucionado! por favor algueim sabe faser isso sem usar componentes?
  12. Boa Tarde pessoal! bom tinha lançado uma duvida esses tempo atras de como imprimir numa impressora matricial pelo sistema, não tive sucesso, mais ainda assim consegi uma solução funcionou qe é uma beleza mais quando fui testar no win2000 quem diz que imprimi ela apenas fas barrulho de quem como esta imprimindo mais nada bom ai vai o codigo // Esta rotina lê todas as impressoras instaladas no windows // e coloca dentro de um ComboBox procedure TForm1.FormShow(Sender: TObject); var I : Integer; begin ComboBox1.Items.Clear; For I:= 1 to Printer.Printers.Count do Begin if Pos('LPT', printer.Printers.Strings[I-1]) > 0Then ComboBox1.Items.Add('LPT1') Else if Pos('\\', printer.Printers.Strings[I-1]) > 0 Then ComboBox1.Items.Add(Copy(printer.Printers.Strings[I-1], Pos('\\', printer.Printers.Strings[I-1]), length(printer.Printers.Strings[I-1]) - Pos('\\', printer.Printers.Strings[I-1]) + 1)); End; End; // e quando apertar o botao imprimir, o evento pega qual a impressora // que você escolheu atravéz do ComboBox e Imprimi. procedure TForm1.btImprimirClick(Sender: TObject); var I:Integer; Arquivo : TextFile; begin AssignFile(Arquivo,ComboBox1.text); Rewrite(Arquivo); WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 1'); WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 2'); WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 3'); WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 4'); CloseFile(Arquivo); end; bom eu creio que o contra tempo esta na parte onde ta ali LPT1 se algueim souber a solução á e mais uma coisa como faso para imprimir em negrito italico sublinhado .... etc ??? se algueim souber irá me ajudar muitu Obrigado desde já
  13. D31v1d1

    Site Em Flash

    never, tbein não gostei 5,0 tdu mutu gigante nada ver aqele fundo imagens muitu ruins sei la não gostei nada
  14. ficou bem massa o layout as cores bem show
  15. muitu fraco o corpo da pagina poderia ser melhorada mudando aqeli fundo qe não conbinou e so reformulando que eu saiba é Layout falou
×
×
  • Criar Novo...