JPMADEIRA

olá boa tarde, estou precisando fazer que o richedit faça paragrafo só na primeira linha, estou usando o Paragraph.FirstIndent, mas ele faz paragrafo em todas as linhas, precisava só da primeira tipo a primeira ele dava paragrafo, escrevia o texto pulava de linha ele já começava no paragrafo assim sucessivamente .

olá boa tarde, estou com a seguinte duvida.. no meu form tenho um dbgrid, e esse dbgrid esta habilitado para selecionar os registro, só que eu queria que ele selecionasse todos com o mesmo nome ou código, tipo tenho o código 01, 02, 03.. mas eu seleciono todos com o código 01, se selecionar o 02 junto por engano ele da um erro..

olá boa noite, estou com problema para filtra datas vencidas: exemplo tinha 10 contas para receber ontem dia 02/09/2018 e elas não foram paga, e hoje dia 03/09/2018 elas venceram, ai precisava filtra só as que venceram. tentei fazer tabela.filter:='datavenc <'... não deu certo tentei fazer select * from tabela where datavenc < :.... também não deu certo.. obrigado

não estou conseguindo resolver esse enigma, fiz no Excel e funciona como eu quero, agora se passo pro delphi não vai..

Boa tarde, olha eu ai de novo... rsrsrs seguinte possuo esse código: Vre := strtofloat(strvalor); //Valor do Empréstimo tx:=(strtofloat(strjuro) / 100); //Taxa de Juros Dia := (strtofloat(data)/30); //Dias vr := Vre * tx * Dia; Valor := (vre + (vr)); n := strtofloat(edit5.Text); // Parcelas i := (strtofloat(strjuro) / 100) + 1; //Taxa de juros R1 := (Power( i , n) - 1) ; R2:= (i - 1) * (power ( i , n)); Total:= R1 / R2; Prest := valor / Total; edit9.Text:=formatcurr('#####0.00', prest); edit9.Text:=Formatcurr('R$ #####0.00',(strtofloat(edit9.Text))); No primeiro código ele calcula o juro por dia exemplo do dia 22/08 a 25/08 com um valor de R$ 1.000,00 e com uma taxa de juros de 1,00 % ele vai dá R$ 1,00 de juros, ai tudo bem no ( Valor:=(vre + vr); ele vai calcular os 1.000 + 1,00 = 1.001,00.. No segundo código ele vai calcular por parcela exemplo 1.000 x 1 parcela = 1.010,00 só que essa parcela é calculada por mês exemplo se a pessoa fez o empréstimo dia 22/08 ela vai começa a pagar só no próximo dia 21/09 só que meu problema é o seguinte se a pessoa fizer um empréstimo dia 22/08 para pagar em 5x e começar a pagar no dia 01/09 vai dá uma diferença de 10 dias, então tenho que dar desconto desses 10 dias. já quebrei a cabeça e não consegui resolver.. desculpe as pergunta talvez pode ser bobas mas estou aqui disposto a aprender e a ensinar.. obrigado

opa, valeu muito obrigado..

Olá venho recorrer mais uma vez ao fórum, a dúvida dessa vez é o seguinte tenho dois edits e esses edits estão formatados da seguinte forma: Valor: R$ 1.000,00 Juros: 07,00 % tenho o código que faz as somas dos campos, mas preciso remover os pontos flutuantes para que não de erro, tentei varias formas mas não obtive êxito eu até consegui remover o ponto mas não consegui remover o R$ e o % para ficar assim 1000,00 e 07,00 qualquer ajuda será bem vinda, obrigado.

assim desse jeito o timage ele segue o ponteiro do mouse, eu não quero que ele segue quero que clique arraste e depois solte, e ele fique aonde eu soltei.. como arrastar um ícone na área de trabalho

