robinhocne

não dá não....quando troco esse exe ele dá erro... Fatal: INvalid compiler directive: 'requires-jcl=1.105'

Jhonas a minha versão está desatualizada, mas estou tentando instalar e não consigo, baixei a biblioteca e para primeiramente instalar o jcl foi um sufuco e tirei o IDE experts, pois quando chegava para compilar ele na instalação dava esse erro Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\Program Files (x86)\Borland\Delphi7\Componentes\JVCL347CompleteJCL241-Build4571\jcl\jcl\experts\common\JclOtaUtils.pas(346) Fatal: File not found: 'C:\Program Files (x86)\Borland\Delphi7\lib\Obj\FileCtrl.pas' Compilation failure ...failed. tirando ele ai compilou tudo, mas ao tentar instalar a jvcl só de executar o install.bat ele já dá erro que o dcc32.exe parou de funcionar.... já mexi em permissão do windows, compatibilidade, mas não consegui resolver nada....eu uso aqui o windows 8.1 e delphi 7....

Eu abro minha telas eu um JvPageList, porém percebi que minhas teclas de atalho não funciona mesmo habilitando a propriedade KeyPreview da tela, abaixo segue o código que faço a chamado pelo atalho e o código que abro as telas no PageList, não sei mais o que fazer para fazer essas teclas de atalhos funcionarem...alguém pode me ajudar ? if key = vk_F11 then btEncerrarClick(Self); if key = vk_F2 then btLimparClick(Self); procedure TfrmPlatinum.NovaPagina(ClasseForm: TFormClass;Tela:String); var Aba : TJvTabBarItem; Pagina : TJvCustomPage; Form : TForm; begin if not PodeAbrirFormulario(ClasseForm, Pagina) then begin frmPlatinum.JvPageList.ActivePage := Pagina; Exit; end; dtmPlatinum.tblTelas.First; while not dtmPlatinum.tblTelas.Eof do begin if Tela = dtmPlatinum.tblTelastela.AsString then begin frmPlatinum.JvPageList.ActivePage := Pagina; exit; end; dtmPlatinum.tblTelas.Next; end; Aba := JvTabBar.AddTab(''); Pagina := TJvStandardPage.Create(Self); Pagina.PageList := JvPageList; Form := ClasseForm.Create(Pagina); with Form do begin Align := alClient; BorderStyle := bsNone; Parent := Pagina; end; with Aba do begin Caption := Form.Caption; PopupMenu := Self.PopupMenu; end; if not dtmPlatinum.tblTelas.Eof then dtmPlatinum.tblTelas.Active := true; dtmPlatinum.tblTelas.Insert; dtmPlatinum.tblTelastela.asString := Tela; dtmPlatinum.tblTelas.Post; Form.Show; JvPageList.ActivePage := Pagina; end; function TfrmPlatinum.PodeAbrirFormulario(ClasseForm: TFormClass; var Pagina: TJvCustomPage): Boolean; var I: Integer; begin Result := True; for I := 0 to JvPageList.PageCount - 1 do if JvPageList.Pages[I].Components[0].ClassType = ClasseForm then begin Pagina := JvPageList.Pages[I]; Result := (Pagina.Components[0] as TForm).Tag = 0; Break; end; end; function TfrmPlatinum.ObterPagina(Aba: TJvTabBarItem): TJvCustomPage; begin Result := JvPageList.Pages[Aba.Index]; end; function TfrmPlatinum.ObterAba(Pagina: TJvCustomPage): TJvTabBarItem; begin Result := nil; if Assigned(Pagina) then Result := JvTabBar.Tabs[Pagina.PageIndex]; end;

Como eu crio um dbGrid com totalizadores...exemplo.... Quero mostrar as informações assim : Documento Qt. Qt. Boletas 55 Quando clicar duas vezes no Qt. Boletas....quero detalhar as informações.... Documento Qt. Qt. Boletas 55 - MasterCard 30 - Visa 10 - VisaElectron 5 - Cabal 10 Ai quando eu clicar no Visa por exemplo quero detalhar as parcelas.... Documento Qt. Qt. Boletas 55 - MasterCard 30 - Visa 10 -- Visa 1x 2 -- Visa 3x 3 -- Visa 5x 1 -- Visa 8x 2 -- Visa 10x 2 - VisaElectron 5 - Cabal 10 Tenho como fazer isso no dbgrid ?

verdade Jhonas....valeu....

Seria assim Jhonas....a faixa azul centralizada na tela e ao os campos no meio dessa faixa.

tenho uma tela de login....onde queria mostrar no meu da tela uma faixa do lado esquerdo para o direito....e os campos do login, senha e botões no meio dessa faixa.... como posso fazer isso ?

baixei a versão 6.5-stable e funcionou.

