Procedure

TfrmReminderTree.pnlTopResize

Module

fReminderTree

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmReminderTree

Declaration

procedure pnlTopResize(Sender: TObject);

Calls Hierarchy


TfrmReminderTree.pnlTopResize
 └TfrmReminderTree.SetRemHeaderSectionWidth

Called-By Hierarchy


        TfrmReminderTree.pnlTopResize
  TfrmReminderTree.RemindersChanged┤ 
      TfrmReminderTree.FormCreate┤ │ 
     TfrmReminderTree.FormDestroy┘ │ 
     TfrmReminderTree.tvRemExpanded┤ 
    TfrmReminderTree.tvRemCollapsed┤ 
       TfrmReminderTree.SetFontSize┘ 
             TfrmFrame.ChangeFont┤   
     TfrmFrame.LoadSizesForUser┤ │   
TfrmFrame.LoadUserPreferences┘ │ │   
       TfrmFrame.UMInitiate┘   │ │   
     TfrmFrame.mnuFontSizeClick┘ │   
      TfrmReminderTree.FormCreate┘   

Calls

Name Declaration Comments
TfrmReminderTree.SetRemHeaderSectionWidth procedure SetRemHeaderSectionWidth( SectionIndex: integer; NewWidth: integer); -

Called-By

Name Declaration Comments
TfrmReminderTree.RemindersChanged procedure RemindersChanged(Sender: TObject); -
TfrmReminderTree.SetFontSize procedure SetFontSize( NewFontSize: integer); -
TfrmReminderTree.tvRemCollapsed procedure tvRemCollapsed(Sender: TObject; Node: TTreeNode); -
TfrmReminderTree.tvRemExpanded procedure tvRemExpanded(Sender: TObject; Node: TTreeNode); -


Source

358   procedure TfrmReminderTree.pnlTopResize(Sender: TObject);
359   var
360     Tmp,Adj: integer;
361   
362   begin
363     Tmp := DateColWidth + LastDateColWidth + PriorityColWidth + 4;
364     if(lbRem.Width <> (lbRem.ClientWidth + 4)) then
365       Adj := ScrollBarWidth
366     else
367       Adj := 0;
368     pnlTopRight.Width := Tmp + Adj;
369     Tmp := pnlTop.Width - DateColWidth - LastDateColWidth - PriorityColWidth - 2 - Adj;
370     SetRemHeaderSectionWidth( 0, Tmp);
371     tvRem.Items.BeginUpdate;
372     try
373       tvRem.Height := pnlTop.Height - hcRem.Height;
374       if(tvRem.Width <> (tvRem.ClientWidth+4)) then
375         inc(Tmp, ScrollBarWidth);
376       tvRem.Width := Tmp;
377     finally
378       tvRem.Items.EndUpdate;
379     end;
380     bvlGap.Visible := (tvRem.Height <> (tvRem.ClientHeight+4));
381   end;