acabei fazendo uma mudança vou reformular a pergunta, tipo tenho um panel dentro desse panel tenho um TImage1 e TImage2, o panel é para limitar o tamanho da TImage... então o TImage2 fica fixo enquanto e o TImage1 fica livre para ser arrastado dentro do panel, só que preciso que quando o mouse passar por cima do TImage2, o TImage1 que faz o arrasto; exemplo: tipo no onmousedown do TImage2 eu coloco o seguinte código: image1.left:=x; imagr1.top:=y; então ficaria: Panel (limita o tamanho) > image1 (será arrastado) > image2 (será fixo) aquele código que postei funciona em partes, só que precisava trocar o Sender por image1, tentei fazer mas não deu certo. descupe a pergunta pode ser meia tosca, mas eu pesquisei bastante e tentei de varias formas para achar uma solução e não consegui ai recorri ao fórum.. obrigado...

olá boa tarde, estou com mais uma duvida que não estou conseguindo resolver, por exemplo tenho um Panel e um Timage no form, o panel está em baixo e o Timage em cima, aonde no timage tenho uma imagem personalizada então queria que o cursor passava por cima do timage e arrastava o panel que está em baixo, tenho esse código mas ele só funciona direto no panel, tem alguma forma de adaptar ele para usar da forma que gostaria? obrigado procedure TFRM_IMAGEM.ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FDownX := X; FDownY := Y; FDragging := True; TMoveCracker(Sender).MouseCapture := True; end; procedure TFRM_IMAGEM.ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if FDragging then with Sender as TControl do begin Left := X - FDownX + Left; Top := Y - FDownY + Top; end; end; procedure TFRM_IMAGEM.ControlMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if FDragging then begin FDragging := False; TMoveCracker(Sender).MouseCapture := False; end; end;

Obrigado Jhonas era isso mesmo que eu precisava, só mais uma coisa tem como eu mover o image2 junto com o mouse sem que ele fica com lag? tipo fiz assim: Image2.Top:= y; Image2.Left:= x; só que ele fica com muito lag, tipo fica dando umas travadinhas quando ele arrasta.. mais de resto, funcionou beleza abraços, obrigado..

O Código é este: unit UNovo; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } Retangulo : TRect; end; var Form1: TForm1; old, new : TPoint; Press:boolean; implementation {$R *.DFM} procedure Desenhar; begin Form1.Image1.Canvas.moveto(new.x, new.y); Form1.Image1.Canvas.lineto(new.x, old.y); Form1.Image1.Canvas.lineto(old.x, old.y); Form1.Image1.Canvas.lineto(old.x, new.y); Form1.Image1.Canvas.lineto(new.x, new.y); end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if not press then begin old.X := X; old.Y := Y; end; Retangulo.Left:=old.x; Retangulo.Top:=old.Y; Retangulo.Right:=x; Retangulo.Bottom:=y; form1.Canvas.CopyRect(Retangulo, form1.Image1.Canvas, Retangulo); form1.Image1.Canvas.Pen.Style := psDash; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if not press then press:=true; old.x:= x; old.y:= y; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin press:= false; //form1.Canvas.CopyRect(Retangulo, form1.Image1.Canvas, Retangulo); new.x:= x; new.y:= y; desenhar; end; end. Obrigado...

Boa Tarde pessoal, estou com uma duvida mas não estou conseguindo resolver, preciso recortar uma imagem mas o tamanho padrão é 160x160 mas tinha que ser estilo o Facebook, ele tem uma forma no centro do timagem, que se a parte da imagem tiver dentro dessa forma ela vai ser recortada, tentei adaptar com um código que o Jhonas postou aqui no fórum, mais não consegui adaptar, o código que tem no fórum ele recorta com o mouse, mas eu precisava que ele recortava no tamanho especificado e dentro da forma certa. obrigado

