Source file: /~heha/hsn/WdxInfoPacker64.zip/AddSchemeComment.pas

unit AddSchemeComment;

interface

uses
  SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Ac_tion: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

  myEditComment=class
    public Form1:TForm1;
    function CreerMyEditComment(frm,but1,but2,comm:pchar):pchar;
  end;


var
  Form1: TForm1;
  data:pchar;
implementation

function myEditComment.CreerMyEditComment ;
begin
 Form1:=TForm1.Create(application);
 Form1.Caption:=frm; 
 Form1.Button1.Caption:=but1;
 Form1.Button2.Caption:=but2;
 data:=comm;
 Form1.Memo1.Text:=Stringreplace(data,'\n',#13#10,[rfReplaceAll, rfIgnoreCase]);
 Form1.showModal;
 result:=data;  
end;

{$R *.dfm}

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if key = #27 then Self.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Ac_tion: TCloseAction);
begin
Ac_tion := caFree;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Self.Close; 
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then Self.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
s:string;
begin
s:='';
for i:=0 to Memo1.Lines.Count-1 do
 if i<Memo1.Lines.Count-1 then s:=s+Memo1.Lines[i]+'\n'
 else s:=s+Memo1.Lines[i];
 data:=pchar(s);
Button2.Click ;
end;

end.