home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dragonfl / aaplayr2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-05-27  |  1.5 KB  |  82 lines
  1. unit Aaplayr2;
  2.  
  3. { Delphi 2 Demo program for flic panel component }
  4. { 27th May 1998 }
  5.  
  6. interface
  7.  
  8. uses
  9.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  10.   Forms, Dialogs, ExtCtrls, FlicPanel;
  11.  
  12. type
  13.   TForm2 = class(TForm)
  14.     FlicPanel1: TFlicPanel;
  15.     procedure FormCreate(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.    protected
  21.     { Protected declarations }
  22.     procedure WndProc(var Message: TMessage); override;
  23.   end;
  24.  
  25. var
  26.   Form2: TForm2;
  27.  
  28. implementation
  29.  
  30. uses
  31.    AAPlayr1;
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TForm2.FormCreate(Sender: TObject);
  36.  
  37. begin
  38.    Left := 120;
  39.    Top := 120;
  40.    Visible := FALSE;
  41.    form1.caption := 'The Dragon FlicPanel - Version '+flicpanel1.version;
  42. end;
  43.  
  44. { ------------------------------------------------------------------------- }
  45. procedure TForm2.WndProc(var Message: TMessage);
  46.  
  47. var
  48.    retcode: boolean;
  49.  
  50. begin
  51.  
  52.    with Message do
  53.       begin
  54.  
  55.       if Msg = NotifyMessageNum then
  56.          begin
  57.  
  58.          if (lParam > 0) and (lParam < 11) then
  59.             begin
  60.             end;
  61.  
  62.          end
  63.       else
  64.          begin
  65.  
  66.          if Msg = StopMessageNum then
  67.             begin
  68.             //Form1.FlicPlayer1.EnabledButtons := [btPlay,btEject,btNext,btPrev,btBack,btStep];
  69.            end
  70.          else
  71.             begin
  72.             inherited WndProc(Message);
  73.             end;
  74.  
  75.          end;
  76.  
  77.       end;
  78.  
  79. end;
  80.  
  81. end.
  82.