Xbase++ ActiceX Gregorian Calendar with MSCOMCT2.OCX

[AUGE_OHR]

hi,

wenn ich mir den GETDAYSTATE Event ansehe bekomme ich "komische" Datum Werte.
ich frage mich ob das was mit Gregorian Calendar zu tun haben könnte ?

p.s. habe den "Titel" angepasst

[brandelh]

Hallo Jimmy,

wir in Europa und in den USA nutzen alle den gregorianischen Kalender

Wenn ich heute (13.09.2008) mein Testprogramm starte, welches mit

Code: Alles auswählen

   ::oDateShow:GetDayBold := {|dDate,nAnz,aValue| qout(dDate,nAnz,aValue) }

den callback codeblock zur Ausgabe nutzt, erhalte ich auf einem Kalender mit der ausgegrauten Anzeige der letzten Woche des Vormonats genau den ersten sichtbaren (grauen) Tag geliefert: 25.08.2009, 42 (Tage werden angezeigt),
{N,N,...} ich denke mal 42 N sind sichtbar, aber die Länge dieses Array ist so lang, dass es keine .t./.f. sein können.

Hier das Bild:

Ich hänge mal den Code an, mit dem ich gearbeitet habe:

[AUGE_OHR]

hi,

wir in Europa und in den USA nutzen alle den gregorianischen Kalender

ich war das wohl auf dem falschen Weg ...

Wenn ich heute (13.09.2008) mein Testprogramm starte, welches mit

Code: Alles auswählen

   ::oDateShow:GetDayBold := {|dDate,nAnz,aValue| qout(dDate,nAnz,aValue) }

den callback codeblock zur Ausgabe nutzt, erhalte ich auf einem Kalender mit der ausgegrauten Anzeige der letzten Woche des Vormonats genau den ersten sichtbaren (grauen) Tag geliefert: 25.08.2009, 42 (Tage werden angezeigt),
{N,N,...} ich denke mal 42 N sind sichtbar, aber die Länge dieses Array ist so lang, dass es keine .t./.f. sein können.

es sind 588 bei einem 1 x Monat Calendar

die ersten beiden Parameter können nützlich sein, aber auch die brauche ich bei meinem
3 Monats Calendar nicht. vielmehr nutze ich den ::oMonthView:value weil der mir ja das
neue Datum für mein SEEK(SUBSTR(DTOS(value),1,6)) // YYYYMM gibt den ich BOLDen
will.

Ich will damit Termine BOLDen und die stehen ja nun in meiner DBF.
Warum soll ich also "sein" BOLD Array füllen wenn ich die Property
"direkt" setzten kann ? ( SEEK/ FOUND / SETProperty )

klar das ist nicht "der" Weg, aber führen nicht viele Wege nach Rom ?

einziges Problem : :MinDate und :MaxDate sollten einen grossen Bereich haben sonst
kommt man bei dem 3 Monats Calendar schnell an ein "out of Range"

Ich hänge mal den Code an, mit dem ich gearbeitet habe:

gute Idee ... jetzt gehen ja Attachments

[brandelh]

die ersten beiden Parameter können nützlich sein, aber auch die brauche ich bei meinem
3 Monats Calendar nicht. vielmehr nutze ich den ::oMonthView:value weil der mir ja das
neue Datum für mein SEEK(SUBSTR(DTOS(value),1,6)) // YYYYMM gibt den ich BOLDen
will.

wenn man den 'richtigen' Weg geht, wird der Kalender bei jedem refresh die richtigen Werte anzeigen (z.B. nach dem Überdecken mit einem anderen Fenster), daher wäre es schon nützlich es ihm richtig unter zu schieben.
Aber wenn man die einzelnen Tage sauber setzen kann, nachdem ein Event ausgelöst wurde ist das auch ok.
Allerdings hatte ich bei meinen Test in diese Richtung ein seltsames Verhalten ausgelöst, der aktive Tag im Kalender flüchtete vor mir - eventuell kann man ja auch mehrere Tage mit einem Befehl setzen ...

[AUGE_OHR]

hi,

wenn man den 'richtigen' Weg geht, wird der Kalender bei jedem refresh die richtigen Werte anzeigen (z.B. nach dem Überdecken mit einem anderen Fenster), daher wäre es schon nützlich es ihm richtig unter zu schieben.

lass ihn doch erstmal "sein" refresh "fertig machen" ... und dann kommst du

Aber wenn man die einzelnen Tage sauber setzen kann, nachdem ein Event ausgelöst wurde ist das auch ok.

und "malst" deine BOLD auf den Kalender

Allerdings hatte ich bei meinen Test in diese Richtung ein seltsames Verhalten ausgelöst, der aktive Tag im Kalender flüchtete vor mir - eventuell kann man ja auch mehrere Tage mit einem Befehl setzen ...

