StringGrid, Jahreskalender + Monatsanzeige

[Lannes]

Hallo,

achso, das meinst Du, das hab ich auch so eingebaut, damit die Ansicht einheitlich und ruhiger bleibt.
Wo soll beim horizontalen Scrollen der Monat ausgegeben werden?

Code:

|      Januar|Februar               |März         |

so sieht es imho besser aus:

Code:

|Januar      |        Februar       |           Mä|

Die Ausgabe des Monats passiert in dem Codestückchen:

Delphi-Quellcode:

    if aTag in [15..20] then  
        Canvas.TextOut(R.Left+2-((aTag-15)*17),R.Top+2,LongMonthNames[aMonat]);

Immer wenn eine Zelle oberhalb der Tage 15. bis 20. des jeweiligen Monats gezeichnet werden muss, wird der Monat über diesen Zellenbereich ausgegeben. Wenn man die Bedingung und den Ausgabebereich bezogen auf LeftCol variabel hält, ist jede denkbare Ausgabeart möglich.