home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 October
/
PCWorld_1999-10_cd2.bin
/
Supreme
/
_SETUP.1
/
Contact.exe
/
0
/
RCDATA
/
TFORMDATETIMEEDITOR
/
TFORMDATETIMEEDITOR.txt
Wrap
Text File
|
1999-09-06
|
8KB
|
231 lines
object FormDateTimeEditor: TFormDateTimeEditor
Left = 389
Top = 280
BorderIcons = []
BorderStyle = bsNone
Caption = 'Kalend��'
ClientHeight = 169
ClientWidth = 303
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = True
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object PanelMain: TPanel
Left = 0
Top = 0
Width = 303
Height = 169
Align = alClient
Ctl3D = True
ParentColor = True
ParentCtl3D = False
TabOrder = 0
object LabelInfo2: TLabel
Left = 38
Top = 144
Width = 143
Height = 13
AutoSize = False
Caption = 'LabelInfo2'
end
object BtnPrevYear: TSpeedButton
Left = 5
Top = 5
Width = 22
Height = 22
Hint = 'P�edchoz� rok (Ctrl+PgDn)'
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
E000EEEEE0EEEEEE0000EEEE00EEEEE00000EEE000EEEE000000EE0000EEE000
0000E00000EE00000000000000E000000000E00000EE00000000EE0000EEE000
0000EEE000EEEE000000EEEE00EEEEE00000EEEEE0EEEEEE0000EEEEEEEEEEEE
E000}
Layout = blGlyphRight
ParentShowHint = False
ShowHint = True
OnClick = BtnPrevYearClick
end
object BtnPrevMonth: TSpeedButton
Left = 28
Top = 5
Width = 22
Height = 22
Hint = 'P�edchoz� m�s�c (PgDn)'
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
E000EEEEEEEE0EEEE000EEEEEEE00EEEE000EEEEEE000EEEE000EEEEE0000EEE
E000EEEE00000EEEE000EEE000000EEEE000EEEE00000EEEE000EEEEE0000EEE
E000EEEEEE000EEEE000EEEEEEE00EEEE000EEEEEEEE0EEEE000EEEEEEEEEEEE
E000}
Layout = blGlyphRight
ParentShowHint = False
ShowHint = True
OnClick = BtnPrevMonthClick
end
object NextMonth: TSpeedButton
Left = 193
Top = 5
Width = 22
Height = 22
Hint = 'N�sleduj�c� m�s�c (PgUp)'
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
E000EEEE0EEEEEEEE000EEEE00EEEEEEE000EEEE000EEEEEE000EEEE0000EEEE
E000EEEE00000EEEE000EEEE000000EEE000EEEE00000EEEE000EEEE0000EEEE
E000EEEE000EEEEEE000EEEE00EEEEEEE000EEEE0EEEEEEEE000EEEEEEEEEEEE
E000}
Layout = blGlyphRight
ParentShowHint = False
ShowHint = True
OnClick = NextMonthClick
end
object BtnNextYear: TSpeedButton
Left = 216
Top = 5
Width = 22
Height = 22
Hint = 'N�sleduj�c� rok (Ctrl+PgUp)'
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
E0000EEEEEE0EEEEE00000EEEEE00EEEE000000EEEE000EEE0000000EEE0000E
E00000000EE00000E000000000E00000000000000EE00000E0000000EEE0000E
E000000EEEE000EEE00000EEEEE00EEEE0000EEEEEE0EEEEE000EEEEEEEEEEEE
E000}
Layout = blGlyphRight
ParentShowHint = False
ShowHint = True
OnClick = BtnNextYearClick
end
object LabelInfo1: TLabel
Left = 56
Top = 9
Width = 133
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'LabelInfo1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object BtnOk: TSpeedButton
Left = 193
Top = 140
Width = 22
Height = 22
Hint = 'Potvrdit (Enter)'
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8000888882208888800088882220888880008882222208888000882228220888
8000822288822088800082288882208880008888888822088000888888882208
8000888888888220800088888888822080008888888888228000888888888888
8000}
Layout = blGlyphRight
ParentShowHint = False
ShowHint = True
end
object BtnCancel: TSpeedButton
Left = 216
Top = 140
Width = 22
Height = 22
Hint = 'Storno (Esc)'
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
E000EEEEEEEEEEEEE000EE117EEEE11EE000EE1117EE111EE000EEE1117111EE
E000EEEE11111EEEE000EEEEE1117EEEE000EEEE111117EEE000EEE111E1117E
E000EE111EEE111EE000EE11EEEEE11EE000EEEEEEEEEEEEE000EEEEEEEEEEEE
E000}
Layout = blGlyphRight
ParentShowHint = False
ShowHint = True
end
object BtnToday: TSpeedButton
Left = 5
Top = 140
Width = 22
Height = 22
Hint = 'P�ej�t k dne�ku (Home)'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
55555555577777555555555705BBB55505555555F5777555F555557B5555055B
505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
5B5557555557F55557555555555B555555555555555755555555}
Layout = blGlyphRight
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = TodayClick
end
object Bevel1: TBevel
Left = 245
Top = 4
Width = 5
Height = 160
Shape = bsLeftLine
end
object Calendar: TCalendarPlus
Left = 5
Top = 32
Width = 235
Height = 101
StartOfWeek = 1
TabOrder = 0
UseCurrentDate = False
OnChange = CalendarChange
end
object TimeBar: TTimeBar
Left = 252
Top = 4
Width = 45
Height = 160
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 1
TabStop = True
end
end
end