Bom dia, Baixei o componente do Zeos Acess para fazer conexão com o banco de dados postgre, porém não estou conseguindo....na hora que vou conectar ele fala que: "O programa não pode ser iniciado porque está faltando MSVCR70.dll no seu computador. Tente reinstalá-lo para resolver esse problema" já baixei e coloquei essa dll no meu projeto, na system32 e não sei mais onde colocar para fazer funcionar. no meu pc estou com o windows 8.1 e delphi 7.

OK, Jhonas vou baixar e testar.... obrigado pela ajuda e deu tudo certo.

ixi estou com a versão 4.11.06.25... onde consigo baixar essa versão ? porque fiz essas configurações que você falou e o meu não apareceu com o skyn.

Já sei o porque do erro.... eu uso na aplicação o VCLSkin, mas quando eu abro essa tela no pagecontrol ele não abre com o skin, então coloquei na tela o componente do skin para fixar o skin na tela, mas primeiro que não deu certo e segundo que acontecia esse erro... então tirei da tela o skin e só deixei no form principal ai funcionou....porém quando abro a tela ela abre sem o skin, como faço para essa tela ficar com o skin corretamente do vclskin que está no form principal.

consegui um exemplo na internet e cheguei nesse ponto, mas estou com alguns problemas... procedure TfrmPlatinum.Button4Click(Sender: TObject); var aForm : TfrmCadUsuarios; tabSheet : TTabSheet; begin //Create a new tab sheet tabSheet := TTabSheet.Create(PageControl1) ; tabSheet.PageControl := PageControl1; //create a form aForm := TfrmCadUsuarios.Create(tabSheet) ; aForm.Parent := tabSheet; aForm.Align := alClient; aForm.BorderStyle := bsNone; aForm.Visible := true; tabSheet.Caption := aForm.Caption; //activate the sheet PageControl1.ActivePage := tabSheet; end; mas agora, como vou fechar esse tab ? queria colocar um icone de fechar na aba e ai quando clicar nele tem que fechar esse form... quando eu chamo esse form, ao fechar o sistema ele dá erro.... alguma coisa que tenho que destruir ao fechar a aplicação principal ? ou tenho que fechar a aba antes de fechar o sistema ?, seria o mais certo mesmo, porque ai o usuário será obrigado olha na aba se ele não deixou algo sem salvar.

Jhonas creio que não entendeu.... tenho um formulário padrão....desse formulário padrão crio os meus forms e abro normalmente pelo showmodal....mas estou querendo mudar para TDI a minha aplicação, como vou pegar um formulário e abrir como aba em um page control ?

Bom dia pessoa, Como faço para abrir formulario em abas no delphi... Quero ter um formulário com todos os campos e procedimentos lá dentro....então pelo menu da tela principal quero chamar aquela tela e ele abrir na tela principal em aba, ai se eu chamar outra tela irá abrir outra aba...tipos o mozila, chrome e ie.

otimo Jhonas deu certo....só mas uma pergunta...estou colocando no QRRichText... tenho como imprimir em negrito algumas linha tipo assim ?

Boa noite..... Pessoal fiz um programinha para pegar um txt e mandar para uma impressora USB não fiscal... porém estou usando o fastReport e já tentei no QuickReport....pego o txt e acrescento linha a linha em um mesmo do FastReport e mando um print direto na impressora....porém quando o cupom é pequeno...sai um monte de espaço no fim dele....quando o cupom é grande...corta o fim.... não consigo deixar o tamanho de acordo com o tamanho do cupom.... tem como imprimir assim pelo FastReport ou Quick ?

Bom dia, estou tentando imprimir um arquivo txt e nel quero que algumas palavras saia em negrito... arquivo cupom.txt Como faço para imprimir a linha 2 e a palavra "Linha 4" em negrito ? então eu utilizo o DOSPrint para emular a porta LPT1 para a porta usb da minha impressora.... esse é o comando que utilizo para mandar a impressão.... //Verifica se o DOSPRINT esta execuntando, caso não esteja ele executa. if not ProcessoExiste('DOSPrintUI.exe') then begin WinExec (pChar(CaminhoSistema+'DOSPrintUI.exe'), SW_MAXIMIZE); end; //verifica se existe o arquivo cupom.txt para mandar imprimir if FileExists(CaminhoSistema+'cupom.txt') then begin // criar um arquivo .bat para enviar o arquivo texto gerado para a impressora atraves da porta LPT1 // usando o comando type do DOS //Verifica não existe, caso não exista criar o bat com o comando type if not FileExists(CaminhoSistema+'printlbl.bat') then begin AssignFile(F, CaminhoSistema+'printlbl.bat'); try Rewrite(F); Writeln(F, 'Type '+CaminhoSistema+'cupom.txt > LPT1'); finally CloseFile(F); end end; //executa o bat printlbl.bat, para mandar a impressão para a porta lpt1 ShellExecute(0, 'Open', PChar(CaminhoSistema+'printlbl.bat'), nil, nil, Ord(SW_HIDE)); //apaga o arquivo cupom.txt // DeleteFile(CaminhoSistema+'cupom.txt'); end;

