strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

#96494# Kwanzaa Holiday thrown out

Browse source
This commit is contained in:
Behrend Cornelius 2002-01-22 11:59:16 +00:00
parent 07bfb1fd02
commit e56b734f1b
8 changed files with 7 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
wizards/source/schedule/CalendarMain.xba
View file

@ -115,6 +115,8 @@ Dim iThisMonth as Integer
DlgCalendar.GetControl("lstHolidays").SelectItemPos(0,True)
DlgCalModel.cmdGoOn.DefaultButton = True
ToggleWindow(True)
DlgCalendar.GetControl("lblHolidays").Visible = sCurLangLocale = cLANGUAGE_GERMAN
DlgCalendar.GetControl("lstHolidays").Visible = sCurLangLocale = cLANGUAGE_GERMAN
fHeightCorrFactor = DlgCalendar.GetControl("imgCountry").Size.Height/198
fWidthCorrFactor = DlgCalendar.GetControl("imgCountry").Size.Width/166
DlgCalendar.Execute()

2
wizards/source/schedule/DlgCalendar.xdl
View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="Dialog1" dlg:left="160" dlg:top="81" dlg:width="208" dlg:height="156" dlg:page="2" dlg:help-url="HID:34700">
<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="Dialog1" dlg:left="160" dlg:top="81" dlg:width="208" dlg:height="156" dlg:page="1" dlg:help-url="HID:34700">
<dlg:styles>
<dlg:style dlg:style-id="0" dlg:border="none"/>
<dlg:style dlg:style-id="1" dlg:font-name="Cumberland" dlg:font-stylename="Standard" dlg:font-family="modern" dlg:font-charset="ansi"/>

1
wizards/source/schedule/DlgControl.xba
View file

@ -8,7 +8,6 @@ Public fHeightCorrFactor as Double
Public fWidthCorrFactor as Double
&apos; Todo: Adjustmentlistener an der Scrollbar anmelden
Sub Main()
Call CalAutopilotTable()

3
wizards/source/schedule/Language.xba
View file

@ -23,9 +23,6 @@ Dim i as Integer
Const dlgMonth = 1200
&apos; Abreviated months start 1225
Const dlgShortMonth = 1225
DlgCalendar.GetControl(&quot;lblHolidays&quot;).Visible = LangLocale = cLANGUAGE_GERMAN
DlgCalendar.GetControl(&quot;lstHolidays&quot;).Visible = LangLocale = cLANGUAGE_GERMAN
If InitResources(&quot;schedule&quot;, &quot;cal&quot;) Then
If LangLocale = cLANGUAGE_GERMAN Then

7
wizards/source/schedule/LocalHolidays.xba
View file

@ -285,12 +285,6 @@ Dim lElectDate as Long
CalInsertBankholiday(DateSerial(YearInt, 12, 7), &quot;Pearl Harbor Remembrance Day&quot;, cHolidayType_Half)
CalInsertBankholiday(DateSerial(YearInt, 12, 24), &quot;Christmas Eve&quot;, cHolidayType_Half)
CalInsertBankholiday(DateSerial(YearInt, 12, 25), &quot;Christmas Day&quot;, cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt, 12, 26), &quot;Kwanzaa&quot;, cHolidayType_Half)
CalInsertBankholiday(DateSerial(YearInt, 12, 27), &quot;Kwanzaa&quot;, cHolidayType_Half)
CalInsertBankholiday(DateSerial(YearInt, 12, 28), &quot;Kwanzaa&quot;, cHolidayType_Half)
CalInsertBankholiday(DateSerial(YearInt, 12, 29), &quot;Kwanzaa&quot;, cHolidayType_Half)
CalInsertBankholiday(DateSerial(YearInt, 12, 30), &quot;Kwanzaa&quot;, cHolidayType_Half)
CalInsertBankholiday(DateSerial(YearInt, 12, 31), &quot;Kwanzaa&quot;, cHolidayType_Half)
CalInsertBankholiday(DateSerial(YearInt, 12, 31), &quot;New Year&apos;s Eve&quot;, cHolidayType_Half)
CalInsertBankholiday(CalEasterTable(YearInt), &quot;Easter Sunday&quot;, cHolidayType_Half)
@ -491,7 +485,6 @@ Dim lDate as Long
End Sub
&apos; Todo: Was passiert mit den Jahren vor 1980?
Function CalculateJapaneseSpringDay(iSelYear as Integer)
If (iSelYear &gt; 1979) And (iSelYear &lt; 2100) Then
CalculateJapaneseSpringDay() = Int(20.8431 + 0.242194)* (iSelYear-1980) - (Int((iSelYear-1980)/4))

1
wizards/source/schedule/OwnEvents.xba
View file

@ -117,7 +117,6 @@ Dim CurEvDay as Integer
CurEvMonth = CalGetMonthOfEvent(i)
CurEvDay = CalGetDayOfEvent(i)
If DateSerial(CurEvYear, CurEvMonth, CurEvDay) = NewDate Then
&apos; Todo: Abchecken wie das ist mit &apos;Ereignis einmalig&apos; oder nicht
DlgCalendar.GetControl(&quot;lstOwnData&quot;).RemoveItems(i,1)
DlgCalendar.GetControl(&quot;lstOwnData&quot;).AddItem(DateStr, i)
bInserted = True

4
wizards/source/schedule/dialog.xlb
View file

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Schedule" library:readonly="true" library:passwordprotected="false">
<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Schedule" library:readonly="false" library:passwordprotected="false">
<library:element library:name="DlgCalendar"/>
</library:library>
</library:library>

4
wizards/source/schedule/script.xlb
View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Schedule" library:readonly="true" library:passwordprotected="false">
<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Schedule" library:readonly="false" library:passwordprotected="false">
<library:element library:name="OwnEvents"/>
<library:element library:name="CalendarMain"/>
<library:element library:name="BankHoliday"/>
@ -9,4 +9,4 @@
<library:element library:name="CreateTable"/>
<library:element library:name="GermanHolidays"/>
<library:element library:name="LocalHolidays"/>
</library:library>
</library:library>