Carlos Rocha

1 -O preloader eu já tenho, o que eu quero é usar esse mesmo preloader que carrega o swf principal(index.swf) no carregamento dos swf's externos? Como chamar ele no momento do on (release) = ... la na action do botão no menu. 3) Não tem esse opção onRollon na as do Flah

to cum 3 poblemas q num consigo sair dele: 1) Fazer preloader num arquivo swf externo carregado por um mc vazio no palco do swf principal. 2) Como carregar nesse mc vazio o swf externo com um loadvars que carregara um arquivo .php: detalhe, o arquivo já esta funcionando, eu só quero mostrar ele dentro do mc vazio. 3) sabe aquele código da setinha pra cima e pra baixo num campo de texto? on (release) { _root.swf.texto.scroll += 1; } Pois é, esse é pra clikar eu quero so passar o mouse e o texto subir ou descer. como é isso?

Ola pessoal, Tem um relartório de cheques passados e um form pasras cadastrar casda cheque, No form, de casdastro, eu uso DBLookUpCombobox pra gravar apenas numeros, como por exemplo, pra que foi passado o cheque, ('para o cliente 05 da tabera ded clientes'). Porem, quando vou emitir o relatório, la estao o 'Cliente 05 em vez do nome dele'. Preciso arranjar uma forma de fazer uma query verificando, no quickreport, qual o nome do cliente na tabela de clientes, que possui o id 5, qual o banco na tabela de bancos, que possui o id 8,. alguém pode me ajudar nessa.? Obrigado.

Ola pessoal.

OIla pessoal, to com a seguinte dúvida no word: criei uma mala direta pra imprimir boleto bancario. Medi o formulario do banco e configurei o formulario do word com o mesmo tamanho do boleto. Medi no boleo as posições dos dados para colocar no word. o boleto tem 17x10, o espaço em branco que tem abaixo da ultima linha no documento woird, na hora d imprimir, é considerado, porem, o espaço acima da primeira linha não esta sendo considerado. Assim, quando passar pro segundo boleto, não imprindo o primeiro espaço em branco, os dados do 2º boleto não saem no lugar. Tem como rsolver isso. Carlos Rocha Windows Vista

Ok mas o que eu quero é fazer uma Arvore na Pastas Documentos que fica na parte de cima do painel de navegação e se possível, "sumir" com essa lista de pastas que fica na parte de baixo quando clikar no Windows explorer. Quando envio a pasta Musicas para a pasta Documentos, e, dentro da pasta musicas cliko numa pasta por exemplo Capital Inicial, no Win XP, abriria uma arvore no painel de navegação na parte de cima 'Documentos-Musicas-Capital Inicial', no Vista, essa Arvore só quer abrir na lista de Pastas que esta na parte de baixo do Painel de Navegação. Outra coisa é o Seguinte: Pasta 'Alterados Recentemente', como faço para apagar esse histórico, veja bem, aspenas os links, não os arquivos? Grato Carlos Rocha

Tem como fazer o painel de navegação igual ao do XP com A pasta Meus Documentos contendo As pastas de videos e imasgens?

Na verdade, esse ip é o que foi atribuido a conexao discada que fiz no momento em que coloquei esse post. Pode trocar para qualquer ip fixo ou nome de maquina em rede que num está dando certo.

Ola pessoal. Tenho uma aplicação em Delphi, Zeos e MySql-3.23. Uso Win XP Pro SP2. Uso arquivo .ini pra conectar o MySql. Localmente(localhost ou 127.0.0.1), funciona que é uma maravilha. Mas o problema é que gostaria de conectar esse banco através da internet. Meu arquivo .ini esta assim. [DB] DATABASE=saneminas HOSTNAME=200.149.83.187 PORT=3306 PASSWORD=local PROTOCOL=mysql-3.23 USER=carlos Trocando o ip da minha maquina pelo ip da conexao que consta no discador no momento da conexao não esta dando certo. Criei outro usuario com plenos poderes e nada. O que devo fazer?

Talves a pergunta seja até meio cretina mas vasi lá. Programo em php e também me arrisco no Pascal. Os 2 tem ambiente visual de desenvolvimento: Dreamweaver e Delphi respectivamente. Gostaria de aprender Java mas tenho algumas dúvidas: tanto Dreamweaver e Delphi teem as paletas de componentes, mas no NetBeans, não to achando.

Vamos la, li e reli o link que voce me forneceu mas num consegui resolver esse problema; Com o código abaixo, eu consigo verificar se 'NÃO TEM NENHUM ÍTEM MARCADO', porem, se o primeiro ítem não estiver marcado na checklistbox, ainda que os outros estejam marcados, o código le como nãso há ítens marcados. E agora? if (DBRadioGroupCondicaoPagamento.ItemIndex = 1) then begin for Idx := 0 to CLBpgto.Items.Count -1 do begin if not CLBpgto.Checked[idx] then begin ShowMessage('Voce escolheu pagamento a prazo, favor preencher os meses'); CLBpgto.SetFocus; // posiciona o cursor Abort; // não grava e continua editando end; end; end; Me da essa luz ai. Obrigado.

