upostnote.pas

来自「FMA is a free1 powerful phone editing to」· PAS 代码 · 共 123 行

unit uPostNote;

{
*******************************************************************************
* Descriptions: Post-a-note implementation
* $Source: /cvsroot/fma/fma/uPostNote.pas,v $
* $Locker:  $
*
* Todo:
*
* Change Log:
* $Log: uPostNote.pas,v $
*
*******************************************************************************
}

interface

uses
  Windows, TntWindows, Messages, SysUtils, TntSysUtils, Variants, Classes, TntClasses, Graphics, TntGraphics, Controls, TntControls, Forms, TntForms,
  Dialogs, TntDialogs, StdCtrls, TntStdCtrls, ExtCtrls, TntExtCtrls,
  ComCtrls, TntComCtrls;

type
  TfrmNote = class(TTntForm)
    OkButton: TTntButton;
    CancelButton: TTntButton;
    PageControl1: TTntPageControl;
    TabSheet1: TTntTabSheet;
    Bevel1: TTntBevel;
    Image1: TTntImage;
    lblName: TTntLabel;
    Label1: TTntLabel;
    Label2: TTntLabel;
    TntMemo1: TTntMemo;
    TntComboBox1: TTntComboBox;
    procedure FormCreate(Sender: TObject);
    procedure OkButtonClick(Sender: TObject);
    procedure TntFormShow(Sender: TObject);
  private
    { Private declarations }
    function Get_Note: WideString;
    function Get_Type: Integer;
    procedure Set_Note(const Value: WideString);
    procedure Set_Type(const Value: Integer);
    function Get_Class: WideString;
    procedure Set_Class(const Value: WideString);
    procedure DoSanityCheck;
  public
    { Public declarations }
    property NoteText: WideString read Get_Note write Set_Note;
    property NoteClass: WideString read Get_Class write Set_Class;
    property NoteType: Integer read Get_Type write Set_Type;
  end;

var
  frmNote: TfrmNote;

implementation

uses
  gnugettext, gnugettexthelpers,
  uDialogs;

{$R *.dfm}

procedure TfrmNote.DoSanityCheck;
begin
  if Trim(NoteText) = '' then begin
    MessageDlgW(_('You must enter note contents.'),mtError,MB_OK);
    Abort;
  end;
end;

procedure TfrmNote.FormCreate(Sender: TObject);
begin
  gghTranslateComponent(self);
end;

function TfrmNote.Get_Class: WideString;
begin
  Result := TntComboBox1.Text;
end;

function TfrmNote.Get_Note: WideString;
begin
  Result := TntMemo1.Text;
end;

function TfrmNote.Get_Type: Integer;
begin
  Result := TntComboBox1.ItemIndex;
end;

procedure TfrmNote.OkButtonClick(Sender: TObject);
begin
  DoSanityCheck;
  ModalResult := mrOk;
end;

procedure TfrmNote.Set_Class(const Value: WideString);
begin
  TntComboBox1.ItemIndex := TntComboBox1.Items.IndexOf(Value);
end;

procedure TfrmNote.Set_Note(const Value: WideString);
begin
  TntMemo1.Text := Value;
end;

procedure TfrmNote.Set_Type(const Value: Integer);
begin
  TntComboBox1.ItemIndex := Value;
end;

procedure TfrmNote.TntFormShow(Sender: TObject);
begin
  PageControl1.ActivePageIndex := 0;
  TntMemo1.SetFocus;
end;

end.