home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Loisirs 24
/
CDL24.iso
/
SHARE
/
WIN95
/
CALENDAR
/
CALENDAR.EXE
/
0
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
Wrap
Text File
|
1996-08-26
|
17KB
|
442 lines
object MainForm: TMainForm
Left = 200
Top = 131
BorderIcons = [biSystemMenu]
BorderStyle = bsToolWindow
Caption = 'Popup Calendar'
ClientHeight = 184
ClientWidth = 208
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object BtnDownYear: TSpeedButton
Left = 4
Top = 4
Width = 25
Height = 25
Hint = 'Last Year'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF3333333333333744333333333333F773333333333337
44473333333333F777F3333333333744444333333333F7733733333333374444
4433333333F77333733333333744444447333333F7733337F333333744444444
433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
CCC333333333333777FF33333333333333CC33333333333337730000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = BtnDownYearClick
end
object BtnDownMonth: TSpeedButton
Left = 28
Top = 4
Width = 25
Height = 25
Hint = 'Last Month'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = BtnDownMonthClick
end
object BtnUpMonth: TSpeedButton
Left = 154
Top = 4
Width = 25
Height = 25
Hint = 'Next Month'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333FF3333333333333003333
3333333333773FF3333333333309003333333333337F773FF333333333099900
33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
33333333337F3F77333333333309003333333333337F77333333333333003333
3333333333773333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = BtnUpMonthClick
end
object BtnUpYear: TSpeedButton
Left = 178
Top = 4
Width = 25
Height = 25
Hint = 'Next Year'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333FF3333333333333447333333333333377FFF33333333333744473333333
333337773FF3333333333444447333333333373F773FF3333333334444447333
33333373F3773FF3333333744444447333333337F333773FF333333444444444
733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
33333777333333333333CC3333333333333377333333333333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = BtnUpYearClick
end
object BtnCurrent: TSpeedButton
Left = 4
Top = 156
Width = 25
Height = 25
Hint = 'Return to Current Date'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
003337777777777777F330FFFFFFFFFFF03337F3333FFF3337F330FFFF000FFF
F03337F33377733337F330FFFFF0FFFFF03337F33337F33337F330FFFF00FFFF
F03337F33377F33337F330FFFFF0FFFFF03337F33337333337F330FFFFFFFFFF
F03337FFF3F3F3F3F7F33000F0F0F0F0F0333777F7F7F7F7F7F330F0F000F070
F03337F7F777F777F7F330F0F0F0F070F03337F7F7373777F7F330F0FF0FF0F0
F03337F733733737F7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
333337FFFFFFFF77333330000000000333333777777777733333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = BtnCurrentClick
end
object BtnCopy: TSpeedButton
Left = 28
Top = 156
Width = 25
Height = 25
Hint = 'Copy Selected Date to Clipboard'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = BtnCopyClick
end
object BtnOptions: TSpeedButton
Left = 60
Top = 156
Width = 25
Height = 25
Hint = 'Options...'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF7733333033000000033333373377777773330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = BtnOptionsClick
end
object BtnExit: TSpeedButton
Left = 92
Top = 156
Width = 25
Height = 25
Hint = 'Exit Popup Calendar'
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
080