svn/view/moddlg.pas

unit moddlg;

{$IFDEF FPC}
  {$MODE DELPHI}{$H+}
{$ENDIF}

(***************************************)
(* Copyright (C) 2003, SHIRAISHI Kazuo *)
(***************************************)


interface

uses  SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls,
      texthand,helpctex, LResources;
      
type
  TMODDialog = class (TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    HelpBtn: TButton;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    Label1: TLabel;
    procedure HelpBtnClick(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  MODDialog: TMODDialog;

function confirmMod:integer;

implementation
{$R *.lfm}

procedure TMODDialog.HelpBtnClick(Sender: TObject);
begin
  Application.HelpContext(HelpContext);
end;

function confirmMod:integer;
begin
   memo.lines.EndUpdate;
   selecttoken;
   memo.lines.BeginUpdate;
   with MODDialog do
    if (radiogroup2.itemindex=1) or (showmodal=mrOK) then
       result:=radiogroup1.itemindex
    else
       seterrillegal(token,IDH_MOD);
end;


initialization


end.
