www.pudn.com > Map±à¼­Æ÷DELPHIÔ´´úÂë.rar > DoorDlg.pas

unit DoorDlg; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, Buttons, HUtil32; 
 
type 
  TFrmDoorDlg = class(TForm) 
    CkDoor: TCheckBox; 
    EdIndex: TEdit; 
    Label1: TLabel; 
    Label2: TLabel; 
    EdOffset: TEdit; 
    BitBtn1: TBitBtn; 
  private 
  public 
    function Update (var doorindex, dooroffset: integer): Boolean; 
  end; 
 
var 
  FrmDoorDlg: TFrmDoorDlg; 
 
implementation 
 
{$R *.DFM} 
 
function TFrmDoorDlg.Update (var doorindex, dooroffset: integer): Boolean; 
begin 
   if (doorindex and $80) <> 0 then CkDoor.Checked := TRUE 
   else CkDoor.Checked := FALSE; 
   EdIndex.Text := IntToStr((doorindex and $7F)); 
   EdOffset.Text := IntToStr(dooroffset); 
   if mrOk = ShowModal then begin 
      if CkDoor.Checked then doorindex :=Str_Toint(EdIndex.Text, 0) or $80 
      else doorindex :=Str_Toint(EdIndex.Text, 0); 
      dooroffset := Str_Toint(EdOffset.Text, 0); 
      Result := TRUE; 
   end else 
      Result := FALSE; 
end; 
 
end.