root/trunk/Forms/frm_settings.pas
Download diff| 428 | 434 | ||
|---|---|---|---|
542 | frmCreateMask: TfrmCreateMask; | 542 | frmCreateMask: TfrmCreateMask; |
543 | TypeMask: TFMask; | 543 | TypeMask: TFMask; |
544 | begin | 544 | begin |
545 | frmCreateMask:= TfrmCreateMask.Create(Self); | ||
545 | try | 546 | try |
546 | frmCreateMask:= TfrmCreateMask.Create(self); | 547 | // TODO -oNickR -cCode quality : использование тега для распознования источника события - не лучшая идея. Теги легко теряются при редактировании формы
if (Sender as TRzButtonEdit).Tag = 785 then |
547 | |||
548 | if (sender as TRzButtonEdit).Tag = 785 then | ||
549 | frmCreateMask.FoderMask:= MFolder | 548 | frmCreateMask.FoderMask:= MFolder |
550 | else | 549 | else |
551 | frmCreateMask.FoderMask:= MFile; | 550 | frmCreateMask.FoderMask:= MFile; |
552 | 551 | ||
553 | frmCreateMask.edTemplate.Text:= (Sender as TRzButtonEdit).Text; | 552 | frmCreateMask.edTemplate.Text:= (Sender as TRzButtonEdit).Text; |
554 | 553 | ||
555 | frmCreateMask.ShowModal; | 554 | if frmCreateMask.ShowModal = mrOk then |
556 | if frmCreateMask.ModalResult = mrOk then | 555 | (Sender as TRzButtonEdit).Text := frmCreateMask.edTemplate.Text; |
557 | (Sender as TRzButtonEdit).text := frmCreateMask.edTemplate.Text; | ||
558 | finally | 556 | finally |
559 | frmCreateMask.Free | 557 | frmCreateMask.Free |
560 | end; | 558 | end; |