pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

more working on the dialog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@351 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2008-02-13 00:13:01 +00:00
parent 125389bf37
commit b8a3e18a72
3 changed files with 77 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
components/tvplanit/source/vpalarmdlg.lfm
View File

@ -1,15 +1,15 @@
object AlarmNotifyForm: TAlarmNotifyForm object AlarmNotifyForm: TAlarmNotifyForm
Left = 266 Left = 359
Height = 205 Height = 197
Top = 174 Top = 292
Width = 407 Width = 400
HorzScrollBar.Page = 406 HorzScrollBar.Page = 399
VertScrollBar.Page = 204 VertScrollBar.Page = 196
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Reminder' Caption = 'Reminder'
ClientHeight = 205 ClientHeight = 197
ClientWidth = 407 ClientWidth = 400
Color = clWindow Color = clWindow
KeyPreview = True KeyPreview = True
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
@ -26,80 +26,55 @@ object AlarmNotifyForm: TAlarmNotifyForm
ParentColor = False ParentColor = False
end end
object lSubject: TLabel object lSubject: TLabel
Left = 48 Left = 24
Height = 14 Height = 14
Top = 8 Top = 32
Width = 47 Width = 47
Caption = 'lSubject' Caption = 'lSubject'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
end end
object lNotes: TLabel object lNotes: TLabel
Left = 48 Left = 24
Height = 96 Height = 64
Top = 32 Top = 64
Width = 344 Width = 368
AutoSize = False AutoSize = False
Caption = 'lNotes' Caption = 'lNotes'
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
object Image1: TImage object lTime: TLabel
Left = 5 Left = 24
Height = 18 Height = 14
Top = 8 Top = 8
Width = 19 Width = 25
Picture.Data = { Caption = 'lTime'
1754506F727461626C654E6574776F726B47726170686963CE02000089504E47 ParentColor = False
0D0A1A0A0000000D49484452000000100000001008060000001FF3FF61000002
954944415478DA8593EF4B535118C79D0E7F202AFE405F280A09C359126EAFCA
5E0AF50F0441F5A277516FA3222D4C8D0A419A600582A6F8A2985E119D08DEB9
F6C3EEE64A436A53F7C3ADC5B4E9EE4ABBF3CED9BE9D73B75961D685EF7DEE39
CFF97ECEF31CCECD009041451E9952A96CD66834F30A85E21C19CBE95C4A7295
4A75A6AFAF8FA36BE8DC818FBEDC247044769D0EC16010B6890969EC4E897E2F
4C4F4BB977535307B9D4C619323A58CAC981C362412010C04712DF6765219C99
2969512683636E4ECAD1358B2940AABA2460353F1FCCE0207C3E1F9881012C94
95C15F52027F6121DEE6E581E9EF4FE64874FE0DB05954047D5D1D9E575581AD
A981A7BA1A6B9595F09697C34940BA8202F4E4E662323B1B4152D121C04E6929
BE34356143ADC67A43030204E6AFADC51A017908C85D510117A9CA5D5C8CB05C
FE27C066B3617F7FFF486DAF7308CCDF85B01DA20727CD51CF9100411060B7DB
C1F33CEC360B56D8EB08BBB4D8740E219148FC1F40CD63636388C7E3082DBF24
C661C4BFBBB13279093B2107445184D56A3D0CA0863484611808BC97982E43DC
9C8418EC06EFD1C1A36F25956D1D0D488B6146F189EBC2D6CA08C4403B4C8FD4
D80B8F60B1BF19CE37AFC071DCBF01D3231AACE95B100B0D21EABE02D3C346EC
FA6FE1AB770A0B2FCEC36EB5E0E02A530031FD489BF762BB581EBF8A0839B85D
DF0D08AB1792729176824FE037F6C0A66DFB056059169148E41B85D04A369646
E1377523B6F14CDA5D705D242DA8A418F55E43747D1CA6C7A761BC7FBC5E02F4
F6F6C26030C06C364BB23E3D8BE89607315E0F3144CE20A4FD4DA388EF7CC067
EB30665B145A09D0D9D96921BF31D232769D223DAB617CA0C2EB8E4618DA4F62
B6AD01FA7B27C0B6D663E68E1233B71509F6E631F34F6485AC66C360414B0000
000049454E44AE426082
}
Transparent = False
end end
object DismissBtn: TButton object DismissBtn: TButton
Left = 229 Left = 216
Height = 25 Height = 25
Top = 168 Top = 168
Width = 75 Width = 88
Caption = 'DismissBtn' Caption = 'DismissBtn'
OnClick = DismissBtnClick OnClick = DismissBtnClick
TabOrder = 0 TabOrder = 0
end end
object SnoozeBtn: TButton object SnoozeBtn: TButton
Left = 320 Left = 312
Height = 25 Height = 25
Top = 136 Top = 136
Width = 75 Width = 83
Caption = 'SnoozeBtn' Caption = 'SnoozeBtn'
OnClick = SnoozeBtnClick OnClick = SnoozeBtnClick
TabOrder = 1 TabOrder = 1
end end
object OpenItemBtn: TButton object OpenItemBtn: TButton
Left = 320 Left = 312
Height = 25 Height = 25
Top = 168 Top = 168
Width = 75 Width = 83
Caption = 'OpenItemBtn' Caption = 'OpenItemBtn'
Default = True Default = True
OnClick = OpenItemBtnClick OnClick = OpenItemBtnClick
@ -147,7 +122,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
Placement.Left = 10 Placement.Left = 10
Placement.Height = 412 Placement.Height = 412
Placement.Width = 705 Placement.Width = 705
left = 300 left = 360
top = 36 top = 8
end end
end end

