Subversion Repositories delphiutils

#Ý‚½Q<^ñ˜Main–<rMain.dfmr½Q<pMain.pas½Q<dSystemfTObject|ê®ìfBooleanúefCardinalIÐáKgTObject.Dispatchµ
ĄgTObject.NewInstance·
ĄgTObject.FreeInstance¸
ĄgFillChargSizeOfg @FillCharž$šfstring¶+{Ÿf
AnsiString¶+{ŸgTObject.Free¢
ĄgTruevɚøgFalsesɚøg@HandleFinallyé`pÅcdSysInitcdWindowsfTPointçØgSetForegroundWindowÀªBgGetCursorPosÒQ¾>fTHandleIÐáKfDWORDIÐáKgIsIconicÀªBg
ShowWindowðŸ’Jg
SW_RESTOREÇ}ç1gGetForegroundWindowñöãgVER_PLATFORM_WIN32_NT²}ç1gVER_PLATFORM_WIN32_WINDOWS¯}ç1gGetWindowThreadProcessId!ߢMgAttachThreadInputzUƒgBringWindowToTopÀªBgSystemParametersInfo„ÞíígSPIF_SENDCHANGE²}ç1cdMessagesgWM_USER-þò1fTMessageÝ=5fTWMQueryEndSession ñgWM_QUERYENDSESSIONß}ç1gWM_LBUTTONDBLCLK6øò1gWM_RBUTTONUP<øò1cdSysUtilsg
Win32Platformø[TægWin32MajorVersionø[TægWin32MinorVersionø[TæcdVariantscdClassesgTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!FqcdGraphicsgTIcon.GetHandlet©cdControlsgTWinControl.AssignTo<¾ßgTWinControl.CanAutoSize<¾ßgTWinControl.CanResize<¾ßgTWinControl.ConstrainedResize<¾ßgTWinControl.CreateHandle<¾ßg#TWinControl.CustomAlignInsertBefore<¾ßgTWinControl.CustomAlignPosition <¾ßgTWinControl.DestroyWnd$<¾ßg!TWinControl.DockReplaceDockClient'<¾ßgTWinControl.GetClientOrigin5<¾ßgTWinControl.GetControlExtents7<¾ßgTWinControl.GetDeviceContext8<¾ßgTWinControl.SetParentBackgroundW<¾ßgTWinControl.ShowControlY<¾ßg+TWinControl.UpdateControlOriginalParentSize[<¾ßgTWinControl.Invalidate<¾ßgTWinControl.Repaint•<¾ßgTWinControl.SetBounds˜<¾ßgTWinControl.Update›<¾ßgTControl.GetActionÄ×ïYgTControl.GetDragImagesÊ×ïYgTControl.GetEnabledË×ïYg!TControl.GetFloatingDockSiteClassÍ×ïYgTControl.SetAutoSizeÞ×ïYgTControl.SetDragModeß×ïYgTControl.SetEnabledà×ïYgTControl.SetNameá×ïYgTControl.SetBiDiModeå×ïYgTControl.InitiateAction(ØïYgTWinControl.GetHandleœ;¾ßcdFormsfTForm!€³5g.TFormT‘‡gTCustomForm.AlignControls~C)gTCustomForm.CreateParams~C)gTCustomForm.CreateWindowHandle~C)gTCustomForm.CreateWnd~C)gTCustomForm.DefineProperties~C)gTCustomForm.DestroyHandle~C)gTCustomForm.DestroyWindowHandle~C)gTCustomForm.DoCreate~C)gTCustomForm.DoDestroy ~C)gTCustomForm.GetClientRect%~C)gTCustomForm.GetFloating'~C)gTCustomForm.Loaded*~C)gTCustomForm.Notification+~C)gTCustomForm.PaintWindow-~C)gTCustomForm.QueryInterface/~C)gTCustomForm.ReadState0~C)gTCustomForm.RequestAlign1~C)gTCustomForm.SetParentBiDiMode3~C)gTCustomForm.SetParent5~C)gTCustomForm.UpdateActions6~C)gTCustomForm.ValidateRename8~C)gTCustomForm.WndProc:~C)gTCustomForm.Resizing;~C)gTCustomForm.Createt~C)gTCustomForm.CreateNewu~C)gTCustomForm.Destroyv~C)gTCustomForm.AfterConstructionw~C)gTCustomForm.BeforeDestructionx~C)gTCustomForm.CloseQueryz~C)gTCustomForm.DefaultHandler{~C)gTCustomForm.SetFocusˆ~C)gTCustomForm.SetFocusedControl‰~C)gTCustomForm.ShowModal‹~C)gTCustomForm.WantChildKeyŒ~C)g%TScrollingWinControl.AdjustClientRectµ<Åg&TScrollingWinControl.AutoScrollEnabled·<Åg%TScrollingWinControl.AutoScrollInView¸<ÅgApplicationç_šgTCustomForm.SetClientWidthÇ}C)gTCustomForm.SetClientHeightÆ}C)gTCustomForm.ShowŠ~C)gTCustomForm.Hide€~C)gTCustomForm.Closey~C)cdDialogscdComCtrlsfTMonthCalendaráqÙPgTCommonCalendar.SetWeekNumbersyYôcdShellAPIfTNotifyIconData[ÓÈKgNIF_MESSAGE¯}ç1gNIF_ICON²}ç1gNIF_TIP¸}ç1gShell_NotifyIcon¾A/ág
NIM_DELETE²}ç1gNIM_ADD¬}ç1cdMenusf
TPopupMenuŸ <f        TMenuItem1“™g.TPopupMenuørþg
.TMenuItemópëceCommCtrlceFullYearCalendarfTFullYearCalendar¿ý‰g.TFullYearCalendarö’ÛÛgTFullYearCalendar.Create=ß"c5Main€_¸ŽÏc5Systemc5SysInit$c5Windows&c5MessagesHc5SysUtilsVc5Variants^c5Classes`c5Graphicsjc5Controlsnc5Forms¬c5Dialogsc5ComCtrlsc5ShellAPI!c5MenusAc%WM_TASKABAREVENTŠ0þò1"&
.TMainForm€,-Š$*   TMainFormˆI=O8& MainFormæW£h8&H7.2F(5CommCtrlUc5FullYearCalendarYc(TMainForm.TaskbarEvent€w]dВˆ*&!Self&"Msg Pointfcœ
Á&(TMainForm.NotifyIconChange€y]dÐáˆ*&!Self&!    dwMessage NotifyIconDatafcœ
Ñ&(TMainForm.FormDestroy€q]dÐ8ˆ*&!Self&!Sendercœ
á&(TMainForm.FormCreate€r]dиˆ*&!Self&!Sendercœ
í&(ForceForegroundWindowy!hwnd Result%SPI_GETFOREGROUNDLOCKTIMEOUT
"
%SPI_SETFOREGROUNDLOCKTIMEOUT
"
 ForegroundThreadID
 ThisThreadID timeoutfc(TMainForm.Vordergrund€{]dÐ0˜*&!Self&cœ
&(TMainForm.FormCloseQuery€s]dÐ2ˆ*&!Self&!Sender"CanClosecœ
!&(TMainForm.OnQueryEndSession€x]dÐ0ˆ*&!Self&"Msgcœ
1&(TMainForm.Anzeigen1Click€t]dÐˆ*&!Self&!Sendercœ
=&(TMainForm.Beenden1Click€u]dЈ*&!Self&!Sendercœ
I&(Finalization€é`pÅ\!*cž(Main€!*cžþD(ûÿñG&-F@­á
©
‘þÐ&,
PopupMenu1

œ
Y&,        Anzeigen1
‘
œ
]&,Beenden1
¡
œ
a&.FormDestroy
îሜ
e&.
FormCreate
î툜
i&.FormCloseQuery
î!ˆœ
m&.Anzeigen1Click
î=ˆœ
q&.
Beenden1Click
îIˆœ
u&,      RealClose±
œ
y&.TaskbarEvent
Áˆœ
}&.OnQueryEndSession
"1ˆœ
&.NotifyIconChangeîшœ
…&,calÁ
œ
‰&.Vordergrund
&cD(€ÿÿÿ @lQLP
†
é
÷
t
`
PopupMenu1d
        Anzeigen1h
Beenden1FormDestroy
FormCreateFormCloseQueryAnzeigen1Click
Beenden1Click
  TMainForm        TMainFormLhMainSƒÄø‹Ø‹B-tƒètë.‹Ãèë%‹ÃèPèTè‹L$‹$‹ƒ`‹ÿS@YZ[ÃSVWÄþÿÿ‹ò‹Ø‹Ä3ɺè
èÇ$è
‹Ãè‰D$ÇD$ÇD$
¡‹‹€ è‰D$V¾x|$¹ ó¥^TVèÄè
_^[ÃKalenderS‹Ø‹ƒp躋Ãè[ÃSV‹Ø3ҋÃè‹Ë²
¡è‹ð‰³p‹Ó‹Æ‹ÿQl²
‹ƒp苃p‹PH‹Ã苃p‹PL‹Ãè^[ÃSVWUQ‹ðVè…Àtj     Vèè;ðu³
éí¡ƒ8u
¡ƒ84¡ƒ8
…µ¡ƒ8¡ƒ8…¡ƒ8Ž3ÛjèPè‹øjVè‹èjÿWUè…ÀtVèVèjWUèè;ð”ÄÛuPjD$Pjh èjjjh
 èVèVèj‹D$Pjh
 èëVèVèè;ð”ËÃZ]_^[ÃS‹Ø‹Ãè‹Ãèè[ÃSV‹ñ‹Ø‹Ã趃lˆ^[ÃS‹Úƀl
èÇC
[ÃèÃƀl
èÃU‹ì3ÀUh%dÿ0d‰ ÿ3ÀZYYd‰h,Ãéëø]Ã-
Ãm©
© 
­
©
©
©
©
°
f
æ
è

ì


ä
p
º
h
È
Ê
Ð
¤
b
Ú
d
Î
à
t
r
v
–
‚
Ä
†
˜
š
Æ
œ
Ò
ž
 
¢
Ö
Ô
¦
Ü
¨
Ž

’
”
ö
²
x
´
¶
¸
z
|
¼
¾
~
€
„
Ì
ˆ
Š
Œ
î
ø
ú
Þ
À
Â
Ø
â
ê
ð
ò
ô
©p
á$
í"
!*
=*
I0
Á
1 
M
Q­
­
©
®Á4ª*,4Ñ.ª2ül
Ñ&5AáÑíÑ
a
e< þ 
ù24
8 XZXZZ\$8>>@B*@
88D DB*&DB*
8"ª
ù!       1
=
I

U
U
µ
U"
µ
Œd­"
$
,$1,  $ & 
*


^‘A’&&“vš¥­­­­ á$"È­"í&$Ô­
$!(&Ý­&=*(­(I,*%­*­.Á40^­0184õ­4Ñ:8¨­8­<B@Å­@±HÅCN_É^ÍbE ýšÕ—sí'٨ݬåä‘ÌéÈýÌñõÔ]ýÜùðýð
òô  ö
úüþ%hi T)Ý-Ý594A8—àEMQ%U=”zÁ`ÅÉÉ.þÅŠþÑ`¡pÕÙÕZþÙØþá@åå4þí@0ññ²þùÐðý
æ
  
1
eþ
¹þ¹þ
á
ñþýYþ
Y@,þ!`0%-%,þ-,þ1`595þ9,þ=@AA
þI@MMþU  a