António44

Nunca me tinha acontecido ,isto??? Na tabela uso campo Auto incremento mas quando grava não ordena os registos e no scroll do mouse com o foco no dbGrid passa do primeiro para o ultimo e do ultimo para o primeiro registo na DBgrid se DBgrid não estar no foco rola normal passando os registos 1 em 1 ??? Mas no DbNavigator passa sempre os registos normal ???. Faz isto em todas as tabelas que uso campo +Auto incremento. Poderiam ter uma ideia do problema? Agradecido

procedure TFotoskiko.BitBtn4Click(Sender: TObject); Var g:integer; begin g:= 0; JvThumbView1.Selected:=(JvThumbView1.Selected+(g+1)); end; procedure TFotoskiko.BitBtn5Click(Sender: TObject); Var g:integer; begin g:= 0; JvThumbView1.Selected:=(JvThumbView1.Selected-(g+1)); end; Consegui com esta solução,não está 100% mas funciona bem para navegar no JvThumbView e mostrar foto em maiores dimensões no JvThumbnail . procedure TKikinho.FormShow(Sender: TObject); begin JvThumbnail1.FileName:=(Fotoskiko.JvThumbView1.SelectedFile); end; procedure TKikinho.BitBtn2Click(Sender: TObject); Var g:integer; begin g:= 0; JvThumbnail1.FileName:=''; Fotoskiko.JvThumbView1.Selected:=Fotoskiko.JvThumbView1.Selected+(g-1); sleep(20); Timer1.Enabled:=true; end; procedure TKikinho.Timer1Timer(Sender: TObject); begin JvThumbnail1.FileName:=(Fotoskiko.JvThumbView1.SelectedFile); Timer1.Enabled:=false; end; procedure TKikinho.BitBtn3Click(Sender: TObject); Var g:integer; begin g:= 0; JvThumbnail1.FileName:=''; Fotoskiko.JvThumbView1.Selected:=Fotoskiko.JvThumbView1.Selected+(g+1); sleep(20); Timer1.Enabled:=true; end; Se por acaso surgir por ai uma ideia melhor por favor me passem. Obrigado

Usando um botão para selecionar o próximo ou o anterior no Componente JvThumbView . Era para identificar a primeira e a ultima imagem Agradeço

Resolvido; if ScrollBar1.Position=1 Then Panel1.Caption:='Janeiro' Else if ScrollBar1.Position=2 Then Panel1.Caption:='Fevereiro' Else if ScrollBar1.Position=3 Then Panel1.Caption:='Março' Else if ScrollBar1.Position=4 Then Panel1.Caption:='Abril' Else if ScrollBar1.Position= 5 Then Panel1.Caption:='Maio' Else if ScrollBar1.Position=6 Then Panel1.Caption:='Junho' Else if ScrollBar1.Position=7 Then Panel1.Caption:='Julho' Else if ScrollBar1.Position=8 Then Panel1.Caption:='Agosto' Else if ScrollBar1.Position=9 Then Panel1.Caption:='Setembro' Else if ScrollBar1.Position=10 Then Panel1.Caption:='Outubro' Else if ScrollBar1.Position=11 Then Panel1.Caption:='Novembro' Else if ScrollBar1.Position=12 Then Panel1.Caption:='Dezembro'; if ScrollBar1.Position=13 Then begin ScrollBar1.Position:=1; Panel3.Caption:=FloatToStr(StrToFloat(Panel3.Caption)+1); end; if ScrollBar1.Position=0 Then begin ScrollBar1.Position:=12; Panel3.Caption:=FloatToStr(StrToFloat(Panel3.Caption)-1); end; Calendar1.NextMonth; Usando assim funciona na perfeição //Calendar1.Month:=ScrollBar1.Position;>>>>>>Retirado Calendar1.Year:=StrToInt(Panel3.Caption); end; Obrigado.

Teste assim ,data 31 de Agosto seleccionada no Calendar e avançe para o més seguinte no scrollbar que será Setembro de 30 dias, como o 31 não existe no més de Setembro dá erro.

Sim,mas terá um jeito de ultrapassar isso? estou por exemplo com uma data de 31 seleccionada no Calendar e avanço para o més seguinte no scrollbar que será de 30 dias, como o 31 não existe no més dá erro. Como contorno isso? Ao avançar para o més seguinte se for de 30.

So da erro quando por exemplo o estiver num mes de 31 dias com o dia 31 seleccionado e passa para a frente ou para tráz com o scrolbar se for mes de 30 dias ai da o erro se for de 31 já náo dá . haverá jeito de contornar isso? Obrigado

