Function

TfrmDrawers.InsertOK

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Protected

Owner

TfrmDrawers

Declaration

function InsertOK(Ask: boolean): boolean;

Calls Hierarchy


TfrmDrawers.InsertOK
 └REOK

Called-By Hierarchy


                          TfrmDrawers.InsertOK
                      TfrmDrawers.InsertText┤ 
           TfrmDrawers.tvTemplatesDblClick┤ │ 
            TfrmDrawers.tvTemplatesKeyDown┤ │ 
                TfrmDrawers.NewRECDragDrop┤ │ 
          TfrmDrawers.SetRichEditControl┘ │ │ 
                 TfrmDCSumm.FormCreate┤   │ │ 
               TfrmConsults.FormCreate┤   │ │ 
                TfrmSurgery.FormCreate┤   │ │ 
                  TfrmNotes.FormCreate┘   │ │ 
        TfrmDrawers.mnuInsertTemplateClick┘ │ 
  TfrmDCSumm.popSummMemoInsTemplateClick┤   │ 
TfrmConsults.popNoteMemoInsTemplateClick┤   │ 
 TfrmSurgery.popNoteMemoInsTemplateClick┤   │ 
   TfrmNotes.popNoteMemoInsTemplateClick┘   │ 
               TfrmDrawers.popTemplatesPopup┘ 

Calls

Name Declaration Comments
REOK function REOK: boolean; -

Called-By

Name Declaration Comments
TfrmDrawers.InsertText procedure InsertText; -
TfrmDrawers.popTemplatesPopup procedure popTemplatesPopup(Sender: TObject); -


Source

1475  function TfrmDrawers.InsertOK(Ask: boolean): boolean;
1476  
1477    function REOK: boolean;
1478    begin
1479      Result := assigned(FRichEditControl) and
1480                FRichEditControl.Visible and
1481                FRichEditControl.Parent.Visible;
1482    end;
1483  
1484  begin
1485    Result := REOK;
1486    if (not ask) and (not Result) and (assigned(FNewNoteButton)) then
1487      Result := TRUE
1488    else
1489    if ask and (not Result) and assigned(FNewNoteButton) and
1490       FNewNoteButton.Visible and FNewNoteButton.Enabled then
1491    begin
1492      FNewNoteButton.Click;
1493      Result := REOK;
1494    end;
1495  end;