home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / mp3osr05.zip / src / statusw.pas < prev    next >
Pascal/Delphi Source File  |  1999-12-07  |  653b  |  36 lines
  1. (*
  2.  * part of MPEG searcher project
  3.  *  (c) 1999 by Alexander Trunov, 2:5069/10, jnc@mail.ru
  4.  *)
  5.  
  6. unit StatusW;
  7.  
  8. interface
  9.  
  10. uses Drivers, Dialogs, Views;
  11.  
  12. type
  13.   PStatusWindow = ^TStatusWindow;
  14.   TStatusWindow = object(TDialog)
  15.     ALabel: PStaticText;
  16.     constructor Init(AMessage: string);
  17.   end;
  18.  
  19. implementation
  20.  
  21. uses Objects;
  22.  
  23. constructor TStatusWindow.Init(AMessage: string);
  24. var
  25.   R: TRect;
  26. begin
  27.   R.Assign(1, 1, Length(AMessage) + 5, 6);
  28.   inherited Init(R, '');
  29.   Options := Options or ofCentered;
  30.  
  31.   R.Assign(2, 2, R.B.X - 3, 3);
  32.   ALabel := New(PStaticText, Init(R, AMessage));
  33.   Insert(ALabel);
  34. end;
  35.  
  36. end.