Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Jhonas

    Site com portfolio

    Com relação a sua construção do site da HDF informática: A letra usada é o itálico, muito ruim de visualizar ( sugiro Arial 9 ou 10 ) Com relação a Cotação, o usuário prefere ver uma lista e escolher do que ficar digitando, sendo que muitas vezes nem lembra o nome da placa mãe, processador, cooler etc Pontos positivos: Pagina simples, bom visual, facil navegação Pontos negativos: Ruim de ler com letra em itálico e pequena, ter que digitar o nome do equipamento na cotação abraço
  2. Jhonas

    Ativo Fórum

    Evandro a sua idéia é realmente boa, mas não creio que seja de muito interesse todas as questões sobre matérias de escola. Além do mais, um foro só é frequentado quando os usuários sabem que suas duvidas serão respondidas em um curto espaço de tempo, caso contrário ele desiste de buscar ajuda neste forum. Se não houver quem responda as questões nas diversas matérias, isto será um peso negativo para o forum Caso voce note um indice de frequencia muito baixo, sugiro trocar para tópicos mais interessantes. abraço
  3. Seu site está bom, tem um visual bonito, e as opções de navegação bem explicitas. Sugestões: coloque alguns mids na pagina Tente abordar outros assuntos tambem (saude, beleza ... etc coisas que as mulheres gostam ) abraço
  4. o preço para construção de páginas de um site é de R$ 20,00 por página ( Valor mínimo ) , podendo variar de acordo com o que for incluído nesta página. ou voce pode cobrar por hora de trabalho... neste caso um preço justo seria de R$ 15,00 ( hora efetivamente trabalhada ) OBS: caso o usuário peça um orçamento, veja quanto tempo voce vai gastar para desenvolver o projeto e calcule o preço da hora efetiva de desenvolvimento, e caso o orçamento seja aceito, peça 30% do valor adiantado e o restante ao final do trabalho. Desta maneira, caso o usuário desista no meio do caminho, os 30% ficarão como indenização do trabalho até então desenvolvido Forneça manutenção e correção gratuita por 3 meses ao usuário. abraço
  5. Material para estudo http://black.rc.unesp.br/balthazar/linguag...03balthazar.pdf http://www.mat.ufmg.br/~regi/gaaltt http://www.demat.ufma.br/demat/index.php?a..._matematica.pdf http://www.dicas-l.com.br/dicas-l/20020501.php abraço
  6. http://www.mat.ufmg.br/~regi/gaaltt http://www.demat.ufma.br/demat/index.php?a..._matematica.pdf
  7. Oi bia... tenta esta alteração: with DataModule1.qferramentas do begin Close; SQL.Clear; SQL.Add('SELECT * FROM tbferramentas'); Open; edtproduto.Clear; with frmestoquefer do while not DataModule1.Qestoque.EOF do begin edtproduto.Items.Add(DataModule1.Qestoque.FieldByName('produto').AsString); DataModule1.Qestoque.Next; end; abraço
  8. Voce não salva o conteudo de um OleContainer. Como voce mesmo diz..(estou abrindo um documento do word em um OleContainer) Na verdade voce está usando um OleContainer para abrir o Word, e vai ser atravez do próprio Word que voce vai salvar o arquivo alterado com outro nome, na pasta que voce quiser. voce está usando um opendialog1, então use a propriedade Filter para filtrar os arquivos procedure TFrmWord.BitBtn1Click(Sender: TObject); var NomeArquivo: string; begin opendialog1.InitialDir:=extractfilepath(application.ExeName); OpenDialog1.DefaultExt := '*.doc|*.doc'; //somente arquivos com extensão .doc OpenDialog1.Filter := '*.doc|*.doc'; if opendialog1.Execute then with olecontainer1 do begin if oleobjectinterface <> Nil then begin destroyobject; end; Nomearquivo:=opendialog1.filename; FrmProntuarioWord.Caption:='Word - ' + opendialog1.FileName; CreateobjectFromFile(Opendialog1.FileName, false ); Perform(wm_lbuttondblclk, mk_lbutton, 0); end; end; abraço
  9. RLINK32: 16bit recurso sem assistência em arquivo " ufrm_relMapaVendedor.dfm " Esse erro ocorre quando houve modificações no form e durante a compilação o arquivo ficou corrompido. Soluções: 1 - Apague o ufrm_relMapaVendedor.dfm e renomeie o ufrm_relMapaVendedor.~dfm para ufrm_relMapaVendedor.dfm , e recompile. 2 - Abrir os arquivos de recursos com o Image Editor (Acompanha todas as versões) e salvá-los (32-Bit) em seguinda. 3 - Copie todos os arquivos de seu projeto para uma nova pasta (backup). Delete os arquivos DCU e DCR (vai perder as glyphs), aplique um Build All. abraço
  10. Mais informações sobre setores defeituosos ( Bad Clusters ) http://www.tutomania.com.br/artigo/acaband...res-defeituosos abraço
  11. Pode ficar tranquilo, voce não vai peder nada. OBS: se por acaso ele pedir para formatar o HD é porque realmente existem Bad Clusters na trilha zero do disco, mas voce não precisa formata-lo. ( muito raro de acontecer ) abraço
  12. Então isso significa que voce terá que compra-lo... deve estar por volta de R$ 80,00 http://www.boadica.com.br/query04.asp?Clas...riaX=7&XG=3 abraço
  13. Na propriedade MaxLength do TEdit voce pode limitar o tamanho caracteres faça esta modificação procedure Tfrmcadastro.edtTelExit(Sender: TObject); begin if length (trim(edttel.Text)) > 8 then begin Application.MessageBox('Telefone Invalido','Aviso',mb_iconinformation+mb_okcancel); edttel.SetFocus; edttel.selectAll; end; end; abraço
  14. Veja nestes endereços: http://www.itmnetworks.com.br/index.asp?gourl=registro.asp http://www.speedserv.com/hospedagem/?ID=105 http://www.superdominios.org/ http://www.clicregistro.com/ http://www.registro.raioz.com/index2.php abraço
  15. [ Alguém sabe qual a melhor guilhotina para cortar cartão de visita, por exemplo, com maior precisão, ou se uma refiladora serve?
  16. Não sei se tem para o windows vista, mas voce pode procurar neste endereço: http://www.helpdrivers.com/aleman/listado/...mp;perif=video4 abraço
  17. tutoriaL de instalação http://www.babooforum.com.br/forum/index.php?showtopic=75616 http://www.forum-invaders.com.br/phpBB/vie...0&t=8535542 http://forum.clubedohardware.com.br/instal...vo-drive/260038 http://www.tutomania.com.br/artigo/instalando-um-hard-disk abraço
  18. Algumas dicas que vão ajuda-lo. https://windowshelp.microsoft.com/Windows/p...46fb6a1046.mspx http://www.baboo.com.br/absolutenm/templat...=24&resumo= http://www.revistawindowsvista.com.br/node/617 http://www.babooforum.com.br/forum/index.p...howtopic=219678 http://www.babooforum.com.br/forum/index.p...howtopic=597453 http://www.babooforum.com.br/forum/index.p...p;#entry2602105 abraço
  19. Pode ser até que seja possivel fazer um programa desse tipo no delphi, mas vai ser dificil alguém lhe dar alguma coisa pronta. abraço
  20. de uma maneira bem simples seria assim: um form com 2 frames unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Unit2, StdCtrls, Unit3; type TForm1 = class(TForm) Button1: TButton; Frame21: TFrame2; Button2: TButton; Frame31: TFrame3; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Frame21.Visible := true; Frame31.Visible := false; end; procedure TForm1.Button2Click(Sender: TObject); begin Frame21.Visible := false; Frame31.Visible := true; end; end. Outras informações sobre Frames: http://www.techtips.com.br/programacao/del...mas-com-frames/ http://www.techtips.com.br/programacao/del...tica-parte-01n/ http://imasters.uol.com.br/artigo/344/delp..._objeto_tframe/ Tutorial sobre frames: http://www.apostilando.com/download.php?co...;categoria=HTML Exemplo do delphi C:\Arquivos de programas\Borland\Delphi5\Demos\Frames\Db C:\Arquivos de programas\Borland\Delphi7\Demos\Frames\Db abraço
  21. Por Favor atente para as regras do Forum OBS: Tenha paciência e espere alguém lhe responder. abraço
  22. Voce vai encontrar o programa neste endereço: http://cool.com.br/downloads/Instalar_CoolSMS.exe abraço
  23. Jhonas

    Calculo no Rave

    Dicas: http://www.activedelphi.com.br/forum/viewt...cfed0dbb26b6d92 http://forum.imasters.uol.com.br/index.php...st&p=832418 http://www.mail-archive.com/delphi-br@yaho...r/msg58485.html abraço
  24. Jhonas

    RBuilder e matricial

    O ReportBuilder imprime em modo gráfico e não em modo caracter, por isto ele demora voce pode tentar usar o esquema Report Builder com Generic Text Only - Driver para impressão somente texto do proprio windows Mais informações: http://forum.imasters.uol.com.br/lofiversi...hp/t213096.html Outras dicas: http://delphi.newswhat.com/geoxml/forumlis...igitalMetaphors abraço
  25. O FindDialog é usado para se fazer uma busca em um texto This example requires a TRichEdit, a TButton, and a TFindDialog. Clicking the button click will display a Find Dialog to the right of the edit control. Filling in the "Find what" text and pressing the Find Next button will select the first matching string in the Rich Edit control that follows the previous selection. procedure TForm1.Button1Click(Sender: TObject); begin FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top); FindDialog1.Execute; end; procedure TForm1.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; begin with RichEdit1 do begin { begin the search after the current selection if there is one } { otherwise, begin at the start of the text } if SelLength <> 0 then StartPos := SelStart + SelLength; else StartPos := 0; { ToEnd is the length from StartPos to the end of the text in the rich edit control } ToEnd := Length(Text) - StartPos; FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); if FoundAt <> -1 then begin SetFocus; SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); end; end; end; Para fazer a busca em um DBGrid voce pode usar dentre outras opções o uso do Locate exemplo: if botao = 1 then begin Tabela.Open; Tabela.First; if Tabela.Locate('EMPRESA',trim(Edit1.text),[loPartialKey]) then begin showmessage('Localizei a Empresa.'); achei := 1; end else begin showmessage('Empresa não localizada.); achei := 0; end; end; abraço
×
×
  • Criar Novo...