Jhonas

tire o comando begin antes do var mas existem mais erros no seu código abraço

Faça uma pesquisa nestes tópicos... http://scriptbrasil.com.br/forum/index.php...p;highlite=indy abraço

Componente RDPrint Delphi 7 para download http://www.nakido.com/BF03363D0A890307A4CD...EAD7FE887A84D00 http://www.nakido.com/BF03363D0A890307A4CD...A84D00?attach=1 abraço

defina as constantes para as telas do seu sistema exemplo: Tela de 800 X 600 Uses TypInfo; const sw : longint = 800; sh : longint = 600; procedure TForm1.FormCreate(Sender: TObject); var i , w : integer; begin w := width; // automatico ou pode usar a constante sh Scaled := true; if (Screen.width <> sw) then Scaleby(screen.width,sw); for i := ComponentCount-1 downto 0 do with Components[i] do begin if GetPropInfo(ClassInfo, 'Font') <> nil then Font.Size := (width div w) * font.Size; end; end; OBS: Qualquer que seja a resolução de tela do usuário o programa rodará sempre com uma resolução de 800 X 600 abraço

Se voce não mandar o foco para o form1 não vai acontecer nada exemplo: procedure TForm2.BitBtn1Click(Sender: TObject); begin form1.image1.Canvas.Polygon([Point(10, 10), Point(30, 10), Point(130, 30), Point(240, 120)]); form1.Show; end; abraço