Dias de 31 ou 29 no bisexto gera erro."Invalid argument to date encode". alguém pode dar uma ajuda a contornar isso? procedure TFormAgenda.ScrollBar1Change(Sender: TObject); begin if ScrollBar1.Position=1 Then Panel1.Caption:='Janeiro' Else if ScrollBar1.Position=2 Then Panel1.Caption:='Fevereiro' Else if ScrollBar1.Position=3 Then Panel1.Caption:='Março' Else if ScrollBar1.Position=4 Then Panel1.Caption:='Abril' Else if ScrollBar1.Position= 5 Then Panel1.Caption:='Maio' Else if ScrollBar1.Position=6 Then Panel1.Caption:='Junho' Else if ScrollBar1.Position=7 Then Panel1.Caption:='Julho' Else if ScrollBar1.Position=8 Then Panel1.Caption:='Agosto' Else if ScrollBar1.Position=9 Then Panel1.Caption:='Setembro' Else if ScrollBar1.Position=10 Then Panel1.Caption:='Outubro' Else if ScrollBar1.Position=11 Then Panel1.Caption:='Novembro' Else if ScrollBar1.Position=12 Then Panel1.Caption:='Dezembro'; if ScrollBar1.Position=13 Then begin ScrollBar1.Position:=1; Panel3.Caption:=FloatToStr(StrToFloat(Panel3.Caption)+1); end; if ScrollBar1.Position=0 Then begin ScrollBar1.Position:=12; Panel3.Caption:=FloatToStr(StrToFloat(Panel3.Caption)-1); end; Calendar1.Month:=ScrollBar1.Position; Calendar1.Year:=StrToInt(Panel3.Caption); end;

Resolvido, Obrigado Abraço

No campo1 Valor * percentagem campo2 = resultado . Sim a percentagem será igual para todos. Sim em todos os registos de uma só vez baseado na percentagem escolhida. Abraço

Tenho uma Tabela com 2 campos Valor da compra,Valor da venda. Ao valor da compra no enter do dbedit atribuo uma percentagem que é o resultado do valor da venda. Se eu quizer mudar essa percentagem em todos os registos tenho que calcular 1 a 1 . há maneira de alterar em todos os registos de uma só vez? Obrigado abraço

Boas Jhonas, eu resolvi assim. Uma vez que se tratava de problema na ultima faixa,não havia necessidade de activar o Timer1 então passei o Gauge1 para outro, Timer2 e assim testa logo se esta no ultimo não activa o timer1, e funciona muito bem . procedure TForm1.DBGridWithRuler1DblClick(Sender: TObject); begin MediaPlayer1.Close; // tirar a musica da tabela e salvar no disco Query1MP3.SaveToFile('c:\musica.mp3'); // abrir a musica pelo MediaPlayer e tocar MediaPlayer1.FileName := 'c:\musica.mp3'; MediaPlayer1.Open; FlatGauge1.MaxValue := MediaPlayer1.Length; MediaPlayer1.Play; timer2.Enabled := true; cap := Query1Nome.Value;; ncar := 0; if not Query1.Eof then timer1.Enabled := true; end; procedure TForm1.Timer2Timer(Sender: TObject); begin FlatGauge1.Refresh; if FlatGauge1.MaxValue <> 0 then FlatGauge1.Progress := MediaPlayer1.Position; if FlatGauge1.Progress = FlatGauge1.MaxValue then begin FlatGauge1.Progress := 0; end; end; Obrigado amigo por sua ajuda valeu...eu uso o Delphi para pequenos projectos, eu trabalho com WinCC Controle Center da Siemens. Abraço

amigo, pelo que eu vejo, voce tem pouca experiencia com o delphi ... É verdade não tenho não,mas a verdade é que ta dando isso ai... Uso 10MB no campo. Uso o DBNavigator. Uso o código exactamente como vc passou ,e como eu disse no post anterior. abraço Iniciando o exe se o ultima faixa estiver visivel na DBgrid e vc der click directo ela toca normal sem problema,mas se a ultima faixa não está visivel no Dbgrid e vc tiver que navegar ela até aparecer o ultimo,(Dbnavigator ou scroll....) quando vcclicka faz play mas pára logo. Eu já testei de várias maneiras ....mudei as faixas porque poderiam estar corrompidas o tamanho tb não tem problema o campo tem 10MB...???? não sei mais. Abraço

E verdade vc tinha razão Jhonas,a musica tava memo corrompida. Uffff Abraço Pois eu deleitei 2 ou 3 registos e a DBgrid ficou com os registos todos visiveis,,,,???? Afinal não esta resolvido não... o problema é com certeza na DBgrid porque se a ultima faixa estiver visivel na DBgrid e vc der click ela toca normal,mas se a ultima faixa não está visivel e vc tiver que rolar ela até aparecer o ultimo, quando vc faz play pára logo, ou seja pelo rolar da DBgrid ja detectou o ultimo registo e não faz o play faz logo o stop,iniciando logo directo sem rolar a dbgrid tudo bem porque só depois com a acção do timer1 é que vai detectar que é o ultimo registo e faz o stop....como resolver isto.? Abraço

E verdade vc tinha razão Jhonas,a musica tava memo corrompida. Uffff Abraço