Calendário
Boa tarde,
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.
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***
Curtidas 0
Respostas
Marco Salles
21/01/2011
procure por
TDateTimePicker ou MonthCalendar1
Para oAno use a função YearOf presente na Uses DateUtils;
exemplo
uses DateUtils; procedure TForm6.Button1Click(Sender: TObject); begin Showmessage(inttostr(YearOf(DateTimePicker1.Date))); end;
GOSTEI 0
Frederico Brigatte***
21/01/2011
procure por
TDateTimePicker ou MonthCalendar1
Para oAno use a função YearOf presente na Uses DateUtils;
exemplo
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
Marco Salles
21/01/2011
pode é so fazer o encodedatetime
mais ou menos assim
var
d,m,y:word;
data:TDate;
begin
d:=12;
m:=3;
y:=2001;
data:=Encodedate(y,m,d);
MonthCalendar1.Date:=data; end;
d,m,y:word;
data:TDate;
begin
d:=12;
m:=3;
y:=2001;
data:=Encodedate(y,m,d);
MonthCalendar1.Date:=data; end;
GOSTEI 0
Frederico Brigatte***
21/01/2011
pode é so fazer o encodedatetime
mais ou menos assim
var
d,m,y:word;
data:TDate;
begin
d:=12;
m:=3;
y:=2001;
data:=Encodedate(y,m,d);
MonthCalendar1.Date:=data; end;
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
Marco Salles
21/01/2011
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
Frederico Brigatte***
21/01/2011
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
Marco Salles
21/01/2011
conheço não ...
Mas o que precisa ???
GOSTEI 0
Frederico Brigatte***
21/01/2011
conheço não ...
Mas o que precisa ???
Quero fazer um slide de fotos que contenham efeitos. É possível fazer isso?
GOSTEI 0
Marco Salles
21/01/2011
com certeza
se não me engano na revista ja foi publicado algo a respeito
GOSTEI 0
Frederico Brigatte***
21/01/2011
com certeza
se não me engano na revista ja foi publicado algo a respeito
É uma página para assinante e não sou. Estou precisando muito disso.
GOSTEI 0
Frederico Brigatte***
21/01/2011
com certeza
se não me engano na revista ja foi publicado algo a respeito
É 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
Marco Salles
21/01/2011
Mas sua dúvida esta muito vaga
vc esta com dificuldade na instação , na utilização , nas propriedades em que ???
Sugiro que vc finalize este tópico afinal ele ja foi concluido e abra um Novo post especificamente com o tema
Para outros possam compartilhar sobre o mesmo tema especifico com vc
GOSTEI 0
Frederico Brigatte***
21/01/2011
Mas sua dúvida esta muito vaga
vc esta com dificuldade na instação , na utilização , nas propriedades em que ???
Sugiro que vc finalize este tópico afinal ele ja foi concluido e abra um Novo post especificamente com o tema
Para outros possam compartilhar sobre o mesmo tema especifico com vc
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
Wilson Junior
21/01/2011
Post finalizado, pois a dúvida foi solucionada e após foi adicionada outra dúvida, sendo que esta deveria ser em outro chamado.
Nova dúvida no chamado https://www.devmedia.com.br/forum/viewtopic.asp?id=394255
Feito isto por motivos de organização dos posts.
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