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

tvplanit: Disable day offset parameters when not needed by element in VpEdElem

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8511 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-03 21:26:03 +00:00
parent d8eb756310
commit f5d94166a0
12 changed files with 195 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/tvplanit/source/vpedelem.pas
View File

@@ -56,7 +56,7 @@ type
gbDayOffset: TGroupBox;
lblName: TLabel;
Panel1: TPanel;
Panel2: TPanel;
DayOffsetPanel: TPanel;
ButtonPanel: TPanel;
ItemTypePanel: TPanel;
HeightWidthPanel: TPanel;
@@ -282,8 +282,8 @@ begin
rgItemType.Items[6] := RSTasksElement;
rgItemType.Items[7] := RSContactsElement;
gbDayOffset.Caption := RSTimeIncLbl;
rgDayOffsetUnit.Caption := RSTimeIncUnits;
gbDayOffset.Caption := RSDayOffsetCaption;
rgDayOffsetUnit.Caption := RSDayOffsetUnits;
rgDayOffsetUnit.Items[0] := RSDays;
rgDayOffsetUnit.Items[1] := RSWeeks;
rgDayOffsetUnit.Items[2] := RSMonths;
@@ -301,7 +301,7 @@ begin
lblHeight.Caption := RSHeight;
chkVisible.Caption := RSVisible;
gbCaption.Caption := RSCaption;
gbCaption.Caption := RSCaptionLbl;
lblCaptionText.Caption := RSTextCaption;
btnCaptionFont.Caption := RSFontBtn;
btnShape.Caption := RSShapeBtn;
@@ -354,15 +354,20 @@ begin
end;
procedure TfrmEditElement.SetItemType(Index : Integer);
var
itemType: TVpItemType;
begin
rgItemType.ItemIndex := Index;
itemType := TVpItemType(Index);
btnShape.Enabled := TVpItemType(Index) = itShape;
btnShape.Enabled := itemType = itShape;
gbCaption.Enabled := TVpItemType(Index) = itCaption;
gbCaption.Enabled := itemType = itCaption;
edCaptionText.Enabled := gbCaption.Enabled;
lblCaptionText.Enabled := gbCaption.Enabled;
btnCaptionFont.Enabled := gbCaption.Enabled;
DayOffsetPanel.Enabled := itemType in [itDayView, itWeekView, itMonthView, itCalendar];
end;
procedure TfrmEditElement.SetMaxSpin(Spin : Integer);