home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / ArsClip / source.zip / UnitFrmMove.pas < prev    next >
Pascal/Delphi Source File  |  2004-10-15  |  1KB  |  61 lines
  1. unit UnitFrmMove;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, UnitClipQueue;
  8.  
  9. type
  10.   TFrmMove = class(TForm)
  11.     btnOK: TButton;
  12.     btnCancel: TButton;
  13.     cbMove: TComboBox;
  14.     procedure FormShow(Sender: TObject);
  15.     procedure btnOKClick(Sender: TObject);
  16.     procedure btnCancelClick(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.  
  20.   public
  21.     { Public declarations }
  22.     procedure MoveClip(tc : TClipItem);
  23.   end;
  24.  
  25. var
  26.   FrmMove: TFrmMove;
  27.  
  28. implementation
  29.  
  30. uses UnitFrmPermanentNew;
  31.  
  32. {$R *.dfm}
  33.  
  34. procedure TFrmMove.FormShow(Sender: TObject);
  35. begin
  36.     // get a list of permanet item groups - except the current group
  37.     // and default the position to first in the list
  38.     
  39.     self.cbMove.Clear;
  40.     self.cbMove.Items.AddStrings( FrmPermanent.cbPIGs.items );
  41.     self.cbMove.Items.Delete( self.cbMove.Items.IndexOf(FrmPermanent.GetPermanentPath) );
  42.     self.cbMove.ItemIndex := 0;
  43. end;
  44.  
  45. procedure TFrmMove.btnOKClick(Sender: TObject);
  46. begin
  47.     self.ModalResult := mrOK;
  48. end;
  49.  
  50. procedure TFrmMove.btnCancelClick(Sender: TObject);
  51. begin
  52.     self.ModalResult := mrCancel;
  53. end;
  54.  
  55. procedure TFrmMove.MoveClip(tc : TClipItem);
  56. begin
  57.  
  58. end;
  59.  
  60. end.
  61.