From 21df6e63ed4e5c701556b997441c6a9ba8a2f091 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Fri, 19 May 2017 20:42:16 +0000 Subject: [PATCH] tvplanit: Update TEventEditForm to scale correctly in the HighDpi mode of Lazarus 1.8 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5875 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/tvplanit/source/vpevnteditdlg.lfm | 1492 ++++++++++-------- components/tvplanit/source/vpevnteditdlg.pas | 272 +--- 2 files changed, 893 insertions(+), 871 deletions(-) diff --git a/components/tvplanit/source/vpevnteditdlg.lfm b/components/tvplanit/source/vpevnteditdlg.lfm index ffc240f8f..a4fb47f37 100644 --- a/components/tvplanit/source/vpevnteditdlg.lfm +++ b/components/tvplanit/source/vpevnteditdlg.lfm @@ -1,59 +1,71 @@ object DlgEventEdit: TDlgEventEdit - Left = 673 - Height = 433 - Top = 379 - Width = 697 + Left = 255 + Height = 535 + Top = 202 + Width = 726 + AutoSize = True BorderStyle = bsToolWindow Caption = 'Add / Edit Events' - ClientHeight = 433 - ClientWidth = 697 - Constraints.MinHeight = 378 - Constraints.MinWidth = 594 + ClientHeight = 535 + ClientWidth = 726 OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '1.7' + LCLVersion = '1.9.0.0' object ButtonPanel: TPanel Left = 0 - Height = 36 - Top = 397 - Width = 697 + Height = 37 + Top = 498 + Width = 726 Align = alBottom + AutoSize = True BevelOuter = bvNone - ClientHeight = 36 - ClientWidth = 697 + ClientHeight = 37 + ClientWidth = 726 TabOrder = 1 object ResourceNameLbl: TLabel - Left = 8 - Height = 16 - Top = 5 - Width = 100 + AnchorSideLeft.Control = ButtonPanel + AnchorSideTop.Control = ButtonPanel + AnchorSideTop.Side = asrCenter + Left = 12 + Height = 15 + Top = 11 + Width = 88 + BorderSpacing.Left = 12 Caption = 'Resource Name' Font.CharSet = ANSI_CHARSET Font.Color = clMaroon - Font.Height = -13 - Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False end object OKBtn: TButton - Left = 528 + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = CancelBtn + Left = 571 Height = 25 - Top = 0 - Width = 75 + Top = 6 + Width = 66 Anchors = [akTop, akRight] + BorderSpacing.Top = 6 + BorderSpacing.Right = 6 + BorderSpacing.Bottom = 6 Caption = '&OK' Default = True OnClick = OKBtnClick TabOrder = 0 end object CancelBtn: TButton - Left = 608 + AnchorSideRight.Control = ButtonPanel + AnchorSideRight.Side = asrBottom + Left = 643 Height = 25 - Top = 0 - Width = 75 + Top = 6 + Width = 71 Anchors = [akTop, akRight] + BorderSpacing.Top = 6 + BorderSpacing.Right = 12 + BorderSpacing.Bottom = 6 Cancel = True Caption = '&Cancel' OnClick = CancelBtnClick @@ -61,674 +73,830 @@ object DlgEventEdit: TDlgEventEdit end end object Panel1: TPanel - Left = 0 - Height = 397 - Top = 0 - Width = 697 + Left = 12 + Height = 486 + Top = 12 + Width = 702 Align = alClient + BorderSpacing.Left = 12 + BorderSpacing.Top = 12 + BorderSpacing.Right = 12 BevelOuter = bvNone - BorderWidth = 8 - ClientHeight = 397 - ClientWidth = 697 + ClientHeight = 486 + ClientWidth = 702 TabOrder = 0 object AppointmentGroupBox: TGroupBox - Left = 8 - Height = 215 - Top = 8 - Width = 681 + Left = 0 + Height = 231 + Top = 0 + Width = 702 Align = alTop AutoSize = True Caption = 'Appointment' - ClientHeight = 195 - ClientWidth = 677 + ClientHeight = 211 + ClientWidth = 698 TabOrder = 0 object Bevel1: TBevel - Left = 8 - Height = 2 - Top = 69 - Width = 661 - Align = alTop - BorderSpacing.Left = 8 - BorderSpacing.Right = 8 + AnchorSideLeft.Control = AppointmentGroupBox + AnchorSideTop.Control = LocationEdit + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = DescriptionEdit + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 3 + Top = 64 + Width = 672 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Left = 12 + BorderSpacing.Top = 12 Shape = bsTopLine end object Bevel2: TBevel - Left = 8 - Height = 2 - Top = 152 - Width = 661 - Align = alTop - BorderSpacing.Left = 8 - BorderSpacing.Right = 8 + AnchorSideLeft.Control = AppointmentGroupBox + AnchorSideTop.Control = EndDate + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = DescriptionEdit + AnchorSideRight.Side = asrBottom + Left = 12 + Height = 3 + Top = 167 + Width = 672 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Left = 12 + BorderSpacing.Top = 12 Shape = bsTopLine end - object PanelDescription: TPanel - Left = 0 - Height = 69 + object DescriptionLbl: TLabel + AnchorSideTop.Control = DescriptionEdit + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = DescriptionEdit + Left = 71 + Height = 15 + Top = 4 + Width = 63 + Anchors = [akTop, akRight] + BorderSpacing.Left = 12 + BorderSpacing.Right = 8 + Caption = 'Description:' + ParentColor = False + end + object DescriptionEdit: TEdit + AnchorSideLeft.Control = AlarmAdvance + AnchorSideTop.Control = AppointmentGroupBox + AnchorSideRight.Control = IntervalUpDown + AnchorSideRight.Side = asrBottom + Left = 142 + Height = 23 Top = 0 - Width = 677 - Align = alTop - BevelOuter = bvNone - ClientHeight = 69 - ClientWidth = 677 + Width = 542 + Anchors = [akTop, akLeft, akRight] TabOrder = 0 - object DescriptionLbl: TLabel - Left = 5 - Height = 15 - Top = 15 - Width = 63 - Caption = 'Description:' - ParentColor = False - end - object DescriptionEdit: TEdit - Left = 88 - Height = 23 - Top = 8 - Width = 575 - Anchors = [akTop, akLeft, akRight] - TabOrder = 0 - Text = 'DescriptionEdit' - end - object LocationLbl: TLabel - Left = 5 - Height = 15 - Top = 43 - Width = 49 - Caption = 'Location:' - FocusControl = LocationEdit - ParentColor = False - end - object LocationEdit: TEdit - Left = 86 - Height = 23 - Top = 39 - Width = 235 - TabOrder = 1 - end - object Category: TComboBox - Left = 484 - Height = 23 - Top = 40 - Width = 180 - Anchors = [akTop, akLeft, akRight] - ItemHeight = 15 - OnDrawItem = CategoryDrawItem - TabOrder = 2 - end - object CategoryLbl: TLabel - Left = 403 - Height = 15 - Top = 43 - Width = 51 - Caption = 'Category:' - ParentColor = False - end + Text = 'DescriptionEdit' end - object PanelTimes: TPanel - Left = 0 - Height = 81 - Top = 71 - Width = 677 - Align = alTop - BevelOuter = bvNone - ClientHeight = 81 - ClientWidth = 677 + object LocationLbl: TLabel + AnchorSideTop.Control = LocationEdit + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LocationEdit + Left = 85 + Height = 15 + Top = 33 + Width = 49 + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 + Caption = 'Location:' + FocusControl = LocationEdit + ParentColor = False + end + object LocationEdit: TEdit + AnchorSideLeft.Control = AlarmAdvance + AnchorSideTop.Control = DescriptionEdit + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Bevel3 + AnchorSideRight.Side = asrBottom + Left = 142 + Height = 23 + Top = 29 + Width = 205 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 6 + BorderSpacing.Right = 12 TabOrder = 1 - object imgClock: TImage - Left = 8 - Height = 32 - Top = 5 - Width = 32 - Picture.Data = { - 1754506F727461626C654E6574776F726B477261706869639C0A000089504E47 - 0D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000 - 1974455874536F6674776172650041646F626520496D616765526561647971C9 - 653C00000A3E4944415478DA9457797454E515FFBD6D32432624848449080944 - 2089464044C106414E45A06C42DD690B5AE8E160B12A4539078F52B7D65AC583 - 1BC72AE7543C50B7485864B51E15A580D402862504C2921066926126CB4C667B - 4BEFFDDE4B98D0FED377CE376FE6BDFBFDEEBDBFBB7D23E1CA2537D7CC5A909D - A9AEA5EF19FCC08215387B295A3562FE9EB3E2E7FF7749B51F4C2E1D52E0DD27 - 41F239CF12ED517DC9C0395BDFA7EFA610725EA8C12D333FCD2A2BB9532B2E80 - A428E2A1158DC2A8AB473CDAF2C7AC3BBE5E3577EE67531445FDB5692963E975 - B1C53659368A6443354A300F7474A5DEFD74D9EAF1597D7DCF486565409F4C92 - 93601906528D7E749EBAB0396FF6B6BB495EE75DF2A9F55317159717BCE3BAA6 - 440891282489964AE81E1DFFD8E8D6576F9AD831BC3433F7F65B4B50599E8FD2 - 6237D2F48B8FB38D71D49E0C62F7DE26B4079BF19B072F60E28446F25B255C19 - 962503E45CB2E1021AEBFC8BCBE6EF7A8FF77ADA6B66B67BAE1BA6412101D384 - 2C5B50541DED9D1978E2D509F0F429C12FEF1A8EC1455938521747532085D636 - FDBF38CFCF5151E4D330AADC8D738D116CA83E8578FC3C5E5EF62D72FA2660E8 - 6408C810C342ECF8E954F69C6DD92A1B404A352B9912DECB9229949FA8EB8F15 - 6F4DC23DB347E0B6AA62FCEB7817BE3C1416AE0A4FA07587BA273D0221132DE1 - 38FE7D3286B2C11958FEF08DF86A5F1EE6AF70E3ED277761D0804EE8BA064B56 - D95106F0B0012AC8193D1A876C19C4908E0B4D5958FEE62C3CFDF868E8A682EA - 3D61249312540AC9B0A20614FB2EA020274061A2C84B4CAD49CB82BFCD87C640 - 094E5F2C45DDD924CE5D4CA06AB40F2B1FCBC5E297BDF8CBC26A540CBE4C982E - C0B0738FCD1F10DE38EDA28BF85355036D511716BD350FCB978E271915076AE3 - 64AC8A9B2B4FE1FAD206628758D25C50335CD0DC2AD6ACDD8947974C432AAE43 - 4F2461A478C9A86D188AEF8F970987C65DEF86425EBEFAE677786FE946647B12 - 8805227ACE033B8B98CBD4EA4DA71759E110B444079ED9301B33A65420A1CBD8 - FF6382D2C2C2FDD3FE89AA1BFD58BFE53B6417E42323CB2B8C90651731A0883B - FF7679BDC8CAEF8F759F7E839B4736E1BEA9FBA05032338E494C4D27DCA7095F - 6D0BE095CFEA17B26E3620F6FC27A7BF3DDF78A966D7C161869C3904A347F870 - E45482F83170CFD41F514876AEAB3E0C6F76215C19E48DAA4192B954997EC9A9 - 43852A4D8641215BF6E8CF9191ED45BECFC2DD538F42930D1C3A9610B84AE660 - FCA166DC8E173E39F31DEB66148E86FEF6EE96C3EDDAB3BF983B6398BB392C21 - D40ECC9E7C1E252509B83C2E1CF8FE3CBEFCE62482C1086EBDA58C8B0526E5DE - 4FC656D0774E4C3643B68DE19AA7A5BA541059F0F649E16443369294E4E543DC - D8BDDF3BB0EECC863F9370A7ECA470ECF6F12F8D2C2ECCC8CEEDEF4673C0C0A0 - C22E5494C5B1E6AF3BA87C643CB6E40E4C1A3F0C3BBF388AD7D6EE81C7E3A1F8 - 525999B6320E45F7A2622733786958F3EE0EDC30222AF018B75FAE07830A5C99 - D326BD311942D2BEB41B2B173E3766744959C2CA445B2730B12A82BCFC4EDC72 - D3B5C253935CBCB5AA027E7F08DBF71C464B6B07264EBC5E64BF284251115796 - F82D4BC4D0B51429AA2ED98DBA7A6E5E16BC6E13979ABBDC274E5757AB8E0119 - 8AA48DC91B908960D48241757EDD7571E17937BD26C73A6EE0F78FCF816E98D8 - B2FD7B18868E154FDE0B7425A8BE0D614CFAC58653858AE6C3789B774A688F9A - 603DAC8FF5761BA0115D85DE4C171A439C1516C55D473CA2883A678718DC20C4 - 2495DB8A27EE21E5066AB6EEA7BB89952BE701D447D8885ED348927AEE8CC7B8 - B104E5C4001787A790F5761BA0308F89A44E8A34E131A85B699A6DBD504E8A4C - CA3C8318D19306563EB500AA22E193EABDD46E1378F69905E471AA8705599629 - 47643B243CF8084F848B16EB719AA7A2F658CB2F1266DAD4D5B1F6BDED22A958 - F99245339D82914482B1CDAAE6A67729F15E92545A57F62B54A66BDFDD268CB0 - A8C32E7D64BAF3CED6233986AA6984D996C172BC50F0DBC57344DFEF6680BD11 - 9E7932F0DA6B1FE3B3CDDFE0CE3B2760D5AAC5D06331D1171CD60573BCDF4E4A - 5318CF2D5B1C0A841EA9B70136038633D72D27892C41BBD53D7649B946B5BDE6 - F51AECD87510B3665461C58A076126E322E1F87DF7C5F29C333CD6C574ED7153 - B2F57487AA27638D64201C8AD2CEA4D8507F92EB5C719A8BDCABC64D029E72FB - 4DA4FC2158290E017AC95C9195C57EC6613CC6859500EB617DE90C18C954676D - 3818F3E5659201B4E1F8090DC32B6834B301862594767BF5F8237709066993CD - 10ECBABFFA92A90F2894A8504D81272B8461A6100EC6C1FA18AE9B8154B0EDE4 - A690BF13C9AE0ECA6EE0D02195269C0BEBDEFF9C125815C734EEFFDC0F743248 - D72D272CCAFF5E24CFFB783FE3301EE3327EC8DF01D6C77ABBCDE64368F1BC9F - 561F2B18DEDF9553E0A3438307E5C32DDCF7809D00866E27507AAFE184E424B3 - 9C5CB952FF4E6DABB260EAA3BF4BD40529FA660C6DFE00FCF597931BBFBCAB92 - CF90DD0C2469B55FBCFCC39F424D517484C3449D85E3C7251C3A68D3AB688AE8 - FD222FA839B172F6F06FEBB78BBB6D8C1D6F2147F2BC8FF7330EE3312EE3B31E - D6C77AE5B4A48D7C7DE4C50FDB42B140A82982B6E06564102F359B2DA24F1247 - B00F36505F5028962A536C1FA654EE5650C56FFBB92DC7F2BC8FF7D30447A8A5 - 15971937140FB01ED6C77A95F4D6CD1F0FCD6C4F349D1B3539C6E39688C9CEF5 - E2582D9DF5FCC0BCFB2BC580B1DBB32C2AA2B6B60E234754C09E3F76C58CACAC - C0471FA6B077AF41075A19AD9702B8EC8F20D112C1CD23DE79E18B4367F6F128 - 8618DCBDAFACCE9D771C684D0CBF76E9AA59C82E55D12FBF0F0A07F9A8D4A87E - E326C6DDA262E4480DA5D7A84E33917A3ADCD9061D478FA67060BF4E5ECB82F6 - 4B4D01845BBBD07ED6C0FBAF7C0CB7DE74226BDAEE718E01E865C0AF26170F7C - 67F9988B9E51B9089FD6B0E4C99F41CAF620D3E7A2D19C8B2C3AE5A452540129 - 53D47E7A423203FC7F46D5A859D168EB6C8F20D81A42349084D51EC7DA973E47 - BFA129C46A4358FCCA0F451F7CD1D89C7E1E103DA1E6A9B16B72CA07DEA0F4CD - 82A75F1CD36FAAC5FEBD03C80305F164149D5D9D743296C504F17A332847245A - B2BDDC0A527A1CF15817FCCD7E7404DAD0D51C87CFD58A379EDB8ABE43B91F64 - 89DC18D35FCD5BB3A5611B873D6D16C09DE3921768430721597701F18600229D - 91865115CF7FFCD6A61956456AC2323314CB68097641E2D3BC4BEEFD6F91B94C - 52538AE93023D41D1366A2BE79EFEA29733F97DAEA8BEED5FD99D7B84B7D7095 - 0D42CE8F8D0B487A2927627A0872EB5EBF6D6B5EA65675EC6264FBFC378FBC7D - AE25167462C5D9953376E8C24903736E98EAD1FA95AB4A46FED506E846A23596 - 0AD735B71DDE75F0CCBAAFE8699B93DC59430678F2D62F1DF5706591777A309A - DA57FEBBAF67D1F350BA01CC4F092B724A24E4DC138E7F7D6865D3EAEB7CD7D2 - 6789A32845AB8B568753E75D4E8672A3F3B293CE9D0DBBC0CEA51B60FF4DB381 - B931C5C5A1A037C92E074CBB2A7FBA2FC33122E1605857E1BB1D0C96E1F9ADFF - 47800100EAB6B7AAC6FFDD6B0000000049454E44AE426082 - } - end - object CBAllDay: TCheckBox - Left = 89 - Height = 19 - Top = 3 - Width = 89 - Caption = 'All Day Event' - OnClick = CBAllDayClick - TabOrder = 0 - end - object StartTimeLbl: TLabel - Left = 47 - Height = 15 - Top = 23 - Width = 54 - Alignment = taRightJustify - Caption = 'Start time:' - ParentColor = False - end - object StartDate: TDateEdit - Left = 109 - Height = 23 - Top = 19 - Width = 104 - CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] - DateOrder = doNone - ButtonWidth = 23 - Glyph.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E - 72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384 - 52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1 - 75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6 - C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4 - 7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7 - ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8 - 7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD - B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA - 82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF - BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE - 87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3 - 75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1 - 8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1 - 73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4 - 8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0 - 71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7 - 94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7 - ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA - 98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A - FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD - 9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0 - FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF - 9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90 - FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1 - A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7 - F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2 - A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2 - 8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 - } - NumGlyphs = 1 - MaxLength = 0 - TabOrder = 1 - end - object EndTimeLbl: TLabel - Left = 47 - Height = 15 - Top = 48 - Width = 50 - Alignment = taRightJustify - Caption = 'End time:' - ParentColor = False - end - object EndDate: TDateEdit - Left = 109 - Height = 23 - Top = 46 - Width = 104 - CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] - DateOrder = doNone - ButtonWidth = 23 - Glyph.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E - 72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384 - 52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1 - 75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6 - C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4 - 7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7 - ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8 - 7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD - B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA - 82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF - BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE - 87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3 - 75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1 - 8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1 - 73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4 - 8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0 - 71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7 - 94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7 - ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA - 98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A - FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD - 9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0 - FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF - 9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90 - FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1 - A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7 - F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2 - A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2 - 8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 - } - NumGlyphs = 1 - MaxLength = 0 - TabOrder = 2 - end - object RecurringLbl: TLabel - Left = 395 - Height = 15 - Top = 6 - Width = 136 - Caption = 'Appointment Recurrence:' - ParentColor = False - end - object RecurringType: TComboBox - Left = 395 - Height = 23 - Top = 25 - Width = 171 - ItemHeight = 15 - OnChange = RecurringTypeChange - Style = csDropDownList - TabOrder = 3 - end - object edtUnusedPlaceholder: TEdit - Left = 583 - Height = 23 - Top = 25 - Width = 65 - TabOrder = 4 - Text = 'Placeholder control' - Visible = False - end - object IntervalUpDown: TUpDown - Left = 648 - Height = 23 - Top = 25 - Width = 16 - Associate = edtUnusedPlaceholder - Max = 32767 - Min = 0 - OnClick = IntervalUpDownClick - Position = 0 - TabOrder = 5 - Wrap = False - end - object IntervalLbl: TLabel - Left = 583 - Height = 15 - Top = 5 - Width = 77 - Caption = 'Interval (days):' - ParentColor = False - end - object ImgRecurring: TImage - Left = 360 - Height = 32 - Top = 5 - Width = 32 - Picture.Data = { - 1754506F727461626C654E6574776F726B477261706869638006000089504E47 - 0D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000 - 1974455874536F6674776172650041646F626520496D616765526561647971C9 - 653C000006224944415478DABC576B4C145714FE666796055914C48A1A448D44 - E2038C8FAA818AB6BC111FA4DA58FF4849DBB43669AA49AB6DB5491B31DA1FF2 - A769629B1ADBA6C4681BB558542A3EB015ACD144D8161F288F15E4B1BC1658F6 - 39D37367EE2AE22EBB35A4935C76973B73CF77BE73CE77CE00637B85AC3D0825 - F74B94D27729980774630C20DC23032B67212FBD08C7E8B7F87F03D03B3DC0AB - 2B3E454A3CF2D38A703C1088403409597BB1461151A008C825E7C214856FF8B8 - 996D0D3900370CC858B485DC2BC9C75E1CAFD88D4DB4E5F92F0084CC2F902B18 - F08B5E8221253E198BE296606ECC7CA800742206DDA5DCB9615068D3A3B82188 - 51A86D2941D6A202BAE548BE4020CEFB01E1CB1129E700CE0B2256652E4847C6 - BC1C8814A876EB75586D4D18B03743A04D97D2EC97874159DB11E84F626C21CA - 6B0FE3AA09A7CF7D827C30824661409F7D00CD91C68953DEC9781B311193D0D8 - 5506735705DC0A3F14C3A3AA3C4B1DFD4B17F204DA5DCB4F589EB00055B74D79 - F4338C56BF3F0022C5FB5894316ACA87EB7641113AF157CB5ED81CBD10F4DCA6 - A01DAC48FEE9F3C2523803B2E4C0B5072638ADB8CC1CF49703C2CB1F633D21DF - 5090B911765D3D4C6DDF503C69C3401EE904841B6260108D147E113ABD0EBDF6 - 3AD5C0C84B26FADD4E7E38A16E7C085CB884CACA03789FFEE5F207C060988092 - F4C5CB1011E1419DE50742AE79181E128DE871091818B2E3C6BD063CEA70A0BB - 4F8721E7B30CB004755384B7BEA67D6FA234B9705135BE9DB65B5991F8022024 - 6F4372A841322C4E9C8EC6C133704A6E75677CC8344C352E456D7D23CE5DAD41 - 9F19A75B6FE2AC3E14C2DDDF71DB4712E8B3F7E38C7E1C505F0F54543C36CE32 - B6C757153000FAF0186C4F4A88C520DDD7E779A4063C5467C4CCC85CDCBA67C2 - A9F29A8E7F7EC6076D26D5A8959693D3298F382F4A64B49BC9F8D9C0C6BD0042 - 45D28DD8E93A589D0DD0B1C421BFA647A4C36997505A598DABC5D86CEF4303DD - DB4DCBCE0F937D950103505186EACB4118F70208A164324C9ADA43196FA564D0 - 00CC8ECAC4B12B87D0DF869364FC01DDF7887BAD8CA29CAE5F7760212F90D640 - C61F27A1DB863FBFFDAE2745969F94D1516C53BDB136E3243FC819442F18A4D5 - C4D9190A64DC5BCA11B4E2684DF2214CEC402A24740409E06939FF1CA9E2385C - 72C95A55806B8328A869F65BD947D82071A4CDDCC8C8CA62B269F355BFC17446 - 727F6BFA9C446C5C5248E1B5D0E93ACA318AB7A4C77B47F7AC61CA287123FD23 - 257264A868C838214AC82BDD41AD2E0836A62EC404290C6FAC4CC886B9E71AEA - CC47D504677DA5C7A632E260FA13CC3C20B2E1820D191E2D47C20351BF7A2766 - CDDD841B9B97E5C1181689264B196BA0D091BBE43C1E5221BB07F04730F380C8 - 860A365CB021A3E241117CE939339AB31FCB9C367848BA0BC9C8BB9B96AFC1D2 - 592FE24EEB8FB079AC10F56A0454BAEF77016DB7709831298D6A9CFAF84B7390 - 9F91B4451D32D8B0F1CA3EB4FBEA016CB69A3D733262A323B12A2113C6D030DC - 6D2F81C57647F59C3DC37A83A9854078E0FCFB14AA99A6487E6927E329F3909F - 9554805BCD47B03AE12B7CFDE65A8AA144992A3CD5FB6447925A79B2A8C0E5B1 - A16BA00EF75B2AE8BB53F39C1927805692B01A2AD2F69BD8C515D5E57320C9DA - 8713C90B9097995888DA8787D51252B84008A350A6E89ED43633EA5DCC783F19 - 2FBF4175DD8DCB178AF016DD62F6C7409840D9CE8608364CB059C06B540E9430 - C393821E52B39E8919A949F94DA2DE852E32CE24BA9396037E265663DC72AC90 - 223A668E9FE0D1045FD062AC6360443FCB3BA488EAC8082A59C8F45C1D75902B - 35946D03A829DF83D7B9E7BD5E7F7C01901A2A512DC762FEC41730237AA2462D - 3B98B5596AC5900C3E56885652ECB3938EBF47D256554BD96E81CB5C85CFAE1D - C2416EBC7BF85C28F8E90F914C9E5377A2382D0DA933E2344ABFA7570D8967B4 - 3F6117B45C71D87B71DD7207E74C27709153DEC9C5CE1D682C77F3E603DECF8B - D3B3911A1F4F6D9342707617720248B3C2CF607DA48FAF7E1E7325D8F702CF70 - 10E455B1B49E1A8B16B006EFDE2897CCE5DAC13F95E77DD51279975C9CB61B55 - EB0EAA074D1ECB7739214810948A98C63D3107C1C09802F0862A8CBFCC0E3DC7 - 6CE0F7FA5780010015A12AA4DE4975590000000049454E44AE426082 - } - end - object RecurrenceEndsLbl: TLabel - Left = 424 - Height = 15 - Top = 59 - Width = 28 - Alignment = taRightJustify - Caption = 'Until:' - ParentColor = False - end - object RepeatUntil: TDateEdit - Left = 464 - Height = 23 - Top = 55 - Width = 100 - CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] - DateOrder = doNone - ButtonWidth = 23 - Glyph.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E - 72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384 - 52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1 - 75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6 - C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4 - 7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7 - ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8 - 7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD - B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA - 82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF - BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE - 87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3 - 75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1 - 8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1 - 73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4 - 8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0 - 71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7 - 94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7 - ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA - 98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A - FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD - 9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0 - FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF - 9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90 - FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1 - A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7 - F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2 - A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2 - 8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 - } - NumGlyphs = 1 - MaxLength = 0 - TabOrder = 6 - end - object Bevel3: TBevel - Left = 350 - Height = 76 - Top = 1 - Width = 2 - Shape = bsLeftLine - end end - object PanelAlarm: TPanel - Left = 0 - Height = 41 - Top = 154 - Width = 677 - Align = alTop - BevelOuter = bvNone - ClientHeight = 41 - ClientWidth = 677 + object CategoryLbl: TLabel + AnchorSideLeft.Control = Bevel3 + AnchorSideTop.Control = Category + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = Category + Left = 368 + Height = 15 + Top = 33 + Width = 51 + BorderSpacing.Left = 12 + BorderSpacing.Right = 12 + Caption = 'Category:' + ParentColor = False + end + object Category: TComboBox + AnchorSideLeft.Control = CategoryLbl + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = DescriptionEdit + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = DescriptionEdit + AnchorSideRight.Side = asrBottom + Left = 431 + Height = 23 + Top = 29 + Width = 253 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 6 + ItemHeight = 15 + OnDrawItem = CategoryDrawItem TabOrder = 2 - object ImgAlarm: TImage - Left = 8 - Height = 32 - Top = 5 - Width = 32 - Picture.Data = { - 1754506F727461626C654E6574776F726B477261706869633E08000089504E47 - 0D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000 - 1974455874536F6674776172650041646F626520496D616765526561647971C9 - 653C000007E04944415478DAC4576B8C5C65197ECE3973BFEDECCE4EF7D29669 - 0BDB6E29629A16114B09FCA83192188D26CA0FE01F3626266A888AF2871F2DFA - 4381621B13909806636A822620B595082128599AD2B25BA5DBED65DBDDEEEECC - CEEEDC76E6DC2F3EDF9933EDBAB4B61288D3BC3DD3ED77BEE779DFF779DEEF5B - C9F33CFC3F3F21F19724499F368EF4FEEFBFF5A56C2A72B89370BD657E6DDB43 - 875E0D7D0A60CAC86F1ED81356BCEF8562D9A824C930B50A14B7E6E40A43E81A - CCC0AC3680F1DA9FB836F14912908EECBBF7AE5C5AFE63777F61F59AE17B1009 - 03AEDB82EC6A58983DAF9C3BF12FACD3D622978F019E5FF578E813034EC92F44 - 93E93BD76E7E00E9DE3E78560396A902FA341CA8C8E6A2886F2D60E2E4143C33 - 0F498EF812F8B804A4BF3CB763433A267F2516C19E48BC2B3EB0E97EF40EDE06 - DBACC3156137E1A9E390080F250CC9B39148C551D8BC1A97CF95F1C2AB338F70 - 1F3B74D3593EB7737D2619FAAA2CD99F0F49EE8391642E91ED1B42AEB00DF174 - 1F41ABCCB802CF6EC1735578AD331477002E2B7E78928278320EDB32B0FFD0D8 - 08F755AF4740FAF32F770CADCA2A2FCA70B6B361F118DB168BBAE8D9B21BA9FC - 10C2F12EB8060109ECE88B709D25C021B0C7683273C9267884C0B20F2E88989A - C9754EC7757C01C6B50848AF3FF385CF0DF67823B76C7F183D1B76716396539F - 83553D0EB7F57748660A36FF78560D60AF3D0A0D226BCF20F8E920F3ABE09212 - 826351094D0DB174B243C065782B09C86F1ED8F9684F57F4A58D3BBF8B786E98 - D995B8941B53B572E6B39093C3308B6F887711CEDFEB83921D49F0A99DFF0838 - 08EE51099AAAC3B63DB46A2A2CDB5BF88F417415FCBE4773D9C44B9BBEB807D1 - 44171C96D773743FE08AB0182622F9ED70B422CCB95710CADC4E906420383BE8 - 79002E87FCA75A6F519C0EC2D130AAA53A8E7D58F915F12CBFDC6232B124D28B - 4F6EDF74D7E6AED31B773C8C6854215E195272089E92A1B0D8025B10D0982DAB - 2188881638145C63CCFF2E29513FDB8EE0C090430AF496015D337C02FC21C64F - 5D3C7FFFEEB71FE43FA6185AA702E1AD1B7BDE1E18886061F42066A61B887344 - AC1A4CA167ED1094EC366E9A61D308CA0A50797E489E0B294592C63453C1B2CC - 09AE28ECBB0BCB70E0D82E92D90C2E8C9EC32B6FCE3E45BC4521C0E52D48C8B2 - B42A9D51F0EEDFE6E1EFC1113A35D5447CB48C4D779CC5E0E6BB2145D771A9C3 - BE0B0216312D1262656451C5AB990B22E2A9EB3AC16D5F3F061D305FD1DE7FFE - 0F67FF1138C0F5FB1E10F0C79263F9EDE0780A211491F954281860EC4411EF1D - 390A7B7184C49A5CE312D3F2ABE13925129145FA57C065BE6F1A2635C40A382E - E299144A937378ED9DB967095365985784B7DC02E1583830A2875038847822DA - 8E640CF5AA81770E1F4363E6045F62EF45F6F63CC1151F5C42FB44957CD5CB30 - 5493AA17E5777C1DD4EBADF97D87CEBECB252DDF422B5DE0D24FA62947BB7B23 - 3C4412E8CEA5B925D7F9ED90582F0FEA520BA3236771EB161D831B06FCF73C01 - EE671F1CE9AECBB5322CFADE66EF0501D1EED397967EC72F8D8EFA5756C09D2E - A9872B8B3A0AB7AD429233DB751D88AD3CD7E3776EC9AAA4BB52286CE8477DBE - 8166AD058955923BE03E1152A6AB84DD62A92447AE8904CB5F9929E3172F4FBC - 2C46EFF2EC9713D07FB86FF467B59A89C1753D88C664BF0D6243A9BD37DA326F - BF9B4CC751992E41AD524B21F90AB8BF904FDBD0902059415E6BAA5055ABF4E1 - 64A3D451FE35094C4C2DCDCECCAB6F958B2AFA0A5DFE792D8ADADE53EAECCDA7 - F8B98B546F3722F1302CAA5B963B22947DA2A66E41AF37782C67A1370D4CCEB5 - 5E179EF72D741D02B6E8CFF79FF9E0C9E26C1361DE2452DD3172703F0A4EEF47 - D309E487EF44A4EF33309B35D83C600409A105430C1D5AC7D074CE2505A6AA61 - EC5CFDE872E55F8B80F8A8672E2D5D3A3E5E7DFEE2850A06D7F72222AE347E2B - DAE0BECE482077CB6A20B30552FA56C4B279680BF3BEFA0DCE7B613FCBB46869 - 1BAD0A2F258685A77F7BFAD8B5CABF9280A842EDB1BDC77FBDB0A85D989DAE61 - 60A8DF0714BDF075863699486E40D88627E32CA4442FC2B24D3D54383B221CB9 - 3609B4A35AAE6149B5C783F2DB3722806061E9BE6FBFF55079AE014DB3B06A5D - BF38307CF1FA2DF0DDC6CB855186A77108698B905929BD5242249968DB8F5510 - 443C3A49513822DBE0DECD107003AF5E7EE2C0A9AF4F9D29F1E21143BED01FFC - 37498438806B04D6993D6F401247B1A9DB98BE340F5B6DD082519804374DC31F - 4EBAE1CE74C6EECD10403028168F8E144FBC71ACB867E2E44528BC0EF5AE1B08 - F42063E1FC045AE56934AB554C8E5FC2E9D14968ECB5D5AAD3195156C082C9E9 - 27FAFF83673FF8E9CAE173230208145B7EFCB9D18347468A4F4F9CB840A52B18 - 18DEC87B82B8523B68968AB4DA2245A723918EA1BB274159386894AB307482F3 - F87D62FFA96F8C9EAD5D1436BFEE6533B80F5C8F5C9231B0EBEEBEAD7B77DF71 - 70707D5F6470680D8C660346A3EE5B509CF952701467D7DF8EC9B1F39C9435FC - 68FFA96FFE75A4F81EDF2F5ECF013722D0211167E419AB0FEDBDE727C385CC97 - 736BF2E8E9EF453CDFDD7689B08827A33A55C4C5B109FCF8C03F05F8B165E0DE - C72510CC60FFB8CE32FA0AFD89D54F3DB6E591A135A95DB1A89CBBB235572D36 - CC53DFF9F9C9C7CF5D6E9E116EBA11F8CD12B8F23B9FB8B830320CA60ECE6B44 - 038208C66C23005E087474C35FBDFF1702CB89C402F0E5975A2FC858FB6FAA5F - F9F9B7000300BF7ACAD5D4ACB2C90000000049454E44AE426082 - } - end - object AlarmSet: TCheckBox - Left = 47 - Height = 19 - Top = 7 - Width = 74 - Caption = '&Reminder:' - OnClick = AlarmSetClick - TabOrder = 0 - end - object AlarmAdvance: TEdit - Left = 136 - Height = 23 - Top = 5 - Width = 58 - OnChange = AlarmAdvanceChange - TabOrder = 1 - Text = 'AlarmAdvance' - end - object AdvanceUpDown: TUpDown - Left = 194 - Height = 23 - Top = 5 - Width = 14 - Associate = AlarmAdvance - Max = 120 - Min = 1 - OnClick = AdvanceUpDownClick - Position = 1 - TabOrder = 2 - Wrap = False - end - object AlarmAdvanceType: TComboBox - Left = 231 - Height = 23 - Top = 4 - Width = 93 - ItemHeight = 15 - Style = csDropDownList - TabOrder = 3 - end - object SoundFinderBtn: TSpeedButton - Left = 328 - Height = 22 - Top = 4 - Width = 23 - Glyph.Data = { - F6000000424DF600000000000000760000002800000010000000100000000100 - 0400000000008000000000000000000000001000000010000000000000000000 - 8000008000000080800080000000800080008080000080808000C0C0C0000000 - FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 - 8888888888000888888888888080808888088888080880888088888080888808 - 0888880880888808888800888008880888880888808088080000088880808808 - 8888008880088808888888088088880808888880808888088088888808088088 - 8808888880808088888888888800088888888888888888888888 - } - OnClick = SoundFinderBtnClick - end + end + object imgClock: TImage + AnchorSideLeft.Control = AppointmentGroupBox + AnchorSideTop.Control = Bevel1 + Left = 16 + Height = 32 + Top = 76 + Width = 32 + BorderSpacing.Left = 16 + BorderSpacing.Top = 12 + Picture.Data = { + 1754506F727461626C654E6574776F726B477261706869639C0A000089504E47 + 0D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000 + 1974455874536F6674776172650041646F626520496D616765526561647971C9 + 653C00000A3E4944415478DA9457797454E515FFBD6D32432624848449080944 + 2089464044C106414E45A06C42DD690B5AE8E160B12A4539078F52B7D65AC583 + 1BC72AE7543C50B7485864B51E15A580D402862504C2921066926126CB4C667B + 4BEFFDDE4B98D0FED377CE376FE6BDFBFDEEBDBFBB7D23E1CA2537D7CC5A909D + A9AEA5EF19FCC08215387B295A3562FE9EB3E2E7FF7749B51F4C2E1D52E0DD27 + 41F239CF12ED517DC9C0395BDFA7EFA610725EA8C12D333FCD2A2BB9532B2E80 + A428E2A1158DC2A8AB473CDAF2C7AC3BBE5E3577EE67531445FDB5692963E975 + B1C53659368A6443354A300F7474A5DEFD74D9EAF1597D7DCF486565409F4C92 + 93601906528D7E749EBAB0396FF6B6BB495EE75DF2A9F55317159717BCE3BAA6 + 440891282489964AE81E1DFFD8E8D6576F9AD831BC3433F7F65B4B50599E8FD2 + 6237D2F48B8FB38D71D49E0C62F7DE26B4079BF19B072F60E28446F25B255C19 + 962503E45CB2E1021AEBFC8BCBE6EF7A8FF77ADA6B66B67BAE1BA6412101D384 + 2C5B50541DED9D1978E2D509F0F429C12FEF1A8EC1455938521747532085D636 + FDBF38CFCF5151E4D330AADC8D738D116CA83E8578FC3C5E5EF62D72FA2660E8 + 6408C810C342ECF8E954F69C6DD92A1B404A352B9912DECB9229949FA8EB8F15 + 6F4DC23DB347E0B6AA62FCEB7817BE3C1416AE0A4FA07587BA273D0221132DE1 + 38FE7D3286B2C11958FEF08DF86A5F1EE6AF70E3ED277761D0804EE8BA064B56 + D95106F0B0012AC8193D1A876C19C4908E0B4D5958FEE62C3CFDF868E8A682EA + 3D61249312540AC9B0A20614FB2EA020274061A2C84B4CAD49CB82BFCD87C640 + 094E5F2C45DDD924CE5D4CA06AB40F2B1FCBC5E297BDF8CBC26A540CBE4C982E + C0B0738FCD1F10DE38EDA28BF85355036D511716BD350FCB978E271915076AE3 + 64AC8A9B2B4FE1FAD206628758D25C50335CD0DC2AD6ACDD8947974C432AAE43 + 4F2461A478C9A86D188AEF8F970987C65DEF86425EBEFAE677786FE946647B12 + 8805227ACE033B8B98CBD4EA4DA71759E110B444079ED9301B33A65420A1CBD8 + FF6382D2C2C2FDD3FE89AA1BFD58BFE53B6417E42323CB2B8C90651731A0883B + FF7679BDC8CAEF8F759F7E839B4736E1BEA9FBA05032338E494C4D27DCA7095F + 6D0BE095CFEA17B26E3620F6FC27A7BF3DDF78A966D7C161869C3904A347F870 + E45482F83170CFD41F514876AEAB3E0C6F76215C19E48DAA4192B954997EC9A9 + 43852A4D8641215BF6E8CF9191ED45BECFC2DD538F42930D1C3A9610B84AE660 + FCA166DC8E173E39F31DEB66148E86FEF6EE96C3EDDAB3BF983B6398BB392C21 + D40ECC9E7C1E252509B83C2E1CF8FE3CBEFCE62482C1086EBDA58C8B0526E5DE + 4FC656D0774E4C3643B68DE19AA7A5BA541059F0F649E16443369294E4E543DC + D8BDDF3BB0EECC863F9370A7ECA470ECF6F12F8D2C2ECCC8CEEDEF4673C0C0A0 + C22E5494C5B1E6AF3BA87C643CB6E40E4C1A3F0C3BBF388AD7D6EE81C7E3A1F8 + 525999B6320E45F7A2622733786958F3EE0EDC30222AF018B75FAE07830A5C99 + D326BD311942D2BEB41B2B173E3766744959C2CA445B2730B12A82BCFC4EDC72 + D3B5C253935CBCB5AA027E7F08DBF71C464B6B07264EBC5E64BF284251115796 + F82D4BC4D0B51429AA2ED98DBA7A6E5E16BC6E13979ABBDC274E5757AB8E0119 + 8AA48DC91B908960D48241757EDD7571E17937BD26C73A6EE0F78FCF816E98D8 + B2FD7B18868E154FDE0B7425A8BE0D614CFAC58653858AE6C3789B774A688F9A + 603DAC8FF5761BA0115D85DE4C171A439C1516C55D473CA2883A678718DC20C4 + 2495DB8A27EE21E5066AB6EEA7BB89952BE701D447D8885ED348927AEE8CC7B8 + B104E5C4001787A790F5761BA0308F89A44E8A34E131A85B699A6DBD504E8A4C + CA3C8318D19306563EB500AA22E193EABDD46E1378F69905E471AA8705599629 + 47643B243CF8084F848B16EB719AA7A2F658CB2F1266DAD4D5B1F6BDED22A958 + F99245339D82914482B1CDAAE6A67729F15E92545A57F62B54A66BDFDD268CB0 + A8C32E7D64BAF3CED6233986AA6984D996C172BC50F0DBC57344DFEF6680BD11 + 9E7932F0DA6B1FE3B3CDDFE0CE3B2760D5AAC5D06331D1171CD60573BCDF4E4A + 5318CF2D5B1C0A841EA9B70136038633D72D27892C41BBD53D7649B946B5BDE6 + F51AECD87510B3665461C58A076126E322E1F87DF7C5F29C333CD6C574ED7153 + B2F57487AA27638D64201C8AD2CEA4D8507F92EB5C719A8BDCABC64D029E72FB + 4DA4FC2158290E017AC95C9195C57EC6613CC6859500EB617DE90C18C954676D + 3818F3E5659201B4E1F8090DC32B6834B301862594767BF5F8237709066993CD + 10ECBABFFA92A90F2894A8504D81272B8461A6100EC6C1FA18AE9B8154B0EDE4 + A690BF13C9AE0ECA6EE0D02195269C0BEBDEFF9C125815C734EEFFDC0F743248 + D72D272CCAFF5E24CFFB783FE3301EE3327EC8DF01D6C77ABBCDE64368F1BC9F + 561F2B18DEDF9553E0A3438307E5C32DDCF7809D00866E27507AAFE184E424B3 + 9C5CB952FF4E6DABB260EAA3BF4BD40529FA660C6DFE00FCF597931BBFBCAB92 + CF90DD0C2469B55FBCFCC39F424D517484C3449D85E3C7251C3A68D3AB688AE8 + FD222FA839B172F6F06FEBB78BBB6D8C1D6F2147F2BC8FF7330EE3312EE3B31E + D6C77AE5B4A48D7C7DE4C50FDB42B140A82982B6E06564102F359B2DA24F1247 + B00F36505F5028962A536C1FA654EE5650C56FFBB92DC7F2BC8FF7D30447A8A5 + 15971937140FB01ED6C77A95F4D6CD1F0FCD6C4F349D1B3539C6E39688C9CEF5 + E2582D9DF5FCC0BCFB2BC580B1DBB32C2AA2B6B60E234754C09E3F76C58CACAC + C0471FA6B077AF41075A19AD9702B8EC8F20D112C1CD23DE79E18B4367F6F128 + 8618DCBDAFACCE9D771C684D0CBF76E9AA59C82E55D12FBF0F0A07F9A8D4A87E + E326C6DDA262E4480DA5D7A84E33917A3ADCD9061D478FA67060BF4E5ECB82F6 + 4B4D01845BBBD07ED6C0FBAF7C0CB7DE74226BDAEE718E01E865C0AF26170F7C + 67F9988B9E51B9089FD6B0E4C99F41CAF620D3E7A2D19C8B2C3AE5A452540129 + 53D47E7A423203FC7F46D5A859D168EB6C8F20D81A42349084D51EC7DA973E47 + BFA129C46A4358FCCA0F451F7CD1D89C7E1E103DA1E6A9B16B72CA07DEA0F4CD + 82A75F1CD36FAAC5FEBD03C80305F164149D5D9D743296C504F17A332847245A + B2BDDC0A527A1CF15817FCCD7E7404DAD0D51C87CFD58A379EDB8ABE43B91F64 + 89DC18D35FCD5BB3A5611B873D6D16C09DE3921768430721597701F18600229D + 91865115CF7FFCD6A61956456AC2323314CB68097641E2D3BC4BEEFD6F91B94C + 52538AE93023D41D1366A2BE79EFEA29733F97DAEA8BEED5FD99D7B84B7D7095 + 0D42CE8F8D0B487A2927627A0872EB5EBF6D6B5EA65675EC6264FBFC378FBC7D + AE25167462C5D9953376E8C24903736E98EAD1FA95AB4A46FED506E846A23596 + 0AD735B71DDE75F0CCBAAFE8699B93DC59430678F2D62F1DF5706591777A309A + DA57FEBBAF67D1F350BA01CC4F092B724A24E4DC138E7F7D6865D3EAEB7CD7D2 + 6789A32845AB8B568753E75D4E8672A3F3B293CE9D0DBBC0CEA51B60FF4DB381 + B931C5C5A1A037C92E074CBB2A7FBA2FC33122E1605857E1BB1D0C96E1F9ADFF + 47800100EAB6B7AAC6FFDD6B0000000049454E44AE426082 + } + end + object CBAllDay: TCheckBox + AnchorSideLeft.Control = imgClock + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = imgClock + Left = 60 + Height = 19 + Top = 76 + Width = 89 + BorderSpacing.Left = 12 + Caption = 'All Day Event' + OnClick = CBAllDayClick + TabOrder = 3 + end + object StartTimeLbl: TLabel + AnchorSideTop.Control = StartDate + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = StartDate + Left = 80 + Height = 15 + Top = 105 + Width = 54 + Alignment = taRightJustify + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 + Caption = 'Start time:' + ParentColor = False + end + object EndTimeLbl: TLabel + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = EndDate + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = EndDate + Left = 84 + Height = 15 + Top = 136 + Width = 50 + Alignment = taRightJustify + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 + Caption = 'End time:' + ParentColor = False + end + object StartDate: TDateEdit + AnchorSideLeft.Control = AlarmAdvance + AnchorSideTop.Control = CBAllDay + AnchorSideTop.Side = asrBottom + Left = 142 + Height = 23 + Top = 101 + Width = 93 + CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] + DateOrder = doNone + ButtonWidth = 23 + BorderSpacing.Top = 6 + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E + 72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384 + 52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1 + 75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6 + C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4 + 7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7 + ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8 + 7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD + B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA + 82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF + BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE + 87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3 + 75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1 + 8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1 + 73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4 + 8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0 + 71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7 + 94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7 + ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA + 98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A + FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD + 9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0 + FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF + 9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90 + FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1 + A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7 + F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2 + A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2 + 8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } + NumGlyphs = 1 + MaxLength = 0 + TabOrder = 4 + Text = '01.01.2000' + end + object EndDate: TDateEdit + AnchorSideLeft.Control = AlarmAdvance + AnchorSideTop.Control = StartDate + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = StartDate + AnchorSideRight.Side = asrBottom + Left = 142 + Height = 23 + Top = 132 + Width = 93 + CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] + DateOrder = doNone + ButtonWidth = 23 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 8 + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E + 72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384 + 52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1 + 75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6 + C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4 + 7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7 + ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8 + 7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD + B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA + 82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF + BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE + 87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3 + 75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1 + 8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1 + 73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4 + 8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0 + 71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7 + 94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7 + ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA + 98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A + FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD + 9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0 + FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF + 9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90 + FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1 + A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7 + F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2 + A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2 + 8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } + NumGlyphs = 1 + MaxLength = 0 + TabOrder = 6 + end + object Bevel3: TBevel + AnchorSideLeft.Control = StartTimePlaceholder + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CBAllDay + AnchorSideBottom.Control = EndDate + AnchorSideBottom.Side = asrBottom + Left = 356 + Height = 79 + Top = 76 + Width = 3 + Anchors = [akTop, akLeft, akBottom] + BorderSpacing.Left = 16 + Shape = bsLeftLine + end + object ImgRecurring: TImage + AnchorSideLeft.Control = Bevel3 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = imgClock + Left = 375 + Height = 32 + Top = 76 + Width = 32 + BorderSpacing.Left = 16 + Picture.Data = { + 1754506F727461626C654E6574776F726B477261706869638006000089504E47 + 0D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000 + 1974455874536F6674776172650041646F626520496D616765526561647971C9 + 653C000006224944415478DABC576B4C145714FE666796055914C48A1A448D44 + E2038C8FAA818AB6BC111FA4DA58FF4849DBB43669AA49AB6DB5491B31DA1FF2 + A769629B1ADBA6C4681BB558542A3EB015ACD144D8161F288F15E4B1BC1658F6 + 39D37367EE2AE22EBB35A4935C76973B73CF77BE73CE77CE00637B85AC3D0825 + F74B94D27729980774630C20DC23032B67212FBD08C7E8B7F87F03D03B3DC0AB + 2B3E454A3CF2D38A703C1088403409597BB1461151A008C825E7C214856FF8B8 + 996D0D3900370CC858B485DC2BC9C75E1CAFD88D4DB4E5F92F0084CC2F902B18 + F08B5E8221253E198BE296606ECC7CA800742206DDA5DCB9615068D3A3B82188 + 51A86D2941D6A202BAE548BE4020CEFB01E1CB1129E700CE0B2256652E4847C6 + BC1C8814A876EB75586D4D18B03743A04D97D2EC97874159DB11E84F626C21CA + 6B0FE3AA09A7CF7D827C30824661409F7D00CD91C68953DEC9781B311193D0D8 + 5506735705DC0A3F14C3A3AA3C4B1DFD4B17F204DA5DCB4F589EB00055B74D79 + F4338C56BF3F0022C5FB5894316ACA87EB7641113AF157CB5ED81CBD10F4DCA6 + A01DAC48FEE9F3C2523803B2E4C0B5072638ADB8CC1CF49703C2CB1F633D21DF + 5090B911765D3D4C6DDF503C69C3401EE904841B6260108D147E113ABD0EBDF6 + 3AD5C0C84B26FADD4E7E38A16E7C085CB884CACA03789FFEE5F207C060988092 + F4C5CB1011E1419DE50742AE79181E128DE871091818B2E3C6BD063CEA70A0BB + 4F8721E7B30CB004755384B7BEA67D6FA234B9705135BE9DB65B5991F8022024 + 6F4372A841322C4E9C8EC6C133704A6E75677CC8344C352E456D7D23CE5DAD41 + 9F19A75B6FE2AC3E14C2DDDF71DB4712E8B3F7E38C7E1C505F0F54543C36CE32 + B6C757153000FAF0186C4F4A88C520DDD7E779A4063C5467C4CCC85CDCBA67C2 + A9F29A8E7F7EC6076D26D5A8959693D3298F382F4A64B49BC9F8D9C0C6BD0042 + 45D28DD8E93A589D0DD0B1C421BFA647A4C36997505A598DABC5D86CEF4303DD + DB4DCBCE0F937D950103505186EACB4118F70208A164324C9ADA43196FA564D0 + 00CC8ECAC4B12B87D0DF869364FC01DDF7887BAD8CA29CAE5F7760212F90D640 + C61F27A1DB863FBFFDAE2745969F94D1516C53BDB136E3243FC819442F18A4D5 + C4D9190A64DC5BCA11B4E2684DF2214CEC402A24740409E06939FF1CA9E2385C + 72C95A55806B8328A869F65BD947D82071A4CDDCC8C8CA62B269F355BFC17446 + 727F6BFA9C446C5C5248E1B5D0E93ACA318AB7A4C77B47F7AC61CA287123FD23 + 257264A868C838214AC82BDD41AD2E0836A62EC404290C6FAC4CC886B9E71AEA + CC47D504677DA5C7A632E260FA13CC3C20B2E1820D191E2D47C20351BF7A2766 + CDDD841B9B97E5C1181689264B196BA0D091BBE43C1E5221BB07F04730F380C8 + 860A365CB021A3E241117CE939339AB31FCB9C367848BA0BC9C8BB9B96AFC1D2 + 592FE24EEB8FB079AC10F56A0454BAEF77016DB7709831298D6A9CFAF84B7390 + 9F91B4451D32D8B0F1CA3EB4FBEA016CB69A3D733262A323B12A2113C6D030DC + 6D2F81C57647F59C3DC37A83A9854078E0FCFB14AA99A6487E6927E329F3909F + 9554805BCD47B03AE12B7CFDE65A8AA144992A3CD5FB6447925A79B2A8C0E5B1 + A16BA00EF75B2AE8BB53F39C1927805692B01A2AD2F69BD8C515D5E57320C9DA + 8713C90B9097995888DA8787D51252B84008A350A6E89ED43633EA5DCC783F19 + 2FBF4175DD8DCB178AF016DD62F6C7409840D9CE8608364CB059C06B540E9430 + C393821E52B39E8919A949F94DA2DE852E32CE24BA9396037E265663DC72AC90 + 223A668E9FE0D1045FD062AC6360443FCB3BA488EAC8082A59C8F45C1D75902B + 35946D03A829DF83D7B9E7BD5E7F7C01901A2A512DC762FEC41730237AA2462D + 3B98B5596AC5900C3E56885652ECB3938EBF47D256554BD96E81CB5C85CFAE1D + C2416EBC7BF85C28F8E90F914C9E5377A2382D0DA933E2344ABFA7570D8967B4 + 3F6117B45C71D87B71DD7207E74C27709153DEC9C5CE1D682C77F3E603DECF8B + D3B3911A1F4F6D9342707617720248B3C2CF607DA48FAF7E1E7325D8F702CF70 + 10E455B1B49E1A8B16B006EFDE2897CCE5DAC13F95E77DD51279975C9CB61B55 + EB0EAA074D1ECB7739214810948A98C63D3107C1C09802F0862A8CBFCC0E3DC7 + 6CE0F7FA5780010015A12AA4DE4975590000000049454E44AE426082 + } + end + object RecurringLbl: TLabel + AnchorSideLeft.Control = ImgRecurring + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CBAllDay + AnchorSideTop.Side = asrCenter + Left = 419 + Height = 15 + Top = 78 + Width = 136 + BorderSpacing.Left = 12 + Caption = 'Appointment Recurrence:' + ParentColor = False + end + object RecurringType: TComboBox + AnchorSideLeft.Control = RecurringLbl + AnchorSideTop.Control = StartDate + AnchorSideRight.Control = RecurringLbl + AnchorSideRight.Side = asrBottom + Left = 419 + Height = 23 + Top = 101 + Width = 136 + Anchors = [akTop, akLeft, akRight] + ItemHeight = 15 + OnChange = RecurringTypeChange + Style = csDropDownList + TabOrder = 8 + end + object RepeatUntil: TDateEdit + AnchorSideTop.Control = EndDate + AnchorSideRight.Control = IntervalUpDown + AnchorSideRight.Side = asrBottom + Left = 522 + Height = 23 + Top = 132 + Width = 162 + CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] + DateOrder = doNone + ButtonWidth = 23 + Anchors = [akTop, akRight] + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E + 72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384 + 52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1 + 75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6 + C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4 + 7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7 + ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8 + 7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD + B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA + 82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF + BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE + 87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3 + 75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1 + 8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1 + 73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4 + 8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0 + 71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7 + 94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7 + ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA + 98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A + FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD + 9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0 + FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF + 9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90 + FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1 + A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7 + F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2 + A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2 + 8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } + NumGlyphs = 1 + MaxLength = 0 + TabOrder = 11 + end + object RecurrenceEndsLbl: TLabel + AnchorSideTop.Control = RepeatUntil + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = RepeatUntil + Left = 482 + Height = 15 + Top = 136 + Width = 28 + Alignment = taRightJustify + Anchors = [akTop, akRight] + BorderSpacing.Right = 12 + Caption = 'Until:' + ParentColor = False + end + object IntervalLbl: TLabel + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = RecurringLbl + AnchorSideRight.Control = IntervalUpDown + AnchorSideRight.Side = asrBottom + Left = 607 + Height = 15 + Top = 78 + Width = 77 + Anchors = [akTop, akRight] + BorderSpacing.Left = 36 + Caption = 'Interval (days):' + ParentColor = False + end + object CustomInterval: TEdit + AnchorSideLeft.Control = RecurringType + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = StartDate + Left = 563 + Height = 23 + Top = 101 + Width = 106 + Alignment = taRightJustify + BorderSpacing.Left = 8 + BorderSpacing.Right = 3 + MaxLength = 5 + OnChange = CustomIntervalChange + TabOrder = 9 + end + object IntervalUpDown: TUpDown + AnchorSideLeft.Control = CustomInterval + AnchorSideLeft.Side = asrBottom + AnchorSideRight.Side = asrBottom + Left = 672 + Height = 23 + Top = 101 + Width = 12 + Associate = CustomInterval + BorderSpacing.Right = 12 + Max = 32767 + Min = 0 + OnClick = IntervalUpDownClick + Position = 0 + TabOrder = 10 + Wrap = False + end + object ImgAlarm: TImage + AnchorSideLeft.Control = AppointmentGroupBox + AnchorSideTop.Control = Bevel2 + Left = 16 + Height = 32 + Top = 179 + Width = 32 + BorderSpacing.Left = 16 + BorderSpacing.Top = 12 + Picture.Data = { + 1754506F727461626C654E6574776F726B477261706869633E08000089504E47 + 0D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000 + 1974455874536F6674776172650041646F626520496D616765526561647971C9 + 653C000007E04944415478DAC4576B8C5C65197ECE3973BFEDECCE4EF7D29669 + 0BDB6E29629A16114B09FCA83192188D26CA0FE01F3626266A888AF2871F2DFA + 4381621B13909806636A822620B595082128599AD2B25BA5DBED65DBDDEEEECC + CEEEDC76E6DC2F3EDF9933EDBAB4B61288D3BC3DD3ED77BEE779DFF779DEEF5B + C9F33CFC3F3F21F19724499F368EF4FEEFBFF5A56C2A72B89370BD657E6DDB43 + 875E0D7D0A60CAC86F1ED81356BCEF8562D9A824C930B50A14B7E6E40A43E81A + CCC0AC3680F1DA9FB836F14912908EECBBF7AE5C5AFE63777F61F59AE17B1009 + 03AEDB82EC6A58983DAF9C3BF12FACD3D622978F019E5FF578E813034EC92F44 + 93E93BD76E7E00E9DE3E78560396A902FA341CA8C8E6A2886F2D60E2E4143C33 + 0F498EF812F8B804A4BF3CB763433A267F2516C19E48BC2B3EB0E97EF40EDE06 + DBACC3156137E1A9E390080F250CC9B39148C551D8BC1A97CF95F1C2AB338F70 + 1F3B74D3593EB7737D2619FAAA2CD99F0F49EE8391642E91ED1B42AEB00DF174 + 1F41ABCCB802CF6EC1735578AD331477002E2B7E78928278320EDB32B0FFD0D8 + 08F755AF4740FAF32F770CADCA2A2FCA70B6B361F118DB168BBAE8D9B21BA9FC + 10C2F12EB8060109ECE88B709D25C021B0C7683273C9267884C0B20F2E88989A + C9754EC7757C01C6B50848AF3FF385CF0DF67823B76C7F183D1B76716396539F + 83553D0EB7F57748660A36FF78560D60AF3D0A0D226BCF20F8E920F3ABE09212 + 826351094D0DB174B243C065782B09C86F1ED8F9684F57F4A58D3BBF8B786E98 + D995B8941B53B572E6B39093C3308B6F887711CEDFEB83921D49F0A99DFF0838 + 08EE51099AAAC3B63DB46A2A2CDB5BF88F417415FCBE4773D9C44B9BBEB807D1 + 44171C96D773743FE08AB0182622F9ED70B422CCB95710CADC4E906420383BE8 + 79002E87FCA75A6F519C0EC2D130AAA53A8E7D58F915F12CBFDC6232B124D28B + 4F6EDF74D7E6AED31B773C8C6854215E195272089E92A1B0D8025B10D0982DAB + 2188881638145C63CCFF2E29513FDB8EE0C090430AF496015D337C02FC21C64F + 5D3C7FFFEEB71FE43FA6185AA702E1AD1B7BDE1E18886061F42066A61B887344 + AC1A4CA167ED1094EC366E9A61D308CA0A50797E489E0B294592C63453C1B2CC + 09AE28ECBB0BCB70E0D82E92D90C2E8C9EC32B6FCE3E45BC4521C0E52D48C8B2 + B42A9D51F0EEDFE6E1EFC1113A35D5447CB48C4D779CC5E0E6BB2145D771A9C3 + BE0B0216312D1262656451C5AB990B22E2A9EB3AC16D5F3F061D305FD1DE7FFE + 0F67FF1138C0F5FB1E10F0C79263F9EDE0780A211491F954281860EC4411EF1D + 390A7B7184C49A5CE312D3F2ABE13925129145FA57C065BE6F1A2635C40A382E + E299144A937378ED9DB967095365985784B7DC02E1583830A2875038847822DA + 8E640CF5AA81770E1F4363E6045F62EF45F6F63CC1151F5C42FB44957CD5CB30 + 5493AA17E5777C1DD4EBADF97D87CEBECB252DDF422B5DE0D24FA62947BB7B23 + 3C4412E8CEA5B925D7F9ED90582F0FEA520BA3236771EB161D831B06FCF73C01 + EE671F1CE9AECBB5322CFADE66EF0501D1EED397967EC72F8D8EFA5756C09D2E + A9872B8B3A0AB7AD429233DB751D88AD3CD7E3776EC9AAA4BB52286CE8477DBE + 8166AD058955923BE03E1152A6AB84DD62A92447AE8904CB5F9929E3172F4FBC + 2C46EFF2EC9713D07FB86FF467B59A89C1753D88C664BF0D6243A9BD37DA326F + BF9B4CC751992E41AD524B21F90AB8BF904FDBD0902059415E6BAA5055ABF4E1 + 64A3D451FE35094C4C2DCDCECCAB6F958B2AFA0A5DFE792D8ADADE53EAECCDA7 + F8B98B546F3722F1302CAA5B963B22947DA2A66E41AF37782C67A1370D4CCEB5 + 5E179EF72D741D02B6E8CFF79FF9E0C9E26C1361DE2452DD3172703F0A4EEF47 + D309E487EF44A4EF33309B35D83C600409A105430C1D5AC7D074CE2505A6AA61 + EC5CFDE872E55F8B80F8A8672E2D5D3A3E5E7DFEE2850A06D7F72222AE347E2B + DAE0BECE482077CB6A20B30552FA56C4B279680BF3BEFA0DCE7B613FCBB46869 + 1BAD0A2F258685A77F7BFAD8B5CABF9280A842EDB1BDC77FBDB0A85D989DAE61 + 60A8DF0714BDF075863699486E40D88627E32CA4442FC2B24D3D54383B221CB9 + 3609B4A35AAE6149B5C783F2DB3722806061E9BE6FBFF55079AE014DB3B06A5D + BF38307CF1FA2DF0DDC6CB855186A77108698B905929BD5242249968DB8F5510 + 443C3A49513822DBE0DECD107003AF5E7EE2C0A9AF4F9D29F1E21143BED01FFC + 37498438806B04D6993D6F401247B1A9DB98BE340F5B6DD082519804374DC31F + 4EBAE1CE74C6EECD10403028168F8E144FBC71ACB867E2E44528BC0EF5AE1B08 + F42063E1FC045AE56934AB554C8E5FC2E9D14968ECB5D5AAD3195156C082C9E9 + 27FAFF83673FF8E9CAE173230208145B7EFCB9D18347468A4F4F9CB840A52B18 + 18DEC87B82B8523B68968AB4DA2245A723918EA1BB274159386894AB307482F3 + F87D62FFA96F8C9EAD5D1436BFEE6533B80F5C8F5C9231B0EBEEBEAD7B77DF71 + 70707D5F6470680D8C660346A3EE5B509CF952701467D7DF8EC9B1F39C9435FC + 68FFA96FFE75A4F81EDF2F5ECF013722D0211167E419AB0FEDBDE727C385CC97 + 736BF2E8E9EF453CDFDD7689B08827A33A55C4C5B109FCF8C03F05F8B165E0DE + C72510CC60FFB8CE32FA0AFD89D54F3DB6E591A135A95DB1A89CBBB235572D36 + CC53DFF9F9C9C7CF5D6E9E116EBA11F8CD12B8F23B9FB8B830320CA60ECE6B44 + 038208C66C23005E087474C35FBDFF1702CB89C402F0E5975A2FC858FB6FAA5F + F9F9B7000300BF7ACAD5D4ACB2C90000000049454E44AE426082 + } + end + object AlarmSet: TCheckBox + AnchorSideLeft.Control = ImgAlarm + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = AlarmAdvance + AnchorSideTop.Side = asrCenter + Left = 60 + Height = 19 + Top = 180 + Width = 74 + BorderSpacing.Left = 12 + BorderSpacing.Right = 8 + Caption = '&Reminder:' + OnClick = AlarmSetClick + TabOrder = 12 + end + object AlarmAdvance: TEdit + AnchorSideLeft.Control = AlarmSet + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Bevel2 + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = AdvanceUpDown + AnchorSideRight.Side = asrBottom + Left = 142 + Height = 23 + Top = 178 + Width = 77 + BorderSpacing.Top = 8 + OnChange = AlarmAdvanceChange + TabOrder = 13 + Text = 'AlarmAdvance' + end + object AdvanceUpDown: TUpDown + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = AlarmAdvance + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = StartDate + AnchorSideRight.Side = asrBottom + Left = 223 + Height = 23 + Top = 178 + Width = 12 + Anchors = [akTop, akRight] + Associate = AlarmAdvance + Max = 120 + Min = 1 + OnClick = AdvanceUpDownClick + Position = 1 + TabOrder = 14 + Wrap = False + end + object AlarmAdvanceType: TComboBox + AnchorSideLeft.Control = AdvanceUpDown + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = AlarmAdvance + AnchorSideTop.Side = asrCenter + Left = 247 + Height = 23 + Top = 178 + Width = 93 + BorderSpacing.Left = 12 + ItemHeight = 15 + Style = csDropDownList + TabOrder = 15 + end + object SoundFinderBtn: TSpeedButton + AnchorSideLeft.Control = AlarmAdvanceType + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = AlarmAdvanceType + AnchorSideTop.Side = asrCenter + Left = 356 + Height = 24 + Top = 177 + Width = 24 + BorderSpacing.Left = 16 + Glyph.Data = { + F6000000424DF600000000000000760000002800000010000000100000000100 + 0400000000008000000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 + 8888888888000888888888888080808888088888080880888088888080888808 + 0888880880888808888800888008880888880888808088080000088880808808 + 8888008880088808888888088088880808888880808888088088888808088088 + 8808888880808088888888888800088888888888888888888888 + } + OnClick = SoundFinderBtnClick + end + object EndTimePlaceholder: TEdit + AnchorSideLeft.Control = EndDate + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = EndDate + AnchorSideRight.Control = AlarmAdvanceType + AnchorSideRight.Side = asrBottom + Left = 247 + Height = 23 + Top = 132 + Width = 93 + Alignment = taCenter + BorderSpacing.Left = 12 + TabOrder = 7 + Text = 'EndTimePlaceholder' + end + object StartTimePlaceholder: TEdit + AnchorSideLeft.Control = StartDate + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = StartDate + AnchorSideRight.Control = AlarmAdvanceType + AnchorSideRight.Side = asrBottom + Left = 247 + Height = 23 + Top = 101 + Width = 93 + Alignment = taCenter + BorderSpacing.Left = 12 + TabOrder = 5 + Text = 'StartTimePlaceholder' end end object NotesMemo: TMemo - Left = 8 - Height = 158 - Top = 231 - Width = 681 + Left = 0 + Height = 243 + Top = 243 + Width = 702 Align = alClient + Constraints.MinHeight = 200 ScrollBars = ssVertical TabOrder = 1 end object Bevel4: TBevel - Left = 8 - Height = 8 - Top = 223 - Width = 681 + Left = 0 + Height = 12 + Top = 231 + Width = 702 Align = alTop Shape = bsSpacer end end object FileDialog: TOpenDialog - left = 320 - top = 256 + left = 440 + top = 352 end end diff --git a/components/tvplanit/source/vpevnteditdlg.pas b/components/tvplanit/source/vpevnteditdlg.pas index 454350fe1..5d4ee8b4a 100644 --- a/components/tvplanit/source/vpevnteditdlg.pas +++ b/components/tvplanit/source/vpevnteditdlg.pas @@ -72,13 +72,12 @@ type TDlgEventEdit = class(TForm) AlarmAdvance: TEdit; Bevel4: TBevel; + StartTimePlaceholder: TEdit; + EndTimePlaceholder: TEdit; LocationEdit: TEdit; LocationLbl: TLabel; NotesMemo: TMemo; Panel1: TPanel; - PanelAlarm: TPanel; - PanelTimes: TPanel; - PanelDescription: TPanel; StartDate: TDateEdit; EndDate: TDateEdit; RepeatUntil: TDateEdit; @@ -110,23 +109,23 @@ type AlarmAdvanceType: TComboBox; AdvanceUpDown: TUpDown; CBAllDay: TCheckBox; - edtUnusedPlaceholder: TEdit; + CustomInterval: TEdit; imgClock: TImage; RecurrenceEndsLbl: TLabel; + procedure AdvanceUpDownClick(Sender: TObject; Button: TUDBtnType); + procedure AlarmAdvanceChange(Sender: TObject); + procedure AlarmSetClick(Sender: TObject); + procedure CancelBtnClick(Sender: TObject); procedure CategoryDrawItem(Control: TWinControl; Index: Integer; ARect: TRect; State: TOwnerDrawState); - procedure OKBtnClick(Sender: TObject); - procedure CancelBtnClick(Sender: TObject); - procedure FormCreate(Sender: TObject); - procedure AlarmAdvanceChange(Sender: TObject); - procedure AdvanceUpDownClick(Sender: TObject; Button: TUDBtnType); + procedure CBAllDayClick(Sender: TObject); procedure CustomIntervalChange(Sender: TObject); + procedure OKBtnClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); procedure IntervalUpDownClick(Sender: TObject; Button: TUDBtnType); procedure RecurringTypeChange(Sender: TObject); - procedure AlarmSetClick(Sender: TObject); - procedure CBAllDayClick(Sender: TObject); procedure SoundFinderBtnClick(Sender: TObject); - procedure FormShow(Sender: TObject); private { Private declarations } {$IFDEF NEW_TIME_EDIT} @@ -139,7 +138,6 @@ type FDatastore: TVpCustomDatastore; AAVerifying: Boolean; CIVerifying: Boolean; - FCustomInterval : TVpRightAlignedEdit; procedure PopLists; procedure PositionControls; procedure LoadCaptions; @@ -170,7 +168,7 @@ type public constructor Create(AOwner : TComponent); override; function Execute(Event: TVpEvent): Boolean; reintroduce; - function AddNewEvent(StartTime, EndTime: TDateTime): Boolean; + function AddNewEvent(PlaceholderStartTime, EndTimePlaceholder: TDateTime): Boolean; published {properties} property TimeFormat: TVpTimeFormat read FTimeFormat write FTimeFormat default tf12Hour; @@ -222,11 +220,16 @@ begin StartTime := TCombobox.Create(self); StartTime.ItemIndex := -1; {$ENDIF} - StartTime.Width := 83; - StartTime.Parent := PanelTimes; + StartTime.Parent := AppointmentGroupbox; + StartTime.Width := StartDate.Width; StartTime.Left := AlarmAdvanceType.Left; StartTime.Top := StartDate.Top; - StartTime.TabOrder:= StartDate.TabOrder+ 1; + StartTime.AnchorSideLeft.Control := AlarmAdvanceType; + StartTime.AnchorSideTop.Control := StartDate; + StartTime.Anchors := [akLeft, akTop]; + StartTime.TabOrder := StartDate.TabOrder + 1; + Bevel3.AnchorsideLeft.Control := Starttime; + StartTimePlaceHolder.Free; {$IFDEF NEW_TIME_EDIT} EndTime := TTimeEdit.Create(self); @@ -234,13 +237,16 @@ begin EndTime := TCombobox.Create(self); EndTime.ItemIndex := -1; {$ENDIF} - EndTime.Width := 83; - EndTime.Parent := PanelTimes; + EndTime.Parent := AppointmentGroupbox; + EndTime.Width := EndDate.Width; EndTime.Left := AlarmAdvanceType.Left; EndTime.Top := EndDate.Top; + EndTime.AnchorSideLeft.Control := AlarmAdvanceType; + EndTime.AnchorSideTop.Control := EndDate; + EndTime.Anchors := [akLeft, akTop]; EndTime.TabOrder := EndDate.TabOrder + 1; + EndTimePlaceHolder.Free; - SoundFinderBtn.Top := AlarmAdvanceType.Top; SoundFinderBtn.Height := AlarmAdvanceType.Height; SoundFinderBtn.Width := SoundFinderBtn.Height; @@ -248,19 +254,7 @@ begin PopLists; LoadCaptions; EndDate.Enabled := False; - - FCustomInterval := TVpRightAlignedEdit.Create(Self); - with FCustomInterval do begin - Parent := PanelTimes; - Top := IntervalUpDown.Top + 1; - Left := IntervalUpDown.Left - 65; - Height := IntervalUpDown.Height - 1; - Width := 65; - MaxLength := 5; - OnChange := CustomIntervalChange; - TabOrder := edtUnusedPlaceholder.TabOrder; - end; - IntervalUpDown.Associate := FCustomInterval; + EndTime.Enabled := false; end; {=====} @@ -285,7 +279,7 @@ begin EndDate.Date := trunc(tStart); {$IFDEF NEW_TIME_EDIT} StartTime.Time := TimeOf(tEnd); - EndTime.Time := timeOf(tStart); + EndTime.Time := TimeOf(tStart); {$ELSE} StartTime.Text := FormatDateTime('hh:nn', TimeOf(tEnd)); EndTime.Text := FormatDateTime('hh:nn', TimeOf(tStart)); @@ -360,8 +354,8 @@ begin StartDate.Enabled := not CBAllDay.Checked; EndDate.Enabled := not CBAllDay.Checked; - EndTime.Enabled := not CBAllDay.Checked; StartTime.Enabled := not CBAllDay.Checked; + EndTime.Enabled := not CBAllDay.Checked; DescriptionEdit.Text := Event.Description; LocationEdit.Text := Event.Location; @@ -375,7 +369,7 @@ begin AlarmAdvanceType.ItemIndex := Ord(Event.AlarmAdvanceType); RecurringType.ItemIndex := Ord(Event.RepeatCode); RecurringTypeChange(Self); - FCustomInterval.Text := IntToStr(Event.CustomInterval); + CustomInterval.Text := IntToStr(Event.CustomInterval); Category.Items.Clear; @@ -407,7 +401,7 @@ begin Event.AlarmAdvance := StrToIntDef(AlarmAdvance.Text, 0); Event.AlarmAdvanceType := TVpAlarmAdvType(AlarmAdvanceType.ItemIndex); Event.RepeatCode := TVpRepeatType(RecurringType.ItemIndex); - Event.CustomInterval := StrToIntDef(FCustomInterval.Text, 0); + Event.CustomInterval := StrToIntDef(CustomInterval.Text, 0); Event.AllDayEvent := CBAllDay.Checked; Event.DingPath := AlarmWavPath; end; @@ -443,11 +437,11 @@ begin StringList.Add(IntToStr(Hour) + ':' + MinStr + AMPMStr); end; end; - StartTime.Items.Assign(StringList); - StartTime.ItemIndex := 0; + PlaceholderStartTime.Items.Assign(StringList); + PlaceholderStartTime.ItemIndex := 0; - EndTime.Items.Assign(StringList); - EndTime.ItemIndex := 0; + EndTimePlaceholder.Items.Assign(StringList); + EndTimePlaceholder.ItemIndex := 0; finally StringList.Free; end; @@ -531,13 +525,13 @@ begin { Don't allow non numeric values. } if CIVerifying then Exit; CIVerifying := true; - Str := FCustomInterval.Text; + Str := CustomInterval.Text; for I := 1 to Length(Str) do if (Str[I] in ['0'..'9']) then Continue else Delete(Str, I, 1); - FCustomInterval.Text := Str; + CustomInterval.Text := Str; if Str <> '' then IntervalUpDown.Position := StrToInt(Str); CIVerifying := false; @@ -547,7 +541,7 @@ end; procedure TDlgEventEdit.IntervalUpDownClick(Sender: TObject; Button: TUDBtnType); begin Unused(Button); - FCustomInterval.Text := IntToStr(IntervalUpDown.Position); + CustomInterval.Text := IntToStr(IntervalUpDown.Position); end; {=====} @@ -559,13 +553,13 @@ begin RecurrenceEndsLbl.Enabled := (RecurringType.ItemIndex > 0); RepeatUntil.Enabled := RecurrenceEndsLbl.Enabled; - FCustomInterval.Enabled := RecurringType.ItemIndex = 7; - IntervalLbl.Enabled := FCustomInterval.Enabled; - IntervalUpDown.Enabled := FCustomInterval.Enabled; - if FCustomInterval.Enabled then begin - FCustomInterval.Text := IntToStr(IntervalUpDown.Position); + CustomInterval.Enabled := RecurringType.ItemIndex = 7; + IntervalLbl.Enabled := CustomInterval.Enabled; + IntervalUpDown.Enabled := CustomInterval.Enabled; + if CustomInterval.Enabled then begin + CustomInterval.Text := IntToStr(IntervalUpDown.Position); if Visible then - FCustomInterval.SetFocus; + CustomInterval.SetFocus; end; end; {=====} @@ -583,9 +577,9 @@ end; procedure TDlgEventEdit.CBAllDayClick(Sender: TObject); begin StartDate.Enabled := not CBAllDay.Checked; + StartTime.Enabled := not CBAllDay.Checked; EndDate.Enabled := not CBAllDay.Checked; EndTime.Enabled := not CBAllDay.Checked; - StartTime.Enabled := not CBAllDay.Checked; end; {=====} @@ -640,173 +634,33 @@ var cnv: TControlCanvas; editHeight: Integer; begin - editHeight := startDate.Height; //ScaleY(startDate.Height, DesigntimeDPI); + editHeight := startDate.Height; + startDate.ButtonWidth := editHeight; endDate.ButtonWidth := editHeight; {$IFDEF NEW_TIME_EDIT} - startTime.ButtonWidth := editHeight; - endTime.ButtonWidth := editHeight; + StartTime.ButtonWidth := editHeight; + EndTime.ButtonWidth := editHeight; {$ENDIF} - - // This is needed as workaround for the combobox height at higher dpi. - // We design it with Style csDropdown where the height is correct, and then - // use the corresponding, correct ItemHeight after switching to csOwnerDrawFixed - // (which is needed to draw the color boxes). - h := Category.ItemHeight; - Category.Style := csOwnerDrawFixed; - Category.ItemHeight := h+1; - - // *** Horizontal positions *** - - // Position controls according to label widths - w := MaxValue([GetLabelWidth(DescriptionLbl), GetLabelWidth(LocationLbl), GetLabelWidth(StartTimeLbl), GetLabelWidth(EndTimeLbl)]); - if w < GetlabelWidth(StartTimeLbl) + imgClock.Picture.Width + DELTA then - w := GetLabelWidth(StartTimeLbl) + imgClock.Picture.Width + DELTA; - DescriptionEdit.Left := w + 2*DELTA; - DescriptionEdit.Width := PanelDescription.ClientWidth - DescriptionEdit.Left - DELTA; - DescriptionLbl.Left := DescriptionEdit.Left - GetLabelWidth(DescriptionLbl) - DELTA; - - LocationEdit.Left := DescriptionEdit.Left; - LocationLbl.Left := LocationEdit.Left - GetLabelWidth(LocationLbl) - DELTA; + RepeatUntil.ButtonWidth := editHeight; cnv := TControlCanvas.Create; try - cnv.Control := startDate; - cnv.Font.Assign(startDate.Font); - w := cnv.TextWidth('99.99.9999') + startDate.ButtonWidth + 10; + cnv.Control := StartDate; + w := cnv.TextWidth(FormatDateTime(' dd. mm. yyyy ', EncodeDate(2000,12,30))); + Startdate.Width := w + StartDate.ButtonWidth; + EndDate.Width := StartDate.Width; + StartTime.Width := StartDate.Width; + EndTime.Width := StartDate.Width; finally cnv.Free; - end;; - StartDate.Width := w; - EndDate.Width := w; - StartTime.Width := w; - EndTime.Width := w; - - StartDate.Left := DescriptionEdit.Left; - StartTimeLbl.Left := StartDate.Left - GetLabelWidth(StartTimeLbl) - DELTA; - - EndDate.Left := StartDate.Left; - EndTimeLbl.Left := EndDate.Left - GetLabelWidth(EndTimeLbl) - DELTA; - - StartTime.Left := StartDate.Left + StartDate.Width + DELTA; - EndTime.Left := StartTime.Left; - - CbAllDay.Left := StartDate.Left; //ImgClock.Left + ImgClock.Picture.Width + DELTA; - AlarmSet.Left := ImgAlarm.Left + ImgAlarm.Picture.Width + DELTA; - - Bevel3.Left := StartTime.Left + StartTime.Width + 2*DELTA; - - ImgRecurring.Left := Bevel3.Left + Bevel3.Width + 2*DELTA; - RecurringType.Left := RightOf(ImgRecurring) + DELTA; - - RecurringLbl.Left := ImgRecurring.Left + ImgRecurring.Picture.Width + DELTA; - w := Max( - GetLabelWidth(RecurringLbl) + ImgRecurring.Picture.Width + DELTA, - GetLabelWidth(RecurrenceEndsLbl) + DELTA + RepeatUntil.Width - ); - if w > RecurringType.Width then RecurringType.Width := w; - - RepeatUntil.Left := RightOf(RecurringType) - RepeatUntil.Width; - RecurrenceEndsLbl.Left := RepeatUntil.Left - DELTA - GetLabelWIdth(RecurrenceEndsLbl); - - w := GetLabelWidth(IntervalLbl); - if w > FCustomInterval.Width + IntervalUpdown.Width then - FCustomInterval.Width := w - IntervalUpdown.Width; - FCustomInterval.Left := RecurringType.Left + RecurringType.Width + 2*DELTA; - IntervalUpdown.Left := FCustomInterval.Left + FCustomInterval.Width; - IntervalLbl.Left := FCustomInterval.Left; - - LocationEdit.Width := Bevel3.Left - LocationEdit.Left - DELTA; - - if AlarmSet.Left + AlarmSet.Width + DELTA < StartDate.Left + StartDate.Width - AdvanceUpdown.Width - AlarmAdvance.Width then - begin - AdvanceUpdown.Left := StartDate.Left + StartDate.Width - AdvanceUpdown.Width; - AlarmAdvance.Left := AdvanceUpdown.Left - AlarmAdvance.Width; - end else begin - AlarmAdvance.Left := AlarmSet.Left + AlarmSet.Width + DELTA; - AdvanceUpdown.Left := AlarmAdvance.Left + AlarmAdvance.Width; - AlarmAdvancetype.Left := AdvanceUpdown.Left + AdvanceUpdown.Width + 2*DELTA; end; - SoundFinderBtn.Left := AlarmAdvanceType.Left + AlarmAdvanceType.Width + 2; + RepeatUntil.Width := StartDate.Width; +// CustomInterval.Left := RepeatUntil.Left; + AlarmAdvance.Width := AdvanceUpDown.Left - 2 - AlarmAdvance.Left; + AlarmAdvanceType.Width := StartTime.Width; - Width := RightOf(IntervalUpdown) + DELTA + Width - AppointmentGroupbox.ClientWidth; - - CategoryLbl.Left := Bevel3.Left + Bevel3.Width + DELTA; - Category.Left := CategoryLbl.Left + GetLabelWidth(CategoryLbl) + DELTA; - Category.Width := RightOf(DescriptionEdit) - Category.Left; - { - Category.Left := DescriptionEdit.Left + DescriptionEdit.Width - category.Width; - CategoryLbl.Left := Category.Left - DELTA - GetLabelWidth(CategoryLbl); - } - // *** Vertical positions *** - DescriptionEdit.Top := VDELTA; - DescriptionLbl.Top := DescriptionEdit.Top + (DescriptionEdit.Height - DescriptionLbl.Height) div 2; - LocationEdit.Top := BottomOf(DescriptionEdit) + VDIST; - LocationLbl.Top := LocationEdit.Top + (LocationEdit.Height - LocationLbl.Height) div 2; - CategoryLbl.Top := LocationLbl.Top; - Category.Top := LocationEdit.Top; - PanelDescription.ClientHeight := BottomOf(LocationEdit) + VDIST; - - imgClock.Top := VDELTA; - CbAllDay.Top := imgClock.Top; - imgRecurring.Top := imgClock.Top; - - StartDate.Top := BottomOf(CbAllDay) + VDIST; - StartTime.Top := StartDate.Top; - StartTimeLbl.Top := StartDate.Top + (StartDate.Height - StartTimeLbl.Height) div 2; - EndDate.Top := BottomOf(StartDate) + VDIST; - EndTime.Top := EndDate.Top; - EndTimeLbl.Top := EndDate.Top + (EndDate.Height - EndTimeLbl.Height) div 2; - RecurringType.Top := StartDate.Top; - edtUnusedPlaceHolder.Top := RecurringType.Top; - FCustomInterval.Top := RecurringType.Top; - IntervalUpDown.Top := FCustomInterval.Top; - RecurringLbl.Top := RecurringType.Top - 4 - RecurringLbl.Height; - IntervalLbl.Top := RecurringLbl.Top; - RepeatUntil.Top := EndDate.Top; - RecurrenceEndsLbl.Top := RepeatUntil.Top + (RepeatUntil.Height - RecurrenceEndsLbl.Height) div 2; - PanelTimes.ClientHeight := BottomOf(EndDate) + VDELTA; - Bevel3.Top := VDELTA; - Bevel3.Height := PanelTimes.ClientHeight - 2*VDELTA; - - imgAlarm.Top := VDELTA; - AlarmAdvance.Top := imgAlarm.Top; - AdvanceUpdown.Top := AlarmAdvance.Top; - AlarmSet.Top := AlarmAdvance.Top + (AlarmAdvance.Height - AlarmSet.Height) div 2; - AlarmAdvanceType.Top := AlarmAdvance.Top; - SoundFinderBtn.Height := AlarmAdvanceType.Height; - SoundFinderBtn.Width := SoundFinderBtn.Height; - SoundFinderBtn.Top := AlarmAdvanceType.Top; - PanelAlarm.ClientHeight := Max(BottomOf(ImgAlarm), BottomOf(AlarmAdvance)) + VDIST; - - OKBtn.Width := Max(GetButtonWidth(OKBtn), GetButtonWidth(CancelBtn)); - CancelBtn.Width := OKBtn.Width; - {$IFDEF MSWINDOWS} - CancelBtn.Left := ButtonPanel.ClientWidth - ResourcenameLbl.Left - CancelBtn.Width; - OKBtn.Left := CancelBtn.Left - DELTA - OKBtn.Width; - OKBtn.TabOrder := 0; - CancelBtn.TabOrder := 1; - {$ELSE} - OKBtn.Left := ButtonPanel.ClientWidth - ResourcenameLbl.Left - OKBtn.Width; - CancelBtn.Left := OKBtn.Left - DELTA - CancelBtn.Width; - CancelBtn.TabOrder := 0; - OKBtn.TabOrder := 1; - {$ENDIF} - ResourceNameLbl.Font.Size := ScaleY(ResourceNameLbl.Font.Size, DesignTimeDPI); - ResourceNameLbl.Top := (ButtonPanel.ClientHeight - Panel1.BorderWidth - ResourceNameLbl.Height) div 2; - OKBtn.Top := (ButtonPanel.ClientHeight - Panel1.BorderWidth - OKBtn.Height) div 2; - CancelBtn.Top := OKBtn.Top; - - OKBtn.Height := ScaleY(OKBtn.Height, DesigntimeDPI); - CancelBtn.Height := OKBtn.Height; - ButtonPanel.ClientHeight := OKBtn.Height + Bevel4.Height; - ResourceNameLbl.Top := OKBtn.Top + (OKBtn.Height - ResourceNameLbl.Height) div 2; - - NotesMemo.Top := BottomOf(AppointmentGroupbox) + Bevel4.Height; - NotesMemo.Width := AppointmentGroupbox.Width; - NotesMemo.Left := AppointmentGroupbox.Left; - - ClientHeight := AppointmentGroupbox.Height + Bevel4.Height + ScaleY(NotesMemo.Height, DesignTimeDPI) + ButtonPanel.Height; + AlignOKCancel(OKBtn, CancelBtn, ButtonPanel); end; @@ -848,13 +702,13 @@ begin end; {=====} -function TVpEventEditDialog.AddNewEvent(StartTime, EndTime: TDateTime): Boolean; +function TVpEventEditDialog.AddNewEvent(PlaceholderStartTime, EndTimePlaceholder: TDateTime): Boolean; begin Result := false; if DataStore <> nil then begin ceEvent := DataStore.Resource.Schedule.AddEvent( DataStore.GetNextID(EventsTableName), - StartTime, EndTime + PlaceholderStartTime, EndTimePlaceholder ); if ceEvent <> nil then begin Result := Execute(ceEvent);