Olha na propriedade filter do componente OpenPictureDialog1 tera que aparecer isto All (*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf|CompuServe GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf se não aparecer .. copie e cole lá abraço

o problema é com a chamada constante da função, mas voce não reparou no codigo todo SampleGrabber.GetBitmap(Image.Picture.Bitmap); // Chamada da função Image.Picture.Bitmap := CortarImagem(Image.Picture.Graphic, Bounds(280, 0, Image.Picture.Width, Image.Picture.Height - 0)); Experimente assim SampleGrabber.GetBitmap(Image.Picture.Bitmap, Buffer); abraço

Voce pode fazer assim: 1 - tipo de pagamento: A Vista ou A Prazo 2 - formas de pagamento: Boleto Cartão de Crédito Cartão de Débito Cheque Cheque-Pré Depósito em Conta Dinheiro Outros ( um campo obs para especificar se a pessoa pagar um pouco em dinheiro, um pouco no cartão, um pouco no cheque ) entretanto o valor total da parcela será colocado em Valor a Pagar 3 - A Prazo Uma entrada e mais 5 ( pagamento a prazo no total de 6 meses ) 1ª Parcela - Valor a pagar - data vencimento - data pagamento - situação 2ª Parcela - Valor a pagar - data vencimento - data pagamento - situação 3ª Parcela - Valor a pagar - data vencimento - data pagamento - situação 4ª Parcela - Valor a pagar - data vencimento - data pagamento - situação 5ª Parcela - Valor a pagar - data vencimento - data pagamento - situação 6ª Parcela - Valor a pagar - data vencimento - data pagamento - situação Valor a Pagar = Valor da Parcela Data Vencimento = Data do vencimento do valor da Parcela Data Pagamento = Data do efetivo pagamento Situação = Indica se a parcela foi paga ou esta em atrazo ( pendente ) Se quiser um controle mais amplo pode se expandir as formas de pagamento ( critério ) exemplo: um campo obs para cada uma das formas de pagamento onde voce especifica o critério para o pagamento 2X Boleto 1X Dinheiro 1X Cheque Por ai voce pode expandir a sua imaginação abraço

Não estava me refererindo a espaço de HD mas a espaço de Buffer ( DSPack ) abraço

Vai achar tudo o que precisa nestes endereços http://www.csimaster.com/codigofonte/masterescolar/ http://www.activedelphi.com.br/promocao.php# http://www.digeratidownloads.com.br/arquiv...r-1929/2354.php http://www.digeratidownloads.com.br/arquiv...a-2504/3065.php http://www.digeratidownloads.com.br/arquiv...r-1533/1893.php http://superdownloads.uol.com.br/busca/escola.html abraço

Voce esta tentando imprimir pelo delphi ? ou pelo word ? No word acontece a mesma coisa ? voce esta usando Quick Report para imprimir ? ou outro ? seja mais abragente nas informações abraço

procedure TForm1.Button1Click(Sender: TObject); begin if CheckBox1.Checked then begin shomessage('CheckBox1 checado'); // outros comandos end else begin shomessage('CheckBox1 não checado'); // outros comandos end; if CheckBox2.Checked then begin shomessage('CheckBox2 checado'); // outros comandos end else begin shomessage('CheckBox2 não checado'); // outros comandos end; if CheckBox3.Checked then begin shomessage('CheckBox3 checado'); // outros comandos end else begin shomessage('CheckBox3 não checado'); // outros comandos end; end; abraço

Coloque um componente TImage no form e na propriedade Picture do componente carregue um GIF que ele aparecerá no TImage. Se não aparecer pode ser um arquivo GIF corrompido... então tente com outros para ver se acontece a mesma coisa. abraço

Se antes de voce fechar o delphi tudo está funcionando, isto significa que o delphi está com o caminho dos pacotes de componentes. Ao fechar e abrir novamente ele some... significa que o registro estava marcado apenas para leitura e não gravação. O erro é por ai ... é questão de pesquisar mais a fundo na sua máquina. É a mesma coisa quando voce não dá um post na tabela .. voce conseguirá editar os registros, mas eles não serão salvos .. e voce percebe isso quando fecha e abre novamente a tabela. abraço

erro: "espaço insuficiente de armazenamento para processar este comando" O correto não é cortar uma imagem BMP uma vez que o tamanho de cada foto está em torno de 1.5 Mb uma solução não muito simples seria: 1 - salvar a foto bmp no drive ex: C:\Foto.bmp 2 - transformar a Foto.bmp para Foto.jpg 3 - jogar a Foto.jpg para o clipboard 4 - aplicar a Foto.jpg compressão com qualidade de 40 % 5 - salvar novamente a Foto.jpg no drive ex: C:\Foto.jpg 6 - redefinir a escala da foto para um tamanho menor ( ex: 4 Kb ) 7 - salvar no banco de dados dessa maneira não haverá problemas de espaço insuficiente de armazenamento Procure fazer uma pesquisa no forum pela palavra chave JPG http://scriptbrasil.com.br/forum/index.php...1472&hl=jpg http://scriptbrasil.com.br/forum/index.php...6649&hl=jpg abraço

voce pode abrir com o OpenPictureDialog e depois carregá-la no TImage as seguintes extensões *.gif *.jpg *.jpeg *.bmp *.ico *.emf *.wmf abraço

tself.Teste := 1; // não esta definido dentro da classe Tente assim var Teste : integer = 1; abraço

Faça o seguinte teste: Crie uma nova aplicação jogue no form um componente TPanel e deixe a propriedade Align = alClient jogue 3 edits em cima do Panel execute e veja voce consegue clicar neles e escrever OBS: Se conseguir, reveja o seu código abraço

procedure TForm1.Button1Click(Sender: TObject); begin Cadcli_IB.Active := false; CDS_Cadcli.Active := false; CDS_Cadcli.Params[0].AsInteger := codcliente; Cadcli_IB.Active := true; CDS_Cadcli.Active := true; Veiculo_IB.Active := false; CDS_Veiculo.Active := false; CDS_Veiculo.Params[0].AsInteger := codcliente; Veiculo_IB.Active := true; CDS_Veiculo.Active := true; if MessageDlg('Deseja Apagar o Registro ?' + #13 + #13 + 'COD N° : ' + CDS_CadcliCOD.AsString + #13 + #13 + 'NOME : ' + CDS_CadcliNOME.AsString , mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin CDS_Cadcli.Delete; CDS_Cadcli.ApplyUpdates(-1); for i := 1 to CDS_Veiculo.RecordCount do CDS_Veiculo.Delete; CDS_Veiculo.ApplyUpdates(-1); end; end; 1 - usar os seguintes componentes para acesso ao banco de dados TQuery1 - DataSetProvider1 - ClientDataSet1 - DataSource1 2 - Trocar os nomes dos componentes pelos respectivos nomes Cadcli_IB - DSP_Cadcli - CDS_Cadcli - DS_Cadcli Veiculo_IB - DSP_Veiculo - CDS_Veiculo - DS_Veiculo 3 - fazer os links entre os componentes 4 - Na propriedade SQL do Cadcli_IB Selec * from Clientes Where COD = :CODC Crie o paramentro como integer 5 - Na propriedade SQL do Veiculo_IB Selec * from Veiculos Where COD = :CODV Crie o paramentro como integer 6 - Passar o codigo do cliente ( codcliente ) como parametro para a SQL 7 - Ao ser ativada as querys com o codigo do cliente já passado, será perguntado se deseja deletar o cliente e conseguentemente os veiculos pertencentes a esse cliente OBS: Como voce esta ainda no nível básico de programação, sugiro a voce ler apostilas sobre o delphi, para poder entender melhor sobre o assunto http://www.apostilasbr.com.br/linkmenu.asp?acao=133 abraço

Fica meio dificil responder, uma vez que não sabemos como o seu código foi montado... entretanto voce pode baixar este doc sobre Desenhos e Bitmaps usando canvas http://www.cni.unc.br/informatica/apostila...e%20Bitmaps.doc abraço

Eu não tenho conhecimento de algum componente do indy para fazer isto. Veja neste endereço Criando um Editor HTML http://www.delphi.eti.br/ver_artigo.php?id=114 Acho que com algumas modificações dá para fazer. abraço

[Aviso] Unit FileCtrl é específico a uma plataforma [ErroFatal] Arquivo não encontrado 'wwdbdatetimepicker.dcu' Para corrigir o erro procure o arquivo 'wwdbdatetimepicker.dcu' que esta na pasta do delphi 5 e copie para a pasta do delphi 7 ( LIB ) ou então troque este componente que esta no form pelo equivalente do delphi 7 OBS: Se voce utilizou componentes de terceiros no delphi 5, estes mesmos componentes deverão estar instalados no delphi 7 abraço

Quando se faz relacionamentos de tabelas, voce pode fazer pesquisas, mas não deleção de registros voe tem que usar outra maneira de fazer isso. Uma delas é passar um parametro para uma consulta SQL, a qual filtrará os registros que voce deseja deletar, e depois é só dar o comando de deleção. exemplo: procedure TForm1.Button1Click(Sender: TObject); begin Cadcli_IB.Active := false; CDS_Cadcli.Active := false; CDS_Cadcli.Params[0].AsInteger := codcliente; Cadcli_IB.Active := true; CDS_Cadcli.Active := true; Veiculo_IB.Active := false; CDS_Veiculo.Active := false; CDS_Veiculo.Params[0].AsInteger := codcliente; Veiculo_IB.Active := true; CDS_Veiculo.Active := true; if MessageDlg('Deseja Apagar o Registro ?' + #13 + #13 + 'COD N° : ' + CDS_CadcliCOD.AsString + #13 + #13 + 'NOME : ' + CDS_CadcliNOME.AsString , mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin CDS_Cadcli.Delete; CDS_Cadcli.ApplyUpdates(-1); for i := 1 to CDS_Veiculo.RecordCount do CDS_Veiculo.Delete; CDS_Veiculo.ApplyUpdates(-1); end; end; OBS: Veja que tenho 2 querys ... uma com a tabela clientes e outra com a tabela veiculos o parametro passado para as duas é o codigo do cliente ( codcliente ) ... desta maneira eu terei apenas um cliente para N veiculos desse cliente, e quando eu deletar esse cliente, todos os veiculos relacionados a esse cliente tambem serão deletados da tabela veiculos. abraço

usar filtro em table http://www.geocities.com/SiliconValley/Bay/1058/filter.zip abraço