home *** CD-ROM | disk | FTP | other *** search
/ Guide To Cracking 2002 / Guide_to_Cracking_2002.iso / Programming / yPP-B-SRC.ZIP / Unit3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-08-29  |  2.2 KB  |  98 lines
  1. unit Unit3;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, Buttons,d32lib,hexfun;
  8.  
  9. type
  10.   Twaitform = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     Edit1: TEdit;
  14.     Panel3: TPanel;
  15.     SpeedButton1: TSpeedButton;
  16.     SpeedButton2: TSpeedButton;
  17.     GroupBox1: TGroupBox;
  18.     RadioButton1: TRadioButton;
  19.     RadioButton2: TRadioButton;
  20.     RadioButton3: TRadioButton;
  21.     procedure FormShow(Sender: TObject);
  22.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  23.     procedure SpeedButton2Click(Sender: TObject);
  24.     procedure SpeedButton1Click(Sender: TObject);
  25.   private
  26.     { Private-Deklarationen }
  27.   public
  28.     { Public-Deklarationen }
  29.   end;
  30.  
  31. var
  32.   waitform: Twaitform;
  33.  
  34. implementation
  35.  
  36. uses Unit1;
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure Twaitform.FormShow(Sender: TObject);
  41. begin
  42. form1.enabled:=false;
  43. // setup the add postion
  44. if not editing then
  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.   end;
  54. end;
  55.  
  56. procedure Twaitform.FormClose(Sender: TObject; var Action: TCloseAction);
  57. begin
  58. radiobutton1.enabled:=false;
  59. radiobutton2.enabled:=false;
  60. radiobutton3.enabled:=false;
  61. edit1.text:='';
  62. edit1.setfocus;
  63. form1.enabled:=true;
  64. end;
  65.  
  66. procedure Twaitform.SpeedButton2Click(Sender: TObject);
  67. begin
  68. if editing then editing:=false;
  69. close;
  70. end;
  71.  
  72. procedure Twaitform.SpeedButton1Click(Sender: TObject);
  73. begin
  74. if not ishexnum(edit1.text) then
  75.   begin
  76.   mb('The WAIT value is an invalid hex number !',':(',mb_iconerror);
  77.   exit;
  78.   end;
  79. if editing then // don't create a new item
  80.   begin
  81.   form1.listview1.Items[currsel].caption:='WAIT - 0x'+edit1.text+' ms';
  82.   editing:=false;
  83.   close;
  84.   exit;
  85.   end;
  86. // don't create a new item
  87. if radiobutton1.checked then
  88.   newitem:=form1.listview1.Items.Insert(currsel);
  89. if radiobutton2.checked then
  90.   newitem:=form1.listview1.items.insert(currsel+1);
  91. if radiobutton3.checked then
  92.   newitem:=form1.listview1.items.add;
  93. newitem.caption:='WAIT - 0x'+edit1.text+' ms';
  94. close;
  95. end;
  96.  
  97. end.
  98.