uCleaningNotesEdit.pas

unit uCleaningNotesEdit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uDImages, hData, Vcl.StdCtrls, sButton, Vcl.ExtCtrls, sPanel, cxClasses, cxPropertiesStore, sMemo, sEdit, sCheckBox,
  sComboBox, sLabel
  , uRoomerForm, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinCaramel,
  dxSkinCoffee, dxSkinDarkSide, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinsdxStatusBarPainter,
  cxGridTableView, cxStyles, dxPScxCommon, dxPScxGridLnk, dxStatusBar;

type
  TfrmCleaningNotesEdit = class(TfrmBaseRoomerForm)
    panBtn: TsPanel;
    btnCancel: TsButton;
    BtnOk: TsButton;
    sLabel1: TsLabel;
    __cbxServiceType: TsComboBox;
    lblOnceType: TsLabel;
    __cbxOnceType: TsComboBox;
    cbxActive: TsCheckBox;
    __lblInterval: TsLabel;
    edtInterval: TsEdit;
    lblMinimumDays: TsLabel;
    edtMinimumDays: TsEdit;
    sLabel5: TsLabel;
    edtMessage: TsMemo;
    cbxOnlyWhenRoomIsDirty: TsCheckBox;
    procedure FormShow(Sender: TObject);
    procedure __cbxOnceTypeCloseUp(Sender: TObject);
    procedure __cbxServiceTypeCloseUp(Sender: TObject);
  private
  protected
    procedure UpdateControls; override;
    procedure DoLoadData; override;
  public
    { Public declarations }
    zData : recCleaningNotesHolder;

    procedure EditsToRecordHolder;
  end;

function openCleaningNotesEdit(var theData : recCleaningNotesHolder) : boolean;

implementation

{$R *.dfm}

uses PrjConst,
     uRoomerLanguage,
     uAppGlobal,
     uUtils
     , uCleaningNotesDefinitions;


function openCleaningNotesEdit(var theData : recCleaningNotesHolder) : boolean;
var
  _FrmCleaningNotesEdit: TFrmCleaningNotesEdit;
begin
  result := false;
  _FrmCleaningNotesEdit := TFrmCleaningNotesEdit.Create(nil);
  try
    _FrmCleaningNotesEdit.zData := theData;
    _FrmCleaningNotesEdit.ShowModal;
    if _FrmCleaningNotesEdit.modalresult = mrOk then
    begin
      _FrmCleaningNotesEdit.EditsToRecordHolder;
      theData := _FrmCleaningNotesEdit.zData;
      result := true;
    end
  finally
    freeandnil(_FrmCleaningNotesEdit);
  end;
end;

procedure TfrmCleaningNotesEdit.DoLoadData;
begin
  inherited;
  cbxActive.Checked := zData.active;
  __cbxServiceType.ItemIndex := TCleaningNoteServiceType.FromString(zData.serviceType).ToItemIndex;
  __cbxOnceType.ItemIndex := TCleaningNoteOnceType.FromString(zData.onceType).ToItemIndex;
  edtInterval.Text := InttoStr(zData.interval);
  edtMinimumDays.Text := InttoStr(zData.minimumDays);
  cbxOnlyWhenRoomIsDirty.Checked := zData.onlyWhenRoomIsDirty;
  edtMessage.Text := zData.smessage;
end;

procedure TFrmCleaningNotesEdit.EditsToRecordHolder;
begin
  zData.active := cbxActive.Checked;
  zData.serviceType := TCleaningNoteServiceType.FromItemIndex(__cbxServiceType.itemIndex).ToDb;
  zData.onlyWhenRoomIsDirty := cbxOnlyWhenRoomIsDirty.Checked;
  zData.onceType := TCleaningNoteOnceType.FromItemIndex(__cbxOnceType.ItemIndex).ToDb;
  zData.interval := StrToIntDef(edtInterval.Text, 3);
  zData.minimumDays := StrToIntDef(edtMinimumDays.Text, 1);
  zData.smessage := edtMessage.Text;
end;

procedure TfrmCleaningNotesEdit.FormShow(Sender: TObject);
begin
  TCleaningNoteServiceType.AsStrings(__cbxServiceType.Items);
  TCleaningNoteOnceType.AsStrings(__cbxOnceType.items);

  RefreshData;
end;

procedure TfrmCleaningNotesEdit.__cbxOnceTypeCloseUp(Sender: TObject);
begin
  UpdateControls;
end;

procedure TfrmCleaningNotesEdit.__cbxServiceTypeCloseUp(Sender: TObject);
begin
  UpdateControls;
end;

procedure TFrmCleaningNotesEdit.UpdateControls;
begin
  inherited;
  __cbxOnceType.Visible := __cbxServiceType.ItemIndex > 0;
  if __cbxServiceType.ItemIndex = 0 then
  begin
    __lblInterval.Caption := GetTranslatedText('shCleaningNotesIntervalLabel');
  end else
  begin
    __lblInterval.Caption := GetTranslatedText('shCleaningNotesOnceLabel');
  end;
  lblOnceType.Visible := __cbxOnceType.Visible;

  __lblInterval.Visible := (NOT __cbxOnceType.Visible) OR (__cbxOnceType.ItemIndex IN [3,4]);
  edtInterval.Visible := __lblInterval.Visible;
end;

end.