Devexpress cxScheduler ile Ajanda / Günlük / Etkinlik Görünümleri Oluşturmak

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
fesiharslan
Üye
Mesajlar: 584
Kayıt: 20 Eki 2006 10:37
Konum: Erzurum
İletişim:

Devexpress cxScheduler ile Ajanda / Günlük / Etkinlik Görünümleri Oluşturmak

Mesaj gönderen fesiharslan » 30 Haz 2016 10:08

Merhaba;

cxScheduler'ın tüm görünümlerini kullanabileceğiniz metodları adım adım anlatayım.

1- Öncelikle Interface bölümünde bütün cxScheduler görünümlerini kapsayacak bir enum tip tanımlayalım.

Kod: Tümünü seç

type
TArsAjandaGorunumu = (agSaat, agGun, agHafta, agCalismaGunleri, agAy, agYil, agGantt);
2- Implementation bölümünde ise cxScheduler görünümünü set edecek procedure'ümüzü yazalım.

Kod: Tümünü seç

procedure TfrmAjanda.SetArsAjandaGorunumDegis(ArsAjandaGorunumu
  : TArsAjandaGorunumu);
var
  AjandaTarih: TDateTime;
  AjandaGorunum: TcxSchedulerCustomView;
begin
  AjandaGorunum := AjandaTum.CurrentView; {AjandaTum=TcxScheduler adıdır}
  AjandaTarih:= Trunc(AjandaTum.SelStart);
  case ArsAjandaGorunumu of
    agGun:
      AjandaTum.GoToDate(AjandaTarih, vmDay);
    agCalismaGunleri:
      AjandaTum.GoToDate(AjandaTarih, vmWorkWeek);
    agHafta:
      AjandaTum.GoToDate(AjandaTarih, vmWeek);
    agAy:
      AjandaTum.GoToDate(AjandaTarih, vmMonth);
    agSaat:
      AjandaTum.ViewTimeGrid.Active := True;
    agYil:
      AjandaTum.ViewYear.Active := True;
    agGantt:
      AjandaTum.ViewGantt.Active := True;
  end;
  AjandaTum.LayoutChanged;
end;
3- Oluşturduğumuz SetArsAjandaGorunumDegis metodunun aşağıdaki gibi kullanalım.

Saat görünümü

Kod: Tümünü seç

procedure TfrmAjanda.btnBarGunClick(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agSaat);
end;
Resim

Gün görünümü

Kod: Tümünü seç

procedure TfrmAjanda.btnBarGunClick(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agGun);
end;
Resim

Çalışma Günleri görünümü

Kod: Tümünü seç

procedure TfrmAjanda.dxBarLargeButton4Click(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agCalismaGunleri);
end;
Resim

Hafta görünümü

Kod: Tümünü seç

procedure TfrmAjanda.dxBarLargeButton4Click(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agHafta);
end;
Resim

Ay görünümü

Kod: Tümünü seç

procedure TfrmAjanda.dxBarLargeButton5Click(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agAy);
end;
Resim

Yıl görünümü

Kod: Tümünü seç

procedure TfrmAjanda.dxBarLargeButton6Click(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agYil);
end;
Resim

Gantt Grafiği

Kod: Tümünü seç

procedure TfrmAjanda.dxBarLargeButton7Click(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agGantt);
end;
Resim

İyi çalışmalar...

Kullanıcı avatarı
hi_selamlar
Üye
Mesajlar: 521
Kayıt: 05 May 2005 02:24
Konum: DelphiTürkiye.COM

Re: Devexpress cxScheduler ile Ajanda / Günlük / Etkinlik Görünümleri Oluşturmak

Mesaj gönderen hi_selamlar » 26 Tem 2016 08:46

Teşekkürler hocam elinize sağlık.

Bu arada Kitabınız ne zaman yayımlanacak ?
Herkes cahildir, bazi konularda.

skalkan
Üye
Mesajlar: 21
Kayıt: 28 Haz 2003 07:05

Re: Devexpress cxScheduler ile Ajanda / Günlük / Etkinlik Görünümleri Oluşturmak

Mesaj gönderen skalkan » 17 Mar 2018 09:52

Sayın fesiharslan,

Ajanda çalışması kodlarını paylaşırmısınız?

Cevapla