StartupScreenUnit.pas 1.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  1. unit StartupScreenUnit;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5. StdCtrls, ExtCtrls;
  6. type
  7. TStartupScreenForm = class(TForm)
  8. FramePanel: TPanel;
  9. BackgroundPanel: TPanel;
  10. BackgroundImage: TImage;
  11. VersionLabel: TLabel;
  12. NameLabel1: TLabel;
  13. NameLabel3: TLabel;
  14. NameLabel4: TLabel;
  15. NameLabel5: TLabel;
  16. NameLabel6: TLabel;
  17. NameLabel7: TLabel;
  18. NameLabel8: TLabel;
  19. StartupStatusDisplay: TLabel;
  20. procedure FormCreate(Sender: TObject);
  21. private
  22. function GetDisplayText: string;
  23. procedure SetDisplayText(const Value: string);
  24. public
  25. property DisplayText: string read GetDisplayText write SetDisplayText;
  26. end;
  27. var
  28. StartupScreenForm: TStartupScreenForm;
  29. implementation
  30. {$R *.DFM}
  31. uses
  32. VersionUnit;
  33. procedure TStartupScreenForm.FormCreate(Sender: TObject);
  34. begin
  35. PixelsPerInch := 96;
  36. VersionLabel.Caption := TIGCCShortVersion;
  37. end;
  38. function TStartupScreenForm.GetDisplayText: string;
  39. begin
  40. Result := StartupStatusDisplay.Caption;
  41. end;
  42. procedure TStartupScreenForm.SetDisplayText(const Value: string);
  43. begin
  44. StartupStatusDisplay.Caption := Value;
  45. Update;
  46. end;
  47. end.