António44
Membros-
Total de itens
168 -
Registro em
-
Última visita
Sobre António44
- Data de Nascimento 26/12/1965
Perfil
-
Gender
Male
-
Location
Portugal
Últimos Visitantes
3.318 visualizações
António44's Achievements
0
Reputação
-
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