StartupScreenUnit.pas 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  1. {
  2. TIGCC IDE
  3. Copyright (C) 2000-2004 Sebastian Reichelt
  4. This program is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU General Public License as published by
  6. the Free Software Foundation; either version 2, or (at your option)
  7. any later version.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  11. GNU General Public License for more details.
  12. You should have received a copy of the GNU General Public License
  13. along with this program; if not, write to the Free Software Foundation,
  14. Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  15. }
  16. unit StartupScreenUnit;
  17. interface
  18. uses
  19. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  20. StdCtrls, ExtCtrls;
  21. type
  22. TStartupScreenForm = class(TForm)
  23. FramePanel: TPanel;
  24. BackgroundPanel: TPanel;
  25. BackgroundImage: TImage;
  26. VersionLabel: TLabel;
  27. NameLabel1: TLabel;
  28. NameLabel3: TLabel;
  29. NameLabel4: TLabel;
  30. NameLabel5: TLabel;
  31. NameLabel6: TLabel;
  32. NameLabel7: TLabel;
  33. NameLabel8: TLabel;
  34. StartupStatusDisplay: TLabel;
  35. procedure FormCreate(Sender: TObject);
  36. private
  37. function GetDisplayText: string;
  38. procedure SetDisplayText(const Value: string);
  39. public
  40. property DisplayText: string read GetDisplayText write SetDisplayText;
  41. end;
  42. var
  43. StartupScreenForm: TStartupScreenForm;
  44. implementation
  45. {$R *.DFM}
  46. uses
  47. VersionUnit;
  48. procedure TStartupScreenForm.FormCreate(Sender: TObject);
  49. begin
  50. PixelsPerInch := 96;
  51. VersionLabel.Caption := TIGCCShortVersion;
  52. end;
  53. function TStartupScreenForm.GetDisplayText: string;
  54. begin
  55. Result := StartupStatusDisplay.Caption;
  56. end;
  57. procedure TStartupScreenForm.SetDisplayText(const Value: string);
  58. begin
  59. StartupStatusDisplay.Caption := Value;
  60. Update;
  61. end;
  62. end.