Konuyu Oyla:
  • Derecelendirme: 4.5/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Devexpress cxScheduler ile Ajanda / Günlük / Etkinlik Görünümleri Oluşturmak
#1
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.
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.
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ü
procedure TfrmAjanda.btnBarGunClick(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agSaat);
end;

   

Gün görünümü
procedure TfrmAjanda.btnBarGunClick(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agGun);
end;

   

Çalışma Günleri görünümü
procedure TfrmAjanda.dxBarLargeButton4Click(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agCalismaGunleri);
end;

   

Hafta görünümü
procedure TfrmAjanda.dxBarLargeButton4Click(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agHafta);
end;

   

Ay görünümü
procedure TfrmAjanda.dxBarLargeButton5Click(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agAy);
end;

   

Yıl görünümü
procedure TfrmAjanda.dxBarLargeButton6Click(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agYil);
end;

   

Gantt Grafiği
procedure TfrmAjanda.dxBarLargeButton7Click(Sender: TObject);
begin
  SetArsAjandaGorunumDegis(agGantt);
end;

   

Uygulama açılışındaki hatırlatma ekranı;

   

Örnek UygulamaEtkinlikler

İyi çalışmalar
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#2
Fesih Bey,
Merahaba çok faydalandığım bir konu... resimler gitmiş... müsait olduğunuzda güncelleyebilirmmisiniz
Cevapla
#3
@Fesih ARSLAN
Hocam evet resimlerinizi bekliyoruz.
“En uzun yolculuklar bile, tek bir adımla başlar.” Lao Tzu
Cevapla
#4
(29-06-2020, Saat: 17:42)forumcuali Adlı Kullanıcıdan Alıntı: Fesih Bey,
Merahaba çok faydalandığım bir konu... resimler gitmiş... müsait olduğunuzda güncelleyebilirmmisiniz

(29-06-2020, Saat: 22:26)wiseman Adlı Kullanıcıdan Alıntı: @Fesih ARSLAN
Hocam evet resimlerinizi bekliyoruz.

Faydalı olmasına sevindim.
Ekran görüntülerini güncelledim. 
Örnek uygulamayı da konuya ekledim.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Mobil Platform için Kayan (Slide) Menü ve Açılır (Overflow=Popup) Menü Oluşturmak Fesih ARSLAN 13 6.528 24-04-2020, Saat: 10:06
Son Yorum: cihankoca



Konuyu Okuyanlar: 1 Ziyaretçi