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

tvplanit: Minor layout changes for SoundFinderBtn in EventEditDlg.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4740 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-13 17:26:15 +00:00
parent d1a1583328
commit b5e33953a7
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/tvplanit/source/vpevnteditdlg.pas
View File

@ -212,6 +212,7 @@ begin
StartTime.Parent := AppointmentGroupbox; StartTime.Parent := AppointmentGroupbox;
StartTime.Left := AlarmAdvanceType.Left; StartTime.Left := AlarmAdvanceType.Left;
StartTime.Top := StartDate.Top; StartTime.Top := StartDate.Top;
StartTime.TabOrder:= StartDate.TabOrder+ 1;
{$IFDEF LCL} {$IFDEF LCL}
EndTime := TTimeEdit.Create(self); EndTime := TTimeEdit.Create(self);
@ -223,6 +224,11 @@ begin
EndTime.Parent := AppointmentGroupbox; EndTime.Parent := AppointmentGroupbox;
EndTime.Left := AlarmAdvanceType.Left; EndTime.Left := AlarmAdvanceType.Left;
EndTime.Top := EndDate.Top; EndTime.Top := EndDate.Top;
EndTime.TabOrder := EndDate.TabOrder + 1;
SoundFinderBtn.Top := AlarmAdvanceType.Top;
SoundFinderBtn.Height := AlarmAdvanceType.Height;
SoundFinderBtn.Width := SoundFinderBtn.Height;
ReturnCode := rtAbandon; ReturnCode := rtAbandon;
PopLists; PopLists;
@ -646,6 +652,7 @@ begin
AlarmAdvance.Enabled := AlarmSet.Checked; AlarmAdvance.Enabled := AlarmSet.Checked;
AlarmAdvanceType.Enabled := AlarmSet.Checked; AlarmAdvanceType.Enabled := AlarmSet.Checked;
AdvanceUpDown.Enabled := AlarmSet.Checked; AdvanceUpDown.Enabled := AlarmSet.Checked;
SoundFinderBtn.Enabled := AlarmSet.Checked;
Event.SnoozeTime := 0.0; Event.SnoozeTime := 0.0;
end; end;
{=====} {=====}