Kalender

[KleineAerztin]

Hallo Leute!!

Also ich hab ein kleines Problemchen. Ich soll für die Schule einen Kalender mit Delphi programmieren und habe so gut wie keine Ahnung, wie das wohl funktionieren könnte. Kann mir vlt jemand helfen?

[Die Muhkuh]

Hi,

nimm bitte mal die ganzen Ausrufezeichen aus dem Titel raus, die stören doch etwas.

Für den Kalender gibt es sogar eine gleichnamige Komponente. :zwinker:

[DeddyH]

Hallo und Willkommen in der DP :dp:,

da die Infos so dürftig sind, bitte ich Dich, einmal das hier zu lesen.

[KleineAerztin]

Was soll ich denn da noch hinschreiben?


Ich hab keine Ahnung, wie man das Programm benutzt.

Ich weiß, dass wir einen Kalender erstellen sollen, der die Tage eines Monats mit Wochentagen verbindet, der weiß,

wie viele Tage die einzelnen Monate haben und der mir einen Jahresüberblick liefern kann.

Sind das jetz genug Informationen?

[DeddyH]

Zumindest schon einmal mehr als im Ausgangspost. Was ist denn mit dem Jahresrückblick genau gemeint?

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Zumindest schon einmal mehr als im Ausgangspost. Was ist denn mit dem Jahresrückblick genau gemeint?

Wie viele Monate es im letzten Jahr gab. :lol:

[KleineAerztin]

Überblick. Also, dass man die ganzen Monate auf einen Blick sieht und die dann auch anklicken kann, damit sich die

dann anschauen kann.

[DeddyH]

Das kann ich mir zwar nur schwer bildlich vorstellen, aber eine Monatsauswahl könnte man z.B. mit einer ComboBox realisieren, worauf ein TMonthCalendar mit dem ausgewählten Monat sichtbar wird oder etwas in der Art.

[KleineAerztin]

Und was versteht man unter einer ComboBox? Und einem TMonthCalender?

[DeddyH]

Das sind beides Komponenten, die bei Delphi schon dabei sind.

[Klaus01]

.. oder meinst Du, dass Du ein beliebiges Datum hast
und dazu passend die Anzahl der Tage des entsprechenden Monats suchst?

Wenn dem so sein soll, mal in die Hilfe schauen:

Zitat:

Zitat von DelphiHilfe

Unit
DateUtils

Category
date/time routines

Delphi-Quellcode:

function DaysInMonth(const AValue: TDateTime): Word;

Description
Call DaysInMonth to obtain the number of days in the month of the TDateTime value specified by AValue.

Grüße
Klaus

[Die Muhkuh]

Hi,

ich glaube Dir fehlen so ziemlich alle Grundlagen. Les Dich erstmal auf www.dsdt.info ein.

[DeddyH]

Nun ist die Frage, ob mit "for Kids" Delphi for Kids gemeint ist und wenn ja, welche Ausgabe (Delphi 3 oder Delphi 7). DateUtils gibt es erst seit Delphi 6 oder 7.

[edit] Delphi-Crashkurs [/edit]

[KleineAerztin]

Nein , das meinte ich eig nicht.

Ich miente schon, dass man einen Überblick über das ganze Jahr hat mit den Monaten...

Aber ich find ersteinmal wichtiger, das Monatsblatt so hinzubekommen, dass es funktioniert.

[Die Muhkuh]

Ohne Grundlagen wirst Du aber nicht weit kommen. :zwinker:

[KleineAerztin]

Mit For Kids isrt Delphi for Kids gemeint. Wir benutzen Delphi 3.

[Die Muhkuh]

Delphi for Kids ist ja nur ein Buch, in dem alles schön erklärt wird. Alternativ eben die Links von Detlef oder mir.

[Klaus01]

Zitat:

Zitat von KleineAerztin

Aber ich find ersteinmal wichtiger, das Monatsblatt so hinzubekommen, dass es funktioniert.

Ein Monatsblatt könnte zum Beispiel ein StringGrid sein, welches Du mit
der entsprechenden Anzahl von Tagen füllst.
Die Anzahl der Tage der Monate sollte eigentlich bekannt sein
und sie sind auch relativ konstant.
Relativ weil ab und an (in der Regel alle 4 Jahre) ein Schaltjahr ist
und dann der Februar 29 Tage hat.

Grüße
Klaus

[DeddyH]

Und für die Berechnung eines Schaltjahres gelten auch "merkwürdige" Regeln.

[KleineAerztin]

Das mit em Schaltjahr hab ich auch schoneinmal programmiert.

Ich hab auch schon ein Monatsblatt. Es sieht sehr schön aus, finde ich, nur leider funktioirt es ncoh nciht....

[Oreaden]

Guten Abend KleineAerztin,

