Procedure

TfrmRemCoverSheet.SetButtonHints

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Comments

This procedure sets the Lock, Add, and Remove button hints based on the
 selected parameter level

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

procedure SetButtonHints;

Called-By Hierarchy


         TfrmRemCoverSheet.SetButtonHints
     TfrmRemCoverSheet.cbEditLevelClick┘ 
   TfrmRemCoverSheet.cbxDropDownClose┘   
TfrmRemCoverSheet.cbxDivisionChange┤     
 TfrmRemCoverSheet.cbxServiceChange┤     
TfrmRemCoverSheet.cbxLocationChange┤     
   TfrmRemCoverSheet.cbxClassChange┤     
    TfrmRemCoverSheet.cbxUserChange┤     
 TfrmRemCoverSheet.lvViewSelectItem┘     
   TfrmRemCoverSheet.lvViewChange┘       

Called-By

Name Declaration Comments
TfrmRemCoverSheet.cbEditLevelClick procedure cbEditLevelClick(Sender: TObject); -


Source

1902  procedure TfrmRemCoverSheet.SetButtonHints;
1903  {This procedure sets the Lock, Add, and Remove button hints based on the
1904   selected parameter level}
1905  begin
1906    if FEditingLevel = dlDivision then
1907    begin
1908      btnLock.hint := 'Adds Reminder to the Coversheet display and Locks the Reminder'
1909            + CRLF + 'so it can not be removed from the Coversheet display at any'
1910            + CRLF + 'of the lower levels (Service, Location, User Class, User).';
1911      btnRemove.hint := 'Removes Reminders from the Coversheet display.  Will not'
1912            + CRLF + 'remove Reminders which are locked at the System level.';
1913      btnAdd.hint := 'Adds Reminders to the Coversheet at the Division level and'
1914            + CRLF + 'below.  It also removes the lock from a Reminder locked at'
1915            + CRLF + 'the Division level while leaving the Reminder on the Coversheet.';
1916    end
1917    else if FEditingLevel = dlService then
1918    begin
1919      btnLock.hint := 'Adds Reminder to the Coversheet display and Locks the Reminder'
1920            + CRLF + 'so it can not be removed from the Coversheet display at any of'
1921            + CRLF + 'the lower levels (Location, User Class, User).';
1922      btnRemove.hint := 'Removes Reminders from the Coversheet display.  Will not'
1923            + CRLF + 'remove Reminders which are locked at the Division level or higher.';
1924      btnAdd.hint := 'Adds Reminders to the Coversheet at the Service level and'
1925            + CRLF + 'below.  It also removes the lock from a Reminder locked at the'
1926            + CRLF + 'Service level while leaving the Reminder on the Coversheet.';
1927    end
1928    else if FEditingLevel = dlLocation then
1929    begin
1930      btnLock.hint := 'Adds Reminder to the Coversheet display and Locks the Reminder'
1931            + CRLF + 'so it can not be removed from the Coversheet display at any of'
1932            + CRLF + 'the lower levels (User Class, User).';
1933      btnRemove.hint := 'Removes Reminders from the Coversheet display.  Will not'
1934            + CRLF + 'remove Reminders which are locked at the Service level or higher.';
1935      btnAdd.hint := 'Adds Reminders to the Coversheet at the Location level and'
1936            + CRLF + 'below.  It also removes the lock from a Reminder locked at the'
1937            + CRLF + 'Location level while leaving the Reminder on the Coversheet.';
1938    end
1939    else if FEditingLevel = dlUserClass then
1940    begin
1941      btnLock.hint := 'Adds Reminder to the Coversheet display and Locks the Reminder so'
1942            + CRLF + 'it can not be removed from the Coversheet display at the User level.';
1943      btnRemove.hint := 'Removes Reminders from the Coversheet display.  Will not remove'
1944            + CRLF + 'Reminders which are locked at the Location level or higher.';
1945      btnAdd.hint := 'Adds Reminders to the Coversheet at the User Class level and'
1946            + CRLF + 'below.  It also removes the lock from a Reminder locked at the'
1947            + CRLF + 'User Class level while leaving the Reminder on the Coversheet.';
1948    end
1949    else if FEditingLevel = dlUser then
1950    begin
1951      btnRemove.hint := 'Removes Reminders from the Coversheet display.  Will not'
1952            + CRLF + 'remove Reminders which are locked at the User Class level'
1953            + CRLF + 'or higher.';
1954      btnAdd.hint := 'Adds Reminders to the Coversheet at the User level.';
1955    end
1956    else
1957    begin
1958      btnLock.hint := 'Adds Reminder to the Coversheet display and Locks the Reminder'
1959            + CRLF + 'so it can not be removed from the Coversheet display at any of'
1960            + CRLF + 'the lower levels (Division, Service, Location, User Class, User).';
1961      btnRemove.hint := 'Removes Reminders from the Coversheet display.';
1962      btnAdd.hint := 'Adds Reminders to the Coversheet at the System level and'
1963            + CRLF + 'below.  It also removes the lock from a Reminder locked at the'
1964            + CRLF + 'System level while leaving the Reminder on the Coversheet.';
1965    end;
1966  end;