Category : BASIC Source Code
Archive : DATTIM.ZIP
Filename : DATETIM1.FRM
Output of file : DATETIM1.FRM contained in archive : DATTIM.ZIP
FullWindow
"& ÿ DateTime ÿÿÿ h v @ Ò B #þ è ( @ ÀÀÀ ÿ ÿ ÿÿ ÿ ÿ ÿ ÿÿ ÿÿÿ IIII ÙI@ ÙI
ÿÿð Ù@ÿøÿð I
ÿÿýßÿÿð @ÿÿÿÿÿÿÿ @ øÿÿÿÿÿÿÿ ÙÿÿÿÿÿÿÿðÙ
øÿÿÿÿÿÿÿð @ÿÿÿÿÿÿÿ @
xøøÿÿÿÿÿÿÿ
@Oÿÿÿý @
xHøøðpÿý
@ÿÿÿÿ @
wøøðxÿðÿÿ
IðÿðÙ@ x xøøÿÿÿð Ù ÿÿ Ù
wøøøøøÿÿ
ÙwOÙ@ wøøøð
Ù wwp Ù@ ÙIIIII ÿÿÿÿÿÿÿÿÿðÿÿÀÿÿ ÿþ ü ?ø ð ð à à À À À À À À À À à à ð ð ø ü ?þ ÿ ÿÿÀÿÿðÿÿÿÿÿÿÿÿÿ$Form1ÿ"
Zeitmesser ÿ è ÿ Menuÿ&Menuÿÿ MenuClickÿ&Clickÿ
Separator1ÿÿÿ,
MenuFormatÿ dddd ddddd tttttÿÿ*
MenuFormatÿ dddd ddddd hh:mmÿ)
MenuFormatÿ ddd ddddd hh:mmÿ0
MenuFormatÿ dddd d-mmmm-yy h:mm:ssÿ-
MenuFormatÿ ddd dd-mmm-yy hh:mmÿ)
MenuFormatÿ ddd d/m/yy h:mmÿ/
MenuFormatÿ Enter your own formatÿ
Separator2ÿÿÿ MenuAboutÿ &About...ÿ MenuHelpÿ&Helpÿì ü
Q. ÒõZ ë y i Ý/º ä 9ø Ã E ä¡ Ü ¸ ¿ INIFILENAME HelpFilePath¯ DTFormat Form_Unload° Abbrechení WindowState] NORMALN ij WritePrivateProfileString! Left' TopÊ MenuClick Checked¦ x«
MenuFormat3 Caption4
Form_Paint DatTim CurrentXx Width SmallWindow Form_Loadh
Initializeb GetPrivateProfileIntç GetPrivateProfileString Clear_MenuFormat_CheckmarksO TRUEB hModule GetClassWord hWnd GCW_HMODULE GetModuleFileNameò
Zeitmesser Interval Form_Resize MINIMIZEDn MenuAbout_Click TBé NL MenuClick_ClickÇ MenuHelp_Click SH_NORMAL_FOCUS ErrNo MB_OKÛ MB_ICONSTOP MenuFormat_ClickN Index% yw FALSE Zeitmesser_Timer] iZeitmesser; ActiveWindow SystemFocus÷ Wndj GetActiveWindow SetFocusAPI§ DatTimOld GetWindow GW_OWNER Visible GW_HWNDFIRST Flagsµ
SWP_NOMOVEÕ
SWP_NOSIZE SWP_SHOWWINDOW SWP_NOACTIVATE SetWindowPos Separator1_ClickZ v Program related declarations
í DATETIME.INI Z ü ÿÿ
i
y ÿÿÿÿÿÿÿÿ Form_Unload 0¦ X v > To make sure the parameters of the NORMAL window are saved, v : not the ones of the icon in case the form is minimized: ° ¡ v * Write all parameters into DATETIME.INI: í DateTimeí Left Ü Õ Z ¿ º í DateTimeí Top" ä Õ Z ¿ º ë ø E í yes" 2 í no í DateTimeí Click" Z ¿ º ä í DateTimeí FormatString Z ¿ º º ää > ÿÿÿÿ º ø I 0í DateTimeí FormatNumber º Õ Z ¿ º 0< ÿÿ 8 º N ÿÿÿÿ v - Make sure the other form is unloaded also: 7 9 ÿÿÿÿÿÿÿÿ
Form_Paint 0T X ! v D DatTim$ is a global variable containing the text to be displayed: w f | w f /t r 9I 9å Ðß I 0 9å £ E 2 ÿÿ 0å Ð E 8 9 N E 8 v ; SmallWindow shall always follow FullWindow but is hiddeni v as long FullWindow is active: Ü N Ü ä N ä 9 ÿÿÿÿÿÿÿÿ Form_Load 0 X ] $ j v + Get parameters from file (INIFILENAME$):o í DateTimeí Leftå , Z x Ü í DateTimeí Top"ä Z x ä å Ó í DateTimeí Click"í no å ÿ Z º º Á v * Remove trailing Chr$(0) and other stuff Ï À v % Remove leading and trailing blanksr Ü í YES"¦ í TRUE¦ õ í ON¦ õ í 1"¦ õ ë ø å Ó í DateTimeí FormatStringí Enter your own format" å ÿ Z º º Á v * Remove trailing Chr$(0) and other stuff Ï À v % Remove leading and trailing blanksr ä í DateTimeí FormatNumberä Z x º $ « v @ Determine DTFormat$ and put check mark next to active format: º y Ê º ø v . Determine own path to find help file later. v $ First get own path and file name: å Ó i í õ Ý Ò Ò i å º i º Á i v ! - Remove chr$(0) and other stuff v * Remove extension and replace with .WRI: i äÌ í ."ñ i  ÿÿ¤ 1 ÿÿ i i  ÿÿä÷ Á i J ÿÿ i í WRI"£ i v Initialize display string:ÿ í & " " Initializing, one moment please... / Nÿ v ? Load start timer which runs for one second only, then forces: v = WindowState from MINIMIZED to NORMAL to facilitate loadinge v from the WIN.INI load= line:o ä ÿ å èä ' 9 ÿÿÿÿÿÿÿÿ5 Form_Resize 0ø X 3 ¡ Bñ I v 8 Zeitmesser(1) timer when resized from icon to normal: ä 'ä ¦ E å èä ' 2 ÿÿv ( WindowState = MINIMIZED, i.e. an icon v < If resized to icon then stop timer to reduce system load, v < hide the small form and clear text so it does not display v over the icon: ä ä ' Ne x Ne f | w f | 8 v WindowState v 4 Let the small form always follow the primary one: ¡ N ¡ 9 ÿÿÿÿÿÿÿÿ MenuAbout_Click 0 X O $ ! bí
DateTime£ h£ í Copyright © 1991£ h£ í A.C.I. GmbH MicroSysteme£ h£ í Hans-Georg Michna"£ h£ í [email protected]"£ h£ í $ Select Help for more info.£ x 9 ÿÿÿÿÿÿÿÿ MenuClick_Click 0, X n ë ø ô ë ø 9 ÿÿÿÿÿÿÿÿ MenuHelp_Click 0. X v J The help file path of DATETIME.WRI has been determined in Sub Form_Load ä þ O þÿ í
WRITE.EXE i £ @ º ³ ¦ O ÿÿ ¦ º ä ¦ õ I $í WRITE.EXE not found. h£ í Install Windows properly."£ ¯ ¸£ í Error" x 8 9 ÿÿÿÿÿÿÿÿ
Initialize 0r X j v 1 Set general constants that cannot be declared:d å
¬ ä(¬ £ h ä$¬ b 9 ÿÿÿÿÿÿÿÿ MenuFormat_Click 0( X Ç Û Ûä ¦ I v ) Make sure that the window is repaintede v 6 which may have been obscured by the unfolding menu: w x v & Ask user for its own format string: í Date and time codes: h£ í Day:£ b£ í d..dddd"£ h£ í
Month:£ b£ í m..mmmm"£ h£ í Year:"£ b£ í
yy or yyyy£ h£ í Full date: ddddd£ h£ í Hour:"£ b£ í h or hh"£ h£ í Minute:"£ b£ í m or mm"£ h£ í Second: s or ss"£ h£ í Full time: ttttt£ h£ í Date delimiter: /"£ h£ í Example: d/m/yy h:mm£ ä ä í Enter Your Own Format"ä @ í ¦ I 0 ää 0= ÿÿ 2 ÿÿ 0 ä 8 v ' Now try if this string really works: ä þ O þÿ ä ³ ¦ O ÿÿ ¦I 0í Invalid format string: h£ b£ ä £ h£ í J F F First format activated instead. Click on Help to get more information.£ ¯ ¸£ í Format String Error" x 0äî $ Ç 0= ÿÿ 8 8 v ' Common procedure for all menu items: $ « Ê Û ø Û y 9 ÿÿÿÿÿÿÿÿ2 Clear_MenuFormat_Checkmarks 0H X « º ää > ÿÿÿÿ é º ø º N ÿÿÿÿ 9 ÿÿÿÿÿÿÿÿ Zeitmesser_Timer 0z X ò ÿÿ
% ä¦ I v 9 Start timer, runs only for a short time after loading: ¡ B¦ I 0v 6 Just loaded and a short time passed; time to resize 0v 5 to NORMAL, but then put focus back to where it wase 0v (presumably Program Manager): 0 ; 4 0 ° ¡ 0w ò x 0 4 N 4 8 v O The start timer has fulfilled its purpose and will now be disabled for good:a ä 2 ÿÿv , iZeitmesser% = 1, i.e. main seconds timer ë ø E x v I For repaint purposes the string is kept in the global variable DatTim$ / ] y / v Check if got system focus:t ; º º ñ I 0 º 0 w j í w j¦ % 8 I 0v = In case FullWindow was moved put SmallWindow behind again:a 0 0 Ü N Ü 0 ä N ä 0 %I v ! Still have focus: @ Ne x @ / ]ñ E w x 02 ÿÿv Focus was lost: @v ' Replace FullWindow with SmallWindow:l @w x @ Ne x 08 2 ÿÿv 6
Not visible, i.e. borderless SmallWindow is visible 0 %I @ Ne x @w ò x @= ÿÿ 08 0 / ]ñ E Ne x 0v If necessary, bring to top: 0 N í j N íñ I @ § µõ Ãõ Õõ @ N íä ä ä ä ä $ ç 08 8 v Visible/Not Visible 8 v iZeitmesser% = 1 9 ÿÿÿÿÿÿÿÿF ý
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/