home *** CD-ROM | disk | FTP | other *** search
/ Guide To Cracking 2002 / Guide_to_Cracking_2002.iso / Programming / yPP-B-SRC.ZIP / Unit7.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-08-29  |  1.7 KB  |  74 lines
  1. unit Unit7;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Buttons, StdCtrls;
  8.  
  9. type
  10.   Tresumeform = class(TForm)
  11.     GroupBox1: TGroupBox;
  12.     RadioButton1: TRadioButton;
  13.     RadioButton2: TRadioButton;
  14.     RadioButton3: TRadioButton;
  15.     SpeedButton1: TSpeedButton;
  16.     SpeedButton2: TSpeedButton;
  17.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  18.     procedure FormShow(Sender: TObject);
  19.     procedure SpeedButton2Click(Sender: TObject);
  20.     procedure SpeedButton1Click(Sender: TObject);
  21.   private
  22.     { Private-Deklarationen }
  23.   public
  24.     { Public-Deklarationen }
  25.   end;
  26.  
  27. var
  28.   resumeform: Tresumeform;
  29.  
  30. implementation
  31.  
  32. uses Unit1;
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure Tresumeform.FormClose(Sender: TObject; var Action: TCloseAction);
  37. begin
  38. radiobutton1.enabled:=false;
  39. radiobutton2.enabled:=false;
  40. radiobutton3.enabled:=false;
  41. form1.enabled:=true;
  42. end;
  43.  
  44. procedure Tresumeform.FormShow(Sender: TObject);
  45. begin
  46. radiobutton3.checked:=true;
  47. radiobutton3.enabled:=true;
  48.   if form1.listview1.selcount > 0 then
  49.     begin
  50.     radiobutton1.enabled:=true;
  51.     if currsel < form1.listview1.Items.Count-1 then radiobutton2.enabled:=true;
  52.     end;
  53. form1.enabled:=false;
  54. end;
  55.  
  56. procedure Tresumeform.SpeedButton2Click(Sender: TObject);
  57. begin
  58. close;
  59. end;
  60.  
  61. procedure Tresumeform.SpeedButton1Click(Sender: TObject);
  62. begin
  63.   if radiobutton1.checked then
  64.     newitem:=form1.listview1.Items.Insert(currsel);
  65.   if radiobutton2.checked then
  66.     newitem:=form1.listview1.items.insert(currsel+1);
  67.   if radiobutton3.checked then
  68.     newitem:=form1.listview1.items.add;
  69.   newitem.caption:='Resume the Process';
  70.   close;
  71. end;
  72.  
  73. end.
  74.