EvaPig

unit UnitComment;

interface

uses

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

  Dialogs, StdCtrls, gnugettext, ImgList, ActnList, JvExStdCtrls, JvButton,

  JvCtrls, ExtCtrls;

type

  TFormComment = class(TForm)

    LabelName: TLabel;

    EditName: TEdit;

    MemoComment: TMemo;

    JvImgBtnCancel: TJvImgBtn;

    JvImgBtnOK: TJvImgBtn;

    ActionListButtons: TActionList;

    ActionOK: TAction;

    ActionCancel: TAction;

    ImageListIcons: TImageList;

    PanelButtons: TPanel;

    procedure FormCreate(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure ActionOKExecute(Sender: TObject);

    procedure ActionCancelExecute(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

    Name, OldComment, NewComment: String;

  end;

var

  FormComment: TFormComment;

implementation

uses

  UnitDeclaration;

{$R *.dfm}

procedure TFormComment.ActionCancelExecute(Sender: TObject);

begin

  ModalResult := mrCancel;

end;

procedure TFormComment.ActionOKExecute(Sender: TObject);

begin

  NewComment := MemoComment.Text;

  ModalResult := mrOk;

end;

procedure TFormComment.FormCreate(Sender: TObject);

begin

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

    Font.Name := 'Arial Unicode MS';

//  PanelButtons.Font.Size := PanelButtons.Font.Size + 2;

  PanelButtons.Font.Style := [fsBold];

  LabelName.Font.Style := [fsBold];

  EditName.Font.Style := [fsBold];

  TranslateComponent(Self);

end;

procedure TFormComment.FormShow(Sender: TObject);

begin

  EditName.Text := Name;

  if OldComment <> ''

  then

  begin

    MemoComment.Text := OldComment;

    MemoComment.SelectAll;

  end;

  ActiveControl := MemoComment;

end;

end.