bastard2003

cara eu criei algo do tipo... so ta com uns probleminhas ainda! :\ mas nada de mais... pretendo resolver esse find... se você quiser te mando os fontes dele esse find quando tiver pronto... eu usei uma lib de gif que eu encontrei na net pra poder fazer... tem uns fuções MT uteis! ... me manda uma msg ou dexa teu MSN ai que eu te passo no find! abraços!

Fala rapaz beleza?! da uma olhada nesse link aqui... é o que você quer fazer... são os codigos necessario pra fazer um form login.. qualquer coisa... posta ai que a galera aqui te ajuda... aqueles codigos la.. foi eu que passei! ate!

cara... ve se não tem a função... LoadFromFile se tiver faz assim LoadFromFile(openDialog1.filename);

esse site ai tem bastante coisa (http://www.delphi.eti.br/index.php)... mas se você não encontrar nada que você esteja procurando vai no google mesmo e procura por icones delphi que tu vai encontrar MUITA coisa! abraços!

fala carlos beleza? cara tu pode fazer o seguinte... vincular teu edit (o qual tu coloca o nome) com uma qry que busca no banco esses valores.... se o RecordCount dessa qry (qry consulta) for maior que 0 tu mostra nos edit´s... se ele for = 0 (no caso o cliente não ta cadastrado) tu libera pra gravar... com uma outra qry.. na minha opnião dexa esse edit que você vai usar pra buscar/cadastrar cmo um edit normal e não como um DbEdit... tenta ai velho.. qualquer coisa... posta ai! abraços!

não consegui entender MT bem o que você quer fazer... mas pelo que deu pra entender da pra você fazer um update na tebela... pegando os valor e atualizando eles...

Já que ninguém conseguiu me ajudar.. tive q me virar mesmo... axei algumas coisas na net e apenas modifiquei pra ficar melhor pra mim usar!! segue a função! Procedure TfrmPrincipal.RedimensionarIMG(ArqOriginal,ArqNovo:String;Largura,Altura:Integer); var Img1,Img2 : TImage; JPG: TJPEGImage; Diretorio: String; begin //Pega o diretorio a ser salvo Diretorio := ExtractFileDir(ArqNovo); //Imagem Original Img1 := TImage.Create(nil); Img1.Picture.LoadFromFile(ArqOriginal); //Imagem Nova Img2 := TImage.Create(nil); Img2.Width := Largura; Img2.Height := Altura; Img2.Canvas.StretchDraw(Img2.Canvas.ClipRect,Img1.Picture.Graphic); //Cria em jpg JPG := TJPEGImage.Create; JPG.Assign(IMG2.Picture.Graphic); //Verifica se o diretorio existe, se naõ existir cria if not DirectoryExists(Diretorio) then MkDir(Diretorio); // Salva a imagem no diretorio expecificado JPG.SaveToFile(ArqNovo); //Libera as variáveis Img1.Free; Img2.Free; JPG.Free; end; ai to chamando ela assim: procedure TfrmPrincipal.edtImageExit(Sender: TObject); var Arquivo, Diretorio: String; begin //Extrai diretorio a onde esta o .exe da aplicação Diretorio := Copy(Application.ExeName,1,LastDelimiter('\',Application.ExeName)); //Copia o nome do arquivo Arquivo:= ExtractFileName(OpenPicture.FileName); if (edtImage.Text <> '') then begin //Chama a função passando os parametro dela... (Origem, destino, largura, altura) RedimensionarIMG(PChar(OpenPicture.FileName), Pchar(Diretorio) + 'img\' + Arquivo,16,16); end; é isso ai galera... se alguém passa pelo mesmo problema que eu... isso deve ajudar! PS: testei com bmp e funcionou normalmente!

Fala rapaz... tenta isso aqui: copy(TimeToStr(now), 1,5); //now é a hora da tua maquina.

boa noite amigos do forum! seguinte to com um probleminha... olha so... tenho um projeto q to fazendo agora q é pra desenvolver menus em JS, so que o problema é que eu tenho q copiar a imagem pra uma pasta especifica e redimencionar ela... tipo o cara seleciona uma imagem de 30x30 eu vou redimencionar ela pra 16x16 e salvar ela numa pasta que eu escolher (no caso a mesma pagina que ta o programa), so q isso tudo eu queria fazer no OnExit do edit... agora eu pergunto, TEM COMO FAZER ISSO?!? se alguém puder me ajudar, agradeço Valeu! aguardo respostas!

dai rapaz beleza? cara usa uma qry e vai passando via insert pra outra...

deveria funcionar... você faz um campo calculado e nas propriedades da tua qry (onCalcField) você coloca o codigo (no teu caso a consulta pros valores) e atribui o resultado pra esses campos.. tipo... eu usaria uma qry alternativa... ai bastaria tua passar o select pra ela e depois atribiur o resultado pro teu campo calculado, algo do tipo: //select with qryGenerica do begin close; sql.clear; sql.add('select count(CODIGO) as quantidade_vencer from tabela'); open; end; //atribuindo valor! qryPrincipalVencer.Asinteger := qryGenerica.FieldByName('quantidade_vencer').AsInteger; Isso deve resolver teu problema... ate... qual quer coisa... posta ai de novo!

e com uma dessas 3 linguagens eu consigo fazer menu do tipo TreeView?? saberia a onde eu consigo alguns exemplos? desde já MUITO obrigado pela ajuda!

Boa noite amigos, tudo bem!? galera to com um divida MT seria! trabalho com programação em delphi e agora vou ter q migrar um projeto pra web, pra isso ira ser usado JAVA, como é um projeto bastante grande, ele foi devido em partes e pra mim caiu a parte do menu, pesquisando entre varios tipos de menus... acabei optando pelo medelo TreeView, que se adaptaria melhor a esse novo site... so que o problema é o seguinte: esse site vai ter areas restritas para determinado tipo de usuario teria como (usando JS) "desabilitar" apenas uns links desse menu deixando eles visiveis mas sem tirar eles do menu se tiver como fazer com JS beleza, ou qual linguagem eu devo usar... tb gostaria de saber se JS funciona em todos os tipos de browser!? se alguém puder me tirar essas duvidas ou me disser qual linguagem deveria optar... ficaria MUITO grato! desd já agradeço a todos! MT obrigo!

na minha opnião a meneira mais pratica seria você ir varendo seu memo num while not eof e ir pegando os valores e inserindo direto!

qual o melhor editor para ele esse aqui vai te ajudar MT... aqui mesmo no Scritp tem varias... vai em busca porque esse tópico aqui já ta repetido!

o resultado da tua sub-consulta ta retornando mais de uma linha! provavelmente esse é o erro!

galera me apavorei com esse site ai.... meu Deus... tem MUITA coisa.. com varios exemplos... basicament o help do delphi, so que com exemplos praticos!!! era isso.. http://www.delphibasics.co.uk/

se esse teu caminho for "fixo" você pode usar um copy copy(String,valor_inicio, qntos_anda);

da uma curtida nesse link aqui... ve se essa te ajuda! http://www.megaupload.com/?d=286EMCPL Abraços!

"Line too long (more than 1023 characters)." diz q a linha ultrapassou os 1023 caracteres... isso seria resolvido com a quebra dela... mas se você disse que mesmo tirando a linha ta dando esse erro.... so da uma verificada se outras linhas acimas desta tb não tão MT longas.. principalmente a q fica em cima dessa (107)! qualquer coisa volta ai!

cara axo que seu problema não é no campo mais no "select *" você já tentou trazer os nomes das colunas em vez do *?? tenta ai e ve se resolve! ou tenta colocar o nome da tabela na frente do campo select * from receitas order by receitas.totrec, receitas.medico, receitas.descricao; abraços!

cara não entendi mt bem o que você quis disser : " sem caixa de texto "... se for so pra leitura mesmo você poderia colocar uma label no form e pronto.... e jogar o valor pra essa label, ai é so tu muda a propriedade AutoSize pra True! era isso que você queria?? abraços

fala rapaz beleza?? cara tenta assim... no chart tu configura a legenda pra visible ai no legend Style tu coloca automatic e no text Style tu coloca Plain... ai na hora de tu criar teu chart tu passa assim: chtContatoMes.Series[0].Add(QryPadrao.FieldByName('Quantidade').AsInteger,QryPadrao.FieldByName('Data_certa').AsString,clYellow); Traduzindo: chart1.series[0].add(VALOR, LEGENDA, COR); {onde chart é teu chart series[indice] = é a series do chart se você tiver so um ele é 0 add = pra adicionar e os valores dai....} eu tb já tive esse problema... resolvi dessa maneira! qualquer coisa ta ai velho!

Fala Grande Mestre... cara consegui resolver de uma maneira bem pratica.. fiz assim... no botão que eu salvo: arquivo := 'C:\temporario.rtf'; //Crio um arquivo temporario Editor.Lines.SaveToFile(arquivo); //Salvo ele! relPrincipal := TrelPrincipal.Create(Application); // Crio o relatorio relPrincipal.QuickRep1.Preview; // do um preview; relPrincipal.Free; // libero o relatorio DeleteFile(PChar(arquivo)); // deleto o arquivo criado! no relatorio, no oncreate : QRRichText1.Lines.LoadFromFile(MainForm.arquivo); // Carrego o arquivo q eu salvei! Onde arquivo é uma global do tipo String pro problema dos espaços no começo eu resolvi colocando uns QRBands um cmo rbPageHeader e outro como rbPageFooter assim delimito o tamanho de cada um pra deixar so o meio livre... já q a folha vai ser timbrada! Valeu ai cara! grande abraço!

Valeu Kikonanet, mas tipo cara... isso iria imprimir o texto "cru" teria como fazer imprimir o texto formatado?? tipo no formulario um o cara digito um texto cheio de "frescura" (fonte maior, cor, neguito, etc..) e eu queria imprimir esse texto.. nem que não tenha o preview, que imprima direto... outra coisa... como eu faria pra adicioinar algumas linhas em branco no topo?? porque tipo... a folha q ira ser empressa é timbrada e o texto do RichEdit vai ir no meio dela... porque ela tem cabeçalho e rodapé! valeu buxo... vou aguardar uma resposta! (espero q seja positiva! )