Kalender?

[Bebe]

Hallo erstmal,

gleich eine Frage. Meinst du eigentlich eine Kalender Komponente, also "nur" eine Monatskalender, wie von TMS der TPlannerCalendar oder meinst du eher ein echten Planer oder Scheduler, wo die Event auf einen Zeitstrahl dargestellt werden?

Bei der TPlannerCalender Komponente kannst du z. B. mit ...

Delphi-Quellcode:

   with PlannerCalendar1.Events.Add do
   begin
     Date := EncodeDate(2010, 03, 22);
     Hint := 'Meeting 1';
     Color := clRed;
     Shape := evsRectangle;
   end;

... Events hinzufügen.

Gruß
Matze

[Sanguis]

Guten Abend,

danke, genau das hab ich gesucht

Sieht gut aus, jetzt muss ich das nur noch per Drag&Drop hinbekommen *g*

Gruß und Dank,
Andreas

[Sanguis]

So, den Drag hab ich hinbekommen. Nur beim Drop bekomme ich das ausgewählte Datum nicht? Wie bekomme ich das raus? Leider zeigt der Planner auch keine Captions von Events an...

[Bebe]

Versuche es mal mit dieser Funktion

 function DateAtXY(x, y: Integer; var ADate: TDateTime): Boolean;

[Sanguis]

Hallo,

hab ich... aber leider hab ich die Parameter nicht und kann mit dem Rückgabewert nichts anfangen...

Gruß,
Andreas

[wicht]

Das var-Schlüsselwort sagt, dass eine Referenz auf ein TDateTime übergeben wird.
Das heißt für dich, dass in der Variable, die du da mitgibst, wohl nach dem Funktionsaufruf der Wert drin steht, den du gerne möchtest. Und das Ergebnis ist Boolean - sagt vermutlich aus, ob der Aufruf geklappt hat oder nicht...

[Sanguis]

Eben... und die Tdatetime kann ich nicht übergeben, da ich sie nicht kenne. Ich möchte sie ja beim drop auslesen...

[wicht]

Hast du dich mal in irgendeiner Art über das var-Schlüsselwort informiert...?

Delphi-Quellcode:

var
  d: TDateTime;
begin
  if DateAtXY(4, 5, d) then
    ShowMessage(DateToStr(d)); // Glaube es hieß DateToStr...
end;

HTH

[Bebe]

Genau richtig was wicht sagt.

Du übergibst die Position per X und Y an die Funktion und das ermittelte Datum (ADate: TDateTime) aus der Funktion übergibst du dem Event was ich weiter oben schon beschrieben habe.

[Bebe]

@Sanguis : Aber sie wird doch dabei ausgelesen...