Kalender mit Termineintrag

kpeter

Hi,

lösche wenigstens deine vielen TStringList an Ende der Routine.

mfg
kpeter

Braunstein

oder packe sie in auto_ptr.

kenux

kpeter schrieb:

Hi,

lösche wenigstens deine vielen TStringList an Ende der Routine.

mfg
kpeter

ach das hab ich ja total vergessen, danke kpeter

Ich hätte da noch einen Tipp:

Ich würde für die Integer einen Array nehmen.
Und dann alles schön in eine For-Schleife packen.

Dann würde dein Sourcecode 5 mal kleiner und 1000 mal variabler sein.
Zudem müssen dann Änderungen nur noch an einem Ort durchgeführt werden und nicht x mal.

kenux

Krielon schrieb:

Ich hätte da noch einen Tipp:

Ich würde für die Integer einen Array nehmen.
Und dann alles schön in eine For-Schleife packen.

Dann würde dein Sourcecode 5 mal kleiner und 1000 mal variabler sein.
Zudem müssen dann Änderungen nur noch an einem Ort durchgeführt werden und nicht x mal.

Mit der for-Schleife habe ich es schon ausprobiert. Da werden aber Tage im Kalender fett markiert, die gar nicht angeklickt wurden.

Am effektivsten müsste schon Variante sein, die ich gewählt habe

kpeter

kenux schrieb:

Da werden aber Tage im Kalender fett markiert, die gar nicht angeklickt wurden.

Hi,

so richtig dahintergekommen bist du noch nicht ;).

Das Ereignis *GetMonthInfo(TObject Sender, DWORD Month, DWORD &MonthBoldInfo)
wird mehrmals hintereinander aufgerufen.
Je nachdem, wieviel Monate angezeigt werden, werden auch benachbarte nichtsichtbare Monate (aufsteigend) abgefragt.
Dabei schickt die Komponente immer in Month den Monat als DWORD mit.

Zur Veranschaulichung ein Beispiel:

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
   strList = new TStringList;
   strList->Sorted = false;
   strList->Add("07.06.2009");
   strList->Add("12.06.2009");
   strList->Add("22.06.2009");
   strList->Add("23.06.2009");
   strList->Add("29.06.2009");
   strList->Add("07.07.2009");
   strList->Add("08.07.2009");
   strList->Add("09.07.2009");
   strList->Add("10.07.2009");
   strList->Add("07.08.2009");
   // beliebig ergänzen bzw.
   // gehören hier die Werte aus deinem StringGrid rein
   Memo1->Text = strList->Text;
}
//---------------------------------------------------------------------------

__fastcall TForm1::~TForm1(void)
{
   delete strList;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::MonthCalendar1GetMonthInfo(TObject *Sender, DWORD Month, DWORD &MonthBoldInfo)
{
   if (Form1) ShowMessage("aktualisiere Monat : " + IntToStr((__int64)Month));  

   int tage = 0;
   unsigned bolddays[31];
   memset(bolddays, 0, sizeof(bolddays));
   for (int i = 0; i < strList->Count; i++) {
      TDateTime dt = strList->Strings[i];
      WORD yr    = YearOf(dt);
      WORD mt    = MonthOf(dt);
      WORD day   = DayOf(dt);

      if (mt == Month) {
         bolddays[tage] = day;
         tage++;
      }
   }
   unsigned int Buffer = MonthBoldInfo;
   MonthCalendar1->BoldDays(bolddays, 30, Buffer);
   MonthBoldInfo = Buffer;
}
//---------------------------------------------------------------------------

mfg
kpeter

kenux

@kpeter

Sind YearOf, MonthOf und DayOf selbstgeschriebene Funktionen?
Wenn ja, kannst du sie mal hier reinschreiben bitte?

kpeter

kenux schrieb:

Sind YearOf, MonthOf und DayOf selbstgeschriebene Funktionen?

Nö, die sind in der DateUtils.hpp deklariert. Musst du einbinden.
Kennst du die sagenumwobene Mächtigkeit der Funktionstaste 1 ?

mfg
kpeter

kenux

kpeter schrieb:

Kennst du die sagenumwobene Mächtigkeit der Funktionstaste 1 ?

Eine indirekte Anspielung darauf, dass ich zu faul bin??
Bin ich aber bestimmt nicht; ich finde die Hilfe nicht so toll, weil man nicht so richtig schlau daraus wird. Bei euch Profis ist das sicherlich anders, da ich euch mit dem Programm schon richtig gut auskennt.
Zur Hilfe nehme ich meistens immer das Buch CppBuilder 2007 von Kaiser, (Übrigens wer es will, dem kann ich das Ebook zur Verfügung stellen), und wenn mir da nicht geholfen wird, such ich meistens hier um Rat

kpeter

War nicht so gemeint, faul sind andere.
Profi bin ich lang nicht.

mfg
kpeter