Jhonas, muito top, gostei desse componente, deu tudo certo, segui o exemplo, modifiquei do meu gosto...e ficou show de bola.

nem executou o winrar....

não deu certo, pois quando passo o parametro do winrar ele dá erro informando que o windows não pode encontrar esse caminho informado acima... coloquei assim para executar a função: WinExec(Pchar(ExecutarEEsperar(LinhadeComando)),sw_hide);

Faço um backup pelo winrar e queria que o sistema só apresentasse a mensagem quando ele terminar de processar: como posso fazer ? esse é o meu codigo: Empresa := copy(FrmPrincipal.PnEmpresa.Caption,1,3); if DirectoryExists(TxtSalvar.Text) then begin dtmIza.dbaIza.Connected := False; DtmEmp.DbaEmp.Connected := False; Banco := 'C:\IzaCfc\Bancos'; Copia(Banco,'C:\IzaCfc\Backup'); Banco := 'C:\IzaCfc\Backup'; Data := Date; Nome := 'BK'+Empresa+'-'+ FormatDateTime('dd-mm-yy', Data); Caminho := ChangeFileExt(TxtSalvar.Text+'\'+Nome,'.rar'); if FileExists('C:\IzaCfc\Backup\' + Nome + '.rar') then begin DeleteFile('C:\IzaCfc\Backup\' + Nome + '.rar'); end; if not DirectoryExists('C:\Program Files (x86)\WinRAR\') then begin if not DirectoryExists('C:\Program Files\WinRAR\') then begin ShowMessage('WinRAR não localizado !'); exit; end else begin LinhadeComando :='C:\Program Files\WinRAR\WINRAR.EXE a "'+Caminho+'" "'+Banco+'"'; end; end else begin LinhadeComando :='C:\Program Files (x86)\WinRAR\WINRAR.EXE a "'+Caminho+'" "'+Banco+'"'; end; try WinExec(Pchar(LinhadeComando),sw_hide); ShowMessage('Backup Gerado com Sucesso!'); dtmIza.dbaIza.Connected := True; DtmEmp.DbaEmp.Connected := true; close; except ShowMessage('Erro ao gerar Backup!'); end; end else begin Showmessage('Diretório Inexistente!' ); end;

Ninguém pra me ajudar ?

Boa noite pessoal, Estou tentando criar um rotina no sistema, para fazer backup do banco e enviar por email, pois o banco é pequeno e não tende muito a crescer, porém não estou conseguindo fazer funcionar o envio do email com o anexo, estou utilizando o delphi 7 e o indy 9 para o envio.... IdMessage1.MessageParts.Clear; TIdAttachment.Create(IdMessage1.MessageParts, CamBackup);//Anexo //Configuração do IdMessage (dados da mensagem) //e-mail do remetente IdMessage1.From.Address := txtDe.Text; //e-mail do destinatário IdMessage1.Recipients.EMailAddresses := txtPara.Text; //if ( para <IdMessage1> 0) then //IdMessage1.CCList.EMailAddresses := cc; IdMessage1.Body.Clear; IdMessage1.Subject := 'Backup'; //Assunto IdMessage1.Body.Add('==========================================================='); //Corpo da mensagem IdMessage1.Body.Add( 'Backup do Software'); //Corpo da mensagem IdMessage1.Body.Add('==========================================================='); //Corpo da mensagem //Configuração do IdSMTP //Configurações remente IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Host := txtSmtp.Text; IdSMTP1.Username := txtUsu.Text; IdSMTP1.Password := txtSen.Text; IdSMTP1.Port := StrToInt( txtPor.Text ); IdSMTP1.Connect; //Estabelece a conexão IdSMTP1.Authenticate; //Faz a autenticação IdSMTP1.Send(IdMessage1); //DeleteFile(TblArqCamArqZipado.AsString); IdSMTP1.Disconnect; Porém quando vai autenticar dá erro... a configuração que estou fazendo é.... Já tentei pelo gmail, pelo yahoo e pelo hotmail e todos estão dando esse erro, já copia as dlls para a system e a pasta do sistema e mesmo assim continua dando.... vi vários tutorias na internet, mas nenhum consegui fazer funcionar, até mudei para o indy 10, mas também não deu certo...ai voltei para o indy 9, alguém poderia me ajudar ?

resolvido.... while TblConv.Fields.Count > 0 do begin TblConv.FieldDefs.Delete(0); TblConv.Fields.Remove(TblConv.Fields[0]); end; DtsConv.Enabled := false; TblConv.Close; DtsConv.Enabled := true;