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: 591
Kayıt: 20 Eki 2006 11:37
Konum: Erzurum
İletişim:

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

Mesaj gönderen fesiharslan »

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: 523
Kayıt: 05 May 2005 03: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 »

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 08:05

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

Mesaj gönderen skalkan »

Sayın fesiharslan,

Ajanda çalışması kodlarını paylaşırmısınız?
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

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

Mesaj gönderen erdogan_ozkaya »

Merhaba,

Hocam örnek projeyi paylaşmanız mümkünmü ?

Teşekkürler
Cevapla