Só falta isso pessoal. Se alguém puder me ajudar.....

Preciso percorrer uma checklistbox pra saber se algum ítem foi selecionado. Caso nenhum ítem tenha sido selecionado, exibe uma mensagem informando que nenhum ítem foi selecionado e volta pra CheckListBox para ser marcada. Caso contrario, apenas prosegue com o script. Eu estou fazendo isso com o código abaixo, porem ela só aceita que a Checklistbox tenha ítens marcados, caso o primeiro esteja marcado, caso contrario, ainda que todos os outros ítens estejam marcados, ele interpreta que nenhum esta marcado. if (DBRadioGroupCondicaoPagamento.ItemIndex = 1) then begin for Idx := 0 to CLBpgto.Items.Count -1 do begin if not CLBpgto.Checked[Idx] then begin ShowMessage('Voce escolheu pagamento a prazo, favor preencher os meses'); CLBpgto.SetFocus; // posiciona o cursor Abort; end; Break; // não grava e continua editando end; end; O DBRadioGroupCondicaoPagamento tem duas opções - A VISTA E A PRAZO Como resolver isso?

já tentei de todas as formas mas num acha nada de zeos mysql e delphi em rede e tudo que acha é muito confuso. Normalmente os exemplos que se acha, inclui bancos como firebird e access. É só isso quer falta, criar a conexao mysql com arquivo .ini. Por favor se alguém puder mer ajudar. Muito obrigado.

Ola pessoal. Fiz uma aplicação em delphi 7, zeos e Mysql toda com a ajuda aqui do forum. Porem, quando fui instalar no cliente, ele tem mais 2 computadores em rede e quer a aplicação funcionando neles também. Eu gostaria de um passo a passo de como fazer um arquivo .ini pra isso. Obrigado. Obrigado. Carlos Rocha

Só mais uma: Uma DBLookupCombobox, tem como além de clikar na combo e escolher a opção, eu poder tambem digitar o texto como se fosse um edit? Como?

Ok. É: Delphi 7, MySql, e Zeos. Database: SaneMinas HostName: ' ' User: root Password: ' ' Protocol: mysql-3.20 E agora? Aproveitando surgiu outra situação: No QuikReport, como faço pra aumentar o comprimento de um campo QRDBText. Esta chegando uma fraze inteira do banco mas só esta mostrando umas 4 palavras. Valeu.

Isso eu fiz. Funcionou beleza. Mas o problema é que a aplicação não consegue acessar o MySql a partir da maquia das secretárias. Eu cheguei até a colocar as dll's nas maquinas delas também mas não fucionou. Aproveitando surgiu outra situação: No QuikReport, como faço pra aumentar o comprimento de um campo QRDBText. Esta chegando uma fraze inteira do banco mas só esta mostrando umas 4 palavras. Valeu.

Seguinte: 1) Levei pra maquina do Chefe: o executavel da aplicação, o MySql(Server - Instalei o programa MySql na maquina do chefe) e puz as dll's do zeoa na pasta Windows e sytem32 e a dll 'midas.dll' tambem. 2) Na maquia do chefe funcionou legal. 3) A maquia do chefe só disponibiliza a pasta Meus Documentos pra as maquias das secretarias verem atraves de rede. 4) Não faço a mínima ideia de como fazer pra maquina das secretárias poderem usar minha aplicação que esta na maquina do chefe. é isso.

Ola pessoal! Minha aplicação ficou pronta. Delphi 7, Zeos, MySql. Mas O Cliente tem 3 computadores na empresa. 1 fica com o chefe e os outros 2 com as secretarias. Instalei na maquia do chefe e fucionou normal, agora como faço ´pra instalar em rede na maquia das secretarias uma vez que a maquina do chefe só esta compartilhando a pasta Meus Documentos. Todas as maquinas usam XP Pro. O que devo fazer?

