Procedure

TfrmNotes.pnlWriteResize

Module

fNotes

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmNotes

Declaration

procedure pnlWriteResize(Sender: TObject);

Calls Hierarchy


TfrmNotes.pnlWriteResize
 └TfrmNotes.UpdateFormForInput
   └TimedOut

Called-By Hierarchy


             TfrmNotes.pnlWriteResize
              TfrmNotes.SetFontSize┤ 
             TfrmFrame.ChangeFont┘ │ 
     TfrmFrame.LoadSizesForUser┤   │ 
TfrmFrame.LoadUserPreferences┘ │   │ 
       TfrmFrame.UMInitiate┘   │   │ 
     TfrmFrame.mnuFontSizeClick┘   │ 
            TfrmNotes.InsertNewNote┤ 
         TfrmNotes.mnuActNewClick┤ │ 
      TfrmNotes.cmdNewNoteClick┘ │ │ 
  TfrmNotes.mnuActAddIDEntryClick┘ │ 
    TfrmNotes.popNoteMemoPasteClick┘ 

Calls

Name Declaration Comments
TfrmNotes.UpdateFormForInput procedure UpdateFormForInput; -

Called-By

Name Declaration Comments
TfrmNotes.InsertNewNote procedure InsertNewNote(IsIDChild: boolean; AnIDParent: integer); -
TfrmNotes.popNoteMemoPasteClick procedure popNoteMemoPasteClick(Sender: TObject); -
TfrmNotes.SetFontSize procedure SetFontSize(NewFontSize: Integer); override; -


Source

1327  procedure TfrmNotes.pnlWriteResize(Sender: TObject);
1328  const
1329    LEFT_MARGIN = 4;
1330  begin
1331    inherited;
1332    LimitEditWidth(memNewNote, MAX_PROGRESSNOTE_WIDTH - 1);
1333  
1334    //CQ7012 Added test for nil
1335    if memNewNote <> nil then
1336       memNewNote.Constraints.MinWidth := TextWidthByFont(memNewNote.Font.Handle, StringOfChar('X', MAX_PROGRESSNOTE_WIDTH)) + (LEFT_MARGIN * 2) + ScrollBarWidth;
1337    //CQ7012 Added test for nil
1338     if (Self <> nil) and (pnlLeft <> nil) and (pnlWrite <> nil) and (sptHorz <> nil) then
1339       pnlLeft.Width := self.ClientWidth - pnlWrite.Width - sptHorz.Width;
1340    UpdateFormForInput;
1341  end;