Re: [delphi-br] treeview
eu usei esse codigo procedure TPlanoContas.TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); var NodeRect: TRect; begin NodeRect := Node.DisplayRect(True); if node.Level = 0 then begin Sender.canvas.Font.Style := [fsBold]; Sender.canvas.Font.Color := clBlue; end else if node.Level = 1 then begin Sender.canvas.Font.Style := [fsBold]; Sender.canvas.Font.Color := clRed; end else begin Sender.canvas.Font.Style := []; Sender.canvas.Font.Color := clBlack; end; Sender.canvas.FillRect(NodeRect); end; funcionou legal vc pode adaptar para sua necessidade. Em 1 de setembro de 2010 09:28, Gilberto Bazilio gmbazi...@hotmail.comescreveu: Bom Dia Senhores e Senhoras do Grupo, Me deparei com um problema no treeview, alguem já conseguiu colorir os nós do treeview em tempo de execução? Consegui utilizando o OnCustomDrawItem, mas ele não me soluciona o problema, queria colorir atraves de um button. Atenciosamente, Gilberto Bazilio Stärke [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Codigo de Barras
esse componente vem com os fontes, compila ele no delphi 2010. -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] KeyEvent em um TAction.OnExecute
Ola, se vc nao resolvel ainda, a dica é criar uma procedure ou function coloca teu codigo. ai vc coloca essa function ou procedure no evendo do action e keyup do edit pois esses eventos tem parametros diferentes. 2010/8/30 Júlio César Santiago Guiótti jcsguio...@gmail.com Oi Luciano, meu problema é o contrário. Fazer o action receber um evento do onkeyup. Algo como action := edit1.onKeyUp; Obrigado, Júlio César Santiago Guiótti Em 27 de agosto de 2010 22:26, Luciano Bruno lsbdevelopm...@yahoo.com.br lsbdevelopment%40yahoo.com.brescreveu: usa assim edit1onkeyup() begin action.execult(self) end; 2010/8/27 Júlio César Santiago Guiótti jcsguio...@gmail.comjcsguiotti%40gmail.com Olá, tenho uma instância de um TAction criado em tempo de execução. Queria que este TAction fosse disparado no onKeyUp de um TEdit. Mas o OnExecute do TAction espera por um TNotifyEvent, enquanto o onkeyUp é um TKeyEvent. Alguém sabe como consigo contornar este problema? Obrigado, Abraço, Júlio César Santiago Guiótti [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] KeyEvent em um TAction.OnExecute
usa assim edit1onkeyup() begin action.execult(self) end; 2010/8/27 Júlio César Santiago Guiótti jcsguio...@gmail.com Olá, tenho uma instância de um TAction criado em tempo de execução. Queria que este TAction fosse disparado no onKeyUp de um TEdit. Mas o OnExecute do TAction espera por um TNotifyEvent, enquanto o onkeyUp é um TKeyEvent. Alguém sabe como consigo contornar este problema? Obrigado, Abraço, Júlio César Santiago Guiótti [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Chave Primária - Auto Incremento (U RGENTE)
A minha dica é o seguinte, criei uma tabela chamada sequencias com dois campos: tabela e codigo; depois no programa tenho uma rotina que que recebe o nome da tabela consulta se ela ta cadastrada, se nao cadastra e retorna 1, se ja tiver cadastrada, incrementa o codigo e retorna o novo, dessa forma controlo todos os contadores sendo eles chaves de tabelas ou nao. e serve para qualquer banco. é so uma dica. -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conflito que criei
Eu diria que vc deve criar uma regra para validaçao, tipo no clientdataset
vc define se o campo e requerido
besiado nesse atributo vc pode realizar a validaçao se for requerido valida,
outra é vc verificar se esta em
inserçao ou ediçao, no caso de ediçao, nao valida (caso nao tenha alterado o
conteudo). como o colega
sugeriu colocar no onvalidate, veja que vc tera que reescrever o codigo em
cada validate.
vc pode tbm colocar essa regra no banco de dado, definindo o campo como
'unique' e tratar e excesao retornada.
Em 12 de agosto de 2010 20:10, Fabricio Colombo
fabricio.colombo@gmail.com escreveu:
Coloca essa função que verifica o cargo no evento OnValidade do seu campo
no
DataSet.
Em 12 de agosto de 2010 15:27, Ricardo Rocha
ricardo_r...@yahoo.com.brescreveu:
Olá a todos,
Estou enfrentando um problema que eu mesmo criei... e não acho a solução.
É o seguinte tenho um formulário de cadastro, nele tenho uma função que
muda a cor do componente ao receber e sair do foco, para que minha query
que verifica se o nome (generico) já existe no banco funcionar tive que
coloca-la dentro da função que muda o foca... funciona redondinho... Se
a query não ficar dentro da função (muda foco) ela não funciona.
Agora vem o problema... Quando eu localizo um cadastro e quero alterar
um campo que não seja o campo onde é feito a verificação de duplicidade
ele faz a verificão tenho que altera-lo, issao está errado..
Como escapar desta verificação quando eu quero alterar um dadastro...
{Código do muda foco evento Exit}
procedure TfrmCadastroCargo.ExitEx(Sender: TObject);
var
nome:String;
begin
{: altera a cor do componente quando sair o foco }
if (Sender is TEdit) then
(Sender as TEdit).Color := clWindow;
if (Sender is TMemo) then
(Sender as TMemo).Color := clWindow;
{: altera a cor do componente quando sair o foco }
if (Sender is TDBEdit) then
(Sender as TDBEdit).Color := clWindow;
if (Sender is TDBMemo) then
(Sender as TDBMemo).Color := clWindow;
{: verifica se já existe um cargo com o mesmo nome }
nome:= DBEdit1.Text;
with qBusca do
begin
Close;
Sql.Clear;
Sql.Add('select CARGO_NOME from CARGO where CARGO_NOME
=:CARGO_NOME');
ParamByName('CARGO_NOME').AsString := nome;
Open;
if not IsEmpty then
begin
ShowMessage('O Cargo ' + '' + DBEdit1.Text + '' + ' já está
cadastrado! Entre com um novo nome ou Alt+C para cancelar.');
Close;
DBEdit1.SetFocus;
end;
end;
{:fim verifica se já existe um cargo com o mesmo nome}
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
--
Luciano S. Bruno
Consultor em TI
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] QRAngledLabel
Não percebi. bom existe uma rotina que desenha o testo na vertical, eu usei ela com o quick e com o report builder. ela desenha uma imagem com o texto. Em 12 de agosto de 2010 08:25, Alan ricardo Souza alanr.so...@yahoo.com.brescreveu: Hum, precisa ser realmente este componente? --- Em qua, 11/8/10, Magnun Oliveira magnunolive...@gmail.commagnunoliveira%40gmail.com escreveu: De: Magnun Oliveira magnunolive...@gmail.com magnunoliveira%40gmail.com Assunto: Re: [delphi-br] QRAngledLabel Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Quarta-feira, 11 de Agosto de 2010, 14:59 Já tentei Colocar o caracter #13, #10 sLineBreak, e nada rolou ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Estrutura Padrão de Software
Eu tenho aplicaçoes relativamente grandes e uso MDI. uma das coisas que eu faço é impedir que ele seja criado mais de uma vez. uma vantagem que vejo no MDI e TDI, é a liberdade de poder editar um cadastro auxiliar na ediçao de outro. tipo: no cadastro de um produto, poder cadastrar um grupo uma sessao etc. mais isso fica acriterio do desenvolvedor. Em 11 de agosto de 2010 11:36, Adriano de F. Trindade trind...@desbrava.com.br escreveu: Ei, eu não te impus uma regra. Falei que EU trabalho assim, eu trabalho somente com SDI. Tudo depende da maneira que a sua aplicação vai trabalhar. Você pode trabalhar com MDI e mastigar os problemas decorrentes disso. E mais de um cadastro aberto de cada vez? Você tem que questionar: você vai precisar mexer em dois cadastros simultaneamente? Porque a gente não permite isso, justamente porque cada pessoa faz uma coisa de cada vez: conclui-se um cadastro primeiro para depois abrir o próximo. Também outra coisa é abrir duas janelas DISTINTAS ao mesmo tempo e outra é abrir a MESMA janela mais de uma vez. Você tem que ver o que o cliente quer, e se é viável. Em muitos casos você tem que mudar a cabeça do cliente para não ter que fazer um monte de trabalho desnecessário. Só que você não consegue fazer isso sem argumentos sólidos, consistentes e convincentes. Um deles é o custo de desenvolvimento: da maneira A eu faço em uma semana, da maneira B eu levo um mês porque tenho que reescrever tudo. Também é uma coisa você fazer um sistema específico para um cliente e outra coisa radicalmente diferente é você fazer um sistema para vários clientes. Se um cliente te exige SDI e outro te exige MDI, qual que ganha? E, piorando, se 10 clientes exigirem MDI e 10 clientes exigirem SDI, como é que fica? Se você optar por SDI, o quê você vai dizer para quem não quer SDI? Vai dizer tchau? Tenha uma justificativa e ele a aceitará. Mas sem justificativa, não vai aceitar nunca. Porque um sistema para várias empresas jamais vai CONTENTAR á todas, mas pode ATENDER BEM á todas. E mesmo essas que não se contentaram, depois de um tempo se acostumam e param de reclamar. Afinal, a resistência à mudanças é uma constante, ninguém quer mudar, porque isso dá trabalho. A fórmula do sucesso eu não sei, mas a do fracasso é agradar á todos Anônimo (corretíssimo) Falou! De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Eny Urias Enviada em: quarta-feira, 11 de agosto de 2010 11:03 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Res: [delphi-br] Estrutura Padrão de Software Entendi Então, realmente, não ha como trabalhar com DataModule numa aplicação MDI? Porque foi uma das exigencias do cliente poder abrir mais de um cadastro de uma vez... Eu tb não gosto de trabalhar com MDI... muito trabalhoso... mas, fazer o q... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Adriano de F. Trindade trind...@desbrava.com.brtrindade%40desbrava.com.brmailto: trindade%40desbrava.com.br trindade%2540desbrava.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Enviadas: Terça-feira, 10 de Agosto de 2010 17:03:46 Assunto: RES: [delphi-br] Estrutura Padrão de Software Minha aplicação é SDI. Bem mais simples e menos propensa á erros, tipo, um registro ser modificado em um form e no outro você ter o mesmo dado atualizado. Quanto mais você deixar o usuário fazer o que ele quiser, maior serão as possibilidades de algo dar errado. Mas isso é a minha opção pessoal, claro. As precauções e checagens para MDI e SDI são bem diferentes. Você define como você quer trabalhar. Eu tenho uma maneira bem peculiar de trabalhar aqui, muito old school. Falou! De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br ] Em nome de Eny Urias Enviada em: terça-feira, 10 de agosto de 2010 15:51 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Assunto: Res: [delphi-br] Estrutura Padrão de Software Como vc trabalha numa aplicação MDI utilizando DataModule? Se o usuário quiser abrir dois formularios de clientes como vc faz? Não dá conflito já que os componentes de acesso aos dados estão no DM? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Adriano de F. Trindade
Re: [delphi-br] QRAngledLabel
os componentes tipo label tem a propiedade* wordwrap* que permite quebra de linha. Em 11 de agosto de 2010 10:29, Magnun Oliveira magnunolive...@gmail.comescreveu: Já tentei Colocar o caracter #13, #10 sLineBreak, e nada rolou ... [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Calculo de hora extra
Por partes
ve se essa função te ajuda , fiz o teste e ela retorna a diferença de horas
entre datas e horas como seu exemplo.
*Código:* function FormatHoras(time: double; havDay: boolean): string;
var *dias*, horas: double;
Pos1, horas24: integer;
aux1: string;
begin
*dias* := trunc(time);
horas := frac(time);
if havDay then
Result := FloatToStr(*dias*) + 'd ' + TimeToStr(horas)
else begin
aux1 := TimeToStr(horas);
pos1 := pos(':', aux1);
horas24 := StrToInt(copy(aux1, 1, pos1 -1)) + (trunc(*dias*) * 24);
Result := IntToStr(horas24) + Copy(aux1, pos1, Length(aux1));
end;
end;
faz o teste coloca 4 edits no form e um button no evento onclick do button
declara 2 variáveis dt1 e dt2 depois bota esse código:
*Código:* dt1:= StrToDateTime(Edit1.Text);
dt2:= StrToDateTime(Edit2.Text);
Edit3.Text := FormatHoras(dt2 - dt1, True);
Edit4.Text := FormatHoras(dt2 - dt1, False);
edit1 recebe a data inicial com a hora
edit2 recebe a data final com a hora
edit3 quantidade de *dias* (resultado edit1 e edit2)
edit4 quantidade de horas (resultado edit1 e edit2)
agora a segunda parte. somas as horas como a soma de horas no delphi so pode
ser feira para resultados ate 24h
entao precisamos de um acumulador de horas
var
// declare as seguintes variaveis
Acumula: array[1..2] of integer;
Hora,minuto:Integer;
zera as variaveis hora e minuto
procedure AcumulaHoras(Tempo : TTime);
begin
//soma a hora passada com com o total acumulador de horas
Hora:=Hora+StrToInt(Copy(TimeToStr(Tempo),1,2));
// soma os minutos
Minuto:=Minuto+StrToInt(Copy(TimeToStr(Tempo),4,2));
// se passa ou igualar a 60 min , ajusta somando mais uma hora e
deixando os min restantes
If Minuto = 60 Then
Begin
Hora:=Hora+1;
Minuto:= minuto - 60;
end;
Acumula[1]:=Hora;
Acumula[2]:=Minuto;
end;
infelizmente tem que ser assim, vc calcula a jornada e depois soma o total
de cada jornada.
ve se te ajuda. t+
Luciano Bruno
Prj. e Desenvolvimento de Software
Especialista em Banco de Dados.
www.simsolution.com.br
Em 8 de agosto de 2010 22:32, SERGIO LOPES moro...@yahoo.com.br escreveu:
Pedro, eu trabalho com o delphi mas nao o conheco muito bem ainda, em
situacoes que precisei de um calculo desses eu usei as funcoes decodetime e
decodedate para separar totalizar subtrair as diferencas. abaixo tem uma
funcao que criei a muito tempo para contar os dias entre duas datas e a
opção de incluir ou nao o primeiro dia na contagem, foi feita para calcular
dias em um periodo muito longo com precisao de dias, so nao tratei caso de
ano bisexto, tendo a quantidade de dias vc pode decodificar a hora pegar as
horas até o minuto inicial e as horas do minuto final até as 24:00 e
subtrair da (quandedias*24h). se vc quizer precisao pode converter tudo em
segundos antes de fazer a calculo e depois converter novamente para hora.
function contardias(datainicio, datafim : TDateTime; contar_primeiro_dia :
boolean) : integer;
var VDia,VMes,VAno,pDia,pMes,pAno : word;
vtotal_dias, X : Integer;//1 2 3 4 5
6 7 8 9 10 11 12
const vmes_qdias : array[1..12] of integer =
(31,28,31,30,31,30,31,31,30,31,30,31);
begin
DecodeDate(datafim,pAno,pMes,pdia);
DecodeDate(datainicio,VAno,VMes,VDia);
vtotal_dias := VMes_QDIAS[VMES]-VDIA;
FOR x := 1 to VMes do
vtotal_dias := vtotal_dias-VMes_QDIAS[x];
FOR x := 1 to pMes do
vtotal_dias := vtotal_dias+VMes_QDIAS[x];
vtotal_dias := vtotal_dias-(VMes_QDIAS[pmes]-pdia);
if contar_primeiro_dia then
if datainicio datafim then
vtotal_dias := vtotal_dias-1 else
vtotal_dias := vtotal_dias+1;
vtotal_dias := vtotal_dias+((pAno-VAno)*365);
Result := VTOTAL_DIAS;
end;
é meio groseira mas funciona. espero ter dado uma ideia de como resolver o
seu problema. se nao conseguir posta me avisa que mando uma funcao pronta
para vc. mas acredito que há posibilidade de fazer esse calculo de maneira
mais simples convertendo a data e hora para ponto flutuante, subtrair os
dois valores e converte novamente para data e hora, nunca tentei mas acho
que pode funcionar.
--- Em sáb, 7/8/10, Pedro Neves neve...@yahoo.com neveshp%40yahoo.com
escreveu:
De: Pedro Neves neve...@yahoo.com neveshp%40yahoo.com
Assunto: [delphi-br] Calculo de hora extra
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Data: Sábado, 7 de Agosto de 2010, 20:56
Ola, tenho uma base de dados com que armazena data e hora em que os
funcionarios treabalham, agora estou tentando somar as datas e horas por
semana, por exemplo
DataHoraInicio DataHoraFim DiaSemana
01/08/2010 08:00 02/08/2010 08:00 Domingo
04/08/2010 08:00 05/08/2010 08:00 Quarta-feira
07/08/2010 08:00 08/08/2010 08:00 Sábado
Então, gostaria de somar todas as datas e hora entre às 00:00h do dia
01/08/2010 às 24:00h do dia 07/08
Re: Res: [delphi-br] consulta em interbase
o uso do ibupdate é simples, vc coloca uma ibquery com a sentença sql : select * from tabela de preferencia use um parametro para filtro. coloca o ibupdate, associa a ibquery com o ibupdate, da um duplo clique no ibupdate, vai surgir uma telha com os campos da tabela usada no select, clique nos seguintes butoes get table field set primary key generat sql pronto, se vc observar nesta mesma tela na aba sql, foi gerado todos os sql update, delelet, insert e refresh testa ai. abraço. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Capitular Palavras
function UpperNome(const Nome: String): String; var x : Integer; lista : Array[0..4] of String[03]; function NaoAchaPreposicao(Palavra : String): Boolean; var x : Integer; begin Result := True; for x := 0 to 4 do if Trim(Palavra) = lista[x] then Result := False; end; begin Result := Nome; lista[0] := 'das'; lista[1] := 'dos' ; lista[2] := 'de'; lista[3] := 'do' ; lista[4] := 'da'; Result := UpCase(Result[1]) + Copy(Result, 2, Length(Result)); for x := 2 to Length(Nome) do begin if Nome[x] = #32 then if Copy(Nome,x+1,1) 'e' then if NaoAchaPreposicao(Copy(Nome,x+1,3)) then Result := Copy(Result, 1, x) + UpCase(Result[x+1]) + Copy(Result, x+2, Length(Result)); end; end; //Como usar Edit2.Text := UpperNome(LowerCase(Edit1.Text)); Em 4 de agosto de 2010 06:56, Dirlei Dionísio dir...@gmail.com escreveu: Meu passatempo do início da manhã... function capitulate(const input: string): string; var index: integer; begin result := input; for index:=1 to length(result) do if (index=1) or (result[index-1]=' ') then result[index] := ansiUpperCase(result[index])[1]; end; ou http://pastebin.com/06GTVaNm -- Dirlei Dionísio http://MaisQueBomCodigo.blogspot.com Em 3 de agosto de 2010 13:13, Pablo Farias develo...@marketingrapido.com.br escreveu: Ola pessoal, preciso capitular as palavras de uma string por exemplo pablo farias transformar em Pablo Farias Alguem sabe como fazer isto? -- Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br developer%40marketingrapido.com.br skype : marketingrapido www.marketingrapido.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Idéias prá um projeto legal open s ource
Amigo tem um oprojeto ai que é o maker. existe outros como speedcase, e ja exisitiram outros como sculptor, em fim. eu ja fiz de forma que me atendesse, pequenas ferramentas, em que eu pudesse realizar inportaçao de dados para o firebird. E em outro tempo fiz uma outra feramenta, que gerava codigos de pesquisa, insersao deleçao e tal para agilizar no desencolvimeto de minhas tarefas. hoje se eu tivesse esse tempo que vc tem a ferramenta que tenho em mente, é a ferramenta de projeto onde eu cadastraria o projeto, as definiçoes, o dicionario de dados, as constantes de dados (padronizaçao de tipo de dado = igual a dominio no firebird). com essa ferramenta eu poderia reaproveitar, os dados, e o principal ela geraria o script do banco de acordo com o dicionario, geraria o crud com telas, podendo gerar ate as class apartir desse dicionario. bom ja se pode perceber qual é a ideia. poi no delphi tem um pequeno problema ele consegue criar uns forms e tal mais somente com acesso via bde e nao deicha de forma clara, eu definir o modelo base para herança. posso participar do projeto com vc. Em 29 de julho de 2010 10:13, Ricardo ricardodevelo...@yahoo.com.brescreveu: O Machiavel no livro O Principe recomenda que as horas de lazer ajudem a nos engrandecer no trabalho. Ele cita como exemplo que um rei deveria ter, como hobbie, a caça, pois se divertiria enquanto se aprimora na arte da guerra, reconhece o proprio terreno... Desde entao eu as vezes crio algum projeto manero só pra relaxar. Assim como um cadastro para os meus livros, cds, meu proprio mediaplayer, meu proprio notepad, um OCR pra entender grade de respostas das provas que eu tenho que corrigir... To pensando em fazer algo open source, provavelmente em Delphi, cadastrar o projeto no source forge e tal... mas to sem inspiração. Alguem tem ideia de algo que eu possa iniciar? Alguma ferramenta que faz falta no dia-a-dia, que facilite a vida muitos usuarios? Agradeço a atençao! Ricardo Bianchin -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] barra de ferramentas...
pois é nao é dev express é da tms. tmssoftware.com Em 29 de julho de 2010 08:14, Eloi Filho e...@ig.com.br escreveu: bom dia Magnun, eu tenho a dex express e procurei em todas as paletas e nao encontrei o componente que vc mencionou... abraços... Eloi Filho Programador de Sistemas e...@ig.com.br efgf%40ig.com.br Contatos: (92) 3654-4965 / 9130-5174 - Original Message - From: Magnun Oliveira To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, July 28, 2010 3:43 PM Subject: Re: [delphi-br] barra de ferramentas... Eloi ... a dev express tem um componente que faz isso, o TAdvSmoothDock. Ele tem uns recursos bem legais, mas nos testes que fiz, pesou um pouco a aplicação ... obs ... nao é free ... MAGNUN OLIVEIRA mag...@evolutiva.com.br magnun%40evolutiva.com.br Fone: (14) 3324-4010 www.evolutiva.com.br From: Eloi Filho Sent: Wednesday, July 28, 2010 8:28 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] barra de ferramentas... bom dia José Ricardo, obrigado pela sua resposta, valeu a intenção, mas esse componente eu já uso e como nosso amigo Walter Chagas disse eu preciso de um componente ou rotina que tenha os recursos do Macintoch mesmo. abraços... Eloi Filho Programador de Sistemas e...@ig.com.br efgf%40ig.com.br Contatos: (92) 3654-4965 / 9130-5174 - Original Message - From: thevorte...@yahoo.com.br thevortex78%40yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, July 28, 2010 7:34 AM Subject: RES: [delphi-br] barra de ferramentas... Bom dia com o VCLSkin, vc consegue mudar o aspecto dos componentes, http://www.link-rank.com/ Atenciosamente. José Ricardo Aviles. assinatura1 ( Tel.: 19 3868-7185 ( Cel.: 19 8173 0077 * E-mail: mailto:jravi...@stiware.com.br jraviles%40stiware.com.br jravi...@stiware.com.br jraviles%40stiware.com.br Skype: stiware De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Eloi Filho Enviada em: terça-feira, 27 de julho de 2010 18:53 Para: Grupo uninfe MG; Grupo lista-delphi; Grupo ib aberto; Grupo delphi-total aberto; Grupo delphi-br; Grupo Cooperar NFE SEFAZ-PR; Grupo automaçãototal Assunto: [delphi-br] barra de ferramentas... boa noite amigos, gostaria de saber se alguem tem ou ja fez alguma barra de ferramentas igual a do mac, aquela que quando vc coloca o cursor em cima dos icones eles ficam grandes e ela fica no desktop, se alguem tem um componente ou ja fez isso, gostaria de saber se pode compartilhar... abraços... Eloi Filho Programador de Sistemas e...@ig.com.br efgf%40ig.com.br mailto:efgf%40ig.com.brefgf%2540ig.com.br Contatos: (92) 3654-4965 / 9130-5174 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Algoritimo porreta!!
eu faria da seguinte forma, mudaria apenas a ordem de seleçao 'select' dos dados. mais acredito que no oracle seja possivel pois o firebird permite alterar a ordem das colunas exemplo: ALTER TABLE AUDITORIA ALTER COLUMN TERMINAL POSITION 10; Em 28 de julho de 2010 16:10, Rubem Rocha rubem.ro...@dtmanaus.com.brescreveu: Sinceramente, não vejo qualquer relação entre esta pergunta e o texto inicial da dúvida, em todo caso ... Quem procura, acha: Pesquisa AltaVista: http://www.altavista.com/web/results?itag=odypg=aqaqmode=saqa=Oracle+SQL+ Updateaqp=from+another+tableaqo=aqn=kgs=1kls=1dt=tmperiodd2=0dfr%5Bd %5D=1dfr%5Bm%5D=1dfr%5By%5D=1980dto%5Bd%5D=28dto%5Bm%5D=7dto%5By%5D=201 0filetype=rc=dmnswd=lh=nbq=10 Dica de um dos links encontrados na pesquisa anterior: http://decipherinfosys.wordpress.com/2007/01/31/update-data-in-one-table-wit h-data-from-another-table/ Boa sorte! Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Murilo Cunha Enviada em: quarta-feira, 28 de julho de 2010 15:42 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Algoritimo porreta!! Rubem, Desculpe a ignorancia, mas como faco este UPDATE: UPDATE ca_analisis_dig SET ca_analisis_dig.ana1_c = ca_analisis_dig_old.ana4_c WHERE codigo = 'T01' ca_analisis_dig = tabela que gostaria de arrumar os campos ca_analisis_dig_old = tabela com os dados originais OBS.: Estou usando ORACLE Obrigado MuriloCunha On 28/07/2010 16:25, Rubem Rocha wrote: Ah, mais uma coisa: 5) Dropar a tabela temporária! Sds. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 28 de julho de 2010 15:19 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Algoritimo porreta!! Prioridade: Alta Não vejo nada de porreta nisso! Isso será, no final das contas, uma verdadeira ginástica de scripts SQL que deverão rodar no banco de dados para: 1) Salvar os dados da tabela alvo em uma outra tabela temporária com a mesma estrutura da tabela alvo; 2) Dropar a tabela alvo do banco de dados, tomando cuidado com as dependências que a tabela possui (triggers, stored procedures, constraints, etc.); 3) Recriar a tabela alvo em questão com os campos na nova ordem física; 4) Copiar os dados que estão na tabela temporária para a nova tabela alvo. Não sei se existem bancos de dados que permitam, por meio de algum comando previsto em seu respectivo SQL Engine, que permita definir a ordem física de campos em uma tabela. Em todo caso, a receita de bolo genérica é essa! Porreta?!?!?!? Sds. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br ] Em nome de Murilo Cunha Enviada em: quarta-feira, 28 de julho de 2010 15:06 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Assunto: [delphi-br] Algoritimo porreta!! Pessoal, Estou com uma certa dificuldade em montar este algoritimo. Tenho uma tabela no banco onde cadastro varias VARIAVEIS, por exemplo: varNome varEndereco varNumero varTelefone Cada uma dessas linhas representa uma coluna em outra tabela, por exemplo: ID Nome Endereco Numero Telefone 1 Murilo R. Alemanha 300 1234 2 Mauricio R. Tiradentes 123 1234 Se o usuario mudar a ordem de preenchimento desta tabela (ordem das variaveis) o sistema deve tb alterar as informacoes no banco, por exemplo varNumero varEndereco varTelefone varNome As informacoes seriam trocadas de colunas automaticamente, por exemplo: ID Numero Endereco Telefone Nome 1 300 R. Alemanha 1234 Murilo 2 123 R. Tiradentes 1234 Mauricio Como acertar estas informacoes (UPDATE) de acordo com a ordem do usuario??? Obrigado MuriloCunha -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que
Re: [delphi-br] Ref. Impressão em PDF
eu uso o report builder, com um componente extradevice que exporta os rel gerados no reportbuilder para txt, pdf, xls, rtf e html. mais no site www.planeta*delphi*.com.br tem um componente pra isso. Em 28 de julho de 2010 13:01, Omar Marques webomarmat...@yahoo.com.brescreveu: Boa tarde amigos(as) Delphi(anos(as)) Gostaria de saber se alguém dispoe de algum componente ou suíte para geração de realtórios em PDF Uso QuickReport 3.0.5 - Delphi Enterprise. Abraço Obrigado a todos Ats. Omar M. Haddad Analista de Sistemas [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ref. Impressão em PDF
tenta nesse link que tem quick pra pdf http://www.planetadelphi.com.br/busca/pdf Em 29 de julho de 2010 21:06, Luciano Bruno lsbdevelopm...@yahoo.com.brescreveu: eu uso o report builder, com um componente extradevice que exporta os rel gerados no reportbuilder para txt, pdf, xls, rtf e html. mais no site www.planeta*delphi*.com.br tem um componente pra isso. Em 28 de julho de 2010 13:01, Omar Marques webomarmat...@yahoo.com.brescreveu: Boa tarde amigos(as) Delphi(anos(as)) Gostaria de saber se alguém dispoe de algum componente ou suíte para geração de realtórios em PDF Uso QuickReport 3.0.5 - Delphi Enterprise. Abraço Obrigado a todos Ats. Omar M. Haddad Analista de Sistemas [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] barra de ferramentas...
eu achei em pratico usar o component da tms. Em 28 de julho de 2010 13:20, thevorte...@yahoo.com.br escreveu: Ok Walter eu entendi, é o Dock do Mac OS X, eu fiquei curioso com a duvida do colega e nas minhas pesquisas eu encontrei este exemplo, http://delphi.about.com/od/fullcodeprojects/a/mac-doc-launch.htm Cujo fonte esta incluso, ele mostra como simular o efeito especial de aumentar os ícones e tbem sobre como refletir os componentes como se estivessem sobre um vidro, espero que isso ajude o colega. Força a todos. José Ricardo Aviles. assinatura1 ( Tel.: 19 3868-7185 ( Cel.: 19 8173 0077 * E-mail: mailto:jravi...@stiware.com.br jraviles%40stiware.com.br jravi...@stiware.com.br jraviles%40stiware.com.br Skype: stiware De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 28 de julho de 2010 09:05 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] barra de ferramentas... Mas ele perguntou por um recurso existente no Macintoch e não sobre Skin na aplicação dele. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br mailto:wchagasj%40bol.com.brwchagasj%2540bol.com.br http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com whitesockets%40hotmail.com mailto: whitesockets%40hotmail.com whitesockets%2540hotmail.com SKYPE: WalterChagasJr - Original Message - From: thevorte...@yahoo.com.br thevortex78%40yahoo.com.br mailto: thevortex78%40yahoo.com.br thevortex78%2540yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Sent: Wednesday, July 28, 2010 7:34 AM Subject: RES: [delphi-br] barra de ferramentas... Bom dia com o VCLSkin, vc consegue mudar o aspecto dos componentes, http://www.link-rank.com/ Atenciosamente. José Ricardo Aviles. assinatura1 ( Tel.: 19 3868-7185 ( Cel.: 19 8173 0077 * E-mail: mailto:jravi...@stiware.com.br jraviles%40stiware.com.brmailto: jraviles%40stiware.com.br jraviles%2540stiware.com.br jravi...@stiware.com.br jraviles%40stiware.com.br mailto: jraviles%40stiware.com.br jraviles%2540stiware.com.br Skype: stiware De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br ] Em nome de Eloi Filho Enviada em: terça-feira, 27 de julho de 2010 18:53 Para: Grupo uninfe MG; Grupo lista-delphi; Grupo ib aberto; Grupo delphi-total aberto; Grupo delphi-br; Grupo Cooperar NFE SEFAZ-PR; Grupo automaçãototal Assunto: [delphi-br] barra de ferramentas... boa noite amigos, gostaria de saber se alguem tem ou ja fez alguma barra de ferramentas igual a do mac, aquela que quando vc coloca o cursor em cima dos icones eles ficam grandes e ela fica no desktop, se alguem tem um componente ou ja fez isso, gostaria de saber se pode compartilhar... abraços... Eloi Filho Programador de Sistemas e...@ig.com.br efgf%40ig.com.br mailto:efgf%40ig.com.brefgf%2540ig.com.br mailto:efgf%40ig.com.br efgf%2540ig.com.br Contatos: (92) 3654-4965 / 9130-5174 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] (unknown)
alguem tem algum tutorial ou exemplo de webservice com firebird? preciso desenvolver ums relatorios via web. grato Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
Res: [delphi-br] AJUDA Botões Diferentes PERSONALIZADOS ...
na dev expres tem um pacote de componentes free, um deles e´um botao que o formato e definido por uma imagem, a que vc escolher. - Mensagem original De: Juliano Silva - Yahoo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 25 de Junho de 2008 10:49:05 Assunto: [delphi-br] AJUDA Botões Diferentes PERSONALIZADOS ... Pessoal estou postando novamente o meu problema, se alguem puder ajudar fico agradecido.. . _ De: Juliano Silva - Yahoo [mailto:[EMAIL PROTECTED] com.br] Enviada em: terça-feira, 24 de junho de 2008 15:51 Para: '[EMAIL PROTECTED] pos.com.br' Assunto: Botões Diferentes.. . Pessoal Estou precisando de colocar em mina aplicação uns botões diferentes, alguns botões que se moldassem a imagem que eu atribuisse a ele, por exemplo quero um botão que terá uma semente nele... então seria uma semente que ao clicar faria algo... alguem sabe me dizer se tem algo deste tipo para fazer em Delphi? att. Juliano Silva [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