Essa não funcionou pois o que tem gravado no banco são os índices e não as opções de meses. Function ConvertPrazos(OpcStr :string) :string; const Delimitador = ' '; Prazos :array[0..6] of string = (' 15 dias,', ' 30 dias,', ' 45 dias,', ' 60 dias,', ' 75 dias,', ' 90 dias,', '120 dias,'); var Idx :Integer; begin Result := ''; while OpcStr <> '' do begin Idx := Pos(Delimitador, OpcStr); // não encontrar o delimitador, significa que o // resto da string contém o último valor if Idx = 0 then // neste caso, marcamos posição como posterior ao último caracter Idx := Length(OpcStr) +1; // Concatena prazo Result := Result +Prazos[StrToInt(Copy(OpcStr, 1, Idx -1))]; // elimina o item já processado da lista - em OpsStr Delete(OpcStr, 1, Idx); end; SetLength(Result, Length(Result) -1);; end; procedure TRPedidos.PageHeaderBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin // habilita impressão dos prazos apenas se esta foi a opção cadastrada QRLabel18.Enabled := QryPedidosCondicaoPgto.AsString = 'A Prazo'; // monta o texto apenas se vai imprir esta opção if QRLabel18.Enabled then QRLabel18.Caption := ConvertPrazos(QryPedidosListaPgto.AsString); // suponde este o nome do campo end; Deu certo. Obrigado.

O Michels: Preciso te amolar só mais um pouquinho. É o seguinte: Lembra de que a CheckListBox agora grava no banco valores como '0 2 3 6', e não mais '15 dias 30 dias'?????? Pois é. Preciso agora de uma função que leia em separado cada uma das opçoes e jogue no QuickReports para um campo de texto dessa forma: Se o valor do banco vier '0 2 3 6' a função converta para 'Voce escolheu: 15 dias, 45 dias, 60 dias, 120 dias.' 15 dias 30 dias 45 dias 60 dias 75 dias 90 dias 120 dias Só falta isso pra minha aplicação ficar pronta. Muito Obrigado. Um abraço. Carlos Rocha

Pus uma CheckListBox num Form com QuickReport e nada que faço para uma autenticação da cerot. É o seguinte. Tenho um campo que retorna 'A Vista' ou 'A Prazo' como opções de pagamento, Eu quero autenticar o seguinte: Se o campo tiver valor de 'A Prazo', a CheckListBox aparece no QuickReport. Caso cotrario a CheckListBox não aparece. Estou usando o código abaixo mas num está fucionando: procedure TRPedidos.QRDBText5Print(sender: TObject; var Value: String); begin // IF QryPedidosCondicaoPgto.Value = 'A Prazo' then IF QryPedidosCondicaoPgto.AsString = 'A Prazo' then begin CLBpgto.Visible := True; CPedidos.InicializaListaPgto; end else begin CLBpgto.Visible := False; end; end; Obs: o campo que recebe o QryPedidosCondicaoPgto.AsString é QRDBTextCondicaoPgto Como fazer isso? Eu descobri. Parece que a CheckListBox não funciona no QuickReport. Então terei que verificar quais opções estão selecioadas e colocalas como strig num componente de texto. Mas como?

Surgiu uma situação nova com a checklistbox. Quando eu vou cadastrar um novo pedido, e cliko na opção A Prazo do DBRadioGroupOpcaoPgto, neste momento fica .visible := true a checklistbox, aí SURPREZA:=// La estão marcadas na checklistbox as opçoes do pedido que estava sendo exibido anteriormente. Neste caso, precisarei em algum momento apagar a seleção que esta para que o proximo pedido possa fazer a sua opção de pagamento a prazo. Mas como? Valeu pessoal, essa eu consegui sozinho Var I : Integer; begin for I:= 0 to CLBpgto.Count - 1 do begin CLBpgto.State[I] := cbUnchecked; end; Outra Situação: Preciso verificar se, caso o cara clique DBRadioFGroupOpcaoPgto na opção 'A Prazo' e não marque nenhuma opção de mês na Checklistbox, da uma mensagem dizendo que ele optou por venda a prazo mas esqueceu de preecher as opções de meses na checklistbox. Como fazer isso? Obrigado de novo, matei mais essa com o código abaixo if (DBRadioGroupCondicaoPagamento.ItemIndex = 1) then begin for Idx := 0 to CLBpgto.Items.Count -1 do begin if not CLBpgto.Checked[idx] then begin ShowMessage('Voce escolheu pagamento a prazo, favor preencher os meses'); CLBpgto.SetFocus; // posiciona o cursor Abort; // não grava e continua editando end; end; end; Agora preciso fazer o seguinte: O pedido esta exibido. Vou imprimir no QuikReport. Chegando no QuickReport estou faszendo o seguite mas num está dando certo: procedure TRPedidos.QRDBText5Print(sender: TObject; var Value: String); begin If QryPedidosCondicaoPgto.AsString = 'A Prazo' then begin CLBpgto.Visible := true; CPedidos.InicializaListaPgto; end else begin CLBpgto.Visible := false; end; end; O que devo fazer?

Sera que existe DBCheckListBox? Dessa vez eu tentei fazer QryPedidosListaPgto.Value := CLBpgto.Checked[indice]); QryPedidos.Post; Mas só da erro: Undeclared Identifier: 'indice'; Como faço agora?