Tüm Platformlar için Hızlı Uygulama Geliştirme Kitap Yayın Süreci
Kitap gözden geçirilmek üzere BTG (Bilgi ve Teknoloji Grubu) 'na gönderildi. 05.10.2018-14:10
BTG (Bilgi ve Teknoloji Grubu) tarafından iki sayfalık bir reklam tasarımı bekleniyor. 08.10.2018 - 15:30
Kitap basım talebi değerlendirilmek üzere matbaaya bildirildi. Matbaadan basım süreci hakkında bilgi bekleniyor. 15.10.2018 - 15:34

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 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;
34g0bc1.jpg

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

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

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

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

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

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

İ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

Konuyu Paylaş : facebook gplus twitter



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 6 3.287 18-09-2016, Saat: 16:29
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi