{================================================================}
{ TpsiStatusBar - Version 1.1                                    }
{================================================================}
{                                                                }
{ DELPHI 2.0 COMPONENT                                           }
{ FREEWARE                                                       }
{                                                                }
{ TpsiStatusBar creates a "Win95" status bar                     }
{    at the bottom of your form that automatically processes     }
{    Date/Time (clock) updating.                                 }
{                                                                }
{ !!Make sure to read the CONTROL "NAME" section that follows.!! }
{                                                                }
{ TpsiStatusBar consists of 2 panels:                            }
{    Panels.Items[0] - we use this panel for field "captions"    }
{       The following command would display "Status Text"        }
{            StatusBar.panels.items[0].text :='Status Text';     }
{    Panels.Items[1] - is for date & time (automatically filled) }
{                                                                }
{ There's no need to add a timer to fill the Date/Time,          }
{    Timer processing is handled within the component.           }
{                                                                }
{ The timer "interval" is hardcoded to 1 second                  }
{    (1000 ms in procedure UpdateTimer)                          }
{ If there's another function you need to perform every second,  }
{    it can be added to this control's "OnTimer" event.          }
{                                                                }
{================================================================}
{                                                                }
{ 1.1 Changes                                                    }
{ ------------------------------------------------               }
{ *** AM/PM not displayed properly:                              }
{     Typo!!!, TimeStr declared as string[10],                   }
{       should've been string[11].                               }
{     Time display appears to be correct now.                    }
{ *** Created procedure ShowDateTime:                            }
{     Called when Date/Time display is updated                   }
{ *** Adjusted panel widths:                                     }
{     To better accomodate months 10, 11, & 12                   }
{ *** Changed "Hint" handling:                                   }
{     Changed ShowHint to True.                                  }
{     Autofill Hint with panels.items[0].text (in timer event).  }
{     If form has been resized and "text" is not visible,        }
{       Hint allows user to see the "text".                      }
{                                                                }
{================================================================}
{                                                                }
{ If it's helpful in some way, GREAT.                            }
{ As you'd expect, USE TpsiStatusBar AT YOUR OWN RISK.           }
{ If you use it, please send any comments.                       }
{ If you improve it, please let me know.                         }
{                                                                }
{ Enjoy it,                                                      }
{ Jim Albert                                                     }
{   PIN Systems, Inc.                                            }
{     Compuserve -- 102426,2527                                  }
{     Internet   -- PINSystems@mailhost.net                      }
{                                                                }
{================================================================}

{!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
{ CONTROL "NAME"                                                 }
{!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
{                                                                }
{ For compliance with other psi controls;                        }
{    we set the name to "StatusBar", in the Resize event.        }
{                                                                }
{ If you don't want the component automatically named            }
{    "StatusBar", search for, and comment out the following      }
{    line.                                                       }
{        if Name <>'StatusBar' then Name :='StatusBar';          }
{                                                                }
{!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
