Fórum Calendário #394149
21/01/2011
0
Gostaria de saber como fazer um calendário que mostre todos os meses e que possa também escolher o ano de consulta de um determinado mês.
Obrigado.
Frederico Brigatte***
Curtir tópico
+ 0Posts
21/01/2011
Marco Salles
uses DateUtils; procedure TForm6.Button1Click(Sender: TObject); begin Showmessage(inttostr(YearOf(DateTimePicker1.Date))); end;
Gostei + 0
22/01/2011
Frederico Brigatte***
uses DateUtils; procedure TForm6.Button1Click(Sender: TObject); begin Showmessage(inttostr(YearOf(DateTimePicker1.Date))); end;
É quase isso. Posso por exemplo entrar com o dia, mês e ano que desejar e mostrar o calendário? Obs.: O dia, mês.
Gostei + 0
22/01/2011
Marco Salles
d,m,y:word;
data:TDate;
begin
d:=12;
m:=3;
y:=2001;
data:=Encodedate(y,m,d);
MonthCalendar1.Date:=data; end;
Gostei + 0
23/01/2011
Frederico Brigatte***
d,m,y:word;
data:TDate;
begin
d:=12;
m:=3;
y:=2001;
data:=Encodedate(y,m,d);
MonthCalendar1.Date:=data; end;
É isso mesmo. Pode fazer em vez de fixo no sistema usar um edit ou outro componente?
Gostei + 0
23/01/2011
Marco Salles
var d,m,y:word; data:TDate; begin d:=strtoint(edit1.text); m:=strtoint(edit2.text); y:=strtoint(edit3.text); data:=Encodedate(y,m,d); MonthCalendar1.Date:=data; end;
var data:TDate; begin data:=strtodate(MaskEdit1.text); // ou data:=strtodate(Edit1.text); // ou MonthCalendar1.Date:=data;
Gostei + 0
23/01/2011
Frederico Brigatte***
var d,m,y:word; data:TDate; begin d:=strtoint(edit1.text); m:=strtoint(edit2.text); y:=strtoint(edit3.text); data:=Encodedate(y,m,d); MonthCalendar1.Date:=data; end;
var data:TDate; begin data:=strtodate(MaskEdit1.text); // ou data:=strtodate(Edit1.text); // ou MonthCalendar1.Date:=data;
Ok, isso mesmo. Pode me ajudar em mais uma coisa? Vc conhece o componente PicShow? Serve para fazer animação em fotos, tipo slide.
Gostei + 0
23/01/2011
Marco Salles
Gostei + 0
23/01/2011
Frederico Brigatte***
Quero fazer um slide de fotos que contenham efeitos. É possível fazer isso?
Gostei + 0
23/01/2011
Marco Salles
Gostei + 0
23/01/2011
Frederico Brigatte***
É uma página para assinante e não sou. Estou precisando muito disso.
Gostei + 0
23/01/2011
Frederico Brigatte***
É uma página para assinante e não sou. Estou precisando muito disso.
O link é esse:
https://www.devmedia.com.br/post-14254-Aplicando-efeito-Fade-In-e-Fade-Out-em-uma-imagem-Parte-01.html
Mas é fechado. Queria fazer um slide de fotos apartir de uma pasta e que na mudança de fotos tivesse um efeito. Estou precisando muito.
Gostei + 0
23/01/2011
Marco Salles
Gostei + 0
23/01/2011
Frederico Brigatte***
Minha dúvida é para fazer isso. Ate tenho um exemplo, mas falta os efeitos.
Exemplo que tenho:
procedure TForm1.Button1Click(Sender: TObject);
var
x,item:integer;
begin
item:=FileListBox1.Items.Count;
//ShowMessage(inttostr(item));
for x:=0 to item do begin
if x=item then begin
Showmessage('A apresentação acabou!');
end else begin
foto.picture.loadfromfile(DirectoryListBox1.Directory+'\'+FileListBox1.Items[X]);//vai passando item a item na filelistbox
end;
Sleep(2000); //intervalo entre uma imagem e outra
foto.Repaint; //remonta o image para apresentar a nova imagem
end;
end;
Na mudança de uma foto para outra aplicar um efeito de transição.
Gostei + 0
24/01/2011
Wilson Junior
Nova dúvida no chamado https://www.devmedia.com.br/forum/viewtopic.asp?id=394255
Feito isto por motivos de organização dos posts.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)