Kalender

[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=)