leider stößt auch meine Fantasie an ihre Grenzen, wäre es Dir möglich eine kleine Grafik anzuhängen, von dem, wie es denn aussehen sollte? Damit wir hier eine bildliche Vorstellung davon bekommen, was Du denn möchtest. Auch wird es Dir selbst helfen klar zu werden, was Du denn gerne machen möchtest.

Vielen Dank
OREADEN

[Klaus01]

Zitat:

Zitat von KleineAerztin

Das mit em Schaltjahr hab ich auch schoneinmal programmiert.

Ich hab auch schon ein Monatsblatt. Es sieht sehr schön aus, finde ich, nur leider funktioirt es ncoh nciht....

Funktioniert nicht ist keine gute Fehlermeldung.

Zeig doch mal was Du hast und wie Du das Monatsblatt befüllst, bzw. woraus das Monatsblatt besteht.

Grüße
Klaus

[KleineAerztin]

Zeigen? Wie das?

Und mit funktioniert nicht meine ich, dass ich keine Funktionen drinnen hab, da ich nicht weiß, wie ich diese

eingeben muss...

[Die Muhkuh]

Du könntest mal das Projekt anhängen und uns zeigen, was Du schon gemacht hast.

[DeddyH]

Mir würde schon ein Screenshot fürs Erste genügen.

[KleineAerztin]

Ok... Ich werds versuchen ... Ich garantiere nicht, dass es klappt.

[Matze]

Hallo,

du musst schon alles anhängen (dpr, pas, dfm). Am besten, du zippst das ganze Projektverzeichnis und hängst es hier an.

Grüße

[DeddyH]

Nimm Dir mal die *.dpr sowie alle eigenen *.pas und die dazugehörigen *.dfm, pack die in ein Zip-Archiv und hänge das dann an.

[edit] Matze :lol: [/edit]

[KleineAerztin]

Okay...

[KleineAerztin]

Und hier dfm

[Die Muhkuh]

:wall:

Zippen...

[Oreaden]

Herzlichen Dank, KleineAerztin,

danke für die .DFM was möchtest Du da in die einzelnen Spalten eintragen, den jeweiligen Tag des Monats oder etwas anderes und wie soll die Auswahl des Datums erfolgen, manuell durch Eingabe des Jahres/Monats/Tages oder wäre hier auch ein abweichender Auswahlmodus willkommen. Aktuell stehe ich noch etwas im Wald, aber dies ist bei mir nichts ungewöhnliches.

Schöne Grüße
OREADEN

[Klaus01]

... weil Weihnachten war

Delphi-Quellcode:

function schaltJahr(jahr:Integer):Byte;
begin
  // gibt 0 zurück wenn jahr kein Schaltjahr ist
  // gibt 1 zurück wenn jahr ein Schaltjahr ist
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  dayCount : Byte;
  i : Byte;
begin
  case (monatsAuswahl.Items.IndexOf(monatsAuswahl.Text)+1) of
    1,3,5,7,8,10,12 : dayCount:=31;
    2               : dayCount := 28 + schaltJahr(StrToInt(jahresAuswahl.Text));
  else
    dayCount := 30;
  end;

  for i:=0 to 35 do
    begin
      if i <= dayCount -1 then
        kalenderBlatt.Cells[(i) mod 7, (i) div 7]:=IntToStr(i+1)
      else
        kalenderBlatt.Cells[(i) mod 7, (i) div 7]:='';

    end;
end;

Was benutzt wurde,
2 x ComboBox (monatsAuswahl, jahresAuswahl)
1 x StringGrid ( 7 Spalten 5 Zeilen)

Grüße
Klaus

[KleineAerztin]

Hallo=)

lso, das mit dem Kalender habe ich jetzt geschafft =)

Danke, dass ihr euch mit dem Thema befasst habt =)

Aber ichhätte ncoh eine kleine Frage. Könntet ihr mir vielleicht sagen, wie man Bilder in den Kalender mit einfügen

kann?

[Klaus01]

Eine Image Komponente auf die Form ziehen/ablegen
und dann ein Bild einladen. Das geht im OI - oder auch per Code.

.. wo willst Du das Bild denn hinhaben?

Grüße
Klaus

[KleineAerztin]

Also das Bild wollte ihc mit aufs Kalenderlatt haben....

Und was du da geschrien hast, habe ich leider nicht verstandn :(

[Klaus01]

Entschuldige wenn ich undeutlich war.

In Deinem Delphi gibt es den Reiter Additionl/Zusatz oder so ähnlich (habe ein englisches Delphi)
Dor findest Du die Komponente TImage.
Im OI (Object Inspector) kannst Du dann ein Bild auswählen (Picture anklicken).


Grüße
Klaus

[KleineAerztin]

Achso =)

Hört sich ja gar nicht sooo schwer an =)

Ich geb Bescheid, ob es funktioniert hat, wenn ich das ausproiert habe =)

Danke schön schonmal=)