Custom form control

Design and implement using Borland Delphi 7-2010 a custom TForm descendant called TXForm. The idea of TXForm is that it contains two grahical elements that I want to include to all of the forms of my app. TXForm must have the following additional features compared to TForm: 1. Status bar. TXForm must contain TStatusBar with align := alBottom. By default the status bar is visible, it can be also set with [login to view URL] : Boolean property. The TStatusBar must have .SimplePanel property set as True, and it must be possible to modify the .SimpleText property via XForm's .StatusBarText : String; property. Please see screenshot shot1.png. 2. Log area. TXForm shall contain a TMemo with a height of 85 and with align := alBottom. By default, the TMemo is invisible. When XForm's .AddLine(const Line : String); is called, the TMemo is made visible and the line of text added to it. When the TMemo is made visible, the form's height is increased accordingly. See screenshot shot2.png. 3. OnAfterShow event. TXForm shall contain an event called OnAfterShow, similar to OnShow, but it will be launched after the form has been made visible. The OnAfterShow event should be visible in the Object Inspector of Delphi, in Design Time. When the TMemo is visible, it must remain as the bottom most control of the form at all times, no matter whether any other controls of the form have align := alBottom. When the TMemo is visible, the TStatusBar must remain as the second bottom control of the form at all times. When the TMemo is not visible, the TStatusBar must remain as the bottom most control of the form. The TXForm's ClientHeight and ClientWidth must return the size of the client area. That is, the area not occupied by the TStatusBar and TMemo (if visible). It must not be possible for any other control of the form to overlap with the TMemo or the TStatusBar. In other words, the top part of the TStatusBar must act as it would be the end of the form's client area. ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Deliverables must be in ready-to-run condition, as follows (depending on the nature of the deliverables): a) For web sites or other server-side deliverables intended to only ever exist in one place in the Buyer's environment--Deliverables must be installed by the Worker in ready-to-run condition in the Buyer's environment. b) For all others including desktop software or software the buyer intends to distribute: A software installation package that will install the software in ready-to-run condition on the platform(s) specified in this bid request. 3) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the worker's Worker Legal Agreement). ## Platform Delphi 7 - 2010.