root/trunk/Forms/frm_edit_author.pas

Show revision log
 
426434
6
  * 20.08.2008
6
  * 20.08.2008
7
  * Copyright (c) Aleksey Penkov  alex.penkov@gmail.com
7
  * Copyright (c) Aleksey Penkov  alex.penkov@gmail.com
8
  *               Nick Rymanov    nrymanov@gmail.com
8
  *               Nick Rymanov    nrymanov@gmail.com
 
9
  *



10
  * ВНИМАНИЕ!!! Эта форма является базовой для TfrmEditAuthorDataEx.



11
  *             Любые изменения, сделанные в этой форме, будут влиять и на производную.




12
  *



9
  ****************************************************************************** *)
13
  ****************************************************************************** *)



10
14



11
unit frm_edit_author;
15
unit frm_edit_author;


...
...
18
22



19
type
23
type



20
  TfrmEditAuthorData = class(TForm)
24
  TfrmEditAuthorData = class(TForm)



21
    gbInfo: TGroupBox;



22
    edFamily: TEdit;



23
    Label1: TLabel;
25
    Label1: TLabel;



24
    edName: TEdit;



25
    Label2: TLabel;
26
    Label2: TLabel;



26
    edMiddle: TEdit;



27
    Label3: TLabel;
27
    Label3: TLabel;



28
    gbAddNew: TGroupBox;
28
    edLastName: TEdit;



29
    cbAddNew: TCheckBox;
29
    edFirstName: TEdit;



30
    cbSaveLinks: TCheckBox;
30
    edMiddleName: TEdit;



31
    pnButtons: TPanel;
31
    pnButtons: TPanel;



32
    btnOk: TButton;
32
    btnOk: TButton;



33
    btnCancel: TButton;
33
    btnCancel: TButton;



34
    procedure FormShow(Sender: TObject);
34



35
  private
35
  private



36
    function GetAddNewState: boolean;
36
    function GetFirstName: string;



37
    function GetSaveLinks: boolean;
37
    function GetLastName: string;



38
    procedure SetShowCheckBoxes(const Value: boolean);
38
    function GetMidName: string;



39
    { Private declarations }
39
    procedure SetFirstName(const Value: string);



40
    procedure SetLastName(const Value: string);



41
    procedure SetMidName(const Value: string);



42



40
  public
43
  public



41
    { Public declarations }
44
    property LastName: string read GetLastName write SetLastName;



42
    property ShowCheckBoxes: boolean write SetShowCheckBoxes default False;
45
    property FirstName: string read GetFirstName write SetFirstName;



43
    property AddNew: boolean read GetAddNewState;
46
    property MidName: string read GetMidName write SetMidName;



44
    property SaveLinks: boolean read GetSaveLinks;



45



46
  end;
47
  end;



47
48



48
var
49
var


...
...
52
53



53
{$R *.dfm}
54
{$R *.dfm}



54
55



55
{ TfrmEditAuthor }
56
{ TfrmEditAuthorData }



56
57



57
procedure TfrmEditAuthorData.FormShow(Sender: TObject);
58
function TfrmEditAuthorData.GetFirstName: string;



58
begin
59
begin



59
  ActiveControl := edFamily;
60
  Result := Trim(edFirstName.Text);



60
end;
61
end;



61
62



62
function TfrmEditAuthorData.GetAddNewState: boolean;
63
function TfrmEditAuthorData.GetLastName: string;



63
begin
64
begin



64
  Result := cbAddNew.Checked;
65
  Result := Trim(edLastName.Text);



65
end;
66
end;



66
67



67
function TfrmEditAuthorData.GetSaveLinks: boolean;
68
function TfrmEditAuthorData.GetMidName: string;



68
begin
69
begin



69
  Result := cbSaveLinks.Checked;
70
  Result := Trim(edMiddleName.Text);



70
end;
71
end;



71
72



72
procedure TfrmEditAuthorData.SetShowCheckBoxes(const Value: boolean);
73
procedure TfrmEditAuthorData.SetFirstName(const Value: string);



73
begin
74
begin



74
  gbAddNew.Visible := Value;
75
  edFirstName.Text := Value;



75
end;
76
end;



76
77



78
procedure TfrmEditAuthorData.SetLastName(const Value: string);



79
begin



80
  edLastName.Text := Value;



81
end;



82



83
procedure TfrmEditAuthorData.SetMidName(const Value: string);



84
begin



85
  edMiddleName.Text := Value;



86
end;



87



77
end.
88
end.