The Mother of All Windows Books

home *** CD-ROM | disk | FTP | other *** search

/ The Mother of All Windows Books / CD-MOM.iso / cd_mom / utility / clocketc / att / attset.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1993-08-29 | 31KB | 406 lines

Settings All the Time Settings zwwwgxxxv wwwwgggg wwwwgvt wwwwgHXXG zzwwvt{ vfqqvfzvwG jgwvO jjgvvO jzzwwO wwv||dDD vvwgwwwwwwwwww gwwwvwww{{{{{w vvvvwwww HHGgvww{y vwwwwwqwww Ggww{{q{{w |vwwqq Form15h Check3D1 SSCheck User && GDI Command2 More... Command2 S&et Time... Hourly SSCheck Multi-Ding Command4 For tabs Command4 For tabs Check3D1 SSCheck P&rint Monitor OrderPanel SSPanel MS Sans Serif OrderPanel SSPanel MS Sans Serif OrderPanel SSPanel MS Sans Serif OrderPanel SSPanel MS Sans Serif OrderPanel SSPanel MS Sans Serif Command2 &Sound... Check3D1 SSCheck &Largest B-lock Chime SSCheck S&ound FullScreen SSCheck &W-i-d-e SpacesScr Check3D1 SSCheck Dis&k Space Option3D1 SSOption &5 - Center Check3D1 SSCheck + Men&u Panel3D1 SSPanel DriveList Option3D1 SSOption &3 - Bottom right Option3D1 SSOption &4 - Bottom left Option3D1 SSOption &2 - Upper right Option3D1 SSOption &1 - Upper left MS Sans Serif Command3 Cancel Command1 Check3D1 SSCheck Sun &and Moon and Tree Frame3D1 SSFrame &Hotkeys Text1 Text1 Text1 Label1 + Menu: [Alt]+ Label1 Rotate: [Alt]+[Ctrl]+ Label1 Toggle: [Alt]+[Ctrl]+ CMDialog1 CommonDialog Sound files (*.wav)|*.wav wav%p Command2 Fo&nt... Check3D1 SSCheck Resour&ces Check3D1 SSCheck &Memory / Check3D1 SSCheck &Time TimeList Check3D1 SSCheck &Date DateList StayOnTop SSCheck Sta&y On Top Shape1 Picture800 Picture640 Label2 S&pacing FileMenu &File FileExit E&xit FileSep FileAbout &About All the Time... Check3D1_Click) Index Value Moved LastTime Check3D1 Enabled FontChangedNotYetSized LastJob< gCheck3D1# Chime_Click gChime PlayOnceOnly Command2 Hourly} Cancelling LastHourp Command1_Click SaveSettingsToIni@ gSettingsVisible Command2_ClickE CMDialog1 FontNamed AllTheTime FontSize/ FontBold FontItalics FontUnderline FontStrikethru Color ForeColor Flags2 CF_SCREENFONTSf CF_USESTYLE CF_EFFECTS CF_FORCEFONTEXIST CancelError DialogTitleD Action SetOrderColors OFN_HIDEREADONLYx gCMDialog1Filename Filename_ SetTimeForm SavedtGiveaway gtGiveawayb SavedtDelay/ gtDelayT AdvSettings Command3_Click LoadGlobalsFromIniZ Command4_GotFocus Command3 DateList_Change gDateList- DateList9 DateList_Click} DriveList_Change gDriveList DriveListZ DriveList_Click FileAbout_Click Form3 FileExit_Click FinalProcessing @ Form_Load xDPIM yDPIi Picture640 Picture800s TimeList: gTimeList` LoadSettingsFromGlobals" PositionATT Form_LostFocusp Form_QueryUnload Cancel? UnloadMode FullScreen_Click' gFullScreen PosLeft SpacesScr OldWid Hourly_Click gHourly lpReturnedString MyGetProfileString DecodeQuotes StayOnTop gStayOnTop Chime FullScreen Text1! gText1 gSpacesScr Option3D1 gOption3D1 OrderPanel gOrderPanelTag SetUpVirtualKeys Option3D1_Click gPositioning OrderPanel_DragDrop Source ControlL SourceNum_ TempPicTag TempPicCap Caption SpacesScr_Change StayOnTop_Click SetStayOnTopq Text1_Change3 Text1_GotFocus SelStart SelLength TimeList_Change TimeList_Click GTimerRunning GDeltaRunning StopWatch Picture MoonSun GraphicCell Delta gSaveGaugesOn gGaugesOn gSavedGaugesOn TurnGaugesOn TurnGaugesOff The computer was originally done in MacDraw using gray patterns. In fact, that's Doyle's computer which, at the time, was hot stuff.= But then it was in PowerPoint as clip art and I did a screen capture and pasted it into studio 32 and reduced it 50%, which made all of the grays blend together in its little anti-aliasing way.d So then I went in with the supposed 16-colors-made-for-the-PCl and substituted patterns made with those grays.a And then I went and copied it and pasted it into Giffer and saved it as= a GIF file.w Then I opened it in PaintShop on the PC and fixed the boo-boos.e Check3D1_Click Call SetSize Chime_Click Command1_Click Command2_Click Choose Sound File Command3_Click Command4_GotFocus DateList_Change Check3D1(0).Value = True DateList_Click DriveList_Change DriveList_Click FileAbout_Click FileExit_Click DeleteMenus Programu Form_Load Picture800.Refresh Picture640.Refresh For I% = 2 To 5e OrderPanel(I%).Width = OrderPanel(I% - 1).Widthe OrderPanel(I%).Left = OrderPanel(I% - 1).Left + OrderPanel(I% - 1).Width Next I%n General Date Long Date Medium Date Short Date m/d/yy dddd, mmmm d dddd, mmmm d yyyy dddd m/d/yy d mmmm, yyyy Today is Week DateList.ListIndex = 8 General Date Long Time Medium Time Short Time h:nna/p h:nnam/pm h:nnam/pm, It's minutes past o'clock. The time is h:nn am/pm seconds. minutes past the hour of ham/pm minutes and seconds past the hour of ham/pm TimeList.ListIndex = 6 All hard drives Windows drive DriveList.ListIndex = 1 Drives% = 2i Drive(1) = "C" Drive(2) = "D" Form_LostFocus Form_QueryUnload Cancel = True Unload MeT FullScreen_Click AllTheTime.Width = Screen.Width Hourly_Click LoadSettingsFromGlobals AllTheTime UpdateDelay AllTheTime Giveaway A% = MyGetProfileString("AllTheTime", "FontName", "XX", lpReturnedString$, 100)s On Error Resume Next If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontName = lpReturnedString$n On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "FontSize", "XX", lpReturnedString$, 100)i If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontSize = Val(lpReturnedString)p On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "FontBold", "XX", lpReturnedString$, 100)d If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontBold = Val(lpReturnedString)p On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "FontItalic", "XX", lpReturnedString$, 100)t If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontItalic = Val(lpReturnedString) On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "FontUnderline", "XX", lpReturnedString$, 100) If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontUnderline = Val(lpReturnedString) On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "FontStrikethru", "XX", lpReturnedString$, 100)S If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontStrikethru = Val(lpReturnedString) On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "ForeColor", "8388608", lpReturnedString$, 100)d AllTheTime.ForeColor = Val(lpReturnedString) A% = MyGetProfileString("AllTheTime", "PosLeft", "0", lpReturnedString$, 100)g PosLeft = Val(lpReturnedString$) A% = MyGetProfileString("AllTheTime", "PosTop", "0", lpReturnedString$, 100) PosTop = Val(lpReturnedString$)T If (PosLeft + AllTheTime.Width > Screen.Width) And Not Cancelling Then PosLeft = Screen.Width - AllTheTime.Width If (PosTop + AllTheTime.Height > Screen.Height) And Not Cancelling Then PosTop = Screen.Height - AllTheTime.Height AllTheTime.Option3D1(I% - 1).Value = gOption3D1(I% - 1)n OrderPicture(I%).Picture = PicClip1.GraphicCell(T% - 1) Option3D1_Click OrderPanel_DragDrop If the source is to the left of the target then( shift controls from source+1 to target one to the left If the source is to the right of the target then shift controls from target to source one to the rightt TempPic.Picture = Source.Picture TempPic.BackColor = Source.BackColor SpacesScr_Change StayOnTop_Click Text1_Change Text1_GotFocus TimeList_Change Check3D1(1).Value = True TimeList_Click