Kalender mit Termineintrag

kenux

wie kann ich denn im Kalender ein Datum auswählen und dann in die mit der Maus ausgwewählte Zelle vom StringGrid eintragen?

so habe ich das bereits, aber da schreibe ich nur in eine bestimmte Zelle

StringGrid1->Cells[0][i] = MonthCalendar1->Date.DateString();

akari

Hallo

TStringGrid bietet entsprechende Eigenschaften an, mit denen man den Index der aktuell ausgewählte Zeile bzw. Spalte auslesen kann. Weiteres kannst du in der BCB-Hilfe nachlesen.

bis bald
akari

kenux

akari schrieb:

Hallo

TStringGrid bietet entsprechende Eigenschaften an, mit denen man den Index der aktuell ausgewählte Zeile bzw. Spalte auslesen kann. Weiteres kannst du in der BCB-Hilfe nachlesen.

bis bald
akari

ich durchsuche schon die ganze zeit das forum, du könntest doch mal nen code tipp geben, anstatt immer auf die hilfe zu verweisen

akari

Hallo

Wenn du in der BCB-Hilfe nachgeschaut hättest, dann hättest du die Eigenschaften TStringGrid::Col und TStringGrid::Row auch selber gefunden.

bis bald
akari

kenux

ok habs folgermaßen gelöst, für andere, die es eventuell auch brauchen könnten:

void __fastcall TForm1::MonthCalendar1DblClick(TObject *Sender)
{
if (StringGrid1->Col == 0) {
// ausgewaehltes Datum in die Zelle schreiben
StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row] =
MonthCalendar1->Date.FormatString("dd.mm.yyyy");
}
else {
MessageDlg("Bitte Spalte \"Datum\" zuerst anklicken!", mtWarning, TMsgDlgButtons() << mbOK, 0);
}
}

kenux

Wo kann ich denn einstellen, dass wenn die Zeilen im StringGrid voll sind, dass zusätzliche Zeilen angezeigt werden?

StringGrid->RowCount++;

kenux

das gind aber schnell, vielen dank.

weißt du denn auch wenn das letzte feld belegt ist, dass automatisch eine zeile hinzugefügt wird

hat sich erledigt, ich mach dies einfach auf knopfdruck:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
StringGrid1->RowCount += 1;
}

kenux

Nun möchte ich, wie ganz oben geschildert, die Daten (also das jeweilige Datum) im Kalender fett oder farbig markiert haben.

ich habe mir schonmal den folgenden Code aus dem Forum angeguckt:

void __fastcall TForm1::MonthCalendar1GetMonthInfo(TObject *Sender, DWORD Month,
	  DWORD &MonthBoldInfo)
{
TCommonCalendar *Calendar = dynamic_cast <TCommonCalendar *> (Sender);
unsigned bdays[5] = {2,4,6,8,10};
unsigned int x = MonthBoldInfo;
Calendar->BoldDays(bdays, sizeof(bdays)/sizeof(bdays[4]), x);
MonthBoldInfo = x;
}

Ich weiß jetzt leider nicht wie ich die Daten vom StringGrid im Kalender darstellen kann

-**xXx**-

Mit sowas:

StringGrid1->RowCount += 1;
//oder
StringGrid->RowCount++;

Wäre ich vorsichtig. Die Member der VCL-Objekte sind oft "versteckte" Funktionen (bsp. GetRowCount(), SetRowCount()). In dem Fall funktioniert die Zuweisung nicht. Richtig wäre dann:

StringGrid1->RowCount = StringGrid1->RowCount + 1;

aufgelöst wäre das nämlich:

StringGrid1->SetRowCount(StringGrid1->GetRowCount() + 1);

mfg
xXx

audacia