... genau das hatte ich auch bemerkt und zwar auf meinem Notebook. Der ist mit 400Mhz
zwar schnell genug zum surfen, aber der aufbau unter Xbase++ dauert ...

und da sah ich doch wie er die BOLD malte ... und dann waren die "weg" ? also ein SLEEP
eingebaut und "ich sehe es doch" und ... weg ???

also der Trick ist nun das man den GetDayBold Slot nur für die Zuweisung von :MinDate
und :MaxDate benutzt und ihm dann einen PostAppEvent(MY_WAY) schickt um die
nächste Aktion auszulösen ... und die wäre "male" BOLD

... auch am 20081003 ... was ist den da ?

p.s. ich habe dein *.XFF nicht öffnen können, Totalabsturz vom XppFD.EXE
ich wollte eigendlich nur die :Licence Keys einfügen sonst läuft das ganze ja nicht
unter VISTA. Habe es jetzt "manuell" gemacht was natürlich nicht im Sinne des XppFD ist

@Moderatoren : könnte man nicht diesen und die beiden "Vorgänger" Threads zusammen
in die Wissensbasis verschieben ?

[brandelh]

... auch am 20081003 ... was ist den da ?

Ein Feiertag

http://de.wikipedia.org/wiki/Tag_der_Deutschen_Einheit

Ich denke nicht, dass wir die beiden Threads in die Wissensbasis verschieben sollten.
Wenn du es fertig hast, solltest du das Ergebnis in die Wissensbasis stellen und dort
dann 2 Links auf die Threads setzen ... 'wie alles begann ...'

[Muecke]

Hallo zusammen,

Ist es auch möglich das Datum mit dem ::oTimePicker abzufragen ohne zuerst in ::oDateShow das Datum anzuklicken.

Gibts da was? Wo kann ich dies nachlesen.

So könnte ich auf meinem Dialog Platz sparen.

Gruss Thomas

[brandelh]

Hi,

der DateTime-Picker ist ja ein SLE, das den Kalender erst nach anklicken wie bei einer Combobox anzeigt,
somit bräuchtes du den Platz nicht dauerhaft vorhalten. Zusätzlich kann man das Datum aber auch per Hand eingeben
und natürlich per Programm setzen und abfragen. Ich habe eine CHM Datei erstellt und zum Download freigegeben (in meinerm ersten ActiveX Thread ...

http://www.xbaseforum.de/viewtopic.php?f=28&t=2578

und hier noch eine Umfrage zur Frustbekämpfung

http://www.xbaseforum.de/viewtopic.php?f=28&t=2590

[Muecke]

Hubert,

Dier CHM datei hab ich runtergeladen. Nur fehlt mir der Text für die Erklärungen.
Ich weiss nicht was da Falsch sein kann, um die Hilfe richtig angezeigt zu bekommen.

Gruss Thomas

[AUGE_OHR]

hi,

Dier CHM datei hab ich runtergeladen. Nur fehlt mir der Text für die Erklärungen.
Ich weiss nicht was da Falsch sein kann, um die Hilfe richtig angezeigt zu bekommen.

rechte Maustaste / Eigenschaften / Sicherheit freigeben

[Muecke]

Besten Dank es funkt.

Gruss Thomas

[brandelh]

Hallo Muecke,

kann es sein, dass du nicht 'Ziel speichern' gewählt hast ?
Beim einfachen anklicken wird die Datei vom Server direkt gestartet (auf vom WWW-Server) ...

[Muecke]

Hallo Hubert,

Ich hab die Datei runtergeladen und gespeichert.
Danach hab ich wie oben, von Jimmy´s Tip, die Sicherheit freigeben und es funktioniert .

Gruss Thomas

[AUGE_OHR]

hi,

es ist doch noch ein "kleiner BUG" drin.

man kann ja, im Title, direkt auf den Monat clicken, um damit einen Monat auszuwählen.

Das wird nun durch :MinDate / :MaxDate "falsch beschränkt" sodass er sich nur +/- 1 Monat
"bewegt" egal welchen Monat man nimmt.

Ich brauche das für meinen 3 Monats Kalender, aber das Sample zeigt ja nur 1 Monat.

folgenden Änderungen sind deshalb "besser" :

a.) lege die Class VAR dCalDay und VAR nCalDays

b.)

Code: Alles auswählen

METHOD NewForm:GetDayState(dDate,nDays,aDayState)
   ::dCalDay   := dDate
   ::nCalDays  := nDays
RETURN aDayState

c.)

Code: Alles auswählen

METHOD NewForm:SetDayState()
LOCAL dStartDay := ::dCalDay
LOCAL dMin      := ::dCalDay
LOCAL nAnz      := ::nCalDays
LOCAL dMax      := ::dCalDay+nAnz