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

tvplanit: Fix event edit dialog to enable start and end date controls for all-day events.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8432 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-31 20:56:36 +00:00
parent 7ac4c2769e
commit 9c4260cd4e
3 changed files with 5 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpevnteditdlg.lfm
View File

@ -11,7 +11,6 @@ object DlgEventEdit: TDlgEventEdit
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object ButtonPanel: TPanel
Left = 0
Height = 37
@ -606,7 +605,7 @@ object DlgEventEdit: TDlgEventEdit
AnchorSideLeft.Control = CustomInterval
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 676
Left = 679
Height = 23
Top = 101
Width = 12
@ -735,7 +734,7 @@ object DlgEventEdit: TDlgEventEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = StartDate
AnchorSideRight.Side = asrBottom
Left = 217
Left = 230
Height = 23
Top = 178
Width = 12

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

@ -271,7 +271,6 @@ begin
ReturnCode := rtAbandon;
PopLists;
LoadCaptions;
EndDate.Enabled := False;
EndTime.Enabled := false;
Category.DropDownCount := DROPDOWN_COUNT;
@ -448,8 +447,6 @@ begin
CBAllDay.Checked := Event.AllDayEvent;
AlarmWavPath := Event.DingPath;
StartDate.Enabled := not CBAllDay.Checked;
EndDate.Enabled := not CBAllDay.Checked;
StartTime.Enabled := not CBAllDay.Checked;
EndTime.Enabled := not CBAllDay.Checked;
@ -676,9 +673,7 @@ 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;
end;
{=====}

6
components/tvplanit/source/vpganttview.pas
View File

@ -206,7 +206,7 @@ type
procedure PopupAddEvent(Sender: TObject);
procedure PopupDeleteEvent(Sender: TObject);
procedure PopupEditEvent(Sender: TObject);
procedure UpdatePopupMenu;
procedure UpdatePopupMenuState;
public
constructor Create(AOwner: TComponent); override;
@ -1253,8 +1253,8 @@ begin
FActiveRow := GetRowOfEvent(FActiveEvent);
ScrollRowIntoView(FActiveRow);
end;
UpdatePopupMenu;
end;
UpdatePopupMenuState;
end;
procedure TVpGanttView.SetActiveRow(AValue: Integer);
@ -1619,7 +1619,7 @@ begin
SpawnEventEditDialog(false);
end;
procedure TVpGanttView.UpdatePopupMenu;
procedure TVpGanttView.UpdatePopupMenuState;
var
i: Integer;
begin