-=]xXx[=- schrieb:

Die Member der VCL-Objekte sind oft "versteckte" Funktionen (bsp. GetRowCount(), SetRowCount()). In dem Fall funktioniert die Zuweisung nicht.

Doch, tut sie; es hängt auch nicht davon ab, ob der Zugriff über Getter- und Setter-Funktionen oder direkt über das Feld erfolgt. Vielmehr ist der Typ entscheidend - bei skalaren Typen geht es, bei allen anderen nicht.

In einem Nachbarthread hatte ich schon einmal auf meine Zusammenfassung der Property-Regeln verwiesen.

kenux

@ -=]xXx[=- und audacia
Vielen Dank für den Hinweis. Werde es in Zukunft beachten.

Hättet ihr auch ne Lösung wie ich die Datumseingaben im StringGrid im Kalender fett darstellen kann?

akari

Hallo

Siehe FAQ hier im BCB-Forum, Abschnitt StringGrid, Thread farbige Zellen/Zeilen

bis bald
akari

kenux

akari schrieb:

Hallo

Siehe FAQ hier im BCB-Forum, Abschnitt StringGrid, Thread farbige Zellen/Zeilen

bis bald
akari

Hallo akari,

ich habe mich glaub ich bissl undeutlich ausgedrückt:
Ich möchte, das die Termine, die im StringGrid sind IM KALENDER (also im TMonthCalendar) fett dargestellt werden. Ich möchte NICHT die Zellen vom StringGrid farbig markieren oder ähnliches.
Gibt es da ne Möglichkeit?

kpeter

Hi,

dafür gibt es im TMonthCalendar dieses Ereignis (Beispiel):

void __fastcall TForm1::MonthCalendar1GetMonthInfo(TObject *Sender, DWORD Month, DWORD &MonthBoldInfo)

{
   unsigned bolddays[7] = {1, 2, 5, 11, 18, 19, 20};
   unsigned Buffer = MonthBoldInfo;
   MonthCalendar1->BoldDays(bolddays,6,Buffer);
   MonthBoldInfo = Buffer;
}
//---------------------------------------------------------------------------

mfg
kpeter

kenux

damit kann ich aber nur die vorgegebenen 7 Daten fett darstellen.

Ich möchte aber die Datumseinträge, die sich im StringGrid befinden, im Kalender fett darstellen!

kpeter

Hi,

die Lösung sticht doch ins Auge!

Du musst halt den Monat als DWORD und die zu markierenden Tage als Array dieser Funktion übergeben.
Wo ist da das Problem?

mfg
kpeter

kenux

mir sticht gar nichts ins auge

danke kpeter für deinen lösungsansatz, doch ich komm wirklich nicht weiter. ich habe es schon so oft versucht, sogar mit string in unsingned int umzuwandeln und dann reinzuschreiben, doch es klappt nicht.
wäre Dir und den anderen echt dankbar, wenn Ihr mir das mal zeigen könntet

kenux

das ist mein Programmcode für den Kalender:

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	// StringGrid Spaltenueberschriften
	StringGrid1->Cells[0][0] = "Datum";
	StringGrid1->Cells[1][0] = "Uhrzeit";
	StringGrid1->Cells[2][0] = "Termin";
	StringGrid1->Cells[3][0] = "Bemerkung";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
// manuelles Eingeben von Termineninformationen (nicht Datum)
TStringGrid* Grid = dynamic_cast<TStringGrid*>(Sender);

// falls Spalten 1-3 ausgewaehlt, dann Bearbeiten erlauben
if (Grid->Col == 1 || Grid->Col == 2 || Grid->Col == 3) {
	Grid->Options  = Grid->Options << goEditing;
	}
else Grid->Options  = Grid->Options >> goEditing;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MonthCalendar1DblClick(TObject *Sender)
{
// Datum nur in die 1.Spalte ("Datum") eintragen
if (StringGrid1->Col == 0) {
	// wenn Zelle noch NICHT belegt
	if(StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row].IsEmpty())
	{
		// ausgewaehltes Datum in die Zelle schreiben
		StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row] =
		MonthCalendar1->Date.FormatString("dd.mm.yyyy");
	}
// falls Zelle belegt
else {
	int Wahl = Application->MessageBox("Zelle bereits belegt!\nFortsetzen?","Hinweis!", MB_YESNO | MB_ICONQUESTION);
	// falls "ja" geklickt wird Datum ersetzt
	if (Wahl == IDYES) {
		StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row] =
		MonthCalendar1->Date.FormatString("dd.mm.yyyy");
		}
	}
}
else {
MessageDlg("Bitte Spalte \"Datum\" wählen!", mtWarning, TMsgDlgButtons() << mbOK, 0);
}
}

soweit klappt auch alles ok, doch der Kalender soll ja übersichtlich alle Termine fett darstellen, die im StringGrid sind.
Das heißt alle Datumseinträge, die in der StringGrid-Spalte "Datum" sind, sollen im Kalender fett dargestellt werden.

mit dem Code von kpeter:

void __fastcall TForm1::MonthCalendar1GetMonthInfo(TObject *Sender, DWORD Month, DWORD &MonthBoldInfo)

{
   unsigned bolddays[7] = {1, 2, 5, 11, 18, 19, 20};
   unsigned Buffer = MonthBoldInfo;
   MonthCalendar1->BoldDays(bolddays,6,Buffer);
   MonthBoldInfo = Buffer;
}

kann ich zwar einzelne Tage fett darstellen doch dies erfüllt nicht die Aufgabe.

Ich habe bischen experimentiert und habe versucht eine Zahl im StringGrid im Kalender fett darzustellen, das klappt auch:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
StringGrid1->Cells[0][1] = "1";
StringGrid1->Cells[0][2] = "20";
}

//---------------------------------------------------------------------------
void __fastcall TForm1::MonthCalendar1GetMonthInfo(TObject *Sender, DWORD Month,
	  DWORD &MonthBoldInfo)
{
String k = StringGrid1->Cells[0][1];
String q = StringGrid1->Cells[0][2];
unsigned i = StrToInt(k);
unsigned j = StrToInt(q);

unsigned bolddays[2] = {i,j};
unsigned Buffer = MonthBoldInfo;
MonthCalendar1->BoldDays(bolddays,2,Buffer);
MonthBoldInfo = Buffer;
}

Jetzt weiß ich zumindestens, dass sowas eigentlich klappt.
Doch wie schon gesagt, weiß ich nicht wie ich das Datum in der StringGrid-Spalte "Datum" im Kalender fett darstellen kann

kpeter

kenux schrieb:

Doch wie schon gesagt, weiß ich nicht wie ich das Datum in der StringGrid-Spalte "Datum" im Kalender fett darstellen kann

Hi,

Damit das funktioniert, musst du eine korrekte Datumseingabe anbieten.
So wie du herangehst, wird das eher eine Termin-Liste, in die man per Hand das Datum eintragen muss.

Übernimm deine Werte aus den Zellen in eine StringList (Sortet = true) beginnend mit dem Datum als TDateTime-Wert,
getrennt durch einen Delimiter.
So kannst du die Werte bequem abspeichern und wieder einlesen. Wenn du soweit bist, kannst du beim Ereignis
GetMonthInfo des TMonthCalendar die Einträge für diesen betreffenden Monat abfragen und
fett darstellen.

mfg
kpeter