Subversion Repositories autosfx

unit ExtractorComment;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TCommentForm = class(TForm)

    DescMemo: TMemo;

    OkBtn: TButton;

    CancelBtn: TButton;

    procedure FormResize(Sender: TObject);

  public

    function ShowCommentModal(Comment: string): boolean;

  end;

var

  CommentForm: TCommentForm;

implementation

uses

  SFXBehavior;

{$R *.dfm}

procedure TCommentForm.FormResize(Sender: TObject);

begin

  DescMemo.Width  := ClientWidth  - 2 * DescMemo.Left;

  DescMemo.Height := ClientHeight - 3 * DescMemo.Top - OkBtn.Height;

  CancelBtn.Top   := 2 * DescMemo.Top + DescMemo.Height;

  OkBtn.Top       := CancelBtn.Top;

  OkBtn.Left      := ClientWidth - OkBtn.Width - CancelBtn.Left;

end;

function TCommentForm.ShowCommentModal(Comment: string): boolean;

begin

  DescMemo.Text := TrimRight(StripBehavior(Comment));

  result := ShowModal() = mrOk;

end;

end.