88
components/tvplanit/source/vpalarmdlg.lrs
View File

@ -1,66 +1,36 @@
{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei } { Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
LazarusResources.Add('TAlarmNotifyForm','FORMDATA',[ LazarusResources.Add('TAlarmNotifyForm','FORMDATA',[
'TPF0'#16'TAlarmNotifyForm'#15'AlarmNotifyForm'#4'Left'#3#10#1#6'Height'#3#205 'TPF0'#16'TAlarmNotifyForm'#15'AlarmNotifyForm'#4'Left'#3'g'#1#6'Height'#3#197
+#0#3'Top'#3#174#0#5'Width'#3#151#1#18'HorzScrollBar.Page'#3#150#1#18'VertScr' +#0#3'Top'#3'$'#1#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScro'
+'ollBar.Page'#3#204#0#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7 +'llBar.Page'#3#196#0#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7
+#8'bsDialog'#7'Caption'#6#8'Reminder'#12'ClientHeight'#3#205#0#11'ClientWidt' +#8'bsDialog'#7'Caption'#6#8'Reminder'#12'ClientHeight'#3#197#0#11'ClientWidt'
+'h'#3#151#1#5'Color'#7#8'clWindow'#10'KeyPreview'#9#9'OnKeyDown'#7#11'FormKe' +'h'#3#144#1#5'Color'#7#8'clWindow'#10'KeyPreview'#9#9'OnKeyDown'#7#11'FormKe'
+'yDown'#6'OnShow'#7#8'FormShow'#8'Position'#7#9'poDefault'#0#6'TLabel'#13'Sn' +'yDown'#6'OnShow'#7#8'FormShow'#8'Position'#7#9'poDefault'#0#6'TLabel'#13'Sn'
+'oozeCaption'#4'Left'#2'0'#6'Height'#2#13#3'Top'#3#136#0#5'Width'#2'N'#9'Ali' +'oozeCaption'#4'Left'#2'0'#6'Height'#2#13#3'Top'#3#136#0#5'Width'#2'N'#9'Ali'
+'gnment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#13'SnoozeCaption'#11 +'gnment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#13'SnoozeCaption'#11
+'ParentColor'#8#0#0#6'TLabel'#8'lSubject'#4'Left'#2'0'#6'Height'#2#14#3'Top' +'ParentColor'#8#0#0#6'TLabel'#8'lSubject'#4'Left'#2#24#6'Height'#2#14#3'Top'
+#2#8#5'Width'#2'/'#7'Caption'#6#8'lSubject'#10'Font.Style'#11#6'fsBold'#0#11 +#2' '#5'Width'#2'/'#7'Caption'#6#8'lSubject'#10'Font.Style'#11#6'fsBold'#0#11
+'ParentColor'#8#0#0#6'TLabel'#6'lNotes'#4'Left'#2'0'#6'Height'#2'`'#3'Top'#2 +'ParentColor'#8#0#0#6'TLabel'#6'lNotes'#4'Left'#2#24#6'Height'#2'@'#3'Top'#2
+' '#5'Width'#3'X'#1#8'AutoSize'#8#7'Caption'#6#6'lNotes'#11'ParentColor'#8#8 +'@'#5'Width'#3'p'#1#8'AutoSize'#8#7'Caption'#6#6'lNotes'#11'ParentColor'#8#8
+'WordWrap'#9#0#0#6'TImage'#6'Image1'#4'Left'#2#5#6'Height'#2#18#3'Top'#2#8#5 +'WordWrap'#9#0#0#6'TLabel'#5'lTime'#4'Left'#2#24#6'Height'#2#14#3'Top'#2#8#5
+'Width'#2#19#12'Picture.Data'#10#234#2#0#0#23'TPortableNetworkGraphic'#206#2 +'Width'#2#25#7'Caption'#6#5'lTime'#11'ParentColor'#8#0#0#7'TButton'#10'Dismi'
+#0#0#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#16#0#0#0#16#8#6#0#0#0#31#243 +'ssBtn'#4'Left'#3#216#0#6'Height'#2#25#3'Top'#3#168#0#5'Width'#2'X'#7'Captio'
+#255'a'#0#0#2#149'IDATx'#218#133#147#239'KSQ'#24#199#157#14' *'#254'@_('#10 +'n'#6#10'DismissBtn'#7'OnClick'#7#15'DismissBtnClick'#8'TabOrder'#2#0#0#0#7
+#9#195'Y'#18'n'#175#202'^'#10#245#15#4'A'#245#162'wQo'#163'"-L'#141#10'A'#154 +'TButton'#9'SnoozeBtn'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'#3#136#0#5'Width'
+'`'#5#130#166#248#162#152'^'#17#157#8#222#185#246#195#238#230'JCjS'#247#195 +#2'S'#7'Caption'#6#9'SnoozeBtn'#7'OnClick'#7#14'SnoozeBtnClick'#8'TabOrder'#2
+#173#197#180#233#238'J'#187#243#206#217#190#157's'#183'Ya'#214#133#239'}'#238 +#1#0#0#7'TButton'#11'OpenItemBtn'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'#3#168
+'9'#207#249'~'#206#243#28#206#205#0#144'AE'#30#153'R'#169'l'#214'h4'#243#10 +#0#5'Width'#2'S'#7'Caption'#6#11'OpenItemBtn'#7'Default'#9#7'OnClick'#7#16'O'
+#133#226#28#25#203#233'\Jr'#149'Ju'#166#175#175#143#163'k'#232#220#129#143 +'penItemBtnClick'#8'TabOrder'#2#2#0#0#9'TComboBox'#11'SnoozeCombo'#4'Left'#3
+#190#220'$pDv'#157#14#193'`'#16#182#137#9'i'#236'N'#137'~/LOK'#185'wSS'#7#185 +#136#0#6'Height'#2#21#3'Top'#3#136#0#5'Width'#3#168#0#16'AutoCompleteText'#11
+#212#198#25'2:X'#202#201#129#195'bA '#16#192'G'#18#223'ge!'#156#153')iQ&'#131 +#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#13#13
+'cnN'#202#209'5'#139')@'#170#186'$`5?'#31#204#224' |>'#31#152#129#1','#148 +'Items.Strings'#1#6#9'5 Minutes'#6#10'10 Minutes'#6#10'15 Minutes'#6#10'30 M'
+#149#193'_R'#2'a!'#222#230#229#129#233#239'O'#230'Ht'#254#13#176'YT'#4'}]' +'inutes'#6#10'45 Minutes'#6#7'1 Hours'#6#7'2 Hours'#6#7'3 Hours'#6#7'4 Hours'
+#29#158'WU'#129#173#169#129#167#186#26'k'#149#149#240#150#151#195'I@'#186#130 +#6#7'5 Hours'#6#7'6 Hours'#6#7'7 Hours'#6#7'8 Hours'#6#6'1 Days'#6#6'2 Days'
+#2#244#228#230'b2;'#27'AR'#209'!'#192'Ni)'#190'45aC'#173#198'zC'#3#2#4#230 +#6#6'3 Days'#6#6'4 Days'#6#6'5 Days'#6#6'6 Days'#6#6'1 Week'#0#8'OnChange'#7
+#175#173#197#26#1'y'#8#200']Q'#1#23#169#202']\'#140#176'\'#254''''#192'f'#179 +#17'SnoozeComboChange'#11'ParentColor'#9#5'Style'#7#14'csDropDownList'#8'Tab'
+'a'#255'Hm'#175's'#8#204#223#133#176#29#162#7''''#205'Q'#207#145#0'A'#16'`' +'Order'#2#3#0#0#18'TVpEventEditDialog'#11'EventDialog'#7'Version'#6#5'v1.03'
+#183#219#193#243'<'#236'6'#11'V'#216#235#8#187#180#216't'#14'!'#145'H'#252#31 +#10'TimeFormat'#7#8'tf24Hour'#18'Placement.Position'#7#11'mpCenterTop'#13'Pl'
+'@'#205'ccc'#136#199#227#8'-'#191'$'#198'a'#196#191#187#177'2y'#9';!'#7'DQ' +'acement.Top'#2#10#14'Placement.Left'#2#10#16'Placement.Height'#3#156#1#15'P'
+#132#213'j='#12#160#134'4'#132'a'#24#8#188#151#152'.C'#220#156#132#24#236#6 +'lacement.Width'#3#193#2#4'left'#3'h'#1#3'top'#2#8#0#0#0
+#239#209#193#163'o%'#149'm'#29#13'H'#139'aF'#241#137#235#194#214#202#8#196'@'
+';L'#143#212#216#11#143'`'#177#191#25#206'7'#175#192'q'#220#191#1#211'#'#26
+#172#233'['#16#11#13'!'#234#190#2#211#195'F'#236#250'o'#225#171'w'#10#11'/'
+#206#195'n'#181#224#224'*S'#0'1'#253'H'#155#247'b'#187'X'#30#191#138#8'9'#184
+']'#223#13#8#171#23#146'r'#145'v'#130'O'#224'7'#246#192#166'm'#251#5'`Y'#22
+#145'H'#228#27#133#208'J6'#150'F'#225'7u#'#182#241'L'#218']p]$-'#168#164#24
+#245'^Ct}'#28#166#199#167'a'#188''#188'^'#2#244#246#246#194'`0'#192'l6K'#178
+'>='#139#232#150#7'1^'#15'1D'#206' '#164#253'M'#163#136#239'|'#192'g'#235'0f'
+'['#20'Z'#9#208#217#217'i!'#191'1'#210'2v'#157'"='#171'a|'#160#194#235#142'F'
+#24#218'Ob'#182#173#1#250'{'''#192#182#214'c'#230#142#18'3'#183#21#9#246#230
+'1'#243'Od'#133#172'f'#195'`AK'#0#0#0#0'IEND'#174'B`'#130#11'Transparent'#8#0
+#0#7'TButton'#10'DismissBtn'#4'Left'#3#229#0#6'Height'#2#25#3'Top'#3#168#0#5
+'Width'#2'K'#7'Caption'#6#10'DismissBtn'#7'OnClick'#7#15'DismissBtnClick'#8
+'TabOrder'#2#0#0#0#7'TButton'#9'SnoozeBtn'#4'Left'#3'@'#1#6'Height'#2#25#3'T'
+'op'#3#136#0#5'Width'#2'K'#7'Caption'#6#9'SnoozeBtn'#7'OnClick'#7#14'SnoozeB'
+'tnClick'#8'TabOrder'#2#1#0#0#7'TButton'#11'OpenItemBtn'#4'Left'#3'@'#1#6'He'
+'ight'#2#25#3'Top'#3#168#0#5'Width'#2'K'#7'Caption'#6#11'OpenItemBtn'#7'Defa'
+'ult'#9#7'OnClick'#7#16'OpenItemBtnClick'#8'TabOrder'#2#2#0#0#9'TComboBox'#11
+'SnoozeCombo'#4'Left'#3#136#0#6'Height'#2#21#3'Top'#3#136#0#5'Width'#3#168#0
+#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'
+#0#10'ItemHeight'#2#13#13'Items.Strings'#1#6#9'5 Minutes'#6#10'10 Minutes'#6
+#10'15 Minutes'#6#10'30 Minutes'#6#10'45 Minutes'#6#7'1 Hours'#6#7'2 Hours'#6
+#7'3 Hours'#6#7'4 Hours'#6#7'5 Hours'#6#7'6 Hours'#6#7'7 Hours'#6#7'8 Hours'
+#6#6'1 Days'#6#6'2 Days'#6#6'3 Days'#6#6'4 Days'#6#6'5 Days'#6#6'6 Days'#6#6
+'1 Week'#0#8'OnChange'#7#17'SnoozeComboChange'#11'ParentColor'#9#5'Style'#7
+#14'csDropDownList'#8'TabOrder'#2#3#0#0#18'TVpEventEditDialog'#11'EventDialo'
+'g'#7'Version'#6#5'v1.03'#10'TimeFormat'#7#8'tf24Hour'#18'Placement.Position'
+#7#11'mpCenterTop'#13'Placement.Top'#2#10#14'Placement.Left'#2#10#16'Placeme'
+'nt.Height'#3#156#1#15'Placement.Width'#3#193#2#4'left'#3','#1#3'top'#2'$'#0
+#0#0
]); ]);

22
components/tvplanit/source/vpalarmdlg.pas
View File

@ -52,7 +52,7 @@ type
TAlarmNotifyForm = class(TForm) TAlarmNotifyForm = class(TForm)
DismissBtn: TButton; DismissBtn: TButton;
EventDialog: TVpEventEditDialog; EventDialog: TVpEventEditDialog;
Image1: TImage; lTime: TLabel;
lSubject: TLabel; lSubject: TLabel;
lNotes: TLabel; lNotes: TLabel;
OpenItemBtn: TButton; OpenItemBtn: TButton;
@ -154,6 +154,7 @@ begin
OpenItemBtn.Caption := RSOpenItemBtn; OpenItemBtn.Caption := RSOpenItemBtn;
lNotes.Caption := Event.Note; lNotes.Caption := Event.Note;
lSubject.Caption := Event.Description; lSubject.Caption := Event.Description;
lTime.caption := dateTimeToStr(Event.StartTime)+' - '+dateTimeToStr(Event.EndTime);
if Now > Event.StartTime then if Now > Event.StartTime then
Self.Caption := RSOverdue + ' : ' Self.Caption := RSOverdue + ' : '
@ -228,7 +229,24 @@ end;
procedure TAlarmNotifyForm.DismissBtnClick(Sender: TObject); procedure TAlarmNotifyForm.DismissBtnClick(Sender: TObject);
begin begin
Event.AlarmSet := false; if Event.RepeatCode = rtNone then
Event.AlarmSet := false
else
begin
SnoozeDelay := 0;
case Event.RepeatCode of
rtDaily:SnoozeDelay := 1.0;
rtWeekly:SnoozeDelay := 7.0;
//TODO: rtMonthlyByDay:
//TODO: rtMonthlyByDate:
//TODO: rtYearlyByDay:
//TODO: rtYearlyByDate:
//TODO: rtCustom:
else
Event.AlarmSet := false
end;
CalcSnooze;
end;
Close; Close;
end; end;
{=====} {=====}