olá, não é bem esse sistema que eu preciso esse sistema é para amortização SAC, e eu preciso da amortização PRICE, seria o seguinte: Valordocapital + taxadejuro - parcela ( obs: a parcela já é calculado ) exemplo o calculo da parcela já vai direto para um edit então: edit1 = valor do capital edit2 = taxa de juro edit3 = parcela com a amortização ele ficaria assim: valordaprestaçao + taxadejuro - edit3 que então ficaria: 1000 + 2% - 212,16 daria 807,84 aqui ele esta amortizando o valor do capital, então ele ira aplicar o taxa de juro em cima desse capital de 807,84 assim subsequentemente até zerar então o código para amortizar apenas o valor eu fiz assim: DM_BANCO.ZQFINANCEIRA.FieldByName('ARMOTIZACAOCAPITAL').Value:= StrToFloat(edit1.text)+StrToFloat(edit1.text)*edit2-StrToFloat(edit3.Text)*i)); ele até calcula a primeira gera o 807,84 depois ele não consegue mais aplicar o juro em cima do 807,84 então eu queria que gravasse no dbgrid apenas o valor amortizado do valor do capital e depois gravasse apenas o valor do juro como citei no exemplo acima achei esse exemplo na net mais não sei nem por onde começar não intendo nada de function, até intendo alguma coisa mas nem sei como modificar isso se também não sei se ele ira gravar como eu quero. segue o exemplo: ------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Está função irá calcular o valor da parcela fixa para uma amortização. Exemplo: Você está finaciando um valor de 1.000,00 para pagar em 5 vezes com uma taxa de juros 2% ao mês. o sistema irá calcular uma parcela fixa de forma que subtraindo-se mensalmente o valor desta parcela fixa e aplicando a taxa de juros mensalmente ao saldo devedor no final do período estipulado o saldo devedor será 0,00 (ou algo bem próximo disso podendo gerar erro de menos de 1 centavo de arredondamento). Para o caso acima o valor da parcela fixa será: 212,16 - Veja abaixo: 1.000,00 + 20,00 - 212,16 807,84 + 16,16 - 212,16 611,84 + 12,24 - 212,16 411,92 + 8,23 - 212,16 207,99 + 4,15 - 212,16 0,00 A primeira coluna é o saldo devedor, a segunda coluna é o valor dos juros sobre o saldo devedor e a última coluna é o valor da parcela paga. No cálculo acima a taxa de juros foi aplicada antes do pagamento da parcela. Para descontar a parcela e aplicar a taxa de juros depois basta informar o parâmetro [CAPITALIZAR] como falso (Por padrão é verdadeiro). Ah! Já ia me esquecendo, a fórmula está aí abaixo: function AmortizaParcelaFixa(vlrPrincipal, txJuros : Double; NumParcelas : Integer; Capitalizar : boolean = true) : Double; var dblJuros, dblPrincipal, dblParcela, dblSaldo, dblTemp : Double; intParcelas, i, j : Integer; begin dblPrincipal := vlrPrincipal; dblJuros := txJuros; intParcelas := NumParcelas; dblTemp := (dblPrincipal / intParcelas) * (1 + dblJuros); for i := trunc(dblTemp * 100) to trunc(dblPrincipal * 100) do begin dblSaldo := dblPrincipal; dblParcela := i / 100; for j := 1 to intParcelas do if Capitalizar then dblSaldo := dblSaldo + (dblSaldo * dblJuros) - dblParcela else begin dblSaldo := dblSaldo - dblParcela; dblSaldo := dblSaldo + (dblSaldo * dblJuros); end; if dblSaldo <= 0 then break; end; result := dblParcela; end; vlrPrincipal é o valor que irá ser amortizado; txJuros é a taxa de juros mensal aplicada; NumParcelas é o número de parcelas da amortização; Capitalizar informa se os juros serão aplicados ao saldo devedor antes ou depois do pagamento da parcela. Um Abraço...

olá, procurei aqui no fórum mas não encontrei, estou desenvolvendo um projeto para uma financeira, mas precisava fazer que ele amortizasse os valores tipo: vou financiar R$ 1.000,00 em 5 vezes com uma taxa de juro de 2% ao mês, e eu queria que ele amortizasse esses valores, possuo na minha tabela os seguintes campos: valor amortizado: juro amortizado: valor da parcela: mas queria que ele gravasse cada qual em seu campo, tipo: 1.000,00 + 20,00 - 212,16 807,84 + 16,16 - 212,16 611,84 + 12,24 - 212,16 411,92 + 8,23 - 212,16 207,99 + 4,15 - 212,16 0,00 fiz vários teste mas não consegui resolver, se alguém tiver alguma ideia para me ajudar será muito bem vindo. obs: eu já possuo na tabela os campos para fazer os cálculos, se eu financiar R$ 1.000,00 em 5x com uma taxa de juro de 2% a.m ele já me dá o valor das prestações de R$ 212,16, mas preciso que ele amortiza esses valores.. ...Obrigado